[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT p_psob_id AS sob_id,
1 AS index_id
FROM dual
UNION
SELECT set_of_books_id AS sob_id,
2 AS index_id
FROM fa_mc_book_controls
WHERE book_type_code = p_book_type_code
AND primary_set_of_books_id = p_psob_id
AND enabled_flag = 'Y'
ORDER BY 2;
X_last_update_date IN DATE default sysdate,
X_last_updated_by IN NUMBER default -1,
X_last_update_login IN NUMBER default -1,
X_init_message_flag IN VARCHAR2 DEFAULT 'NO', p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
return BOOLEAN is
h_amount_cleard NUMBER := 0;
l_amount_inserted_tr_out NUMBER;
select nvl(bk.tracking_method, 'NONE'),
nvl(bk.member_rollup_flag, 'N')
into h_tracking_method,
h_member_rollup_flag
from fa_books bk
where asset_id = X_asset_id
and book_type_code = X_book
and transaction_header_id_out is null;
h_adj.last_update_date := X_today;
h_adj.selection_thid := X_thid;
h_adj.amount_inserted := 0;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND; end if;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND; end if;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND; end if;
X_last_update_date => X_last_update_date,
X_last_updated_by => X_last_updated_by,
X_last_update_login => X_last_update_login,
X_mrc_sob_type_code => h_mrc_sob_type_code,
X_set_of_books_id => c_rec.sob_id,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND; end if;
Please note that the main select in fautfr returns no rows to process in this scenario
though it is called even in period of addition.
*/
-- R12 conditional logic
if (G_release = 11) then
h_is_prior_period := TRUE;
,X_last_update_date => X_last_update_date
,X_last_updated_by => X_last_updated_by
,X_last_update_login => X_last_update_login,
p_log_level_rec => p_log_level_rec) THEN
RAISE error_found;
X_last_update_date IN DATE default sysdate,
X_last_updated_by IN NUMBER default -1,
X_last_update_login IN NUMBER default -1,
X_mrc_sob_type_code IN VARCHAR2,
X_set_of_books_id IN NUMBER,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
return BOOLEAN is
h_amount_cleared NUMBER;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_old_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_adj_ptr.selection_retid := X_old_cat_id;
X_adj_ptr.selection_mode := fa_adjust_type_pkg.FA_AJ_CLEAR;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fadotfr',
element => 'X_acctcode',
value => X_acctcode, p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj_ptr.selection_mode, p_log_level_rec => p_log_level_rec);
h_amount_cleared := X_adj_ptr.amount_inserted;
X_adj_ptr.amount_inserted := 0;
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_new_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec )) then
raise ERROR_FOUND;
X_adj_ptr.selection_retid := X_new_cat_id;
X_adj_ptr.selection_mode := fa_adjust_type_pkg.FA_AJ_ACTIVE;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fadotfr',
element => 'X_acctcode',
value => X_acctcode, p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj_ptr.selection_mode, p_log_level_rec => p_log_level_rec);
if (h_amount_cleared <> X_adj_ptr.amount_inserted) then
h_msg_name := 'FA_TFR_UNBAL_AMTS';
h_token2 := 'INSERTED';
h_value2 := X_adj_ptr.amount_inserted;
/* clear the amount inserted */
X_adj_ptr.amount_inserted := 0;
X_select_mode IN NUMBER,
X_cat_id IN NUMBER,
X_asset_type IN VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
return BOOLEAN is
h_book X_adj_ptr.book_type_code%type;
element => 'X_select_mode',
value => X_select_mode, p_log_level_rec => p_log_level_rec);
select cip_cost_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
select asset_cost_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'CR';
select deprn_reserve_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
select bonus_deprn_reserve_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
select impair_reserve_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
select capital_adj_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'CR';
select general_fund_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
select reval_reserve_acct
into X_adj_ptr.account
from fa_category_books
where book_type_code = h_book
and category_id = h_category_id;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.source_dest_code := 'SOURCE';
X_last_update_date IN DATE default sysdate,
X_last_updated_by IN NUMBER default -1,
X_last_update_login IN NUMBER default -1,
X_mrc_sob_type_code IN VARCHAR2,
X_set_of_books_id IN NUMBER,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type)
return BOOLEAN is
h_dpr FA_STD_TYPES.FA_DEPRN_ROW_STRUCT;
h_cost_inserted_so_far NUMBER := 0;
h_rsv_inserted_so_far NUMBER := 0;
h_rev_inserted_so_far NUMBER := 0;
h_bonus_rsv_inserted_so_far NUMBER := 0;
h_impair_rsv_inserted_so_far NUMBER := 0;
h_capital_inserted_so_far NUMBER := 0; -- Bug 6666666 : Capital Adjustment inserted so far
h_general_inserted_so_far NUMBER := 0; -- Bug 6666666 : General Fund inserted so far
SELECT
DECODE(TH.TRANSACTION_HEADER_ID,
DH.TRANSACTION_HEADER_ID_OUT, 1,
DH.TRANSACTION_HEADER_ID_IN, 2,
3),
TH.TRANSACTION_HEADER_ID,
DH.DISTRIBUTION_ID,
DH.CODE_COMBINATION_ID,
DH.UNITS_ASSIGNED
FROM
FA_DISTRIBUTION_HISTORY DH,
FA_TRANSACTION_HEADERS TH
WHERE
TH.TRANSACTION_HEADER_ID = X_adj.selection_thid AND
(TH.TRANSACTION_HEADER_ID = DH.TRANSACTION_HEADER_ID_IN OR
TH.TRANSACTION_HEADER_ID = DH.TRANSACTION_HEADER_ID_OUT)
ORDER BY
1,
DH.DISTRIBUTION_ID;
X_adj.selection_mode := fa_adjust_type_pkg.FA_AJ_TRANSFER_SINGLE;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_COST', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_BONUS_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_IMPAIRMENT_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
h_total_impair_rsv_to_prorate + X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_CAPITAL_ADJUSTMENT', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
h_total_capital_to_prorate + X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_GENERAL_FUND', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
h_total_general_to_prorate + X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_CLEAR,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_REVAL_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_adj.amount_inserted;
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_cost_inserted_so_far := h_cost_inserted_so_far +
X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_COST', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_rsv_inserted_so_far := h_rsv_inserted_so_far +
X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_bonus_rsv_inserted_so_far := h_bonus_rsv_inserted_so_far +
X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_BONUS_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE
,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_impair_rsv_inserted_so_far :=
h_impair_rsv_inserted_so_far + X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_IMPAIRMENT_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE
,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_capital_inserted_so_far :=
h_capital_inserted_so_far + X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_CAPITAL_ADJUSTMENT', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE
,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_general_inserted_so_far :=
h_general_inserted_so_far + X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_GENERAL_FUND', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_rev_inserted_so_far := h_rev_inserted_so_far +
X_adj.adjustment_amount;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_REVAL_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_cost_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_COST', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_rsv_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_bonus_rsv_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_BONUS_DEPRN_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_impair_rsv_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_IMPAIRMENT_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_capital_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_CAPITAL_ADJUSTMENT', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_general_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_GENERAL_FUND', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
X_select_mode => fa_adjust_type_pkg.FA_AJ_ACTIVE,
X_cat_id => X_cat_id,
X_asset_type => X_asset_type,
p_log_level_rec => p_log_level_rec)) then
raise ERROR_FOUND;
h_rev_inserted_so_far;
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.fatsgl',
element => 'X_acctcode',
value => 'FA_TFR_REVAL_RSV', p_log_level_rec => p_log_level_rec);
element => 'select_mode',
value => X_adj.selection_mode, p_log_level_rec => p_log_level_rec);
SELECT distinct 1
INTO
h_is_prior_period
FROM
FA_DEPRN_PERIODS DP_NOW,
FA_DEPRN_PERIODS DP,
FA_BOOK_CONTROLS BC,
FA_TRANSACTION_HEADERS TH
WHERE
TH.ASSET_ID = X_asset_id AND
TH.TRANSACTION_TYPE_CODE = DECODE(BC.BOOK_CLASS,'CORPORATE',
'TRANSFER IN','ADDITION') AND
TH.BOOK_TYPE_CODE = BC.BOOK_TYPE_CODE AND
BC.BOOK_TYPE_CODE = DECODE(h_book_spec, 1,
X_book,
TH.BOOK_TYPE_CODE) AND
TH.DATE_EFFECTIVE BETWEEN
DP.PERIOD_OPEN_DATE AND
NVL(DP.PERIOD_CLOSE_DATE, SYSDATE)
AND
DP.BOOK_TYPE_CODE = TH.BOOK_TYPE_CODE AND
DP.PERIOD_COUNTER < DP_NOW.PERIOD_COUNTER AND
DP_NOW.BOOK_TYPE_CODE = TH.BOOK_TYPE_CODE AND
DP_NOW.PERIOD_CLOSE_DATE IS NULL;
| Even though the main select in fautfr is called in period of addition
| it doesn't return any rows to process.
| Using this new function, we will be processing
| the movement of any catchup expenses
| from the old dist to the new dist.
|
|
| RETURNS: TRUE, on successful completion
| FALSE, on error condition
|
| History
| 16-Aug-2005 YYOON Created
|
============================================================================*/
FUNCTION faumvexp(X_asset_id NUMBER
,X_book_type_code VARCHAR2
,X_th_id NUMBER
,X_to_category_id NUMBER
,X_exp_moved OUT NOCOPY BOOLEAN
,X_last_update_date DATE
,X_last_updated_by NUMBER
,X_last_update_login NUMBER
, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) RETURN BOOLEAN IS
l_set_of_books_id number;
SELECT p_psob_id AS sob_id,
1 AS index_id
FROM dual
UNION
SELECT set_of_books_id AS sob_id,
2 AS index_id
FROM fa_mc_book_controls
WHERE book_type_code = p_book_type_code
AND primary_set_of_books_id = p_psob_id
AND enabled_flag = 'Y'
ORDER BY 2;
select adj.adjustment_type, max('DR'),
sum(decode(adj.debit_credit_flag,'DR', adj.adjustment_amount,
-adj.adjustment_amount)) adjustment_amount,
sum(decode(adj.debit_credit_flag,'DR', adj.annualized_adjustment,
-adj.annualized_adjustment)) annualized_adjustment,
max(adj.track_member_flag) -- Bug7461343
from fa_adjustments adj
,fa_additions_b ad
,fa_distribution_history fad
where adj.asset_id = p_asset_id
and adj.book_type_code = p_book_type_code
and adj.source_type_code = 'DEPRECIATION'
and adj.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE')
and adj.period_counter_created = p_pc
and ad.asset_id = adj.asset_id
and fad.asset_id = adj.asset_id
and fad.book_type_code = adj.book_type_code
and fad.distribution_id = adj.distribution_id
and fad.transaction_header_id_out = p_thid
group by adj.adjustment_type;
select adj.adjustment_type, max('DR'),
sum(decode(adj.debit_credit_flag,'DR', adj.adjustment_amount,
-adj.adjustment_amount)) adjustment_amount,
sum(decode(adj.debit_credit_flag,'DR', adj.annualized_adjustment,
-adj.annualized_adjustment)) annualized_adjustment,
max(adj.track_member_flag) -- Bug7461343
from fa_mc_adjustments adj
,fa_additions_b ad
,fa_distribution_history fad
where adj.asset_id = p_asset_id
and adj.book_type_code = p_book_type_code
and adj.source_type_code = 'DEPRECIATION'
and adj.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE')
and adj.period_counter_created = p_pc
and adj.set_of_books_id = l_set_of_books_id
and ad.asset_id = adj.asset_id
and fad.asset_id = adj.asset_id
and fad.book_type_code = adj.book_type_code
and fad.distribution_id = adj.distribution_id
and fad.transaction_header_id_out = p_thid
group by adj.adjustment_type;
select dh.distribution_id, dh.code_combination_id, dh.units_assigned
from fa_distribution_history dh
where dh.transaction_header_id_in = p_thid
and dh.date_ineffective is null
order by dh.distribution_id;
select sum(dh.units_assigned)
from fa_distribution_history dh
where dh.transaction_header_id_in = p_thid;
select ds.period_counter + 1
into l_pc
from fa_mc_deprn_summary ds
where ds.asset_id = X_asset_id
and ds.book_type_code = X_book_type_code
and ds.deprn_source_code = 'BOOKS'
and ds.set_of_books_id = l_set_of_books_id;
select ds.period_counter + 1
into l_pc
from fa_deprn_summary ds
where ds.asset_id = X_asset_id
and ds.book_type_code = X_book_type_code
and ds.deprn_source_code = 'BOOKS';
select DEPRN_EXPENSE_ACCT,
BONUS_DEPRN_EXPENSE_ACCT,
IMPAIR_EXPENSE_ACCT
into l_deprn_exp_acct,
l_bonus_deprn_exp_acct,
l_impairment_exp_acct
from fa_category_books
where book_type_code = X_book_type_code
and category_id = X_to_category_id;
l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_TRANSFER_SINGLE;
l_adj.selection_thid := 0;
l_adj.selection_retid := 0;
l_adj.last_update_date := SYSDATE;
select transaction_header_id -- Bug 10387406
into l_trx_header_id
from fa_transaction_headers
where asset_id = X_asset_id
and book_type_code = X_book_type_code
and transaction_type_code = 'ADDITION';
X_last_update_date,
X_last_updated_by,
X_last_update_login, p_log_level_rec => p_log_level_rec)) then
if (p_log_level_rec.statement_level) then
fa_debug_pkg.add(fname => 'FA_TRANSFER_XIT_PKG.faumvexp',
element => 'account',
value => l_adj.account, p_log_level_rec => p_log_level_rec);
element => 'selection_mode',
value => l_adj.selection_mode, p_log_level_rec => p_log_level_rec);
delete from fa_mc_adjustments adj
where adj.asset_id = X_asset_id
and adj.book_type_code = X_book_type_code
and adj.period_counter_created = l_pc
and adj.set_of_books_id = l_set_of_books_id
and adj.source_type_code = 'DEPRECIATION'
and adj.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE')
and adj.distribution_id in
(select dh.distribution_id
from fa_distribution_history dh
where dh.transaction_header_id_out = X_th_id)
and exists
(select adj1.transaction_header_id
from fa_mc_adjustments adj1
where adj1.asset_id = X_asset_id
and adj1.transaction_header_id = X_th_id
and adj1.book_type_code = X_book_type_code
and adj1.period_counter_created = l_pc
and adj1.set_of_books_id = l_set_of_books_id
and adj1.source_type_code = 'DEPRECIATION'
and adj1.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE'));
delete from fa_adjustments adj
where adj.asset_id = X_asset_id
and adj.book_type_code = X_book_type_code
and adj.period_counter_created = l_pc
and adj.source_type_code = 'DEPRECIATION'
and adj.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE')
and adj.distribution_id in
(select dh.distribution_id
from fa_distribution_history dh
where dh.transaction_header_id_out = X_th_id)
and exists
(select adj1.transaction_header_id
from fa_adjustments adj1
where adj1.asset_id = X_asset_id
and adj1.transaction_header_id = X_th_id
and adj1.book_type_code = X_book_type_code
and adj1.period_counter_created = l_pc
and adj1.source_type_code = 'DEPRECIATION'
and adj1.adjustment_type in ('EXPENSE', 'BONUS EXPENSE', 'IMPAIR EXPENSE'));