52:
53: BEGIN
54:
55: if (p_log_level_rec.statement_level) then
56: fa_debug_pkg.add(l_db_title, 'BEGIN', p_asset_id ,p_log_level_rec => p_log_level_rec);
57: end if;
58:
59: l_asset_hdr_rec.asset_id := p_asset_id;
60: l_asset_hdr_rec.book_type_code := p_book_type_code;
63: -- call the cache for the primary transaction book
64: if NOT fa_cache_pkg.fazcbc(X_book => l_asset_hdr_rec.book_type_code
65: ,p_log_level_rec => p_log_level_rec) then
66: if (p_log_level_rec.statement_level) then
67: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling fazcbc',
68: p_log_level_rec => p_log_level_rec);
69: end if;
70:
71: raise tgl_err;
77: p_effective_date => NULL,
78: x_period_rec => l_period_rec
79: ,p_log_level_rec => p_log_level_rec) then
80: if (p_log_level_rec.statement_level) then
81: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling get_period_rec',
82: p_log_level_rec => p_log_level_rec);
83: end if;
84:
85: raise tgl_err;
93: p_mrc_sob_type_code => p_mrc_sob_type_code
94: ,p_log_level_rec => p_log_level_rec) then
95:
96: if (p_log_level_rec.statement_level) then
97: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling get_asset_fin_rec',
98: p_log_level_rec => p_log_level_rec);
99: end if;
100:
101: raise tgl_err;
120:
121: l_date_effective := l_date_effective - (1/24/60/60);
122:
123: if (p_log_level_rec.statement_level) then
124: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_TRANSACTION_HEADERS',
125: p_log_level_rec => p_log_level_rec);
126: end if;
127:
128: --
129: -- Proceed to process FA_TRANSACTION_HEADERS if this is primary book');
130: --
131: if (nvl(p_mrc_sob_type_code, 'P') <> 'R') then
132: if (p_log_level_rec.statement_level) then
133: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_TRANSACTION_HEADERS',
134: p_log_level_rec => p_log_level_rec);
135: end if;
136:
137: l_trans_rec.who_info.last_update_date := l_date_effective;
150: l_trans_rec.calling_interface := 'FADEPR';
151:
152:
153: if (p_log_level_rec.statement_level) then
154: fa_debug_pkg.add(l_db_title, 'Calling', 'FA_XLA_EVENTS_PVT.create_transaction_event',
155: p_log_level_rec => p_log_level_rec);
156: end if;
157:
158: if not FA_XLA_EVENTS_PVT.create_transaction_event(
163: p_calling_fn => l_calling_fn
164: ,p_log_level_rec => p_log_level_rec) then
165:
166: if (p_log_level_rec.statement_level) then
167: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling create_transaction_event',
168: p_log_level_rec => p_log_level_rec);
169: end if;
170:
171: raise tgl_err;
215: X_Calling_Fn => l_calling_fn
216: ,p_log_level_rec => p_log_level_rec);
217: if not l_status then
218: if (p_log_level_rec.statement_level) then
219: fa_debug_pkg.add(l_db_title, 'Failed to insert ', 'FA_TRANSACTION_HEADERS',
220: p_log_level_rec => p_log_level_rec);
221: end if;
222: raise tgl_err;
223: end if;
224:
225: end if;
226:
227: if (p_log_level_rec.statement_level) then
228: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_ADJUSTMENTS',
229: p_log_level_rec => p_log_level_rec);
230: end if;
231:
232: -- Create following entries in FA_ADJUSTMENTS
265: if not fa_cache_pkg.fazccb(l_asset_hdr_rec.book_type_code,
266: l_asset_cat_rec.category_id
267: ,p_log_level_rec => p_log_level_rec) then
268: if (p_log_level_rec.statement_level) then
269: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling fazccb',
270: p_log_level_rec => p_log_level_rec);
271: end if;
272:
273: raise tgl_err;
275:
276: l_adj.account := fa_cache_pkg.fazccb_record.DEPRN_RESERVE_ACCT;
277:
278: if (p_log_level_rec.statement_level) then
279: fa_debug_pkg.add(l_db_title, 'CALL', 'FA_INS_ADJUST_PKG.faxinaj for RESERVE',
280: p_log_level_rec => p_log_level_rec);
281: end if;
282:
283: if not FA_INS_ADJUST_PKG.faxinaj(
287: l_trans_rec.who_info.last_update_login
288: ,p_log_level_rec => p_log_level_rec) then
289:
290: if (p_log_level_rec.statement_level) then
291: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling faxinaj',
292: p_log_level_rec => p_log_level_rec);
293: end if;
294:
295: raise tgl_err;
309: l_adj.account := fa_cache_pkg.fazcbc_record.nbv_retired_loss_acct;
310: end if;
311:
312: if (p_log_level_rec.statement_level) then
313: fa_debug_pkg.add(l_db_title, 'CALL', 'FA_INS_ADJUST_PKG.faxinaj for NBV GAIN/LOSS',
314: p_log_level_rec => p_log_level_rec);
315: end if;
316:
317: if not FA_INS_ADJUST_PKG.faxinaj(
320: l_trans_rec.who_info.last_updated_by,
321: l_trans_rec.who_info.last_update_login
322: ,p_log_level_rec => p_log_level_rec) then
323: if (p_log_level_rec.statement_level) then
324: fa_debug_pkg.add(l_db_title, 'ERROR', 'Calling faxinaj',
325: p_log_level_rec => p_log_level_rec);
326: end if;
327:
328: raise tgl_err;
330:
331:
332: -- Deactivate(Update) FA_BOOKS
333: if (p_log_level_rec.statement_level) then
334: fa_debug_pkg.add(l_db_title, 'DEACTIVATE', 'FA_BOOKS',
335: p_log_level_rec => p_log_level_rec);
336: end if;
337:
338: fa_books_pkg.deactivate_row
345: ,p_log_level_rec => p_log_level_rec);
346:
347: -- Insert into FA_BOOKS
348: if (p_log_level_rec.statement_level) then
349: fa_debug_pkg.add(l_db_title, 'INSERT', 'FA_BOOKS',
350: p_log_level_rec => p_log_level_rec);
351: end if;
352:
353: fa_books_pkg.insert_row
469:
470:
471: if not l_status then
472: if (p_log_level_rec.statement_level) then
473: fa_debug_pkg.add(l_db_title, 'Failed to insert ', 'FA_BOOKS',
474: p_log_level_rec => p_log_level_rec);
475: end if;
476: raise tgl_err;
477: end if;
477: end if;
478:
479: -- Update FA_BOOKS_SUMMARY
480: if (p_log_level_rec.statement_level) then
481: fa_debug_pkg.add(l_db_title, 'Update', 'FA_BOOKS_SUMMARY: '||p_mrc_sob_type_code,
482: p_log_level_rec => p_log_level_rec);
483: end if;
484:
485: if (p_mrc_sob_type_code = 'R') then
503: end if;
504:
505:
506: if (p_log_level_rec.statement_level) then
507: fa_debug_pkg.add(l_db_title, 'END', p_asset_id,
508: p_log_level_rec => p_log_level_rec);
509: end if;
510:
511: return 0;
512:
513: EXCEPTION
514: WHEN tgl_err THEN
515: if (p_log_level_rec.statement_level) then
516: fa_debug_pkg.add(l_db_title, 'EXCEPTION', 'tgl_err',
517: p_log_level_rec => p_log_level_rec);
518: fa_debug_pkg.add(l_db_title, 'EXCEPTION(tgl_err)', sqlerrm);
519: end if;
520: return 1;
514: WHEN tgl_err THEN
515: if (p_log_level_rec.statement_level) then
516: fa_debug_pkg.add(l_db_title, 'EXCEPTION', 'tgl_err',
517: p_log_level_rec => p_log_level_rec);
518: fa_debug_pkg.add(l_db_title, 'EXCEPTION(tgl_err)', sqlerrm);
519: end if;
520: return 1;
521:
522: WHEN OTHERS THEN
520: return 1;
521:
522: WHEN OTHERS THEN
523: if (p_log_level_rec.statement_level) then
524: fa_debug_pkg.add(l_db_title, 'EXCEPTION(OTHERS)', sqlerrm);
525: end if;
526: return 1;
527:
528: END fadtgl;