[Home] [Help]
4: g_cap_event_id number;
5: g_cap_thid number;
6: g_event_status varchar2(1);
7:
8: g_release number := fa_cache_pkg.fazarel_release;
9:
10: FUNCTION do_validation
11: (p_trans_rec IN FA_API_TYPES.trans_rec_type,
12: p_asset_hdr_rec IN FA_API_TYPES.asset_hdr_rec_type,
224: --fazccbd should have been called in the public api.
225: --Contrary to comments above, child life is not derived in calc_fin_info
226: --and it does not make sense to do it there for this purpose anyway.
227: */
228: if (nvl(fa_cache_pkg.fazccbd_record.subcomponent_life_rule, 'NULL') <> 'NULL' and
229: nvl(p_asset_desc_rec.parent_asset_id, -99) <> -99) then
230:
231: if not FA_ASSET_CALC_PVT.calc_subcomp_life
232: (p_trans_rec => px_trans_rec,
238: p_calling_fn => l_calling_fn
239: , p_log_level_rec => p_log_level_rec) then
240: raise cap_rev_err;
241: end if;
242: end if; -- (nvl(fa_cache_pkg.fazccbd_recor ...
243:
244: if (p_log_level_rec.statement_level) then
245: fa_debug_pkg.add(l_calling_fn, 'after calc_subcomp_life', l_asset_fin_rec_new.life_in_months, p_log_level_rec => p_log_level_rec);
246: end if;
308: X_Calling_Fn => l_calling_fn,
309: p_log_level_rec => p_log_level_rec);
310:
311: -- Japan Tax CIP Enhancement 6688475 (Start)
312: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES'
313: and (px_trans_rec.transaction_type_code <> 'CIP REVERSE') then
314:
315: FA_CDE_PKG.faxgfr (X_Book_Type_Code => p_asset_hdr_rec.book_type_code,
316: X_Asset_Id => p_asset_hdr_rec.asset_id,
394: X_Transaction_Date_Entered => px_asset_fin_rec.date_placed_in_service,
395: X_Calling_Fn => l_calling_fn
396: , p_log_level_rec => p_log_level_rec);
397:
398: if (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') then
399:
400: if (p_log_level_rec.statement_level) then
401: fa_debug_pkg.add(l_calling_fn,
402: 'calling book ah update_row','', p_log_level_rec => p_log_level_rec);
523: -- now handle event impacts
524: -- create the event for the transaction
525:
526: if not fa_xla_events_pvt.delete_transaction_event
527: (p_ledger_id => fa_cache_pkg.fazcbc_record.set_of_books_id,
528: p_transaction_header_id => g_cap_thid,
529: p_book_type_code => p_asset_hdr_rec.book_type_code,
530: p_asset_type => px_asset_type_rec.asset_type, --bug 8630242/8678674
531: p_calling_fn => l_calling_fn
592: X_Return_Status => l_status,
593: X_Calling_Fn => l_calling_fn
594: , p_log_level_rec => p_log_level_rec);
595:
596: if (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') then
597:
598: if (p_log_level_rec.statement_level) then
599: fa_debug_pkg.add(l_calling_fn,
600: 'calling ah update_row, thid out',px_trans_rec.transaction_header_id, p_log_level_rec => p_log_level_rec);
771: X_Calling_Fn => l_calling_fn
772: , p_log_level_rec => p_log_level_rec);
773:
774: -- Japan Tax CIP Enhancement 6688475 (Start)
775: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES'
776: and (px_trans_rec.transaction_type_code <> 'CIP REVERSE') then
777:
778: FA_CDE_PKG.faxgfr (X_Book_Type_Code => p_asset_hdr_rec.book_type_code,
779: X_Asset_Id => p_asset_hdr_rec.asset_id,
831:
832:
833: if (p_mrc_sob_type_code <> 'R') then
834:
835: if (fa_cache_pkg.fazcbc_record.book_class = 'CORPORATE') then
836:
837: if (p_log_level_rec.statement_level) then
838: fa_debug_pkg.add(l_calling_fn,
839: 'calling ad update_row','', p_log_level_rec => p_log_level_rec);
1144: -- cost first
1145: l_adj.flush_adj_flag := TRUE; -- ??
1146: l_adj.adjustment_type := 'COST';
1147: l_adj.debit_credit_flag := 'DR';
1148: l_adj.account := fa_cache_pkg.fazccb_record.asset_cost_acct;
1149: l_adj.account_type := 'ASSET_COST_ACCT';
1150: l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
1151: l_adj.set_of_books_id := p_asset_hdr_rec.set_of_books_id;
1152:
1161: -- cip cost next
1162: l_adj.flush_adj_flag := TRUE;
1163: l_adj.adjustment_type := 'CIP COST';
1164: l_adj.debit_credit_flag := 'CR';
1165: l_adj.account := fa_cache_pkg.fazccb_record.cip_cost_acct;
1166: l_adj.account_type := 'CIP_COST_ACCT';
1167:
1168: if not FA_INS_ADJUST_PKG.faxinaj
1169: (l_adj,