[Home] [Help]
58:
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:
107: X_last_update_date=>X_last_update_date,
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)
143: X_last_update_date=>X_last_update_date,
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:
192: X_last_update_date=>X_last_update_date,
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
203: X_last_update_date=>X_last_update_date,
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;
255: X_last_update_date=>X_last_update_date,
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
266: X_last_update_date=>X_last_update_date,
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;
285: end if;
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:
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:
530: h_current_rsv,
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;
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
631: running_mode,
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
753: h_rule_in,
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;
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;
915: d_new_deprn_rsv := h_dpr_out.new_deprn_rsv;
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;
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;
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;
1248: h_rule_in,
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;
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;
1312: --fix for 2197401. error out if new nbv result in
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;
1347: h_dpr_arr,
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;
1432: h_rule_in,
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;
1549:
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: ---------------------------------------------------------------------------
1581: X_bonus_deprn_exp := 0;
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;
1609: X_mrc_sob_type_code,
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:
1665: X_last_update_login,
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;
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;
1942: l_dpr_arr,
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;
1963: return TRUE;
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;
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