[Home] [Help]
1: PACKAGE BODY FA_UNIT_ADJ_PUB AS
2: /* $Header: FAPUADJB.pls 120.11.12020000.3 2012/11/30 14:06:12 spooyath ship $ */
3:
4: --*********************** Global constants *******************************--
5: G_PKG_NAME CONSTANT varchar2(30) := 'FA_UNIT_ADJ_PUB';
1: PACKAGE BODY FA_UNIT_ADJ_PUB AS
2: /* $Header: FAPUADJB.pls 120.11.12020000.3 2012/11/30 14:06:12 spooyath ship $ */
3:
4: --*********************** Global constants *******************************--
5: G_PKG_NAME CONSTANT varchar2(30) := 'FA_UNIT_ADJ_PUB';
6: G_API_NAME CONSTANT varchar2(30) := 'Unit Adjustment API';
7: G_API_VERSION CONSTANT number := 1.0;
8:
9: g_log_level_rec fa_api_types.log_level_rec_type;
71: end if;
72:
73: if (px_asset_hdr_rec.asset_id is null) then
74: fa_srvr_msg.add_message(
75: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
76: name => 'FA_SHARED_ITEM_NULL',
77: token1 => 'ITEM',
78: value1 => 'Asset Id', p_log_level_rec => g_log_level_rec);
79: RAISE FND_API.G_EXC_ERROR;
86: close c_corp_book;
87:
88: if px_asset_hdr_rec.book_type_code is null then
89: fa_srvr_msg.add_message
90: (calling_fn => 'FA_UNIT_ADJ_PUB.do_unit_adjustment',
91: name => 'FA_EXP_GET_ASSET_INFO', p_log_level_rec => g_log_level_rec);
92: raise FND_API.G_EXC_ERROR;
93: end if;
94: end if;
103: if not fa_asset_val_pvt.validate_asset_book
104: (p_transaction_type_code => 'UNIT ADJUSTMENT',
105: p_book_type_code => px_asset_hdr_rec.book_type_code,
106: p_asset_id => px_asset_hdr_rec.asset_id,
107: p_calling_fn => 'FA_UNIT_ADJ_PUB.valid_input', p_log_level_rec => g_log_level_rec) then
108: raise FND_API.G_EXC_ERROR;
109: end if;
110:
111: px_trans_rec.transaction_type_code := 'UNIT ADJUSTMENT';
162: if not FA_IGI_EXT_PKG.Do_Unit_Adjustment(
163: p_trans_rec => px_trans_rec,
164: p_asset_hdr_rec => px_asset_hdr_rec,
165: p_asset_cat_rec => l_asset_cat_rec,
166: p_calling_function => 'FA_UNIT_ADJ_PUB.DO_UNIT_ADJUSTMENT') then raise FND_API.G_EXC_ERROR;
167: end if;
168: end if; -- (FA_IGI_EXT_PKG.IAC_Enabled)
169:
170: if fa_cse_callouts_pvt.is_oat_enabled then
191:
192: EXCEPTION
193: WHEN FND_API.G_EXC_ERROR THEN
194: FA_SRVR_MSG.Add_Message(
195: calling_fn => 'FA_UNIT_ADJ_PUB.do_unit_adjustment', p_log_level_rec => g_log_level_rec);
196:
197: FND_MSG_PUB.Count_And_Get(
198: p_count => x_msg_count,
199: p_data => x_msg_data
202: x_return_status := FND_API.G_RET_STS_ERROR;
203:
204: WHEN OTHERS THEN
205: FA_SRVR_MSG.Add_Sql_Error(
206: calling_fn => 'FA_UNIT_ADJ_PUB.do_unit_adjustment', p_log_level_rec => g_log_level_rec);
207:
208: FND_MSG_PUB.Count_And_Get(
209: p_count => x_msg_count,
210: p_data => x_msg_data
241: p_asset_id => p_asset_hdr_rec.asset_id,
242: x_override_flag => l_override_flag,
243: p_log_level_rec => p_log_level_rec)) then
244: fa_srvr_msg.add_message(
245: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input', p_log_level_rec => p_log_level_rec);
246: return FALSE;
247: end if;
248: -- if override flag is set to No, do not allow the unit adjustment
249: if (l_override_flag = 'N') then
247: end if;
248: -- if override flag is set to No, do not allow the unit adjustment
249: if (l_override_flag = 'N') then
250: fa_srvr_msg.add_message(
251: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
252: name => 'CUA_NO_DIST_CHANGE_ALLOWED', p_log_level_rec => p_log_level_rec);
253: return FALSE;
254: end if;
255: end if;
258: -- check if asset is fully retired
259: if FA_ASSET_VAL_PVT.validate_fully_retired(p_asset_hdr_rec.asset_id,
260: p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
261: fa_srvr_msg.add_message(
262: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
263: Name => 'FA_REC_RETIRED', p_log_level_rec => p_log_level_rec);
264: return FALSE;
265: end if;
266:
288: px_trans_rec.transaction_date_entered :=
289: to_date(to_char(l_transaction_date,'DD/MM/YYYY'),'DD/MM/YYYY');
290: else
291: if not fa_cache_pkg.fazcbc (X_book => p_asset_hdr_rec.book_type_code, p_log_level_rec => p_log_level_rec) then
292: fa_srvr_msg.add_message( calling_fn => 'FA_UNIT_ADJ_PUB.valid_input', p_log_level_rec => p_log_level_rec);
293: return false;
294: else
295: l_fiscal_year_name := fa_cache_pkg.fazcbc_record.fiscal_year_name;
296: l_fiscal_year := fa_cache_pkg.fazcbc_record.current_fiscal_year;
301: from fa_fiscal_year
302: where fiscal_year = l_fiscal_year
303: and fiscal_year_name = l_fiscal_year_name;
304:
305: if not FA_UTIL_PVT.get_latest_trans_date('FA_UNIT_ADJ_PUB.valid_input',
306: p_asset_hdr_rec.asset_id,
307: p_asset_hdr_rec.book_type_code,
308: l_max_transaction_date, p_log_level_rec => p_log_level_rec) then
309: return FALSE;
311:
312: if (px_trans_rec.transaction_date_entered < l_fy_start_date or
313: px_trans_rec.transaction_date_entered > l_fy_end_date) then
314: fa_srvr_msg.add_message(
315: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
316: name => 'FA_RET_DATE_MUSTBE_IN_CUR_FY', p_log_level_rec => p_log_level_rec);
317: return FALSE;
318: end if;
319:
318: end if;
319:
320: if (px_trans_rec.transaction_date_entered > l_period_rec.calendar_period_close_date) then
321: fa_srvr_msg.add_message(
322: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
323: name => 'FA_SHARED_CANNOT_FUTURE', p_log_level_rec => p_log_level_rec);
324: return FALSE;
325: end if;
326:
325: end if;
326:
327: if (px_trans_rec.transaction_date_entered < l_max_transaction_date) then
328: fa_srvr_msg.add_message(
329: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
330: name => 'FA_SHARED_OTHER_TRX_FOLLOW', p_log_level_rec => p_log_level_rec);
331: return FALSE;
332: end if;
333:
332: end if;
333:
334: if (px_trans_rec.transaction_date_entered
336: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input',
337: name => 'FA_YEAR_GREATER_THAN', p_log_level_rec => p_log_level_rec);
338: return FALSE;
339: end if;
340: end if;
343:
344: EXCEPTION
345: when others then
346: fa_srvr_msg.add_sql_error(
347: calling_fn => 'FA_UNIT_ADJ_PUB.valid_input', p_log_level_rec => p_log_level_rec);
348: return FALSE;
349:
350: END;
351:
348: return FALSE;
349:
350: END;
351:
352: END FA_UNIT_ADJ_PUB;