[Home] [Help]
PACKAGE BODY: APPS.FA_RETIREMENT_ADJUSTMENT_PVT
Source
1 PACKAGE BODY FA_RETIREMENT_ADJUSTMENT_PVT AS
2 /* $Header: FAVRADJB.pls 120.9 2005/07/25 10:04:16 yyoon noship $ */
3
4
5 FUNCTION do_retirement_adjustment
6 (px_trans_rec IN OUT NOCOPY FA_API_TYPES.trans_rec_type,
7 px_asset_hdr_rec IN OUT NOCOPY FA_API_TYPES.asset_hdr_rec_type,
8 p_asset_desc_rec IN FA_API_TYPES.asset_desc_rec_type,
9 p_asset_type_rec IN FA_API_TYPES.asset_type_rec_type,
10 p_asset_cat_rec IN FA_API_TYPES.asset_cat_rec_type,
11 p_asset_fin_rec_old IN FA_API_TYPES.asset_fin_rec_type,
12 x_asset_fin_rec_new OUT NOCOPY FA_API_TYPES.asset_fin_rec_type,
13 p_asset_deprn_rec_old IN FA_API_TYPES.asset_deprn_rec_type,
14 x_asset_deprn_rec_new OUT NOCOPY FA_API_TYPES.asset_deprn_rec_type,
15 p_period_rec IN FA_API_TYPES.period_rec_type,
16 p_mrc_sob_type_code IN VARCHAR2,
17 p_cost_of_removal IN NUMBER,
18 p_proceeds IN NUMBER,
19 p_cost_of_removal_ccid IN NUMBER DEFAULT NULL,
20 p_proceeds_ccid IN NUMBER DEFAULT NULL,
21 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
22
23 -- used for new group code
24 l_adj fa_adjust_type_pkg.fa_adj_row_struct;
25 l_bks_rowid varchar2(30);
26 l_status BOOLEAN;
27
28 -- used for depreciable basis rule
29 l_asset_retire_rec fa_api_types.asset_retire_rec_type;
30 l_asset_deprn_rec fa_api_types.asset_deprn_rec_type;
31
32 --
33 -- For calling faxama.
34 --
35 l_deprn_exp NUMBER := 0;
36 l_bonus_deprn_exp NUMBER := 0;
37 l_deprn_rsv NUMBER := 0;
38 l_asset_deprn_rec_adj FA_API_TYPES.ASSET_DEPRN_REC_TYPE;
39
40 l_calling_fn VARCHAR2(35) := 'fa_group_reserve_pvt.do_transfer';
41 adj_err EXCEPTION;
42
43 BEGIN
44
45 -- call the category books cache for the accounts
46 if not fa_cache_pkg.fazccb(X_book => px_asset_hdr_rec.book_type_code,
47 X_cat_id => p_asset_cat_rec.category_id
48 ,p_log_level_rec => p_log_level_rec) then
49 raise adj_err;
50 end if;
51
52 -- set the new structs to the old ones
53 -- (values which changes such as adjusted_cost will be set below)
54 x_asset_fin_rec_new := p_asset_fin_rec_old;
55 x_asset_deprn_rec_new := p_asset_deprn_rec_old;
56
57 -- Use Depreciable Basis Rule
58 l_asset_retire_rec.proceeds_of_sale := p_proceeds;
59 l_asset_retire_rec.cost_of_removal := p_cost_of_removal;
60 l_asset_retire_rec.cost_retired := p_asset_fin_rec_old.cost
61 - x_asset_fin_rec_new.cost;
62 l_asset_deprn_rec := x_asset_deprn_rec_new;
63 l_asset_deprn_rec.deprn_reserve := nvl(x_asset_deprn_rec_new.deprn_reserve,0)
64 + nvl(p_proceeds,0)-nvl(p_cost_of_removal,0);
65
66 -- Call Depreciable Basis Rule
67 if (not FA_CALC_DEPRN_BASIS1_PKG.CALL_DEPRN_BASIS
68 (p_event_type => 'RETIREMENT',
69 p_asset_fin_rec_new => x_asset_fin_rec_new,
70 p_asset_fin_rec_old => p_asset_fin_rec_old,
71 p_asset_hdr_rec => px_asset_hdr_rec,
72 p_asset_type_rec => p_asset_type_rec,
73 p_trans_rec => px_trans_rec,
74 p_period_rec => p_period_rec,
75 p_asset_retire_rec => l_asset_retire_rec,
76 p_asset_deprn_rec => l_asset_deprn_rec,
77 p_recoverable_cost => x_asset_fin_rec_new.recoverable_cost,
78 p_salvage_value => x_asset_fin_rec_new.salvage_value,
79 p_mrc_sob_type_code => p_mrc_sob_type_code,
80 px_new_adjusted_cost => x_asset_fin_rec_new.adjusted_cost,
81 px_new_raf => x_asset_fin_rec_new.rate_adjustment_factor,
82 px_new_formula_factor => x_asset_fin_rec_new.formula_factor
83 ,p_log_level_rec => p_log_level_rec)) then
84 fa_srvr_msg.add_message(calling_fn =>l_calling_fn
85 ,p_log_level_rec => p_log_level_rec);
86 RETURN FALSE;
87 end if;
88
89 l_asset_deprn_rec_adj.deprn_reserve := nvl(p_proceeds, 0) - nvl(p_cost_of_removal, 0);
90
91 if (not FA_AMORT_PVT.faxama(
92 px_trans_rec => px_trans_rec,
93 p_asset_hdr_rec => px_asset_hdr_rec,
94 p_asset_desc_rec => p_asset_desc_rec,
95 p_asset_cat_rec => p_asset_cat_rec,
96 p_asset_type_rec => p_asset_type_rec,
97 p_asset_fin_rec_old => p_asset_fin_rec_old,
98 px_asset_fin_rec_new => x_asset_fin_rec_new,
99 p_asset_deprn_rec => p_asset_deprn_rec_old,
100 p_asset_deprn_rec_adj => l_asset_deprn_rec_adj,
101 p_period_rec => p_period_rec,
102 p_mrc_sob_type_code => p_mrc_sob_type_code,
103 p_running_mode => fa_std_types.FA_DPR_NORMAL,
104 p_used_by_revaluation => null,
105 p_reclassed_asset_id => null,
106 p_reclass_src_dest => null,
107 p_reclassed_asset_dpis => null,
108 p_update_books_summary => TRUE,
109 p_proceeds_of_sale => p_proceeds,
110 p_cost_of_removal => p_cost_of_removal,
111 x_deprn_exp => l_deprn_exp,
112 x_bonus_deprn_exp => l_bonus_deprn_exp,
113 x_deprn_rsv => l_deprn_rsv
114 ,p_log_level_rec => p_log_level_rec)) then
115
116 if (p_log_level_rec.statement_level) then
117 fa_debug_pkg.add('l_calling_fn', 'calling FA_AMORT_PVT.faxama', 'FAILED'
118 ,p_log_level_rec => p_log_level_rec);
119 end if;
120 raise adj_err;
121
122 end if; -- (not FA_AMORT_PVT.faxama
123
124 -- call faxinaj to insert the amounts (flush them too)
125 l_adj.transaction_header_id := px_trans_rec.transaction_header_id;
126 l_adj.asset_id := px_asset_hdr_rec.asset_id;
127 l_adj.book_type_code := px_asset_hdr_rec.book_type_code;
128 l_adj.period_counter_created := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
129 l_adj.period_counter_adjusted := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
130 l_adj.current_units := p_asset_desc_rec.current_units;
131 l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
132 l_adj.selection_thid := 0;
133 l_adj.selection_retid := 0;
134 l_adj.leveling_flag := TRUE;
135 l_adj.last_update_date := px_trans_rec.who_info.last_update_date;
136
137 l_adj.annualized_adjustment := 0;
138 l_adj.asset_invoice_id := 0;
139 l_adj.distribution_id := 0;
140
141 l_adj.flush_adj_flag := TRUE;
142 l_adj.deprn_override_flag:= '';
143
144 l_adj.mrc_sob_type_code := p_mrc_sob_type_code;
145 l_adj.source_type_code := 'RETIREMENT';
146
147 -- cost of removal amounts
148 if nvl(p_cost_of_removal, 0) <> 0 then
149
150 if (p_log_level_rec.statement_level) then
151 fa_debug_pkg.add(l_calling_fn || ' for cor ',
152 'thid',
153 l_adj.transaction_header_id
154 ,p_log_level_rec => p_log_level_rec);
155 end if;
156
157
158 l_adj.debit_credit_flag := 'DR';
159 l_adj.adjustment_type := 'RESERVE'; -- GRP COR RESERVE ???
160 l_adj.adjustment_amount := p_cost_of_removal;
161 l_adj.account := fa_cache_pkg.fazccb_record.deprn_reserve_acct;
162 l_adj.account_type := 'DEPRN_RESERVE_ACCT';
163 l_adj.code_combination_id := 0;
164 l_adj.gen_ccid_flag := TRUE;
165
166 if not FA_INS_ADJUST_PKG.faxinaj
167 (l_adj,
168 px_trans_rec.who_info.last_update_date,
169 px_trans_rec.who_info.last_updated_by,
170 px_trans_rec.who_info.last_update_login
171 ,p_log_level_rec => p_log_level_rec) then
172 raise adj_err;
173 end if;
174
175 if (p_cost_of_removal_ccid is null) then
176 l_adj.account := fa_cache_pkg.fazcbc_record.cost_of_removal_clearing_acct;
177 l_adj.code_combination_id := 0;
178 l_adj.gen_ccid_flag := TRUE;
179 else
180 l_adj.code_combination_id := p_cost_of_removal_ccid;
181 l_adj.gen_ccid_flag := FALSE;
182 end if;
183
184 l_adj.account_type := 'COST_OF_REMOVAL_CLEARING_ACCT';
185 l_adj.adjustment_type := 'REMOVALCOST CLR';
186 l_adj.debit_credit_flag := 'CR';
187
188 if not FA_INS_ADJUST_PKG.faxinaj
189 (l_adj,
190 px_trans_rec.who_info.last_update_date,
191 px_trans_rec.who_info.last_updated_by,
192 px_trans_rec.who_info.last_update_login
193 ,p_log_level_rec => p_log_level_rec) then
194 raise adj_err;
195 end if;
196
197 end if;
198
199 -- proceeds of sale
200 if nvl(p_proceeds, 0) <> 0 then
201
202 if (p_log_level_rec.statement_level) then
203 fa_debug_pkg.add(l_calling_fn || ' for proceeds ',
204 'thid',
205 l_adj.transaction_header_id
206 ,p_log_level_rec => p_log_level_rec);
207 end if;
208
209
210 l_adj.debit_credit_flag := 'CR';
211 l_adj.adjustment_type := 'RESERVE'; -- GRP PRC RESERVE ???
212 l_adj.adjustment_amount := p_proceeds;
213 l_adj.account := fa_cache_pkg.fazccb_record.deprn_reserve_acct;
214 l_adj.account_type := 'DEPRN_RESERVE_ACCT';
215 l_adj.code_combination_id := 0;
216 l_adj.gen_ccid_flag := TRUE;
217
218 if not FA_INS_ADJUST_PKG.faxinaj
219 (l_adj,
220 px_trans_rec.who_info.last_update_date,
221 px_trans_rec.who_info.last_updated_by,
222 px_trans_rec.who_info.last_update_login
223 ,p_log_level_rec => p_log_level_rec) then
224 raise adj_err;
225 end if;
226
227 if (p_proceeds_ccid is null) then
228 l_adj.account := fa_cache_pkg.fazcbc_record.proceeds_of_sale_clearing_acct;
229 l_adj.code_combination_id := 0;
230 l_adj.gen_ccid_flag := TRUE;
231 else
232 l_adj.code_combination_id := p_proceeds_ccid;
233 l_adj.gen_ccid_flag := FALSE;
234 end if;
235
236 l_adj.account_type := 'PROCEEDS_OF_SALE_CLEARING_ACCT';
237 l_adj.adjustment_type := 'PROCEEDS CLR';
238 l_adj.debit_credit_flag := 'DR';
239
240 if not FA_INS_ADJUST_PKG.faxinaj
241 (l_adj,
242 px_trans_rec.who_info.last_update_date,
243 px_trans_rec.who_info.last_updated_by,
244 px_trans_rec.who_info.last_update_login
245 ,p_log_level_rec => p_log_level_rec) then
246 raise adj_err;
247 end if;
248
249 end if;
250
251 /*****************************************************
252
253 -- for life based methods, this where we would need to
254 -- recalculate raf, etc
255
256 *****************************************************/
257
258
259 -- terminate/insert fa_books rows
260 -- terminate the active row
261
262 fa_books_pkg.deactivate_row
263 (X_asset_id => px_asset_hdr_rec.asset_id,
264 X_book_type_code => px_asset_hdr_rec.book_type_code,
265 X_transaction_header_id_out => px_trans_rec.transaction_header_id,
266 X_date_ineffective => px_trans_rec.who_info.last_update_date,
267 X_mrc_sob_type_code => p_mrc_sob_type_code,
268 X_Calling_Fn => l_calling_fn
269 ,p_log_level_rec => p_log_level_rec);
270
271 -- fa books
272 fa_books_pkg.insert_row
273 (X_Rowid => l_bks_rowid,
274 X_Book_Type_Code => px_asset_hdr_rec.book_type_code,
275 X_Asset_Id => px_asset_hdr_rec.asset_id,
276 X_Date_Placed_In_Service => x_asset_fin_rec_new.date_placed_in_service,
277 X_Date_Effective => px_trans_rec.who_info.last_update_date,
278 X_Deprn_Start_Date => x_asset_fin_rec_new.deprn_start_date,
279 X_Deprn_Method_Code => x_asset_fin_rec_new.deprn_method_code,
280 X_Life_In_Months => x_asset_fin_rec_new.life_in_months,
281 X_Rate_Adjustment_Factor => x_asset_fin_rec_new.rate_adjustment_factor,
282 X_Adjusted_Cost => x_asset_fin_rec_new.adjusted_cost,
283 X_Cost => x_asset_fin_rec_new.cost,
284 X_Original_Cost => x_asset_fin_rec_new.original_cost,
285 X_Salvage_Value => x_asset_fin_rec_new.salvage_value,
286 X_Prorate_Convention_Code => x_asset_fin_rec_new.prorate_convention_code,
287 X_Prorate_Date => x_asset_fin_rec_new.prorate_date,
288 X_Cost_Change_Flag => x_asset_fin_rec_new.cost_change_flag,
289 X_Adjustment_Required_Status => x_asset_fin_rec_new.adjustment_required_status,
290 X_Capitalize_Flag => x_asset_fin_rec_new.capitalize_flag,
291 X_Retirement_Pending_Flag => x_asset_fin_rec_new.retirement_pending_flag,
292 X_Depreciate_Flag => x_asset_fin_rec_new.depreciate_flag,
293 X_Disabled_Flag => x_asset_fin_rec_new.disabled_flag,--HH
294 X_Last_Update_Date => px_trans_rec.who_info.last_update_date,
295 X_Last_Updated_By => px_trans_rec.who_info.last_updated_by,
296 X_Date_Ineffective => NULL,
297 X_Transaction_Header_Id_In => px_trans_rec.transaction_header_id,
298 X_Transaction_Header_Id_Out => NULL,
299 X_Itc_Amount_Id => x_asset_fin_rec_new.itc_amount_id,
300 X_Itc_Amount => x_asset_fin_rec_new.itc_amount,
301 X_Retirement_Id => x_asset_fin_rec_new.retirement_id,
302 X_Tax_Request_Id => x_asset_fin_rec_new.tax_request_id,
303 X_Itc_Basis => x_asset_fin_rec_new.itc_basis,
304 X_Basic_Rate => x_asset_fin_rec_new.basic_rate,
305 X_Adjusted_Rate => x_asset_fin_rec_new.adjusted_rate,
306 X_Bonus_Rule => x_asset_fin_rec_new.bonus_rule,
307 X_Ceiling_Name => x_asset_fin_rec_new.ceiling_name,
308 X_Recoverable_Cost => x_asset_fin_rec_new.recoverable_cost,
309 X_Last_Update_Login => px_trans_rec.who_info.last_update_login,
310 X_Adjusted_Capacity => x_asset_fin_rec_new.adjusted_capacity,
311 X_Fully_Rsvd_Revals_Counter => x_asset_fin_rec_new.fully_rsvd_revals_counter,
312 X_Idled_Flag => x_asset_fin_rec_new.idled_flag,
313 X_Period_Counter_Capitalized => x_asset_fin_rec_new.period_counter_capitalized,
314 X_PC_Fully_Reserved => x_asset_fin_rec_new.period_counter_fully_reserved,
315 X_Period_Counter_Fully_Retired => x_asset_fin_rec_new.period_counter_fully_retired,
316 X_Production_Capacity => x_asset_fin_rec_new.production_capacity,
317 X_Reval_Amortization_Basis => x_asset_fin_rec_new.reval_amortization_basis,
318 X_Reval_Ceiling => x_asset_fin_rec_new.reval_ceiling,
319 X_Unit_Of_Measure => x_asset_fin_rec_new.unit_of_measure,
320 X_Unrevalued_Cost => x_asset_fin_rec_new.unrevalued_cost,
321 X_Annual_Deprn_Rounding_Flag => x_asset_fin_rec_new.annual_deprn_rounding_flag,
322 X_Percent_Salvage_Value => x_asset_fin_rec_new.percent_salvage_value,
323 X_Allowed_Deprn_Limit => x_asset_fin_rec_new.allowed_deprn_limit,
324 X_Allowed_Deprn_Limit_Amount => x_asset_fin_rec_new.allowed_deprn_limit_amount,
325 X_Period_Counter_Life_Complete => x_asset_fin_rec_new.period_counter_life_complete,
326 X_Adjusted_Recoverable_Cost => x_asset_fin_rec_new.adjusted_recoverable_cost,
327 X_Short_Fiscal_Year_Flag => x_asset_fin_rec_new.short_fiscal_year_flag,
328 X_Conversion_Date => x_asset_fin_rec_new.conversion_date,
329 X_Orig_Deprn_Start_Date => x_asset_fin_rec_new.orig_deprn_start_date,
330 X_Remaining_Life1 => x_asset_fin_rec_new.remaining_life1,
331 X_Remaining_Life2 => x_asset_fin_rec_new.remaining_life2,
332 X_Old_Adj_Cost => x_asset_fin_rec_new.old_adjusted_cost,
333 X_Formula_Factor => x_asset_fin_rec_new.formula_factor,
334 X_gf_Attribute1 => x_asset_fin_rec_new.global_attribute1,
335 X_gf_Attribute2 => x_asset_fin_rec_new.global_attribute2,
336 X_gf_Attribute3 => x_asset_fin_rec_new.global_attribute3,
337 X_gf_Attribute4 => x_asset_fin_rec_new.global_attribute4,
338 X_gf_Attribute5 => x_asset_fin_rec_new.global_attribute5,
339 X_gf_Attribute6 => x_asset_fin_rec_new.global_attribute6,
340 X_gf_Attribute7 => x_asset_fin_rec_new.global_attribute7,
341 X_gf_Attribute8 => x_asset_fin_rec_new.global_attribute8,
342 X_gf_Attribute9 => x_asset_fin_rec_new.global_attribute9,
343 X_gf_Attribute10 => x_asset_fin_rec_new.global_attribute10,
344 X_gf_Attribute11 => x_asset_fin_rec_new.global_attribute11,
345 X_gf_Attribute12 => x_asset_fin_rec_new.global_attribute12,
346 X_gf_Attribute13 => x_asset_fin_rec_new.global_attribute13,
347 X_gf_Attribute14 => x_asset_fin_rec_new.global_attribute14,
348 X_gf_Attribute15 => x_asset_fin_rec_new.global_attribute15,
349 X_gf_Attribute16 => x_asset_fin_rec_new.global_attribute16,
350 X_gf_Attribute17 => x_asset_fin_rec_new.global_attribute17,
351 X_gf_Attribute18 => x_asset_fin_rec_new.global_attribute18,
352 X_gf_Attribute19 => x_asset_fin_rec_new.global_attribute19,
353 X_gf_Attribute20 => x_asset_fin_rec_new.global_attribute20,
354 X_global_attribute_category => x_asset_fin_rec_new.global_attribute_category,
355 X_group_asset_id => x_asset_fin_rec_new.group_asset_id,
356 X_salvage_type => x_asset_fin_rec_new.salvage_type,
357 X_deprn_limit_type => x_asset_fin_rec_new.deprn_limit_type,
358 X_over_depreciate_option => x_asset_fin_rec_new.over_depreciate_option,
359 X_super_group_id => x_asset_fin_rec_new.super_group_id,
360 X_reduction_rate => x_asset_fin_rec_new.reduction_rate,
361 X_reduce_addition_flag => x_asset_fin_rec_new.reduce_addition_flag,
362 X_reduce_adjustment_flag => x_asset_fin_rec_new.reduce_adjustment_flag,
363 X_reduce_retirement_flag => x_asset_fin_rec_new.reduce_retirement_flag,
364 X_recognize_gain_loss => x_asset_fin_rec_new.recognize_gain_loss,
365 X_recapture_reserve_flag => x_asset_fin_rec_new.recapture_reserve_flag,
366 X_limit_proceeds_flag => x_asset_fin_rec_new.limit_proceeds_flag,
367 X_terminal_gain_loss => x_asset_fin_rec_new.terminal_gain_loss,
368 X_exclude_proceeds_from_basis => x_asset_fin_rec_new.exclude_proceeds_from_basis,
369 X_retirement_deprn_option => x_asset_fin_rec_new.retirement_deprn_option,
370 X_tracking_method => x_asset_fin_rec_new.tracking_method,
371 X_allocate_to_fully_rsv_flag =>x_asset_fin_rec_new.allocate_to_fully_rsv_flag,
372 X_allocate_to_fully_ret_flag =>x_asset_fin_rec_new.allocate_to_fully_ret_flag,
373 X_exclude_fully_rsv_flag => x_asset_fin_rec_new.exclude_fully_rsv_flag,
374 X_excess_allocation_option => x_asset_fin_rec_new.excess_allocation_option,
375 X_depreciation_option => x_asset_fin_rec_new.depreciation_option,
376 X_member_rollup_flag => x_asset_fin_rec_new.member_rollup_flag,
377 X_ytd_proceeds => nvl(x_asset_fin_rec_new.ytd_proceeds, 0) + p_proceeds,
378 X_ltd_proceeds => nvl(x_asset_fin_rec_new.ltd_proceeds, 0) + p_proceeds,
379 X_eofy_reserve => x_asset_fin_rec_new.eofy_reserve,
380 X_terminal_gain_loss_amount => x_asset_fin_rec_new.terminal_gain_loss_amount,
381 X_ltd_cost_of_removal => nvl(x_asset_fin_rec_new.ltd_cost_of_removal, 0) +
382 p_cost_of_removal,
383 X_mrc_sob_type_code => p_mrc_sob_type_code,
384 X_Return_Status => l_status,
385 X_Calling_Fn => l_calling_fn
386 );
387
388 if not l_status then
389 raise adj_err;
390 end if;
391
392 return true;
393
394 EXCEPTION
395 when adj_err then
396 fa_srvr_msg.add_message(calling_fn => l_calling_fn
397 ,p_log_level_rec => p_log_level_rec);
398 return false;
399 when others then
400 fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn
401 ,p_log_level_rec => p_log_level_rec);
402 return false;
403
404 END do_retirement_adjustment;
405
406 END FA_RETIREMENT_ADJUSTMENT_PVT;