3950: where retirement_id = l_asset_retire_rec.retirement_id;
3951:
3952: cursor adj_def is
3953: select rowid
3954: from fa_adjustments
3955: where asset_id = p_asset_hdr_rec.asset_id
3956: and transaction_header_id = transfer_id
3957: and source_type_code = 'TRANSFER'
3958: and adjustment_type in ('COST', 'RESERVE', 'REVAL RESERVE');
4298:
4299: -- Remove any cost and reserve adjustment rows
4300: -- if UNDOing PARTIAL UNIT RETIREMENT
4301:
4302: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'begin - deleting fa_adjustments', '', p_log_level_rec => p_log_level_rec); end if;
4303:
4304: open adj_def;
4305:
4306: begin
4309: fetch adj_def into l_adj_rowid;
4310:
4311: exit when adj_def%NOTFOUND;
4312:
4313: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ADJUSTMENTS_PKG.delete_row', '', p_log_level_rec => p_log_level_rec); end if;
4314: FA_ADJUSTMENTS_PKG.delete_row(
4315: X_Rowid => l_adj_rowid,
4316: X_Asset_Id => l_asset_hdr_rec.asset_id,
4317: X_Calling_Fn => l_calling_fn,
4310:
4311: exit when adj_def%NOTFOUND;
4312:
4313: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'FA_ADJUSTMENTS_PKG.delete_row', '', p_log_level_rec => p_log_level_rec); end if;
4314: FA_ADJUSTMENTS_PKG.delete_row(
4315: X_Rowid => l_adj_rowid,
4316: X_Asset_Id => l_asset_hdr_rec.asset_id,
4317: X_Calling_Fn => l_calling_fn,
4318: X_mrc_sob_type_code => p_mrc_sob_type_code,
4326: end;
4327:
4328: close adj_def;
4329:
4330: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'done - deleting fa_adjustments', '', p_log_level_rec => p_log_level_rec); end if;
4331:
4332:
4333: else -- if not partial unit retirement
4334: