[Home] [Help]
1: PACKAGE BODY FA_RETIREMENT_PVT as
2: /* $Header: FAVRETB.pls 120.55.12010000.6 2008/12/04 10:01:07 dvjoshi ship $ */
3:
4: -- +++++ Global Varialbes +++++
5: --Adding for 3440308
84: where asset_id = p_asset_fin_rec.group_asset_id
85: and book_type_code = p_asset_hdr_rec.book_type_code
86: and member_transaction_header_id = p_trans_rec.transaction_header_id;
87:
88: l_calling_fn VARCHAR2(100) := 'fa_retirement_pvt.do_retirement';
89:
90: l_transaction_header_id FA_TRANSACTION_HEADERS.TRANSACTION_HEADER_ID%TYPE;
91:
92: l_asset_desc_rec_m FA_API_TYPES.asset_desc_rec_type;
495: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.cost_of_removal,p_log_level_rec);
496: fa_debug_pkg.add(l_calling_fn, 'Calling Do_Allocation', p_asset_retire_rec.reserve_retired,p_log_level_rec);
497: end if;
498:
499: if not FA_RETIREMENT_PVT.Do_Allocation(
500: p_trans_rec => l_trans_rec,
501: p_asset_hdr_rec => l_asset_hdr_rec,
502: p_asset_fin_rec => l_asset_fin_rec_new,
503: p_asset_deprn_rec_new => l_asset_deprn_rec_new, -- group new deprn rec
1374: nvl(p_asset_retire_rec.proceeds_of_sale, 0) +
1375: nvl(p_asset_retire_rec.cost_of_removal, 0) -
1376: nvl(p_asset_retire_rec.reserve_retired, 0);
1377:
1378: if not FA_RETIREMENT_PVT.Do_Allocation(
1379: p_trans_rec => l_trans_rec,
1380: p_asset_hdr_rec => l_asset_hdr_rec,
1381: p_asset_fin_rec => l_asset_fin_rec_new,
1382: p_asset_deprn_rec_new => l_asset_deprn_rec_new,
1477: and bk.deprn_method_code = mt.method_code -- ENERGY
1478: and nvl(bk.life_in_months, -99) = nvl(mt.life_in_months, -99) -- ENERGY
1479: and mt.deprn_basis_rule_id = db.deprn_basis_rule_id; -- ENERGY
1480:
1481: l_calling_fn VARCHAR2(100) := 'fa_retirement_pvt.calc_gain_loss_for_ret';
1482:
1483: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
1484: l_asset_cat_rec FA_API_TYPES.asset_cat_rec_type;
1485:
2898: select -1 * eofy_reserve
2899: from fa_retirements_mrc_v
2900: where retirement_id = p_ret.retirement_id;
2901:
2902: l_calling_fn VARCHAR2(100) := 'fa_retirement_pvt.Do_Retirement_in_CGL';
2903:
2904: l_trans_rec FA_API_TYPES.trans_rec_type;
2905: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
2906: l_asset_hdr_rec_m FA_API_TYPES.asset_hdr_rec_type;
3442: , fa_transaction_headers trx
3443: where ret.retirement_id = p_ret.retirement_id
3444: and ret.transaction_header_id_out = trx.transaction_header_id;
3445:
3446: l_calling_fn VARCHAR2(100) := 'fa_retirement_pvt.Do_Reinstatement_in_CGL';
3447:
3448: l_trans_rec FA_API_TYPES.trans_rec_type;
3449: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
3450: l_asset_hdr_rec_m FA_API_TYPES.asset_hdr_rec_type;
3676: p_period_rec FA_API_TYPES.period_rec_type,
3677: p_mrc_sob_type_code VARCHAR2,
3678: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)RETURN BOOLEAN IS
3679:
3680: l_calling_fn VARCHAR2(50) := 'FA_RETIREMENT_PVT.Do_Terminal_Gain_Loss_All_Bk';
3681:
3682: cursor c_member_exists IS
3683: select 'Y'
3684: from fa_books
3938: p_total_requests NUMBER,
3939: p_request_number NUMBER,
3940: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)RETURN BOOLEAN IS
3941:
3942: l_calling_fn VARCHAR2(50) := 'FA_RETIREMENT_PVT.Do_Terminal_Gain_Loss';
3943:
3944: l_period_rec FA_API_TYPES.period_rec_type;
3945:
3946: cursor c_get_groups is
4112: p_mrc_sob_type_code IN VARCHAR2,
4113: p_calling_fn IN VARCHAR2,
4114: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
4115:
4116: l_calling_fn VARCHAR2(50) := 'FA_RETIREMENT_PVT.Check_Terminal_Gain_Loss';
4117:
4118: --
4119: -- This cursor tries to find not full retired member of given group asset
4120: -- if there is any.
4319: p_calling_fn IN VARCHAR2,
4320: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
4321: RETURN BOOLEAN IS
4322:
4323: l_calling_fn varchar2(40) := 'FA_RETIREMENT_PVT.Do_Allocation';
4324:
4325:
4326: CURSOR C_GET_SUM_REC_COST IS
4327: SELECT SUM(RECOVERABLE_COST)
5936:
5937: END Do_Allocation;
5938:
5939:
5940: END FA_RETIREMENT_PVT;