[Home] [Help]
1: PACKAGE BODY FA_RETIREMENT_PUB as
2: /* $Header: FAPRETB.pls 120.121.12020000.11 2013/03/19 18:09:48 dvjoshi ship $ */
3:
4: -- API info
5: G_PKG_NAME CONSTANT varchar2(30) := 'FA_RETIREMENT_PUB';
1: PACKAGE BODY FA_RETIREMENT_PUB as
2: /* $Header: FAPRETB.pls 120.121.12020000.11 2013/03/19 18:09:48 dvjoshi ship $ */
3:
4: -- API info
5: G_PKG_NAME CONSTANT varchar2(30) := 'FA_RETIREMENT_PUB';
6: G_API_NAME CONSTANT varchar2(30) := 'Retirement API';
7: G_API_VERSION CONSTANT number := 1.0;
8:
9: g_log_level_rec fa_api_types.log_level_rec_type;
9: g_log_level_rec fa_api_types.log_level_rec_type;
10:
11: g_release number := fa_cache_pkg.fazarel_release;
12:
13: -- l_calling_fn VARCHAR2(100) := 'FA_RETIREMENT_PUB';
14:
15: g_retirement VARCHAR2(30) := 'RETIREMENT';
16: g_reinstatement VARCHAR2(30) := 'REINSTATEMENT';
17: g_undo_retirement VARCHAR2(30) := 'UNDO RETIREMENT';
254: l_orig_currency_context varchar2(64);
255:
256: l_ins_status boolean := FALSE;
257:
258: l_calling_fn VARCHAR2(80) := 'FA_RETIREMENT_PUB.do_retirement';
259:
260: --Bug# 6998072 Start
261: l_unit_assigned number;
262: l_cost_retire_last_unit number;
911: p_bonus_rule => l_asset_fin_rec.bonus_rule,
912: p_ceiling_name => l_asset_fin_rec.ceiling_name,
913: p_deprn_limit_type => l_asset_fin_rec.deprn_limit_type,
914: p_group_asset_id => l_asset_fin_rec.group_asset_id,
915: p_calling_fn => 'FA_RETIREMENT_PUB.do_retirement'
916: , p_log_level_rec => g_log_level_rec) then
917: g_msg_name := null;
918: g_token1 := null;
919: raise FND_API.G_EXC_ERROR;
1264: l_secondary_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
1265: l_secondary_trans_rec FA_API_TYPES.trans_rec_type;
1266: l_seondary_sob_id number;
1267:
1268: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_all_books_retirement';
1269:
1270: BEGIN
1271:
1272:
1636: (p_asset_hdr_rec => l_asset_hdr_rec,
1637: p_asset_type_rec=> l_asset_type_rec,
1638: px_trans_rec => l_trans_rec,
1639: p_event_status => FA_XLA_EVENTS_PVT.C_EVENT_INCOMPLETE,
1640: p_calling_fn => 'FA_RETIREMENT_PUB.do_all_books_retirement'
1641: ,p_log_level_rec => p_log_level_rec) then
1642: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1643: end if;
1644:
1744: (p_asset_hdr_rec => l_secondary_asset_hdr_rec,
1745: p_asset_type_rec=> l_asset_type_rec,
1746: px_trans_rec => l_secondary_trans_rec,
1747: p_event_status => FA_XLA_EVENTS_PVT.C_EVENT_INCOMPLETE,
1748: p_calling_fn => 'FA_RETIREMENT_PUB.do_all_books_retirement'
1749: ,p_log_level_rec => p_log_level_rec) then
1750: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1751: end if;
1752: end if;
1830:
1831: /* BUG#2919562 */
1832: l_trx_rate number;
1833:
1834: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_sub_retirement';
1835:
1836: BEGIN
1837:
1838:
2395: l_retirement_pending_flag varchar2(3);
2396:
2397: l_rate_in_use number; -- Bug:5930979:Japan Tax Reform Project
2398:
2399: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_sub_regular_retirement';
2400: l_ret_prorate_date DATE; --bug 14286465
2401: l_period_fully_extend NUMBER; --BUG 14286465
2402:
2403: BEGIN
2494: p_ceiling_name => l_asset_fin_rec.ceiling_name,
2495: p_deprn_limit_type => l_asset_fin_rec.deprn_limit_type,
2496: p_group_asset_id => l_asset_fin_rec.group_asset_id,
2497: p_calling_fn =>
2498: 'FA_RETIREMENT_PUB.do_sub_regular_retirement'
2499: , p_log_level_rec => p_log_level_rec) then
2500: g_msg_name := null;
2501: g_token1 := null;
2502: raise FND_API.G_EXC_ERROR;
2869: px_new_adjusted_cost => l_adjusted_cost_new,
2870: px_new_raf => l_asset_fin_rec.rate_adjustment_factor,
2871: px_new_formula_factor => l_asset_fin_rec.formula_factor, p_log_level_rec => p_log_level_rec)) then
2872: fa_srvr_msg.add_message(calling_fn =>
2873: 'FA_RETIREMENT_PUB.do_sub_regular_retirement', p_log_level_rec => p_log_level_rec);
2874: RETURN FALSE;
2875: end if;
2876:
2877: -- Bug4343087
3321: IS
3322:
3323: l_return_status number := 0;
3324:
3325: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.calculate_gain_loss';
3326:
3327: BEGIN
3328:
3329:
3408: -- used to store original sob info upon entry into api
3409: l_orig_set_of_books_id number;
3410: l_orig_currency_context varchar2(64);
3411:
3412: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_retirement';
3413:
3414: BEGIN
3415:
3416: savepoint undo_retirement;
3736:
3737: -- msg
3738: g_msg_name varchar2(30);
3739:
3740: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_all_books_retirement';
3741:
3742: --Secondary Changes
3743: l_secondary_sob_id number;
3744:
3805: (p_ledger_id => l_asset_hdr_rec.set_of_books_id,
3806: p_transaction_header_id => l_asset_retire_rec.detail_info.transaction_header_id_in,
3807: p_book_type_code => l_asset_hdr_rec.book_type_code,
3808: p_asset_type => l_asset_type_rec.asset_type , -- bug 8630242
3809: p_calling_fn => 'fa_retirement_pub.undo_all_books_retirement'
3810: ,p_log_level_rec => p_log_level_rec) then
3811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3812: end if;
3813:
3983: and c_reporting_flag = 'R';
3984:
3985: l_invoice_transaction_id number; -- Local variable to store return value of c_inv_trx_id
3986:
3987: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_sub_retirement';
3988:
3989: BEGIN
3990:
3991:
4496: l_orig_currency_context varchar2(64);
4497:
4498: l_ins_status boolean := FALSE;
4499:
4500: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_reinstatement';
4501:
4502: BEGIN
4503:
4504: savepoint do_reinstatement;
5014:
5015: -- msg
5016: g_msg_name varchar2(30);
5017:
5018: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_all_books_reinstatement';
5019:
5020: --Secondary Changes
5021: l_secondary_sob_id number;
5022:
5307: l_fraction_remaining number;
5308: l_deprn_rounding_flag varchar2(30);
5309: l_period_counter_fully_ret number;
5310:
5311: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_sub_reinstatement';
5312:
5313: BEGIN
5314:
5315:
5566: l_invoice_transaction_id number; -- Local variable to store return value of c_inv_trx_id;
5567:
5568: l_event_status varchar2(1); -- SLA status
5569:
5570: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_sub_regular_reinstatement';
5571:
5572: --Secondary Changes
5573: l_secondary_trans_rec FA_API_TYPES.trans_rec_type;
5574: l_secondary_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
5655: (p_asset_hdr_rec => l_asset_hdr_rec,
5656: p_asset_type_rec=> p_asset_type_rec,
5657: px_trans_rec => l_trans_rec,
5658: p_event_status => l_event_status,
5659: p_calling_fn => 'FA_RETIREMENT_PUB.do_sub_regular_reinstatement',
5660: p_log_level_rec => p_log_level_rec) then
5661: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5662: end if;
5663: --Secondary Changes
5672: (p_asset_hdr_rec => l_secondary_asset_hdr_rec,
5673: p_asset_type_rec=> p_asset_type_rec,
5674: px_trans_rec => l_secondary_trans_rec,
5675: p_event_status => l_event_status,
5676: p_calling_fn => 'FA_RETIREMENT_PUB.do_sub_regular_reinstatement'
5677: ,p_log_level_rec => p_log_level_rec) then
5678: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5679: end if;
5680: end if;
5913: -- used to store original sob info upon entry into api
5914: l_orig_set_of_books_id number;
5915: l_orig_currency_context varchar2(64);
5916:
5917: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_reinstatement';
5918:
5919: BEGIN
5920:
5921: savepoint undo_reinstatement;
6230:
6231: -- msg
6232: g_msg_name varchar2(30);
6233:
6234: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_all_books_reinstatement';
6235:
6236: --Secondary changes
6237: l_secondary_sob_id number;
6238:
6298: (p_ledger_id => l_asset_hdr_rec.set_of_books_id,
6299: p_transaction_header_id => l_asset_retire_rec.detail_info.transaction_header_id_out,
6300: p_book_type_code => l_asset_hdr_rec.book_type_code,
6301: p_asset_type => l_asset_type_rec.asset_type, --bug 8643362
6302: p_calling_fn => 'fa_retirement_pub.undo_all_books_reinstatement'
6303: ,p_log_level_rec => p_log_level_rec) then
6304: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6305: end if;
6306:
6424: where transaction_header_id = c_thid;
6425:
6426: l_invoice_transaction_id number; -- Local variable to store return value of c_inv_trx_id
6427:
6428: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.undo_sub_reinstatement';
6429:
6430: BEGIN
6431:
6432:
6694: and p_period_rec.calendar_period_open_date > l_asset_retire_rec.date_retired;
6695:
6696: l_trx_date date; -- Store return value of cursor c_check_other_trx
6697:
6698: l_calling_fn varchar2(80) := 'FA_RETIREMENT_PUB.do_validation';
6699:
6700: BEGIN
6701:
6702: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin ', l_calling_fn, p_log_level_rec => p_log_level_rec); end if;
6759: p_asset_id => l_asset_hdr_rec.asset_id,
6760: x_override_flag => l_override_flag,
6761: p_log_level_rec => p_log_level_rec)) then
6762: fa_srvr_msg.add_message(
6763: calling_fn => 'FA_RETIREMENT_PUB.valid_input', p_log_level_rec => p_log_level_rec);
6764: return FALSE;
6765: end if;
6766: -- if override flag is set to No, do not allow the transfer
6767: if (l_override_flag = 'N') then
6765: end if;
6766: -- if override flag is set to No, do not allow the transfer
6767: if (l_override_flag = 'N') then
6768: fa_srvr_msg.add_message(
6769: calling_fn => 'FA_RETIREMENT_PUB.valid_input',
6770: name => 'CUA_NO_DIST_CHANGE_ALLOWED', p_log_level_rec => p_log_level_rec);
6771: return FALSE;
6772: end if;
6773: end if;
7536: p_inv_tbl IN FA_API_TYPES.inv_tbl_type,
7537: p_rowid IN ROWID,
7538: p_calling_fn IN VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return BOOLEAN Is
7539:
7540: l_calling_fn VARCHAR2(80) := 'fa_retirement_pub.reinstate_src_line';
7541:
7542: CURSOR New_Asset_Invoices_C (c_asset_invoice_id NUMBER) is
7543: SELECT SOURCE_LINE_ID
7544: , FIXED_ASSETS_COST
7692: return FALSE;
7693:
7694: END REINSTATE_SRC_LINE;
7695: ---------------------------------------
7696: END FA_RETIREMENT_PUB;