[Home] [Help]
67: -- initialize error message stack.
68: fa_srvr_msg.init_server_message;
69:
70: -- initialize debug message stack.
71: fa_debug_pkg.initialize;
72: end if;
73:
74: if not fa_util_pub.get_log_level_rec
75: (x_log_level_rec => g_log_level_rec) then
77: end if;
78:
79:
80: if g_log_level_rec.statement_level then
81: fa_debug_pkg.add(
82: l_calling_fn,
83: 'after initializing message stacks',
84: '',
85: p_log_level_rec => g_log_level_rec);
82: l_calling_fn,
83: 'after initializing message stacks',
84: '',
85: p_log_level_rec => g_log_level_rec);
86: fa_debug_pkg.add(
87: l_calling_fn,
88: 'p_src_ledger_id',
89: p_src_ledger_id,
90: p_log_level_rec => g_log_level_rec);
87: l_calling_fn,
88: 'p_src_ledger_id',
89: p_src_ledger_id,
90: p_log_level_rec => g_log_level_rec);
91: fa_debug_pkg.add(
92: l_calling_fn,
93: 'p_alc_ledger_id',
94: p_alc_ledger_id,
95: p_log_level_rec => g_log_level_rec);
115:
116: for i in 1..l_book_type_code.count loop
117:
118: if g_log_level_rec.statement_level then
119: fa_debug_pkg.add(
120: l_calling_fn,
121: 'processing book_type_code',
122: l_book_type_code(i),
123: p_log_level_rec => g_log_level_rec);
203: -- initialize error message stack.
204: fa_srvr_msg.init_server_message;
205:
206: -- initialize debug message stack.
207: fa_debug_pkg.initialize;
208: end if;
209:
210: if g_log_level_rec.statement_level then
211: fa_debug_pkg.add(
207: fa_debug_pkg.initialize;
208: end if;
209:
210: if g_log_level_rec.statement_level then
211: fa_debug_pkg.add(
212: l_calling_fn,
213: 'processing book_type_code',
214: p_book_type_code);
215: end if;
239: -- loop through each alternate ledger currency
240: -- and create the needed mc info
241:
242: if g_log_level_rec.statement_level then
243: fa_debug_pkg.add(
244: l_calling_fn,
245: 'calling GL_MC_INFO.GET_ALC_LEDGER_ID for src ledger',
246: l_src_ledger_id,
247: p_log_level_rec => g_log_level_rec);
257:
258: for i in 1..l_alc_ledger_list.count loop
259:
260: if g_log_level_rec.statement_level then
261: fa_debug_pkg.add
262: (l_calling_fn,
263: 'processing alc currency',
264: l_alc_ledger_list(i).r_sob_id,
265: p_log_level_rec => g_log_level_rec);
355: -- need to verify there is no pending deprn run first
356: -- and then that there are active mass request id's
357:
358: if (g_log_level_rec.statement_level) then
359: fa_debug_pkg.add
360: (l_calling_fn,
361: 'locking',
362: 'book controls record',
363: p_log_level_rec => g_log_level_rec);
398: END;
399:
400: -- check if assets exists
401: if (g_log_level_rec.statement_level) then
402: fa_debug_pkg.add
403: (l_calling_fn,
404: 'checking',
405: 'if assets exist',
406: p_log_level_rec => g_log_level_rec);
421: END;
422:
423: -- calculate nbv_threshold
424: if (g_log_level_rec.statement_level) then
425: fa_debug_pkg.add
426: (l_calling_fn,
427: 'calculating',
428: 'nbv amount threshold',
429: p_log_level_rec => g_log_level_rec);
435: where currency_code = p_alc_currency;
436:
437: -- remaining values
438: if (g_log_level_rec.statement_level) then
439: fa_debug_pkg.add
440: (l_calling_fn,
441: 'fetching',
442: 'remaining values from fa_book_controls',
443: p_log_level_rec => g_log_level_rec);
453: where book_type_code = p_book_type_code;
454:
455: -- insert mc book controls record
456: if (g_log_level_rec.statement_level) then
457: fa_debug_pkg.add
458: (l_calling_fn,
459: 'checking',
460: 'existing mc book controls record',
461: p_log_level_rec => g_log_level_rec);
478: -- can be changed i.e. CURRENCY_CODE and NBV_AMOUNT_THRESHOLD
479: if (l_exist_flag = 'N') then
480:
481: if (g_log_level_rec.statement_level) then
482: fa_debug_pkg.add
483: (l_calling_fn,
484: 'inserting',
485: 'mc book controls record',
486: p_log_level_rec => g_log_level_rec);
536: );
537:
538: -- insert the mc deprn periods rows
539: if (g_log_level_rec.statement_level) then
540: fa_debug_pkg.add
541: (l_calling_fn,
542: 'inserting',
543: 'mc deprn periods records',
544: p_log_level_rec => g_log_level_rec);
600:
601: ELSE
602:
603: if (g_log_level_rec.statement_level) then
604: fa_debug_pkg.add
605: (l_calling_fn,
606: 'updating',
607: 'mc book controls record',
608: p_log_level_rec => g_log_level_rec);
618: END IF; -- IF (l_exist_flag = 'N')
619:
620: -- update the mrc anabled flag on primary table
621: if (g_log_level_rec.statement_level) then
622: fa_debug_pkg.add
623: (l_calling_fn,
624: 'updating',
625: 'fa_book_controls.mc_source_flag',
626: p_log_level_rec => g_log_level_rec);
630: set mc_source_flag = 'Y'
631: where book_type_code = p_book_type_code;
632:
633: if (g_log_level_rec.statement_level) then
634: fa_debug_pkg.add
635: (l_calling_fn,
636: 'returning',
637: 'true',
638: p_log_level_rec => g_log_level_rec);
689: -- initialize error message stack.
690: fa_srvr_msg.init_server_message;
691:
692: -- initialize debug message stack.
693: fa_debug_pkg.initialize;
694: end if;
695:
696: if not fa_util_pub.get_log_level_rec
697: (x_log_level_rec => g_log_level_rec) then
699: end if;
700:
701:
702: if g_log_level_rec.statement_level then
703: fa_debug_pkg.add(
704: l_calling_fn,
705: 'after initializing message stacks',
706: '',
707: p_log_level_rec => g_log_level_rec);
704: l_calling_fn,
705: 'after initializing message stacks',
706: '',
707: p_log_level_rec => g_log_level_rec);
708: fa_debug_pkg.add(
709: l_calling_fn,
710: 'p_src_ledger_id',
711: p_src_ledger_id,
712: p_log_level_rec => g_log_level_rec);
709: l_calling_fn,
710: 'p_src_ledger_id',
711: p_src_ledger_id,
712: p_log_level_rec => g_log_level_rec);
713: fa_debug_pkg.add(
714: l_calling_fn,
715: 'p_alc_ledger_id',
716: p_alc_ledger_id,
717: p_log_level_rec => g_log_level_rec);
729: raise error_found;
730: end if;
731:
732: if g_log_level_rec.statement_level then
733: fa_debug_pkg.add(
734: l_calling_fn,
735: 'updating the books',
736: '',
737: p_log_level_rec => g_log_level_rec);