[Home] [Help]
14: g_switched_add NUMBER :=0; --bug 8726493
15: g_previous_assetid NUMBER :=0; --Bug 13504981
16: g_old_asset_id NUMBER := -1;
17:
18: g_release number := fa_cache_pkg.fazarel_release;
19:
20: /* Forward declaration bug#16426081*/
21:
22: FUNCTION CALC_ADJ_COST_DIFF (
217: g_rule_in.member_proceeds :=0; -- Member Proceeds which group asset is processed.
218:
219: --Bug 8256548 start
220: if (rule_in.mrc_sob_type_code = 'R') then
221: if NOT fa_cache_pkg.fazcbcs(X_book => rule_in.book_type_code ,
222: X_set_of_books_id => rule_in.set_of_books_id,
223: p_log_level_rec => p_log_level_rec) Then
224: raise faxcdb_err;
225: end if;
224: raise faxcdb_err;
225: end if;
226: else
227: -- call the cache for the primary transaction book
228: if NOT fa_cache_pkg.fazcbc(X_book => rule_in.book_type_code, p_log_level_rec => p_log_level_rec) then
229: raise faxcdb_err;
230: end if;
231: end if;
232: --Bug 8256548 end
233:
234: -----------------------------------------------------------
235: -- Call Depreciable Basis rules
236: -----------------------------------------------------------
237: if (fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id is null) or
238: ((g_rule_in.method_code <> fa_cache_pkg.fazccmt_record.method_code) or
239: (nvl(g_rule_in.life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
240: if fa_cache_pkg.fazccmt(g_rule_in.method_code, g_rule_in.life_in_months, p_log_level_rec => p_log_level_rec) then
241: if p_log_level_rec.statement_level then
234: -----------------------------------------------------------
235: -- Call Depreciable Basis rules
236: -----------------------------------------------------------
237: if (fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id is null) or
238: ((g_rule_in.method_code <> fa_cache_pkg.fazccmt_record.method_code) or
239: (nvl(g_rule_in.life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
240: if fa_cache_pkg.fazccmt(g_rule_in.method_code, g_rule_in.life_in_months, p_log_level_rec => p_log_level_rec) then
241: if p_log_level_rec.statement_level then
242: fa_debug_pkg.add(fname=>'faxcdb',
235: -- Call Depreciable Basis rules
236: -----------------------------------------------------------
237: if (fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id is null) or
238: ((g_rule_in.method_code <> fa_cache_pkg.fazccmt_record.method_code) or
239: (nvl(g_rule_in.life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
240: if fa_cache_pkg.fazccmt(g_rule_in.method_code, g_rule_in.life_in_months, p_log_level_rec => p_log_level_rec) then
241: if p_log_level_rec.statement_level then
242: fa_debug_pkg.add(fname=>'faxcdb',
243: element=>'fazcdbr',
236: -----------------------------------------------------------
237: if (fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id is null) or
238: ((g_rule_in.method_code <> fa_cache_pkg.fazccmt_record.method_code) or
239: (nvl(g_rule_in.life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
240: if fa_cache_pkg.fazccmt(g_rule_in.method_code, g_rule_in.life_in_months, p_log_level_rec => p_log_level_rec) then
241: if p_log_level_rec.statement_level then
242: fa_debug_pkg.add(fname=>'faxcdb',
243: element=>'fazcdbr',
244: value=> 'Called', p_log_level_rec => p_log_level_rec);
246: end if;
247: end if;
248:
249: -- Set flags for depreciable basis rule setup
250: rule_id := fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id;
251: l_rule_name := fa_cache_pkg.fazcdbr_record.rule_name;
252: l_period_update_flag := fa_cache_pkg.fazcdrd_record.period_update_flag;
253: l_subtract_ytd_flag := fa_cache_pkg.fazcdrd_record.subtract_ytd_flag;
254: if p_log_level_rec.statement_level then
247: end if;
248:
249: -- Set flags for depreciable basis rule setup
250: rule_id := fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id;
251: l_rule_name := fa_cache_pkg.fazcdbr_record.rule_name;
252: l_period_update_flag := fa_cache_pkg.fazcdrd_record.period_update_flag;
253: l_subtract_ytd_flag := fa_cache_pkg.fazcdrd_record.subtract_ytd_flag;
254: if p_log_level_rec.statement_level then
255: fa_debug_pkg.add(fname =>'faxcdb',
248:
249: -- Set flags for depreciable basis rule setup
250: rule_id := fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id;
251: l_rule_name := fa_cache_pkg.fazcdbr_record.rule_name;
252: l_period_update_flag := fa_cache_pkg.fazcdrd_record.period_update_flag;
253: l_subtract_ytd_flag := fa_cache_pkg.fazcdrd_record.subtract_ytd_flag;
254: if p_log_level_rec.statement_level then
255: fa_debug_pkg.add(fname =>'faxcdb',
256: element =>'rule_id',
249: -- Set flags for depreciable basis rule setup
250: rule_id := fa_cache_pkg.fazcdbr_record.deprn_basis_rule_id;
251: l_rule_name := fa_cache_pkg.fazcdbr_record.rule_name;
252: l_period_update_flag := fa_cache_pkg.fazcdrd_record.period_update_flag;
253: l_subtract_ytd_flag := fa_cache_pkg.fazcdrd_record.subtract_ytd_flag;
254: if p_log_level_rec.statement_level then
255: fa_debug_pkg.add(fname =>'faxcdb',
256: element =>'rule_id',
257: value => rule_id, p_log_level_rec => p_log_level_rec);
314: fa_debug_pkg.add('faxcdb', 'l_impairment_reserve', l_impairment_reserve, p_log_level_rec => p_log_level_rec);
315: fa_debug_pkg.add('faxcdb', 'l_imp_period_counter', l_imp_period_counter, p_log_level_rec => p_log_level_rec);
316: end if;
317:
318: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
319: raise faxcdb_err;
320: end if;
321:
322: l_imp_fiscal_year := round((l_imp_period_counter - 1)/fa_cache_pkg.fazcct_record.number_per_fiscal_year);
318: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
319: raise faxcdb_err;
320: end if;
321:
322: l_imp_fiscal_year := round((l_imp_period_counter - 1)/fa_cache_pkg.fazcct_record.number_per_fiscal_year);
323:
324: if (nvl(fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, 'Y') = 'Y') then
325: g_rule_in.impairment_reserve := l_deprn_reserve_at_imp + l_impairment_reserve;
326: end if;
320: end if;
321:
322: l_imp_fiscal_year := round((l_imp_period_counter - 1)/fa_cache_pkg.fazcct_record.number_per_fiscal_year);
323:
324: if (nvl(fa_cache_pkg.fazcdrd_record.use_rsv_after_imp_flag, 'Y') = 'Y') then
325: g_rule_in.impairment_reserve := l_deprn_reserve_at_imp + l_impairment_reserve;
326: end if;
327:
328:
389: + g_rule_in.hyp_total_ytd;
390: g_rule_out.new_formula_factor := 1;
391: else /* other method type */
392: /* bug#12661018 */
393: if fa_cache_pkg.fazcdrd_record.use_eofy_reserve_flag = 'Y' then
394: g_rule_out.new_adjusted_cost :=
395: g_rule_in.recoverable_cost - g_rule_in.hyp_total_rsv
396: + g_rule_in.hyp_total_ytd;
397: else
613: g_rule_out.new_formula_factor := nvl(g_rule_in.old_formula_factor,1);
614: else
615:
616: -- Bug fix 6345693 (Japan Tax Reforms)
617: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES' then
618:
619: select bk.deprn_method_code, bk.salvage_value, bk.cost -- bug 6378955 (added salvage value)
620: into l_old_method_code, l_old_salvage_value, l_old_cost -- l_old_cost added for Japan overlapped
621: from FA_BOOKS bk
693: -- Bug:5930979:Japan Tax Reform Project
694: -- (Changed below if bcoz Reinstament was causing change in Adjusted_cost,
695: -- and here adjusted_cost change is restrcited for guarantee methods)
696: if (g_rule_in.method_type = 'FORMULA' and g_rule_in.calc_basis ='NBV'
697: AND nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') <> 'YES'
698: ) then
699: if p_log_level_rec.statement_level then
700: fa_debug_pkg.add(l_calling_fn, '++ g_rule_in.current_rsv', g_rule_in.current_rsv, p_log_level_rec => p_log_level_rec);
701: fa_debug_pkg.add(l_calling_fn, '++ g_rule_in.eofy_reserve', g_rule_in.eofy_reserve, p_log_level_rec => p_log_level_rec);
826: elsif g_rule_in.calc_basis = 'NBV' then
827:
828: -- Bug:5930979:Japan Tax Reform Project (Start)
829: if p_log_level_rec.statement_level then
830: fa_debug_pkg.add('faxcdb', '+++ Guarantee Flag : ', fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag, p_log_level_rec => p_log_level_rec);
831: end if;
832:
833: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES' then
834:
829: if p_log_level_rec.statement_level then
830: fa_debug_pkg.add('faxcdb', '+++ Guarantee Flag : ', fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag, p_log_level_rec => p_log_level_rec);
831: end if;
832:
833: if nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES' then
834:
835: if p_log_level_rec.statement_level then
836: fa_debug_pkg.add('faxcdb', '+++ Inside Guarantee Logic', 'YES', p_log_level_rec => p_log_level_rec);
837: end if;
865: l_old_method_code := rule_in.method_code;
866: END;
867: END;
868: l_cur_rate_used := l_rate_in_use;
869: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
870: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
871: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
872:
873: IF l_rate_in_use IS NULL OR g_rule_in.method_code <> l_old_method_code THEN
866: END;
867: END;
868: l_cur_rate_used := l_rate_in_use;
869: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
870: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
871: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
872:
873: IF l_rate_in_use IS NULL OR g_rule_in.method_code <> l_old_method_code THEN
874: -- Removed the SQL query in order to make use of the values stored in the cache.
867: END;
868: l_cur_rate_used := l_rate_in_use;
869: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
870: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
871: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
872:
873: IF l_rate_in_use IS NULL OR g_rule_in.method_code <> l_old_method_code THEN
874: -- Removed the SQL query in order to make use of the values stored in the cache.
875:
916: END IF;
917: --- BUG # 7193797: End OF Addition.
918:
919: if p_log_level_rec.statement_level then
920: fa_debug_pkg.add('faxcdb', '+++ Revised Rate : ', fa_cache_pkg.fazcfor_record.revised_rate, p_log_level_rec => p_log_level_rec);
921: fa_debug_pkg.add('faxcdb', '+++ FA_Books.Rate : ', l_rate_in_use, p_log_level_rec => p_log_level_rec);
922: fa_debug_pkg.add('faxcdb', '+++ FA_Books.deprn_method : ', l_old_method_code, p_log_level_rec => p_log_level_rec);
923: fa_debug_pkg.add('faxcdb', '+++ fnd_global.request_id : ', fnd_global.conc_request_id, p_log_level_rec => p_log_level_rec);
924: end if;
940: END IF;
941: IF (rule_in.cost * l_Guaranteed_Rate) > ((rule_in.cost - rule_in.current_rsv)* l_original_Rate) THEN
942: g_switched_recal := 1;
943: END IF;
944: elsif fa_cache_pkg.fazcfor_record.revised_rate = l_rate_in_use then
945: --BUG # 7193797: Added the below IF loop for calculating the Adjusted cost During Switch.
946: --Bug 8726493 corrected the logic to handel adjusted cost during switch
947: --no need to change adjusted cost once it comes into switched state
948:
1055: and bks.date_ineffective is null
1056: and dp.book_type_code = l_book_type_code
1057: and bks.date_effective between
1058: dp.period_open_date and nvl(dp.period_close_date, sysdate)
1059: and dp.fiscal_year = fa_cache_pkg.fazcbc_record.current_fiscal_year;
1060:
1061: IF (l_last_trx_count =0) THEN
1062: g_rule_out.new_adjusted_cost := g_rule_in.recoverable_cost - g_rule_in.eofy_reserve
1063: - nvl(g_rule_in.impairment_reserve,0); -- Added NVL for bug# 5079543
1088: -- Bug 7331261: Reverted the fix done for Bug 7028719
1089: -- Adjusted_cost need not be modified for JP-DB methods
1090: -- Bug 7028719 Modified If condition to unchange adjusted cost for flat rate cost basis method.
1091: IF (g_rule_in.old_raf <> 1) or
1092: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_PROD and
1093: rule_in.amortization_start_date is not null ) or
1094: (g_rule_in.amortization_start_date is not null and
1095: nvl(g_rule_in.life_in_months, 0) > 0 and
1096: g_rule_in.method_type <> 'FORMULA') THEN
1104: /* Bug 7331261: Commented the fix made for Bug 7028719
1105: IF
1106: g_rule_in.amortization_start_date is null or
1107: (g_rule_in.amortization_start_date is not null
1108: and fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT
1109: and fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST)
1110: THEN
1111: g_rule_out.new_adjusted_cost := g_rule_in.old_adjusted_cost;
1112: g_rule_in.use_old_adj_cost_flag :='Y';
1105: IF
1106: g_rule_in.amortization_start_date is null or
1107: (g_rule_in.amortization_start_date is not null
1108: and fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT
1109: and fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST)
1110: THEN
1111: g_rule_out.new_adjusted_cost := g_rule_in.old_adjusted_cost;
1112: g_rule_in.use_old_adj_cost_flag :='Y';
1113:
1140: -- Call Depreciable Basis Rule
1141: ------------------------------------------------------------
1142:
1143: l_rule_formula :=
1144: 'BEGIN '||fa_cache_pkg.fazcdbr_record.program_name||';
1145:
1146: exception
1147: when others then
1148: fa_srvr_msg.add_sql_error
1145:
1146: exception
1147: when others then
1148: fa_srvr_msg.add_sql_error
1149: (calling_fn => '''||fa_cache_pkg.fazcdbr_record.program_name||''', p_log_level_rec => null); -- BUG# 5171343
1150: raise;
1151: END;';
1152:
1153: if p_log_level_rec.statement_level then
1165: -----------------------------------------------
1166: -- Run formula
1167: -----------------------------------------------
1168:
1169: if (fa_cache_pkg.fazcdbr_record.program_name is not null) then
1170: if p_log_level_rec.statement_level then
1171:
1172: fa_debug_pkg.add(fname=>'faxcdb',
1173: element=>'Rule Name before rule logic',
1900: Fetch C_GET_DATE into l_fy_start_date,l_fy_end_date, l_fy_mid_year_date,
1901: l_cp_start_date,l_cp_end_date;
1902:
1903: if(C_GET_DATE%NOTFOUND)then
1904: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
1905: raise no_mid_date_err;
1906: end if;
1907: --bug fix 5005592 starts
1908: begin
1923: decode(mod(p_period_counter,cal_ty.NUMBER_PER_FISCAL_YEAR),0,
1924: (floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)-1),
1925: floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)
1926: )
1927: AND fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1928: AND cal_ty.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
1929: AND cp.calendar_type = cal_ty.calendar_type
1930: AND cp.start_date BETWEEN fy.start_date AND fy.end_date
1931: AND cp.end_date BETWEEN fy.start_date AND fy.end_date
1924: (floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)-1),
1925: floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)
1926: )
1927: AND fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
1928: AND cal_ty.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
1929: AND cp.calendar_type = cal_ty.calendar_type
1930: AND cp.start_date BETWEEN fy.start_date AND fy.end_date
1931: AND cp.end_date BETWEEN fy.start_date AND fy.end_date
1932: and period_num =
2073: OPEN C_GET_DATE_M;
2074: Fetch C_GET_DATE_M into l_fy_start_date,l_fy_end_date, l_fy_mid_year_date,
2075: l_cp_start_date,l_cp_end_date;
2076: if(C_GET_DATE_M%NOTFOUND)then
2077: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
2078: raise no_mid_date_err;
2079: end if;
2080: --bug fix 5005592 starts
2081: begin
2096: decode(mod(p_period_counter,cal_ty.NUMBER_PER_FISCAL_YEAR),0,
2097: (floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)-1),
2098: floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)
2099: )
2100: AND fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
2101: AND cal_ty.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
2102: AND cp.calendar_type = cal_ty.calendar_type
2103: AND cp.start_date BETWEEN fy.start_date AND fy.end_date
2104: AND cp.end_date BETWEEN fy.start_date AND fy.end_date
2097: (floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)-1),
2098: floor(p_period_counter/cal_ty.NUMBER_PER_FISCAL_YEAR)
2099: )
2100: AND fy.fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
2101: AND cal_ty.calendar_type = fa_cache_pkg.fazcbc_record.deprn_calendar
2102: AND cp.calendar_type = cal_ty.calendar_type
2103: AND cp.start_date BETWEEN fy.start_date AND fy.end_date
2104: AND cp.end_date BETWEEN fy.start_date AND fy.end_date
2105: and period_num =
2733: where TH.TRANSACTION_HEADER_ID = BK1.TRANSACTION_HEADER_ID_OUT(+)
2734: and TH.TRANSACTION_HEADER_ID = BK2.TRANSACTION_HEADER_ID_IN
2735: and BK2.BOOK_TYPE_CODE = p_book_type_code
2736: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2737: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2738: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2739: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2740: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2741: and CP.PERIOD_NUM = p_period_num
2734: and TH.TRANSACTION_HEADER_ID = BK2.TRANSACTION_HEADER_ID_IN
2735: and BK2.BOOK_TYPE_CODE = p_book_type_code
2736: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2737: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2738: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2739: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2740: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2741: and CP.PERIOD_NUM = p_period_num
2742: and exists (select TH.ASSET_ID
2735: and BK2.BOOK_TYPE_CODE = p_book_type_code
2736: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2737: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2738: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2739: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2740: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2741: and CP.PERIOD_NUM = p_period_num
2742: and exists (select TH.ASSET_ID
2743: from FA_BOOKS BK4
2736: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2737: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2738: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2739: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2740: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2741: and CP.PERIOD_NUM = p_period_num
2742: and exists (select TH.ASSET_ID
2743: from FA_BOOKS BK4
2744: where TH.ASSET_ID = BK4.ASSET_ID and
2755: and BK.TRANSACTION_HEADER_ID_IN =TH.TRANSACTION_HEADER_ID
2756: and BK.ASSET_ID= TH.ASSET_ID
2757: and BK.BOOK_TYPE_CODE= TH.BOOK_TYPE_CODE
2758: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2759: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2760: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2761: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2762: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2763: and CP.PERIOD_NUM = p_period_num
2756: and BK.ASSET_ID= TH.ASSET_ID
2757: and BK.BOOK_TYPE_CODE= TH.BOOK_TYPE_CODE
2758: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2759: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2760: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2761: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2762: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2763: and CP.PERIOD_NUM = p_period_num
2764: )
2757: and BK.BOOK_TYPE_CODE= TH.BOOK_TYPE_CODE
2758: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2759: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2760: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2761: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2762: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2763: and CP.PERIOD_NUM = p_period_num
2764: )
2765: group by BK3.SALVAGE_TYPE,BK3.PERCENT_SALVAGE_VALUE;
2758: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2759: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbc_record.deprn_calendar
2760: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2761: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2762: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2763: and CP.PERIOD_NUM = p_period_num
2764: )
2765: group by BK3.SALVAGE_TYPE,BK3.PERCENT_SALVAGE_VALUE;
2766:
2783: and BK1.set_of_books_id = p_set_of_books_id
2784: and BK2.set_of_books_id = p_set_of_books_id
2785: and BK3.set_of_books_id = p_set_of_books_id
2786: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2787: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2788: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2789: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2790: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2791: and CP.PERIOD_NUM = p_period_num
2784: and BK2.set_of_books_id = p_set_of_books_id
2785: and BK3.set_of_books_id = p_set_of_books_id
2786: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2787: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2788: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2789: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2790: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2791: and CP.PERIOD_NUM = p_period_num
2792: and exists (select TH.ASSET_ID
2785: and BK3.set_of_books_id = p_set_of_books_id
2786: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2787: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2788: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2789: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2790: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2791: and CP.PERIOD_NUM = p_period_num
2792: and exists (select TH.ASSET_ID
2793: from FA_MC_BOOKS BK4
2786: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2787: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2788: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2789: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2790: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2791: and CP.PERIOD_NUM = p_period_num
2792: and exists (select TH.ASSET_ID
2793: from FA_MC_BOOKS BK4
2794: where TH.ASSET_ID = BK4.ASSET_ID and
2810: and BK.set_of_books_id = p_set_of_books_id
2811: and BC.BOOK_TYPE_CODE = p_book_type_code
2812: and BC.set_of_books_id = p_set_of_books_id
2813: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2814: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2815: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2816: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2817: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2818: and CP.PERIOD_NUM = p_period_num
2811: and BC.BOOK_TYPE_CODE = p_book_type_code
2812: and BC.set_of_books_id = p_set_of_books_id
2813: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2814: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2815: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2816: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2817: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2818: and CP.PERIOD_NUM = p_period_num
2819: )
2812: and BC.set_of_books_id = p_set_of_books_id
2813: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2814: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2815: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2816: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2817: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2818: and CP.PERIOD_NUM = p_period_num
2819: )
2820: group by BK3.SALVAGE_TYPE,BK3.PERCENT_SALVAGE_VALUE;
2813: and TH.TRANSACTION_DATE_ENTERED <= CP.END_DATE
2814: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcbcs_record.deprn_calendar
2815: and CP.CALENDAR_TYPE = fa_cache_pkg.fazcct_record.calendar_type
2816: and CP.END_DATE <= fa_cache_pkg.fazcfy_record.end_date
2817: and CP.END_DATE >= fa_cache_pkg.fazcfy_record.start_date
2818: and CP.PERIOD_NUM = p_period_num
2819: )
2820: group by BK3.SALVAGE_TYPE,BK3.PERCENT_SALVAGE_VALUE;
2821: -- bug 8256548 END
2878:
2879: begin
2880: -- Skipping entire process for straight line and flat-cost PE and User rec cost deprn basis
2881: -- rule because it is unnecessary.
2882: if (not(fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC or
2883: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT and
2884: fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST and
2885: fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'USE RECOVERABLE COST'))
2886: )
2879: begin
2880: -- Skipping entire process for straight line and flat-cost PE and User rec cost deprn basis
2881: -- rule because it is unnecessary.
2882: if (not(fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC or
2883: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT and
2884: fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST and
2885: fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'USE RECOVERABLE COST'))
2886: )
2887: ) then
2880: -- Skipping entire process for straight line and flat-cost PE and User rec cost deprn basis
2881: -- rule because it is unnecessary.
2882: if (not(fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC or
2883: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT and
2884: fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST and
2885: fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'USE RECOVERABLE COST'))
2886: )
2887: ) then
2888:
2881: -- rule because it is unnecessary.
2882: if (not(fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_CALC or
2883: (fa_cache_pkg.fazccmt_record.rate_source_rule = fa_std_types.FAD_RSR_FLAT and
2884: fa_cache_pkg.fazccmt_record.deprn_basis_rule = fa_std_types.FAD_DBR_COST and
2885: fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END BALANCE', 'USE RECOVERABLE COST'))
2886: )
2887: ) then
2888:
2889: -------------------------------------------------
2952: end if;
2953: end if;
2954:
2955: -- bug 8256548 : Added function calls fazcct fazcfy
2956: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
2957: raise grc_err;
2958: end if;
2959:
2960: if not fa_cache_pkg.fazcfy(fa_cache_pkg.fazcbc_record.fiscal_year_name,
2956: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
2957: raise grc_err;
2958: end if;
2959:
2960: if not fa_cache_pkg.fazcfy(fa_cache_pkg.fazcbc_record.fiscal_year_name,
2961: p_fiscal_year, p_log_level_rec => p_log_level_rec) then
2962: raise grc_err;
2963: end if;
2964: -- bug 8256548 END
3177: to_char(p_period_num));
3178: end if;
3179: -- bug 8256548
3180: if (p_mrc_sob_type_code = 'R') then
3181: if NOT fa_cache_pkg.fazcbcs(X_book => p_book_type_code,
3182: X_set_of_books_id => p_set_of_books_id,
3183: p_log_level_rec => p_log_level_rec) then
3184: raise l_get_eofy_eop_err;
3185: end if;
3184: raise l_get_eofy_eop_err;
3185: end if;
3186: else
3187: -- call the cache for the primary transaction book
3188: if NOT fa_cache_pkg.fazcbc(X_book => p_book_type_code, p_log_level_rec => p_log_level_rec) then
3189: raise l_get_eofy_eop_err;
3190: end if;
3191: end if;
3192: -- bug 8256548 END
3193:
3194: if p_asset_type = 'GROUP' then
3195: if p_period_counter is null then
3196:
3197: if not fa_cache_pkg.fazcct(fa_cache_pkg.fazcbc_record.deprn_calendar, p_log_level_rec => p_log_level_rec) then
3198: raise l_get_eofy_eop_err;
3199: end if;
3200:
3201: l_period_counter := p_fiscal_year *
3198: raise l_get_eofy_eop_err;
3199: end if;
3200:
3201: l_period_counter := p_fiscal_year *
3202: fa_cache_pkg.fazcct_record.NUMBER_PER_FISCAL_YEAR +
3203: p_period_num;
3204:
3205: else
3206:
3499: tmp_method_code := p_asset_fin_rec_new.Deprn_Method_Code;
3500: tmp_life_in_months := p_asset_fin_rec_new.Life_In_Months;
3501: end if;
3502:
3503: if (fa_cache_pkg.fazccmt_record.rate_source_rule is null) or
3504: ((tmp_method_code <> fa_cache_pkg.fazccmt_record.method_code) or
3505: (nvl(tmp_life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
3506: if not fa_cache_pkg.fazccmt
3507: (X_method => tmp_method_code,
3500: tmp_life_in_months := p_asset_fin_rec_new.Life_In_Months;
3501: end if;
3502:
3503: if (fa_cache_pkg.fazccmt_record.rate_source_rule is null) or
3504: ((tmp_method_code <> fa_cache_pkg.fazccmt_record.method_code) or
3505: (nvl(tmp_life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
3506: if not fa_cache_pkg.fazccmt
3507: (X_method => tmp_method_code,
3508: X_life => tmp_life_in_months
3501: end if;
3502:
3503: if (fa_cache_pkg.fazccmt_record.rate_source_rule is null) or
3504: ((tmp_method_code <> fa_cache_pkg.fazccmt_record.method_code) or
3505: (nvl(tmp_life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
3506: if not fa_cache_pkg.fazccmt
3507: (X_method => tmp_method_code,
3508: X_life => tmp_life_in_months
3509: , p_log_level_rec => p_log_level_rec) then
3502:
3503: if (fa_cache_pkg.fazccmt_record.rate_source_rule is null) or
3504: ((tmp_method_code <> fa_cache_pkg.fazccmt_record.method_code) or
3505: (nvl(tmp_life_in_months, -99) <> nvl(fa_cache_pkg.fazccmt_record.life_in_months, -99))) then
3506: if not fa_cache_pkg.fazccmt
3507: (X_method => tmp_method_code,
3508: X_life => tmp_life_in_months
3509: , p_log_level_rec => p_log_level_rec) then
3510:
3524: h_rule_in.asset_type := nvl(p_dpr.asset_type, p_asset_type_rec.asset_type);
3525: h_rule_in.depreciate_flag := p_asset_fin_rec_new.depreciate_flag;
3526: h_rule_in.method_code := p_asset_fin_rec_new.deprn_method_code;
3527: h_rule_in.life_in_months := p_asset_fin_rec_new.life_in_months;
3528: h_rule_in.method_id := fa_cache_pkg.fazccmt_record.method_id;
3529: h_rule_in.method_type := fa_cache_pkg.fazccmt_record.rate_source_rule;
3530: h_rule_in.calc_basis := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
3531: h_rule_in.adjustment_amount := nvl(p_asset_fin_rec_new.cost,0)
3532: - nvl(p_asset_fin_rec_old.cost,0);
3525: h_rule_in.depreciate_flag := p_asset_fin_rec_new.depreciate_flag;
3526: h_rule_in.method_code := p_asset_fin_rec_new.deprn_method_code;
3527: h_rule_in.life_in_months := p_asset_fin_rec_new.life_in_months;
3528: h_rule_in.method_id := fa_cache_pkg.fazccmt_record.method_id;
3529: h_rule_in.method_type := fa_cache_pkg.fazccmt_record.rate_source_rule;
3530: h_rule_in.calc_basis := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
3531: h_rule_in.adjustment_amount := nvl(p_asset_fin_rec_new.cost,0)
3532: - nvl(p_asset_fin_rec_old.cost,0);
3533: h_rule_in.transaction_flag := null;
3526: h_rule_in.method_code := p_asset_fin_rec_new.deprn_method_code;
3527: h_rule_in.life_in_months := p_asset_fin_rec_new.life_in_months;
3528: h_rule_in.method_id := fa_cache_pkg.fazccmt_record.method_id;
3529: h_rule_in.method_type := fa_cache_pkg.fazccmt_record.rate_source_rule;
3530: h_rule_in.calc_basis := fa_cache_pkg.fazccmt_record.deprn_basis_rule;
3531: h_rule_in.adjustment_amount := nvl(p_asset_fin_rec_new.cost,0)
3532: - nvl(p_asset_fin_rec_old.cost,0);
3533: h_rule_in.transaction_flag := null;
3534: h_rule_in.cost := nvl(p_asset_fin_rec_new.cost,NVL(p_dpr.cost,0));
3603: h_rule_in.old_adjusted_cost := nvl(px_new_adjusted_cost,0);
3604: h_rule_in.old_raf := nvl(px_new_raf,1);
3605: h_rule_in.old_formula_factor := nvl(px_new_formula_factor,1);
3606: --Bug# 6142652 change start
3607: if(NVL(fa_cache_pkg.fazcdbr_record.rule_name,'') = 'BEGINNING PERIOD') then
3608: h_rule_in.transaction_date_entered := p_asset_fin_rec_new.date_placed_in_service;
3609: end if;
3610: --Bug# 6142652 change end
3611:
3718: h_rule_in.old_raf := px_new_raf;
3719: end if; -- Set varialbes for each event type
3720:
3721: if p_log_level_rec.statement_level then
3722: fa_debug_pkg.add(l_calling_fn, '++ fa_cache_pkg.fazcdbr_record.rule_name', fa_cache_pkg.fazcdbr_record.rule_name, p_log_level_rec => p_log_level_rec);
3723: end if;
3724:
3725: --
3726: -- eofy and eop amounts are necessary only if deprn basis rules are following
3726: -- eofy and eop amounts are necessary only if deprn basis rules are following
3727: -- need eop amounts: 'PERIOD END AVERAGE', 'BEGINNING PERIOD'
3728: -- need eofy amounts: 'YEAR TO DATE AVERAGE', 'YEAR END BALANCE WITH HALF YEAR RULE'
3729: --
3730: if (fa_cache_pkg.fazcdbr_record.rule_name in ('PERIOD END AVERAGE', 'BEGINNING PERIOD',
3731: 'YEAR TO DATE AVERAGE',
3732: 'YEAR END BALANCE WITH HALF YEAR RULE',
3733: 'YEAR TO DATE AVERAGE WITH HALF YEAR RULE')) then
3734: if p_log_level_rec.statement_level then
3780: h_rule_in.eofy_recoverable_cost := 0;
3781: h_rule_in.eofy_salvage_value := 0;
3782: h_rule_in.eop_recoverable_cost := 0;
3783: h_rule_in.eop_salvage_value := 0;
3784: end if; -- (fa_cache_pkg.fazcdbr_record.rule_name in (....
3785:
3786: --------------------------------------------
3787: -- Set 0 to the end of fiscal year
3788: -- and end of period recoverable cost
3820: value=> h_rule_out.new_deprn_rounding_flag, p_log_level_rec => p_log_level_rec);
3821: end if;
3822:
3823: --- Added as part of Japn tax Reforms 2007
3824: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
3825: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
3826: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
3827: l_is_revised_rate := 0;
3828: px_new_adjusted_cost := h_rule_out.new_adjusted_cost;
3821: end if;
3822:
3823: --- Added as part of Japn tax Reforms 2007
3824: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
3825: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
3826: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
3827: l_is_revised_rate := 0;
3828: px_new_adjusted_cost := h_rule_out.new_adjusted_cost;
3829:
3822:
3823: --- Added as part of Japn tax Reforms 2007
3824: l_original_Rate := fa_cache_pkg.fazcfor_record.original_rate;
3825: l_Revised_Rate := fa_cache_pkg.fazcfor_record.revised_rate;
3826: l_Guaranteed_Rate := fa_cache_pkg.fazcfor_record.guarantee_rate;
3827: l_is_revised_rate := 0;
3828: px_new_adjusted_cost := h_rule_out.new_adjusted_cost;
3829:
3830:
3851: --Bug# 9954409:Use this flag even for JP-250 DB assets also
3852: if G_release <> 11
3853: -- JP_TAX_2012
3854: -- AND (p_asset_fin_rec_new.deprn_method_code = 'JP-STL-EXTND' OR p_asset_fin_rec_new.deprn_method_code like 'JP%250DB%')
3855: AND (p_asset_fin_rec_new.deprn_method_code = 'JP-STL-EXTND' OR nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES')
3856: AND p_trans_rec.calling_interface = 'FATAXUP' then
3857: l_adjusted_taxup := TRUE;
3858: end if;
3859:
3875: end if;
3876: END IF;
3877: -- ELSIF p_asset_fin_rec_new.deprn_method_code like 'JP%250DB%' THEN
3878: -- JP_TAX_2012
3879: ELSIF nvl(fa_cache_pkg.fazccmt_record.guarantee_rate_method_flag,'NO') = 'YES' THEN
3880: IF l_is_revised_rate = 1 THEN
3881: IF p_asset_fin_rec_new.nbv_at_switch >= 0 THEN
3882: px_new_adjusted_cost := p_asset_fin_rec_new.nbv_at_switch;
3883: END IF;
4780: begin
4781:
4782: -- Validate recognize_gain_loss='Y'
4783: if g_rule_in.recognize_gain_loss='Y'
4784: and fa_cache_pkg.fazcdbr_record.rule_name in
4785: ('YEAR END BALANCE','YEAR END BALANCE WITH POSITIVE REDUCTION AMOUNT',
4786: 'YEAR END BALANCE WITH HALF YEAR RULE')
4787: then
4788: if p_log_level_rec.statement_level then
4796: end if;
4797:
4798: -- Validate recognize_gain_loss='N'
4799: if g_rule_in.recognize_gain_loss='N'
4800: and (fa_cache_pkg.fazcdbr_record.rule_name in
4801: ('FLAT RATE EXTENSION',
4802: 'USE FISCAL YEAR BEGINNING BASIS')
4803: or (fa_cache_pkg.fazcdbr_record.rule_name = 'YEAR TO DATE AVERAGE'
4804: and g_rule_in.calc_basis = 'NBV')
4799: if g_rule_in.recognize_gain_loss='N'
4800: and (fa_cache_pkg.fazcdbr_record.rule_name in
4801: ('FLAT RATE EXTENSION',
4802: 'USE FISCAL YEAR BEGINNING BASIS')
4803: or (fa_cache_pkg.fazcdbr_record.rule_name = 'YEAR TO DATE AVERAGE'
4804: and g_rule_in.calc_basis = 'NBV')
4805: )
4806: then
4807: if p_log_level_rec.statement_level then