[Home] [Help]
1: PACKAGE BODY FA_AMORT_PKG as
2: /* $Header: FAAMRT1B.pls 120.16 2011/10/24 11:37:46 spooyath ship $ */
3:
4: adj_ptr_faxiat FA_ADJUST_TYPE_PKG.fa_adj_row_struct;
5:
28: h_book_type_code:=X_fin_ptr.book;
29: h_category_id:=X_fin_ptr.category_id;
30: if (p_log_level_rec.statement_level)
31: then
32: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
33: element=>'X_last_update_date',
34: value=>X_last_update_date, p_log_level_rec => p_log_level_rec);
35: end if;
36: adj_ptr_faxiat.transaction_header_id := X_fin_ptr.transaction_id;
59: if not fa_cache_pkg.fazccb(h_book_type_code,
60: h_category_id, p_log_level_rec => p_log_level_rec)
61: then
62: FA_SRVR_MSG.ADD_MESSAGE
63: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
64: return FALSE;
65: end if;
66:
67: if (X_fin_ptr.asset_type = 'CIP')
98: adj_ptr_faxiat.mrc_sob_type_code := X_mrc_sob_type_code;
99:
100: --if (p_log_level_rec.statement_level)
101: --then
102: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
103: element=>'Adjustment Amount.. before faxinaj',
104: value=>adj_ptr_faxiat.adjustment_amount, p_log_level_rec => p_log_level_rec);
105: --end if;
106: if (not FA_INS_ADJUST_PKG.faxinaj(adj_ptr_faxiat,
108: X_last_updated_by=>X_last_updated_by,
109: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
110: then
111: FA_SRVR_MSG.ADD_MESSAGE
112: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
113: return FALSE;
114: end if;
115: if (p_log_level_rec.statement_level)
116: then
113: return FALSE;
114: end if;
115: if (p_log_level_rec.statement_level)
116: then
117: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
118: element=>'Amount Inserted',
119: value=>adj_ptr_faxiat.amount_inserted, p_log_level_rec => p_log_level_rec);
120: end if;
121:
134: then
135: adj_ptr_faxiat.code_combination_id := X_ccid;
136: adj_ptr_faxiat.gen_ccid_flag :=FALSE;
137: end if;
138: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
139: element=>'Adjustment Amount.. before faxinaj CCLEARI',
140: value=>adj_ptr_faxiat.adjustment_amount, p_log_level_rec => p_log_level_rec);
141:
142: if (not FA_INS_ADJUST_PKG.faxinaj(adj_ptr_faxiat,
144: X_last_updated_by=>X_last_updated_by,
145: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
146: then
147: FA_SRVR_MSG.ADD_MESSAGE
148: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
149: return FALSE;
150: end if;
151:
152: if (X_ccid<>0)
181: /* End of Manual override */
182:
183: if (p_log_level_rec.statement_level)
184: then
185: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
186: element=>'Adj-AMOUNT-BEFORE DEPRN_EXPENSE',
187: value=>adj_ptr_faxiat.adjustment_amount, p_log_level_rec => p_log_level_rec);
188: end if;
189: if (adj_ptr_faxiat.adjustment_amount<>0)
193: X_last_updated_by=>X_last_updated_by,
194: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
195: then
196: FA_SRVR_MSG.ADD_MESSAGE
197: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
198: return FALSE;
199: end if;
200: else
201: adj_ptr_faxiat.transaction_header_id:=0;
204: X_last_updated_by=>X_last_updated_by,
205: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
206: then
207: FA_SRVR_MSG.ADD_MESSAGE
208: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
209: return FALSE;
210: end if;
211: end if;
212:
244: adj_ptr_faxiat.mrc_sob_type_code := X_mrc_sob_type_code;
245:
246: if (p_log_level_rec.statement_level)
247: then
248: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxiat',
249: element=>'Adj-AMOUNT-BEFORE BONUS DEPRN_EXPENSE',
250: value=>adj_ptr_faxiat.adjustment_amount, p_log_level_rec => p_log_level_rec);
251: end if;
252: if (adj_ptr_faxiat.adjustment_amount<>0)
256: X_last_updated_by=>X_last_updated_by,
257: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
258: then
259: FA_SRVR_MSG.ADD_MESSAGE
260: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
261: return FALSE;
262: end if;
263: else
264: adj_ptr_faxiat.transaction_header_id:=0;
267: X_last_updated_by=>X_last_updated_by,
268: X_last_update_login=>X_last_update_login, p_log_level_rec => p_log_level_rec))
269: then
270: FA_SRVR_MSG.ADD_MESSAGE
271: (CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
272: return FALSE;
273: end if;
274: end if;
275:
278:
279:
280: if (p_log_level_rec.statement_level)
281: then
282: FA_DEBUG_PKG.ADD(fname =>'FA_AMORT_PKG.faxiat',
283: element =>'Amount Inserted',
284: value =>adj_ptr_faxiat.amount_inserted, p_log_level_rec => p_log_level_rec);
285: end if;
286: return TRUE;
286: return TRUE;
287: exception
288: when others then
289: FA_SRVR_MSG.ADD_SQL_ERROR (
290: CALLING_FN => 'FA_AMORT_PKG.faxiat', p_log_level_rec => p_log_level_rec);
291: return FALSE;
292: END faxiat;
293:
294: FUNCTION faxraf(X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
457: -- End of Manual Override
458:
459: if (p_log_level_rec.statement_level)
460: then
461: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
462: element=>'method code',
463: value=>X_fin_info_ptr.method_code, p_log_level_rec => p_log_level_rec);
464: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
465: element=>'life',
460: then
461: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
462: element=>'method code',
463: value=>X_fin_info_ptr.method_code, p_log_level_rec => p_log_level_rec);
464: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
465: element=>'life',
466: value=>X_fin_info_ptr.life, p_log_level_rec => p_log_level_rec);
467: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
468: element=>'SOB_ID',
463: value=>X_fin_info_ptr.method_code, p_log_level_rec => p_log_level_rec);
464: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
465: element=>'life',
466: value=>X_fin_info_ptr.life, p_log_level_rec => p_log_level_rec);
467: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
468: element=>'SOB_ID',
469: value=>X_set_of_books_id , p_log_level_rec => p_log_level_rec);
470: end if;
471:
472: if (not FA_CACHE_PKG.fazccmt(X_fin_info_ptr.method_code,
473: X_fin_info_ptr.life, p_log_level_rec => p_log_level_rec))
474: then
475: FA_SRVR_MSG.ADD_MESSAGE
476: (CALLING_FN => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
477: return FALSE;
478: end if;
479:
480: h_method_id := fa_cache_pkg.fazccmt_record.method_id;
498: end if;
499:
500: if (p_log_level_rec.statement_level)
501: then
502: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
503: element=>'After fazccmt',
504: value=>2, p_log_level_rec => p_log_level_rec);
505: end if;
506:
507: h_err_string := 'FA_AMT_BD_DPR_STRUCT';
508:
509: if (p_log_level_rec.statement_level)
510: then
511: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
512: element=>'deprn_rounding_flag- before faxbds',
513: value=>X_fin_info_ptr.deprn_rounding_flag, p_log_level_rec => p_log_level_rec);
514: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
515: element=>'FA_STD TYPE deprn_rnd- before faxbds',
510: then
511: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
512: element=>'deprn_rounding_flag- before faxbds',
513: value=>X_fin_info_ptr.deprn_rounding_flag, p_log_level_rec => p_log_level_rec);
514: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
515: element=>'FA_STD TYPE deprn_rnd- before faxbds',
516: value=>FA_STD_TYPES.FA_DPR_ROUND_ADJ, p_log_level_rec => p_log_level_rec);
517: end if;
518:
531: TRUE,
532: X_mrc_sob_type_code, p_log_level_rec => p_log_level_rec))
533: then
534: FA_SRVR_MSG.ADD_MESSAGE
535: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
536: NAME=>'FA_AMT_BD_DPR_STRUCT', p_log_level_rec => p_log_level_rec);
537: return FALSE;
538: end if;
539: h_current_rsv := h_current_rsv + X_reval_deprn_rsv_adj;
547:
548: h_err_string := 'FA_AMT_CAL_DP_EXP';
549: if (p_log_level_rec.statement_level)
550: then
551: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
552: element=>'Before faxcde',
553: value=>3, p_log_level_rec => p_log_level_rec);
554: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
555: element=>'h_dpr_row.deprn_rounding_flag ',
550: then
551: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
552: element=>'Before faxcde',
553: value=>3, p_log_level_rec => p_log_level_rec);
554: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
555: element=>'h_dpr_row.deprn_rounding_flag ',
556: value=>h_dpr_row.deprn_rounding_flag, p_log_level_rec => p_log_level_rec);
557: end if;
558:
567: if not fa_cache_pkg.fazccp (
568: h_dpr_row.calendar_type, fy_name,amortization_start_jdate,
569: amortize_per_num, amortize_fy, start_jdate
570: , p_log_level_rec => p_log_level_rec) then
571: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
572: return (FALSE);
573: end if;
574: if (not((cur_fy = amortize_fy) and (cur_per_num = amortize_per_num))) then
575: if not fa_cache_pkg.fazcct (h_dpr_row.calendar_type, p_log_level_rec => p_log_level_rec) then
572: return (FALSE);
573: end if;
574: if (not((cur_fy = amortize_fy) and (cur_per_num = amortize_per_num))) then
575: if not fa_cache_pkg.fazcct (h_dpr_row.calendar_type, p_log_level_rec => p_log_level_rec) then
576: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
577: return (FALSE);
578: end if;
579: pers_per_yr := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
580: if (amortize_per_num = 1) then
616: (h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST)) or
617: used_by_revaluation = 1);
618:
619: if (p_log_level_rec.statement_level) then
620: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',
621: element=>'Before call to faxcde regular case',
622: value=>h_dpr_row.bonus_rule, p_log_level_rec => p_log_level_rec);
623: end if;
624:
632: l_ind,
633: p_log_level_rec)) and (use_override)
634: then
635: FA_SRVR_MSG.ADD_MESSAGE
636: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
637: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
638: if (p_log_level_rec.statement_level)
639: then
640: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
636: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
637: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
638: if (p_log_level_rec.statement_level)
639: then
640: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
641: element=>'After faxcde 1st time',
642: value=>'False', p_log_level_rec => p_log_level_rec);
643: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
644: element=>'h_dpr_out.rate_adj_factor',
639: then
640: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
641: element=>'After faxcde 1st time',
642: value=>'False', p_log_level_rec => p_log_level_rec);
643: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
644: element=>'h_dpr_out.rate_adj_factor',
645: value=>h_dpr_row.rate_adj_factor, p_log_level_rec => p_log_level_rec);
646: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
647: element=>'h_dpr_out.adj_capacity',
642: value=>'False', p_log_level_rec => p_log_level_rec);
643: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
644: element=>'h_dpr_out.rate_adj_factor',
645: value=>h_dpr_row.rate_adj_factor, p_log_level_rec => p_log_level_rec);
646: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
647: element=>'h_dpr_out.adj_capacity',
648: value=>h_dpr_row.adj_capacity, p_log_level_rec => p_log_level_rec);
649: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
650: element=>'h_dpr_out.capacity',
645: value=>h_dpr_row.rate_adj_factor, p_log_level_rec => p_log_level_rec);
646: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
647: element=>'h_dpr_out.adj_capacity',
648: value=>h_dpr_row.adj_capacity, p_log_level_rec => p_log_level_rec);
649: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
650: element=>'h_dpr_out.capacity',
651: value=>h_dpr_row.capacity, p_log_level_rec => p_log_level_rec);
652: end if;
653: return FALSE;
657: fa_std_types.deprn_override_trigger_enabled:= FALSE;
658: if use_override then -- pass deprn_override_flag to faxiat
659: X_fin_info_ptr.deprn_override_flag:= h_dpr_out.deprn_override_flag;
660: if (p_log_level_rec.statement_level) then
661: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',
662: element=>'deprn_override_flag1',
663: value=>h_dpr_out.deprn_override_flag, p_log_level_rec => p_log_level_rec);
664: end if;
665: else
743: h_rule_in.event_type := 'AMORT_ADJ';
744:
745: -- Call Depreciable Basis Formula
746: if (p_log_level_rec.statement_level) then
747: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
748: element=>'Before Calling fa_calc_deprn_basis1_pkg.faxcdb',
749: value=> h_rule_in.event_type, p_log_level_rec => p_log_level_rec);
750: end if;
751:
754: h_rule_out,
755: X_fin_info_ptr.amortization_start_date, p_log_level_rec => p_log_level_rec))
756: then
757: FA_SRVR_MSG.ADD_MESSAGE
758: (CALLING_FN=>'FA_AMORT_PKG.faxraf',
759: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
760: return false;
761: end if;
762:
785: X_new_formula_factor is 1 in all other cases */
786:
787: if (p_log_level_rec.statement_level)
788: then
789: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
790: element=>'adj cost',
791: value=> x_new_adj_cost, p_log_level_rec => p_log_level_rec);
792: end if;
793:
851: X_new_formula_factor := 1;
852: end if;
853: if (p_log_level_rec.statement_level)
854: then
855: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
856: element=>'adj cost at end of not use deprn bas',
857: value=> x_new_adj_cost, p_log_level_rec => p_log_level_rec);
858: end if;
859:
870: -- alternative flat rate depreciation caclulation
871: -- call faxnac: new added function.
872: if (p_log_level_rec.statement_level)
873: then
874: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
875: element=>'bef. faxnac adj cost',
876: value=> x_new_adj_cost, p_log_level_rec => p_log_level_rec);
877: end if;
878:
880: -- Add for the Depreciable Basis Formula.
881: -- if (nvl(fnd_profile.value('FA_ENABLED_DEPRN_BASIS_FORMULA'), 'N') <> 'Y') then
882: if (not fa_cache_pkg.fa_enabled_deprn_basis_formula)then
883:
884: if (not FA_AMORT_PKG.faxnac(X_fin_info_ptr.method_code,
885: X_fin_info_ptr.life,
886: X_fin_info_ptr.rec_cost,
887: null,
888: h_current_rsv,
889: h_current_ytd,
890: X_new_adj_cost, p_log_level_rec => p_log_level_rec))
891: then
892: FA_SRVR_MSG.ADD_MESSAGE
893: (CALLING_FN=>'FA_AMORT_PKG.faxraf',
894: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
895: return false;
896: end if;
897: END IF;
896: end if;
897: END IF;
898: if (p_log_level_rec.statement_level)
899: then
900: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
901: element=>'aft.faxnac adj cost',
902: value=> x_new_adj_cost, p_log_level_rec => p_log_level_rec);
903: end if;
904:
916: end if;
917: if (X_new_raf < 0 OR X_new_raf > 1)
918: then
919: FA_SRVR_MSG.ADD_MESSAGE
920: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
921: NAME=>'FA_AMT_RAF_OUT_OF_RANGE', p_log_level_rec => p_log_level_rec);
922: return FALSE;
923: end if;
924: -- Added for Dated Adjustment
966: deprn_summary,
967: 'STANDARD',
968: FALSE,
969: h_dummy_bool,
970: 'FA_AMORT_PKG.faxraf',
971: -1, p_log_level_rec => p_log_level_rec);
972: ******************************************************/
973:
974: /**** Enhancement for BT. YYOON - Start
988: deprn_summary,
989: 'STANDARD',
990: FALSE,
991: h_dummy_bool,
992: 'FA_AMORT_PKG.faxraf',
993: -1, p_log_level_rec => p_log_level_rec);
994:
995: -- if x_mrc_sob_type_code = 'R' then
996: -- select deprn_reserve, bonus_deprn_reserve, ytd_deprn
1050: deprn_summary.bonus_deprn_rsv;
1051: close c_get_reserve;
1052: end if;
1053: if (fa_cache_pkg.fa_print_debug) then
1054: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1055: 'Got reserve using BOOKS row', 'reserve - ytd', p_log_level_rec => p_log_level_rec);
1056: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1057: 'deprn_summary.deprn_rsv:deprn_summary.bonus_deprn_rsv',
1058: to_char(deprn_summary.deprn_rsv)||':'||
1052: end if;
1053: if (fa_cache_pkg.fa_print_debug) then
1054: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1055: 'Got reserve using BOOKS row', 'reserve - ytd', p_log_level_rec => p_log_level_rec);
1056: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1057: 'deprn_summary.deprn_rsv:deprn_summary.bonus_deprn_rsv',
1058: to_char(deprn_summary.deprn_rsv)||':'||
1059: to_char(deprn_summary.bonus_deprn_rsv));
1060: end if;
1068: x_set_of_books_id,
1069: h_deprn_rsv,
1070: h_bonus_deprn_rsv,
1071: p_log_level_rec)) then
1072: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
1073: return FALSE;
1074: end if;
1075:
1076: deprn_summary.deprn_rsv := h_deprn_rsv;
1076: deprn_summary.deprn_rsv := h_deprn_rsv;
1077: deprn_summary.bonus_deprn_rsv := h_bonus_deprn_rsv;
1078:
1079: if (fa_cache_pkg.fa_print_debug) then
1080: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1081: 'Got reserve from get_reserve function', ' ', p_log_level_rec => p_log_level_rec);
1082: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1083: 'deprn_summary.deprn_rsv:deprn_summary.bonus_deprn_rsv',
1084: to_char(deprn_summary.deprn_rsv)||':'||
1078:
1079: if (fa_cache_pkg.fa_print_debug) then
1080: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1081: 'Got reserve from get_reserve function', ' ', p_log_level_rec => p_log_level_rec);
1082: fa_debug_pkg.add('FA_AMORT_PKG.faxraf',
1083: 'deprn_summary.deprn_rsv:deprn_summary.bonus_deprn_rsv',
1084: to_char(deprn_summary.deprn_rsv)||':'||
1085: to_char(deprn_summary.bonus_deprn_rsv));
1086: end if;
1097: deprn_summary,
1098: 'STANDARD',
1099: FALSE,
1100: h_dummy_bool,
1101: 'FA_AMORT_PKG.faxraf',
1102: -1, p_log_level_rec => p_log_level_rec);
1103:
1104: if not (h_dummy_bool) then
1105: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
1101: 'FA_AMORT_PKG.faxraf',
1102: -1, p_log_level_rec => p_log_level_rec);
1103:
1104: if not (h_dummy_bool) then
1105: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
1106: return (FALSE);
1107: end if;--if not (h_dummy_bool)
1108: end if;
1109: end if;
1153: temp_deprn_rsv := deprn_summary.deprn_rsv - deprn_summary.bonus_deprn_rsv;
1154:
1155:
1156: if (p_log_level_rec.statement_level) then
1157: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1158: element=>'deprn_summary.deprn_rsv A',
1159: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1160: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1161: element=>'adjustment_amount A',
1156: if (p_log_level_rec.statement_level) then
1157: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1158: element=>'deprn_summary.deprn_rsv A',
1159: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1160: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1161: element=>'adjustment_amount A',
1162: value=>adjustment_amount, p_log_level_rec => p_log_level_rec);
1163: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1164: element=>'deprn_summary.bonus_deprn_rsv A',
1159: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1160: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1161: element=>'adjustment_amount A',
1162: value=>adjustment_amount, p_log_level_rec => p_log_level_rec);
1163: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1164: element=>'deprn_summary.bonus_deprn_rsv A',
1165: value=>deprn_summary.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1166: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1167: element=>'h_rsv_amount A',
1162: value=>adjustment_amount, p_log_level_rec => p_log_level_rec);
1163: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1164: element=>'deprn_summary.bonus_deprn_rsv A',
1165: value=>deprn_summary.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1166: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1167: element=>'h_rsv_amount A',
1168: value=> h_rsv_amount, p_log_level_rec => p_log_level_rec);
1169: end if;
1170:
1181: h_rsv_amount;
1182:
1183:
1184: if (p_log_level_rec.statement_level) then
1185: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1186: element=>'deprn_summary.deprn_rsv B',
1187: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1188: end if;
1189:
1238:
1239: -- Call Depreciable Basis Formula
1240:
1241: if (p_log_level_rec.statement_level) then
1242: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1243: element=>'Before Calling fa_calc_deprn_basis1_pkg.faxcdb',
1244: value=>h_rule_in.event_type, p_log_level_rec => p_log_level_rec);
1245: end if;
1246:
1249: h_rule_out,
1250: X_fin_info_ptr.amortization_start_date, p_log_level_rec => p_log_level_rec))
1251: then
1252: FA_SRVR_MSG.ADD_MESSAGE
1253: (CALLING_FN=>'FA_AMORT_PKG.faxraf',
1254: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1255: return false;
1256: end if;
1257:
1272: h_dpr_row.adj_cost := X_fin_info_ptr.rec_cost - deprn_summary.deprn_rsv;
1273: end if;
1274:
1275: if (p_log_level_rec.statement_level) then
1276: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1277: element=>'Before call to faxnac, adjusted_cost',
1278: value=>h_dpr_row.adj_cost, p_log_level_rec => p_log_level_rec);
1279: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1280: element=>'Before call to faxnac, x_fin_info_ptr.rec_cost',
1275: if (p_log_level_rec.statement_level) then
1276: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1277: element=>'Before call to faxnac, adjusted_cost',
1278: value=>h_dpr_row.adj_cost, p_log_level_rec => p_log_level_rec);
1279: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1280: element=>'Before call to faxnac, x_fin_info_ptr.rec_cost',
1281: value=>x_fin_info_ptr.rec_cost, p_log_level_rec => p_log_level_rec);
1282: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1283: element=>'Before call to faxnac, deprn_summary.deprn_rsv',
1278: value=>h_dpr_row.adj_cost, p_log_level_rec => p_log_level_rec);
1279: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1280: element=>'Before call to faxnac, x_fin_info_ptr.rec_cost',
1281: value=>x_fin_info_ptr.rec_cost, p_log_level_rec => p_log_level_rec);
1282: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1283: element=>'Before call to faxnac, deprn_summary.deprn_rsv',
1284: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1285: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1286: element=>'Before call to faxnac, bonus_deprn_rsv',
1281: value=>x_fin_info_ptr.rec_cost, p_log_level_rec => p_log_level_rec);
1282: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1283: element=>'Before call to faxnac, deprn_summary.deprn_rsv',
1284: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1285: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1286: element=>'Before call to faxnac, bonus_deprn_rsv',
1287: value=> deprn_summary.bonus_deprn_rsv , p_log_level_rec => p_log_level_rec);
1288: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1289: element=>'Before call to faxnac, h_rate_source_rule',
1284: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1285: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1286: element=>'Before call to faxnac, bonus_deprn_rsv',
1287: value=> deprn_summary.bonus_deprn_rsv , p_log_level_rec => p_log_level_rec);
1288: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1289: element=>'Before call to faxnac, h_rate_source_rule',
1290: value=> h_rate_source_rule, p_log_level_rec => p_log_level_rec);
1291: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1292: element=>'Before call to faxnac, h_deprn_basis_rule',
1287: value=> deprn_summary.bonus_deprn_rsv , p_log_level_rec => p_log_level_rec);
1288: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1289: element=>'Before call to faxnac, h_rate_source_rule',
1290: value=> h_rate_source_rule, p_log_level_rec => p_log_level_rec);
1291: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1292: element=>'Before call to faxnac, h_deprn_basis_rule',
1293: value=> h_deprn_basis_rule, p_log_level_rec => p_log_level_rec);
1294: end if;
1295:
1293: value=> h_deprn_basis_rule, p_log_level_rec => p_log_level_rec);
1294: end if;
1295:
1296:
1297: if (not FA_AMORT_PKG.faxnac(X_fin_info_ptr.method_code,
1298: X_fin_info_ptr.life,
1299: X_fin_info_ptr.rec_cost,
1300: null,
1301: deprn_summary.deprn_rsv,
1302: deprn_summary.ytd_deprn,
1303: h_dpr_row.adj_cost, p_log_level_rec => p_log_level_rec))
1304: then
1305: FA_SRVR_MSG.ADD_MESSAGE
1306: (CALLING_FN=>'FA_AMORT_PKG.faxraf',
1307: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1308: return false;
1309: end if;
1310: end if; -- End Not Use Depreciable Basis Formula
1313: -- opposite sign of new recoverable cost
1314: if (sign(X_fin_info_ptr.rec_cost)<>sign(h_dpr_row.adj_cost))
1315: then
1316: FA_SRVR_MSG.ADD_MESSAGE
1317: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
1318: NAME=>'FA_WRONG_REC_COST', p_log_level_rec => p_log_level_rec);
1319: return FALSE;
1320: end if;
1321:
1328:
1329: -- h_dpr_row.bonus_rule := '';
1330:
1331: if (p_log_level_rec.statement_level) then
1332: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1333: element=>'Before call to faxcde, amort_start_date case:bonus_rule',
1334: value=>h_dpr_row.bonus_rule, p_log_level_rec => p_log_level_rec);
1335: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1336: element=>'Before call to faxcde, adjusted_cost',
1331: if (p_log_level_rec.statement_level) then
1332: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1333: element=>'Before call to faxcde, amort_start_date case:bonus_rule',
1334: value=>h_dpr_row.bonus_rule, p_log_level_rec => p_log_level_rec);
1335: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf ',
1336: element=>'Before call to faxcde, adjusted_cost',
1337: value=>h_dpr_row.adj_cost, p_log_level_rec => p_log_level_rec);
1338: end if;
1339:
1348: h_dpr_out,
1349: running_mode, p_log_level_rec => p_log_level_rec))
1350: then
1351: FA_SRVR_MSG.ADD_MESSAGE
1352: (CALLING_FN => 'FA_AMORT_PKG.faxraf',
1353: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1354: return FALSE;
1355: end if;
1356:
1355: end if;
1356:
1357: -- Override
1358: if (p_log_level_rec.statement_level) then
1359: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',
1360: element=>'deprn_override_flag2',
1361: value=>h_dpr_out.deprn_override_flag, p_log_level_rec => p_log_level_rec);
1362: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1363: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1358: if (p_log_level_rec.statement_level) then
1359: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.faxraf',
1360: element=>'deprn_override_flag2',
1361: value=>h_dpr_out.deprn_override_flag, p_log_level_rec => p_log_level_rec);
1362: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1363: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1364: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1365: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1366: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1361: value=>h_dpr_out.deprn_override_flag, p_log_level_rec => p_log_level_rec);
1362: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1363: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1364: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1365: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1366: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1367: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1368: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1369: element=>'h_dpr_out.new_deprn_rsv after faxcde',
1364: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1365: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1366: element=>'h_dpr_out.new_bonus_deprn_rsv after faxcde',
1367: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1368: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1369: element=>'h_dpr_out.new_deprn_rsv after faxcde',
1370: value=>h_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1371: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1372: element=>'h_dpr_out.new_adj_cost after faxcde',
1367: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1368: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1369: element=>'h_dpr_out.new_deprn_rsv after faxcde',
1370: value=>h_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1371: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1372: element=>'h_dpr_out.new_adj_cost after faxcde',
1373: value=>h_dpr_out.new_adj_cost, p_log_level_rec => p_log_level_rec);
1374:
1375: end if;
1422:
1423: -- Call Depreciable Basis Formula
1424:
1425: if (p_log_level_rec.statement_level) then
1426: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1427: element=>'Before Calling fa_calc_deprn_basis1_pkg.faxcdb',
1428: value=>h_rule_in.event_type, p_log_level_rec => p_log_level_rec);
1429: end if;
1430:
1433: h_rule_out,
1434: X_fin_info_ptr.amortization_start_date, p_log_level_rec => p_log_level_rec))
1435: then
1436: FA_SRVR_MSG.ADD_MESSAGE
1437: (CALLING_FN=>'FA_AMORT_PKG.faxraf',
1438: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1439: return false;
1440: end if;
1441:
1458: X_new_adj_cost := h_dpr_out.new_adj_cost;
1459: end if;
1460:
1461: if (p_log_level_rec.statement_level) then
1462: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1463: element=>'Before calc adj_amt, h_dpr_out.new_adj_cost',
1464: value=>h_dpr_out.new_adj_cost, p_log_level_rec => p_log_level_rec);
1465: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1466: element=>'Before calc adj_amt, x_new_adj_cost',
1461: if (p_log_level_rec.statement_level) then
1462: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1463: element=>'Before calc adj_amt, h_dpr_out.new_adj_cost',
1464: value=>h_dpr_out.new_adj_cost, p_log_level_rec => p_log_level_rec);
1465: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1466: element=>'Before calc adj_amt, x_new_adj_cost',
1467: value=>x_new_adj_cost, p_log_level_rec => p_log_level_rec);
1468: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1469: element=>'Before calc adj_amt, deprn_summary.bonus_deprn_rsv',
1464: value=>h_dpr_out.new_adj_cost, p_log_level_rec => p_log_level_rec);
1465: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1466: element=>'Before calc adj_amt, x_new_adj_cost',
1467: value=>x_new_adj_cost, p_log_level_rec => p_log_level_rec);
1468: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1469: element=>'Before calc adj_amt, deprn_summary.bonus_deprn_rsv',
1470: value=>deprn_summary.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1471: end if;
1472:
1488: -- (h_current_rsv - deprn_summary.deprn_rsv) -
1489: -- nvl(h_dpr_row.bonus_deprn_rsv,0);
1490:
1491: if (p_log_level_rec.statement_level) then
1492: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1493: element=>'x_fin_info_ptr.adj_amount ',
1494: value=>x_fin_info_ptr.adj_amount, p_log_level_rec => p_log_level_rec);
1495: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1496: element=>'h_dpr_out.new_deprn_rsv ',
1491: if (p_log_level_rec.statement_level) then
1492: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1493: element=>'x_fin_info_ptr.adj_amount ',
1494: value=>x_fin_info_ptr.adj_amount, p_log_level_rec => p_log_level_rec);
1495: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1496: element=>'h_dpr_out.new_deprn_rsv ',
1497: value=>h_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1498: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1499: element=>'deprn_summary.deprn_rsv',
1494: value=>x_fin_info_ptr.adj_amount, p_log_level_rec => p_log_level_rec);
1495: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1496: element=>'h_dpr_out.new_deprn_rsv ',
1497: value=>h_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1498: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1499: element=>'deprn_summary.deprn_rsv',
1500: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1501: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1502: element=>'h_current_rsv',
1497: value=>h_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1498: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1499: element=>'deprn_summary.deprn_rsv',
1500: value=>deprn_summary.deprn_rsv, p_log_level_rec => p_log_level_rec);
1501: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1502: element=>'h_current_rsv',
1503: value=>h_current_rsv, p_log_level_rec => p_log_level_rec);
1504: end if;
1505: -- bonus
1514: deprn_summary.bonus_deprn_rsv) -
1515: ( (h_dpr_row.bonus_deprn_rsv - deprn_summary.bonus_deprn_rsv) * 2);
1516:
1517: if (p_log_level_rec.statement_level) then
1518: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1519: element=>'x_bonus_deprn_exp ',
1520: value=>x_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
1521: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1522: element=>'h_dpr_out.new_bonus_deprn_rsv ',
1517: if (p_log_level_rec.statement_level) then
1518: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1519: element=>'x_bonus_deprn_exp ',
1520: value=>x_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
1521: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1522: element=>'h_dpr_out.new_bonus_deprn_rsv ',
1523: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1524: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1525: element=>'h_dpr_row.bonus_deprn_rsv',
1520: value=>x_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
1521: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1522: element=>'h_dpr_out.new_bonus_deprn_rsv ',
1523: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1524: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1525: element=>'h_dpr_row.bonus_deprn_rsv',
1526: value=>h_dpr_row.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1527: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1528: element=>'deprn_summary.bonus_deprn_rsv',
1523: value=>h_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1524: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1525: element=>'h_dpr_row.bonus_deprn_rsv',
1526: value=>h_dpr_row.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1527: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxraf',
1528: element=>'deprn_summary.bonus_deprn_rsv',
1529: value=>deprn_summary.bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1530: end if;
1531: end if;
1550: return TRUE;
1551: exception
1552: when others then
1553: FA_SRVR_MSG.ADD_SQL_ERROR
1554: (CALLING_FN => 'FA_AMORT_PKG.faxraf', p_log_level_rec => p_log_level_rec);
1555: return FALSE;
1556: end faxraf;
1557: ---------------------------------------------------------------------------
1558: FUNCTION faxama (X_fin_info_ptr in out nocopy FA_STD_TYPES.fin_info_struct,
1582:
1583: if (X_fin_info_ptr.asset_type='CIP')
1584: then
1585: FA_SRVR_MSG.ADD_MESSAGE
1586: (CALLING_FN => 'FA_AMORT_PKG.faxama',
1587: NAME=>'FA_AMT_CIP_NOT_ALLOWED', p_log_level_rec => p_log_level_rec);
1588: return FALSE;
1589: end if;
1590:
1589: end if;
1590:
1591: if (p_log_level_rec.statement_level)
1592: then
1593: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1594: element=>'First asset_type',
1595: value=>X_fin_info_ptr.asset_type, p_log_level_rec => p_log_level_rec);
1596: end if;
1597:
1610: X_set_of_books_id,
1611: p_log_level_rec))
1612: then
1613: FA_SRVR_MSG.ADD_MESSAGE
1614: (CALLING_FN => 'FA_AMORT_PKG.faxama', p_log_level_rec => p_log_level_rec);
1615: return FALSE;
1616: end if;
1617:
1618: -- save deprn_exp to pass back to calling program
1619: x_deprn_exp := X_fin_info_ptr.adj_amount;
1620:
1621: if (p_log_level_rec.statement_level)
1622: then
1623: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1624: element=>'Before faxiat-Cost',
1625: value=>X_fin_info_ptr.cost, p_log_level_rec => p_log_level_rec);
1626: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1627: element=>'Before faxiat-Old Cost',
1622: then
1623: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1624: element=>'Before faxiat-Cost',
1625: value=>X_fin_info_ptr.cost, p_log_level_rec => p_log_level_rec);
1626: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1627: element=>'Before faxiat-Old Cost',
1628: value=>X_fin_info_ptr.old_cost, p_log_level_rec => p_log_level_rec);
1629: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1630: element=>'x_new_adj Cost',
1625: value=>X_fin_info_ptr.cost, p_log_level_rec => p_log_level_rec);
1626: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1627: element=>'Before faxiat-Old Cost',
1628: value=>X_fin_info_ptr.old_cost, p_log_level_rec => p_log_level_rec);
1629: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1630: element=>'x_new_adj Cost',
1631: value=> x_new_adj_cost, p_log_level_rec => p_log_level_rec);
1632: end if;
1633: -- syoung: SET_DEBUG_FLAG shouldn't be set randomly when using transaction
1647: -- for amortized adjustments.
1648:
1649: if (p_log_level_rec.statement_level)
1650: then
1651: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1652: element=>'Before faxiat- deprn_exp',
1653: value=>X_fin_info_ptr.adj_amount, p_log_level_rec => p_log_level_rec);
1654: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1655: element=>'Before faxiat-bonus_deprn_exp',
1650: then
1651: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1652: element=>'Before faxiat- deprn_exp',
1653: value=>X_fin_info_ptr.adj_amount, p_log_level_rec => p_log_level_rec);
1654: FA_DEBUG_PKG.ADD (fname=>'FA_AMORT_PKG.faxama',
1655: element=>'Before faxiat-bonus_deprn_exp',
1656: value=>X_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
1657: end if;
1658: if (not faxiat(X_fin_info_ptr,
1666: X_mrc_sob_type_code,
1667: p_log_level_rec))
1668: then
1669: FA_SRVR_MSG.ADD_MESSAGE
1670: (CALLING_FN => 'FA_AMORT_PKG.faxama',
1671: NAME=>h_err_string, p_log_level_rec => p_log_level_rec);
1672: return FALSE;
1673: end if;
1674: end if; -- cost = old cost
1675: return TRUE;
1676: exception
1677: when others then
1678: FA_SRVR_MSG.ADD_SQL_ERROR
1679: (CALLING_FN => 'FA_AMORT_PKG.faxama', p_log_level_rec => p_log_level_rec);
1680:
1681: return FALSE;
1682: end faxama;
1683:
1920: l_fin_info.deprn_start_date := bk_rec.deprn_start_date;
1921: l_fin_info.date_placed_in_svc := bk_rec.date_placed_in_service;
1922:
1923: if not (FA_EXP_PKG.faxbds(l_fin_info, l_dpr_row, dummy_var,dummy_num,FALSE,X_mrc_sob_type_code, p_log_level_rec => p_log_level_rec)) then
1924: fa_srvr_msg.add_message (calling_fn => 'FA_AMORT_PKG.get_reserve', p_log_level_rec => p_log_level_rec);
1925: return FALSE;
1926: end if;
1927: if (x_amortize_per_num = 1) then
1928: l_dpr_row.y_end := x_amortize_fy - 1;
1943: l_dpr_out,
1944: running_mode, p_log_level_rec => p_log_level_rec)) then
1945: -- FA_STD_TYPES.FA_DPR_NORMAL)) then
1946: FA_SRVR_MSG.ADD_MESSAGE
1947: (CALLING_FN => 'FA_AMORT_PKG.get_reserve',
1948: NAME=>'FA_AMT_CAL_DP_EXP', p_log_level_rec => p_log_level_rec);
1949: return FALSE;
1950: end if;
1951:
1950: end if;
1951:
1952: X_fin_info_ptr.deprn_override_flag:= l_dpr_out.deprn_override_flag;
1953: if (p_log_level_rec.statement_level) then
1954: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.get_reserve ',
1955: element=>'l_dpr_out.new_deprn_rsv',
1956: value=>l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1957: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.get_reserve ',
1958: element=>'l_dpr_out.new_bonus_deprn_rsv',
1953: if (p_log_level_rec.statement_level) then
1954: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.get_reserve ',
1955: element=>'l_dpr_out.new_deprn_rsv',
1956: value=>l_dpr_out.new_deprn_rsv, p_log_level_rec => p_log_level_rec);
1957: FA_DEBUG_PKG.ADD(fname=>'FA_AMORT_PKG.get_reserve ',
1958: element=>'l_dpr_out.new_bonus_deprn_rsv',
1959: value=>l_dpr_out.new_bonus_deprn_rsv, p_log_level_rec => p_log_level_rec);
1960: end if;
1961: x_deprn_rsv := l_dpr_out.new_deprn_rsv;
1964:
1965: exception
1966: when others then
1967: FA_SRVR_MSG.ADD_SQL_ERROR
1968: (CALLING_FN => 'FA_AMORT_PKG.get_reserve', p_log_level_rec => p_log_level_rec);
1969: return FALSE;
1970:
1971: end get_reserve;
1972: -- backdate amortization enhancement - end
2009: -- if h_deprn_basis_formula = fa_std_types.FAD_DBF_FLAT then
2010: if h_deprn_basis_formula = 'STRICT_FLAT' then
2011: if ( not fa_cache_pkg.fazccmt(x_method_code,
2012: x_life, p_log_level_rec => p_log_level_rec)) then
2013: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
2014: return false;
2015: end if;
2016:
2017: h_rate_source_rule := fa_cache_pkg.fazccmt_record.rate_source_rule;
2018: h_deprn_basis_rule := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
2019:
2020: if h_rate_source_rule = FA_STD_TYPES.FAD_RSR_FLAT and h_deprn_basis_rule = FA_STD_TYPES.FAD_DBR_COST then
2021: if x_rec_cost is null then
2022: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
2023: return false;
2024: end if;
2025:
2026: x_adj_cost := x_rec_cost;
2029:
2030: if x_rec_cost is null or
2031: not ( (x_prior_fy_exp is not null) or
2032: (x_deprn_rsv is not null and x_ytd_deprn is not null) ) then
2033: fa_srvr_msg.add_message(calling_fn => 'FA_AMORT_PKG.faxnac', p_log_level_rec => p_log_level_rec);
2034: return false;
2035: end if;
2036:
2037: if x_prior_fy_exp is null then
2044:
2045: return true;
2046: end faxnac;
2047:
2048: END FA_AMORT_PKG;