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 default null)
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
,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
,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
,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
,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
,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
,p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
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 (g_print_debug) 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 (g_print_debug) 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 default null)
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 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';
select ar_intercompany_acct
into X_adj_ptr.account
from fa_book_controls
where book_type_code = h_book;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'DR';
select ap_intercompany_acct
into X_adj_ptr.account
from fa_book_controls
where book_type_code = h_book;
if (X_select_mode = fa_adjust_type_pkg.FA_AJ_CLEAR) then
X_adj_ptr.debit_credit_flag := 'CR';
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
,p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
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;
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 (g_print_debug) 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);
h_total_cost_to_prorate := h_total_cost_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 (g_print_debug) 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);
h_total_rsv_to_prorate := h_total_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 (g_print_debug) 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 (g_print_debug) 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 (g_print_debug) 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 (g_print_debug) 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 (g_print_debug) 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_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 (g_print_debug) 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 (g_print_debug) 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 (g_print_debug) 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 (g_print_debug) 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_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 (g_print_debug) 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);