87: value => '', p_log_level_rec => g_log_level_rec);
88: end if;
89:
90: -- call the book controls cache
91: if not fa_cache_pkg.fazcbc(X_book => p_book_type_code,
92: p_log_level_rec => g_log_level_rec) then
93: raise gainloss_err;
94: end if;
95:
92: p_log_level_rec => g_log_level_rec) then
93: raise gainloss_err;
94: end if;
95:
96: l_batch_size := nvl(fa_cache_pkg.fa_batch_size, 200);
97:
98: if g_log_level_rec.statement_level then
99: fa_debug_pkg.add
100: (fname => l_calling_fn,
102: value => '', p_log_level_rec => g_log_level_rec);
103: end if;
104:
105: -- set the sob_id and currency context
106: --fnd_profile.put('GL_SET_OF_BKS_ID', fa_cache_pkg.fazcbc_record.set_of_books_id);
107: --fnd_client_info.set_currency_context(fa_cache_pkg.fazcbc_record.set_of_books_id);
108:
109: if (TRUE) then
110:
103: end if;
104:
105: -- set the sob_id and currency context
106: --fnd_profile.put('GL_SET_OF_BKS_ID', fa_cache_pkg.fazcbc_record.set_of_books_id);
107: --fnd_client_info.set_currency_context(fa_cache_pkg.fazcbc_record.set_of_books_id);
108:
109: if (TRUE) then
110:
111: OPEN c_assets;
166: when gainloss_err then
167: FND_CONCURRENT.AF_ROLLBACK;
168:
169: -- Commented for bugfix 4672237
170: -- if (fa_cache_pkg.fa_print_debug) then
171: -- fa_debug_pkg.dump_debug_messages(max_mesgs => 0);
172: -- end if;
173:
174: x_failure_count := x_failure_count + 1;
192: when others then
193: FND_CONCURRENT.AF_ROLLBACK;
194:
195: -- Commented for bugfix 4672237
196: -- if (fa_cache_pkg.fa_print_debug) then
197: -- fa_debug_pkg.dump_debug_messages(max_mesgs => 0);
198: -- end if;
199: x_failure_count := x_failure_count + 1;
200: fa_srvr_msg.add_message(
227: FND_CONCURRENT.AF_ROLLBACK;
228: fa_srvr_msg.add_message(calling_fn => l_calling_fn);
229:
230: -- Commented for bugfix 4672237
231: -- if (fa_cache_pkg.fa_print_debug) then
232: -- FA_DEBUG_PKG.dump_debug_messages(max_mesgs => 0);
233: -- end if;
234: x_return_status := 2;
235:
251: l_user_id number;
252: l_sysdate date;
253:
254: -- Local record types
255: l_sob_tbl FA_CACHE_PKG.fazcrsob_sob_tbl_type;
256: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
257: l_trans_rec FA_API_TYPES.trans_rec_type;
258: l_asset_desc_rec FA_API_TYPES.asset_desc_rec_type;
259: l_asset_type_rec FA_API_TYPES.asset_type_rec_type;
330: p_log_level_rec => p_log_level_rec);
331: end if;
332:
333: -- call the book controls cache
334: if not fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code,
335: p_log_level_rec => p_log_level_rec) then
336: raise gainloss_err;
337: end if;
338:
477:
478: ret.prorate_convention := l_asset_retire_rec.retirement_prorate_convention;
479:
480: -- from primary book
481: if fa_cache_pkg.fazcbc_record.deprn_allocation_code = 'E' then
482: ret.dpr_evenly := 1;
483: else
484: ret.dpr_evenly := 0;
485: end if;
556:
557: end if; -- fagpsa
558:
559: -- code fix for bug no.3641602.Call the book controls cache again
560: if not fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code,
561: p_log_level_rec => p_log_level_rec) then
562: raise gainloss_err;
563: end if;
564:
562: raise gainloss_err;
563: end if;
564:
565: -- SLA: store the ledger id for future use
566: l_primary_sob_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
567:
568: /*******************************
569: * MRC LOOP for Reporting books
570: ********************************/
568: /*******************************
569: * MRC LOOP for Reporting books
570: ********************************/
571: -- if this is a primary book, process reporting books(sobs)
572: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
573:
574: -- call the sob cache to get the table of sob_ids
575: if not FA_CACHE_PKG.fazcrsob
576: (x_book_type_code => l_asset_hdr_rec.book_type_code,
571: -- if this is a primary book, process reporting books(sobs)
572: if fa_cache_pkg.fazcbc_record.mc_source_flag = 'Y' then
573:
574: -- call the sob cache to get the table of sob_ids
575: if not FA_CACHE_PKG.fazcrsob
576: (x_book_type_code => l_asset_hdr_rec.book_type_code,
577: x_sob_tbl => l_sob_tbl,
578: p_log_level_rec => p_log_level_rec) then
579: raise gainloss_err;
596: -- set the sob_id and currency context for reporting book(sob)
597: fnd_profile.put('GL_SET_OF_BKS_ID', l_sob_tbl(l_sob_index));
598: fnd_client_info.set_currency_context(to_char(l_sob_tbl(l_sob_index)));
599:
600: if not fa_cache_pkg.fazcbcs(x_book => l_asset_hdr_rec.book_type_code,
601: p_log_level_rec => p_log_level_rec) then
602: raise gainloss_err;
603: end if;
604:
652: where retirement_id = lv_asset_retire_rec.retirement_id;
653:
654: ret.prorate_convention := lv_asset_retire_rec.retirement_prorate_convention;
655: -- from reporting book
656: if fa_cache_pkg.fazcbcs_record.deprn_allocation_code = 'E' then
657: ret.dpr_evenly := 1;
658: else
659: ret.dpr_evenly := 0;
660: end if;
683:
684: end loop; -- loop through reporting books
685:
686: --for bug no.3831503
687: if not fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code) then
688: raise gainloss_err;
689: end if;
690: fnd_profile.put('GL_SET_OF_BKS_ID',fa_cache_pkg.fazcbc_record.set_of_books_id);
691: fnd_client_info.set_currency_context(fa_cache_pkg.fazcbc_record.set_of_books_id);
686: --for bug no.3831503
687: if not fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code) then
688: raise gainloss_err;
689: end if;
690: fnd_profile.put('GL_SET_OF_BKS_ID',fa_cache_pkg.fazcbc_record.set_of_books_id);
691: fnd_client_info.set_currency_context(fa_cache_pkg.fazcbc_record.set_of_books_id);
692:
693: end if; -- if this is a primary book
694:
687: if not fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code) then
688: raise gainloss_err;
689: end if;
690: fnd_profile.put('GL_SET_OF_BKS_ID',fa_cache_pkg.fazcbc_record.set_of_books_id);
691: fnd_client_info.set_currency_context(fa_cache_pkg.fazcbc_record.set_of_books_id);
692:
693: end if; -- if this is a primary book
694:
695:
857: end if;
858: fa_srvr_msg.add_message(calling_fn => l_calling_fn);
859:
860: -- Commented for bugfix 4672237
861: -- if (fa_cache_pkg.fa_print_debug) then
862: -- FA_DEBUG_PKG.dump_debug_messages(max_mesgs => 0);
863: -- end if;
864: x_return_status := 2;
865: