1: PACKAGE BODY FA_GAINLOSS_UPD_PKG AS
2: /* $Header: fagupdb.pls 120.79.12010000.9 2009/02/04 09:12:08 souroy ship $*/
3:
4: g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5:
38: l_selection_retid number;
39: l_units_retired number;
40: l_balance_tfr_in_tax number;
41:
42: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.faginfo';
43:
44: faginfo_error EXCEPTION;
45:
46: BEGIN
331: h_years_kept number(5);
332: h_cost_frac number;
333: h_cur_units number(6);
334:
335: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.fagitc';
336:
337: BEGIN <
338:
339: h_itc_amount_id := bk.itc_used;
489: X_last_update_login number := -1;
490:
491: h_bonus_deprn_amt number := 0;
492:
493: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.fagurt';
494:
495: /* Bug2316862 */
496: l_dist_id NUMBER;
497: l_ccid NUMBER;
1779: X_LAST_UPDATE_DATE date := sysdate;
1780: X_last_updated_by number := -1;
1781: X_last_update_login number := -1;
1782:
1783: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.fagpct';
1784:
1785: l_dummy number;
1786:
1787: BEGIN <
2367: faadj.adjustment_amount,
2368: fadp.period_counter;
2369:
2370:
2371: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.farboe';
2372:
2373: BEGIN <
2374:
2375:
3956: X_LAST_UPDATE_DATE date := sysdate;
3957: X_last_updated_by number := -1;
3958: X_last_update_login number := -1;
3959:
3960: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.fagpdp';
3961:
3962: BEGIN <
3963:
3964: if p_log_level_rec.statement_level then
4840: X_LAST_UPDATE_DATE date := sysdate;
4841: X_last_updated_by number := -1;
4842: X_last_update_login number := -1;
4843:
4844: l_calling_fn varchar2(40) := 'FA_GAINLOSS_UPD_PKG.fagprv';
4845:
4846: l_rsv_retired number := null;
4847: l_temp_num number;
4848: l_temp_char varchar2(30);
5708: return FALSE;
5709:
5710: END FAGPRV;
5711:
5712: END FA_GAINLOSS_UPD_PKG; -- End of Package EFA_RUPD