[Home] [Help]
1: PACKAGE BODY FA_GAINLOSS_UND_PKG AS
2: /* $Header: fagundb.pls 120.67.12020000.2 2012/07/20 11:52:13 spooyath ship $*/
3:
4: g_release number := fa_cache_pkg.fazarel_release;
5:
247: AND faadj.period_counter_created = dp.period_counter;
248:
249: FAGIAR_ERROR Exception;
250:
251: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagiar';
252:
253: BEGIN <
254:
255: h_misc_cost := 0;
507: AND bk.asset_id = RET.asset_id
508: AND bk.date_ineffective is null
509: ORDER BY 3,1;
510:
511: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagtax';
512:
513: h_group_asset_id NUMBER(15);
514: l_status BOOLEAN;
515: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
1547: and d1.code_combination_id = d2.code_combination_id -- added for bug 2775057
1548: and d1.location_id = d2.location_id -- added for bug 2775057
1549: and nvl(d1.assigned_to, -99) = nvl(d2.assigned_to, -99); -- added for bug 2775057
1550:
1551: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagiat';
1552:
1553: l_temp_dist_id1 number;
1554:
1555: BEGIN <
2826: X_last_update_login number := -1;
2827: h_temp number;
2828: l_adj_type VARCHAR2(15); --Bug#8810791
2829:
2830: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagict';
2831:
2832: BEGIN <
2833:
2834: h_cost := 0;
3251: l_tbl_adj_final tbl_final_adj;
3252:
3253: /* Bug ends 7396397 */
3254:
3255: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagiav';
3256:
3257: BEGIN <
3258:
3259: h_reserve := 0;
3781: AND faadj.book_type_code = RET.book
3782: AND faret.set_of_books_id = RET.set_of_books_id
3783: AND faret.retirement_id = RET.retirement_id;
3784:
3785: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.faraje';
3786:
3787: BEGIN <
3788:
3789: h_expense_amount := 0;
4303: user_id IN NUMBER
4304: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
4305:
4306:
4307: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagidn';
4308:
4309: BEGIN <
4310:
4311: if (not faraje(ret,
4419: h_tot_impairment_adj NUMBER;
4420: h_tot_reval_adj NUMBER;
4421: FAGIRV_ERROR EXCEPTION;
4422:
4423: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagirv';
4424:
4425: BEGIN <
4426:
4427: h_deprn_reserve := 0;
4779: h_th_id_out number;
4780: X_LAST_UPDATE_DATE date := sysdate;
4781: X_last_updated_by number := -1;
4782: X_last_update_login number := -1;
4783: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagict_adj';
4784: h_th_id number;
4785: h_dr_cr varchar2(3);
4786: h_units_assign number;
4787: h_bk_cost number;
5091: l_bonus_deprn_exp NUMBER;
5092: l_impairment_exp NUMBER;
5093: l_decision_flag BOOLEAN; -- Bug 6660490
5094:
5095: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.fagrin';
5096: --bug6853328
5097: l_reserve_ret number;
5098: l_dpr FA_STD_TYPES.FA_DEPRN_ROW_STRUCT;
5099: l_status BOOLEAN;
5315: X_DPR_ROW => l_dpr,
5316: X_RUN_MODE => 'STANDARD',
5317: X_DEBUG => FALSE,
5318: X_SUCCESS => l_status,
5319: X_CALLING_FN => 'FA_GAINLOSS_UND_PKG.fagrin',
5320: X_TRANSACTION_HEADER_ID => -1, p_log_level_rec => p_log_level_rec);
5321:
5322: if (NOT l_status) then
5323: return(FALSE);
5730: p_tbl_ret IN OUT NOCOPY tbl_ret,
5731: p_tbl_cost_ret IN OUT NOCOPY tbl_cost_ret,
5732: p_tbl_adj_final IN OUT NOCOPY tbl_final_adj, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean is
5733: l_final_ind number := p_tbl_adj_final.count;
5734: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UND_PKG.pradjtbl';
5735: l_asset_id fa_books.asset_id%type;
5736:
5737: /* Cursor of all active distributions */
5738: cursor c_active_dist is
6208: X_last_updated_by number := -1;
6209: X_last_update_login number := -1;
6210:
6211: FAGIAVRR_ERROR exception;
6212: l_calling_fn varchar2(30) := 'fa_gainloss_und_pkg.fagiavrr';
6213:
6214: begin
6215: if (p_log_level_rec.statement_level) then
6216: fa_debug_pkg.add (fname => l_calling_fn,
6350: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6351: return FALSE;
6352: end FAGIAVRR;
6353:
6354: END FA_GAINLOSS_UND_PKG; -- End of Package