76: end if;
77: end if;
78:
79: if (g_log_level_rec.statement_level) then
80: fa_debug_pkg.add(l_db_title, 'BEGIN', p_asset_id ,p_log_level_rec => g_log_level_rec);
81: end if;
82:
83: l_asset_hdr_rec.asset_id := p_asset_id;
84: l_asset_hdr_rec.book_type_code := p_book_type_code;
90: px_asset_type_rec => l_asset_type_rec,
91: p_date_effective => NULL,
92: p_log_level_rec => g_log_level_rec) then
93: if (g_log_level_rec.statement_level) then
94: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling get_asset_type_rec',
95: p_log_level_rec => g_log_level_rec);
96: end if;
97: raise tgl_err;
98: end if;
102: -- call the cache for the primary transaction book
103: if NOT fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code
104: ,p_log_level_rec => g_log_level_rec) then
105: if (g_log_level_rec.statement_level) then
106: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling fazcbc',
107: p_log_level_rec => g_log_level_rec);
108: end if;
109:
110: raise tgl_err;
116: p_effective_date => NULL,
117: x_period_rec => l_period_rec
118: ,p_log_level_rec => g_log_level_rec) then
119: if (g_log_level_rec.statement_level) then
120: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling get_period_rec',
121: p_log_level_rec => g_log_level_rec);
122: end if;
123:
124: raise tgl_err;
132: p_mrc_sob_type_code => p_mrc_sob_type_code
133: ,p_log_level_rec => g_log_level_rec) then
134:
135: if (g_log_level_rec.statement_level) then
136: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling get_asset_fin_rec',
137: p_log_level_rec => g_log_level_rec);
138: end if;
139:
140: raise tgl_err;
159:
160: l_date_effective := l_date_effective - (1/24/60/60);
161:
162: if (g_log_level_rec.statement_level) then
163: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_TRANSACTION_HEADERS',
164: p_log_level_rec => g_log_level_rec);
165: end if;
166:
167: /*Bug# - 9018861 - Since Deprn code calls this function for reporting book first,
177: -- Proceed to process FA_TRANSACTION_HEADERS if this is primary book');
178: --
179: if l_trans_rec.transaction_header_id is null then
180: if (g_log_level_rec.statement_level) then
181: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_TRANSACTION_HEADERS',
182: p_log_level_rec => g_log_level_rec);
183: end if;
184:
185: SELECT fa_transaction_headers_s.nextval
201: l_trans_rec.calling_interface := 'FADEPR';
202:
203:
204: if (g_log_level_rec.statement_level) then
205: fa_debug_pkg.add(l_db_title, 'Calling', 'FA_XLA_EVENTS_PVT.create_transaction_event',
206: p_log_level_rec => g_log_level_rec);
207: end if;
208: l_asset_hdr_rec.set_of_books_id := fa_cache_pkg.fazcbc_record.set_of_books_id;
209: if not FA_XLA_EVENTS_PVT.create_transaction_event(
214: p_calling_fn => l_calling_fn
215: ,p_log_level_rec => g_log_level_rec) then
216:
217: if (g_log_level_rec.statement_level) then
218: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling create_transaction_event',
219: p_log_level_rec => g_log_level_rec);
220: end if;
221:
222: raise tgl_err;
266: X_Calling_Fn => l_calling_fn
267: ,p_log_level_rec => g_log_level_rec);
268: if not l_status then
269: if (g_log_level_rec.statement_level) then
270: fa_debug_pkg.add(l_db_title, 'Failed to insert ', 'FA_TRANSACTION_HEADERS',
271: p_log_level_rec => g_log_level_rec);
272: end if;
273: raise tgl_err;
274: end if;
275:
276: end if;
277:
278: if (g_log_level_rec.statement_level) then
279: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_ADJUSTMENTS',
280: p_log_level_rec => g_log_level_rec);
281: end if;
282:
283: -- Create following entries in FA_ADJUSTMENTS
319: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
320: l_asset_cat_rec.category_id
321: ,p_log_level_rec => g_log_level_rec) then
322: if (g_log_level_rec.statement_level) then
323: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling fazccb',
324: p_log_level_rec => g_log_level_rec);
325: end if;
326:
327: raise tgl_err;
329:
330: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
331:
332: if (g_log_level_rec.statement_level) then
333: fa_debug_pkg.add(l_db_title, 'CALL', 'FA_INS_ADJUST_PKG.faxinaj for RESERVE',
334: p_log_level_rec => g_log_level_rec);
335: end if;
336:
337: if not FA_INS_ADJUST_PKG.faxinaj(
341: l_trans_rec.who_info.last_update_login
342: ,p_log_level_rec => g_log_level_rec) then
343:
344: if (g_log_level_rec.statement_level) then
345: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling faxinaj',
346: p_log_level_rec => g_log_level_rec);
347: end if;
348:
349: raise tgl_err;
363: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
364: end if;
365:
366: if (g_log_level_rec.statement_level) then
367: fa_debug_pkg.add(l_db_title, 'CALL', 'FA_INS_ADJUST_PKG.faxinaj for NBV GAIN/LOSS',
368: p_log_level_rec => g_log_level_rec);
369: end if;
370:
371: if not FA_INS_ADJUST_PKG.faxinaj(
374: l_trans_rec.who_info.last_updated_by,
375: l_trans_rec.who_info.last_update_login
376: ,p_log_level_rec => g_log_level_rec) then
377: if (g_log_level_rec.statement_level) then
378: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling faxinaj',
379: p_log_level_rec => g_log_level_rec);
380: end if;
381:
382: raise tgl_err;
384:
385:
386: -- Deactivate(Update) FA_BOOKS
387: if (g_log_level_rec.statement_level) then
388: fa_debug_pkg.add(l_db_title, 'DEACTIVATE', 'FA_BOOKS',
389: p_log_level_rec => g_log_level_rec);
390: end if;
391:
392: fa_books_pkg.deactivate_row
400: ,p_log_level_rec => g_log_level_rec);
401:
402: -- Insert into FA_BOOKS
403: if (g_log_level_rec.statement_level) then
404: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_BOOKS',
405: p_log_level_rec => g_log_level_rec);
406: end if;
407:
408: fa_books_pkg.insert_row
525:
526:
527: if not l_status then
528: if (g_log_level_rec.statement_level) then
529: fa_debug_pkg.add(l_db_title, 'Failed to insert ', 'FA_BOOKS',
530: p_log_level_rec => g_log_level_rec);
531: end if;
532: raise tgl_err;
533: end if;
533: end if;
534:
535: -- Update FA_BOOKS_SUMMARY
536: if (g_log_level_rec.statement_level) then
537: fa_debug_pkg.add(l_db_title, 'Update', 'FA_BOOKS_SUMMARY: '||p_mrc_sob_type_code,
538: p_log_level_rec => g_log_level_rec);
539: end if;
540:
541: if (p_mrc_sob_type_code = 'R') then
560: end if;
561:
562:
563: if (g_log_level_rec.statement_level) then
564: fa_debug_pkg.add(l_db_title, 'END', p_asset_id,
565: p_log_level_rec => g_log_level_rec);
566: end if;
567:
568: return 0;
569:
570: EXCEPTION
571: WHEN tgl_err THEN
572: if (g_log_level_rec.statement_level) then
573: fa_debug_pkg.add(l_db_title, 'EXCEPTION', 'tgl_err',
574: p_log_level_rec => g_log_level_rec);
575: fa_debug_pkg.add(l_db_title, 'EXCEPTION(tgl_err)', sqlerrm);
576: end if;
577: return 1;
571: WHEN tgl_err THEN
572: if (g_log_level_rec.statement_level) then
573: fa_debug_pkg.add(l_db_title, 'EXCEPTION', 'tgl_err',
574: p_log_level_rec => g_log_level_rec);
575: fa_debug_pkg.add(l_db_title, 'EXCEPTION(tgl_err)', sqlerrm);
576: end if;
577: return 1;
578:
579: WHEN OTHERS THEN
577: return 1;
578:
579: WHEN OTHERS THEN
580: if (g_log_level_rec.statement_level) then
581: fa_debug_pkg.add(l_db_title, 'EXCEPTION(OTHERS)', sqlerrm);
582: end if;
583: return 1;
584:
585: END fadtgl;