[Home] [Help]
17:
18: --*********************** Public procedures ******************************--
19:
20: PROCEDURE do_transfer(p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
22: p_commit IN VARCHAR2 := FND_API.G_FALSE,
23: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24: p_calling_fn IN VARCHAR2,
25: x_return_status OUT NOCOPY VARCHAR2,
18: --*********************** Public procedures ******************************--
19:
20: PROCEDURE do_transfer(p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
22: p_commit IN VARCHAR2 := FND_API.G_FALSE,
23: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24: p_calling_fn IN VARCHAR2,
25: x_return_status OUT NOCOPY VARCHAR2,
26: x_msg_count OUT NOCOPY NUMBER,
19:
20: PROCEDURE do_transfer(p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
22: p_commit IN VARCHAR2 := FND_API.G_FALSE,
23: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24: p_calling_fn IN VARCHAR2,
25: x_return_status OUT NOCOPY VARCHAR2,
26: x_msg_count OUT NOCOPY NUMBER,
27: x_msg_data OUT NOCOPY VARCHAR2,
55: if (not g_log_level_rec.initialized) then
56: if (NOT fa_util_pub.get_log_level_rec (
57: x_log_level_rec => g_log_level_rec
58: )) then
59: raise FND_API.G_EXC_ERROR;
60: end if;
61: end if;
62:
63: IF NOT FND_API.Compatible_API_Call(g_api_version, p_api_version,
59: raise FND_API.G_EXC_ERROR;
60: end if;
61: end if;
62:
63: IF NOT FND_API.Compatible_API_Call(g_api_version, p_api_version,
64: g_api_name, G_PKG_NAME) then
65: RAISE FND_API.G_EXC_ERROR;
66: END IF;
67:
61: end if;
62:
63: IF NOT FND_API.Compatible_API_Call(g_api_version, p_api_version,
64: g_api_name, G_PKG_NAME) then
65: RAISE FND_API.G_EXC_ERROR;
66: END IF;
67:
68: if (p_init_msg_list = FND_API.G_TRUE) then
69: fa_srvr_msg.Init_Server_Message;
64: g_api_name, G_PKG_NAME) then
65: RAISE FND_API.G_EXC_ERROR;
66: END IF;
67:
68: if (p_init_msg_list = FND_API.G_TRUE) then
69: fa_srvr_msg.Init_Server_Message;
70: fa_debug_pkg.Initialize;
71: end if;
72:
75: calling_fn => 'FA_TRANSFER_PUB.do_transfer',
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;
80: end if;
81:
82: -- Bug 8252607/5475276 Get the book_type_code if it is not supplied.
83: if (px_asset_hdr_rec.book_type_code is null) then
88: if px_asset_hdr_rec.book_type_code is null then
89: fa_srvr_msg.add_message
90: (calling_fn => 'FA_TRANSFER_PUB.do_transfer',
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;
95:
96: -- call the cache for the primary transaction book
94: end if;
95:
96: -- call the cache for the primary transaction book
97: if NOT fa_cache_pkg.fazcbc(X_book => px_asset_hdr_rec.book_type_code, p_log_level_rec => g_log_level_rec) then
98: RAISE FND_API.G_EXC_ERROR;
99: end if;
100:
101: -- validate book is corporate and enabled and asset exists in book
102: if not fa_asset_val_pvt.validate_asset_book
103: (p_transaction_type_code => 'TRANSFER',
104: p_book_type_code => px_asset_hdr_rec.book_type_code,
105: p_asset_id => px_asset_hdr_rec.asset_id,
106: p_calling_fn => 'FA_TRANSFER_PUB.do_transfer', p_log_level_rec => g_log_level_rec) then
107: raise FND_API.G_EXC_ERROR;
108: end if;
109:
110: --Verify if impairment has happened in same period
111: if not FA_ASSET_VAL_PVT.validate_impairment_exists
113: p_book => px_asset_hdr_rec.book_type_code,
114: p_mrc_sob_type_code => 'P',
115: p_set_of_books_id => px_asset_hdr_rec.set_of_books_id,
116: p_log_level_rec => g_log_level_rec) then
117: raise FND_API.G_EXC_ERROR;
118: end if;
119: /*phase5 This function will validate if current transaction is overlapping to any previously done impairment*/
120:
121: --Add code for the 10328635
125: ,px_asset_fin_rec => l_asset_fin_rec
126: ,p_transaction_header_id => NULL
127: ,p_mrc_sob_type_code => 'P'
128: , p_log_level_rec => g_log_level_rec) then
129: raise FND_API.G_EXC_UNEXPECTED_ERROR;
130: end if;
131:
132: if (not fa_cache_pkg.fazccmt(l_asset_fin_rec.deprn_method_code,
133: l_asset_fin_rec.life_in_months, p_log_level_rec => g_log_level_rec)) then
134: if (g_log_level_rec.statement_level) then
135: fa_debug_pkg.add(p_calling_fn, 'Error calling', 'fa_cache_pkg.fazccmt', p_log_level_rec => g_log_level_rec);
136: end if;
137:
138: raise FND_API.G_EXC_UNEXPECTED_ERROR;
139: end if;
140:
141: --End code for the 10328635
142:
149: (name => 'FA_OVERLAPPING_IMP_NOT_ALLOWED',
150: calling_fn => 'FA_ASSET_VAL_PVT.check_overlapping_impairment'
151: ,p_log_level_rec => g_log_level_rec);
152:
153: raise FND_API.G_EXC_ERROR;
154: end if;
155: px_trans_rec.transaction_type_code := 'TRANSFER';
156: IF NOT FA_TRX_APPROVAL_PKG.faxcat(
157: X_book =>px_asset_hdr_rec.book_type_code,
158: X_asset_id =>px_asset_hdr_rec.asset_id,
159: X_trx_type =>px_trans_rec.transaction_type_code,
160: X_trx_date =>px_trans_rec.transaction_date_entered,
161: X_init_message_flag=> 'NO', p_log_level_rec => g_log_level_rec) then
162: raise FND_API.G_EXC_ERROR;
163: end if;
164:
165: if not fa_asset_val_pvt.validate_period_of_addition
166: (px_asset_hdr_rec.asset_id,
166: (px_asset_hdr_rec.asset_id,
167: px_asset_hdr_rec.book_type_code,
168: 'ABSOLUTE',
169: l_period_addition, p_log_level_rec => g_log_level_rec) then
170: RAISE FND_API.G_EXC_ERROR;
171: end if;
172: px_asset_hdr_rec.period_of_addition := l_period_addition;
173:
174: -- validate input
174: -- validate input
175: if not valid_input(px_trans_rec,
176: px_asset_hdr_rec,
177: g_log_level_rec) then
178: raise FND_API.G_EXC_ERROR;
179: end if;
180:
181: -- BUG# 3325400
182: -- forcing selection of the thid here rather
194: px_asset_hdr_rec => px_asset_hdr_rec,
195: px_asset_cat_rec_new => l_asset_cat_rec,
196: px_asset_dist_tbl => px_asset_dist_tbl,
197: p_validation_level => p_validation_level, p_log_level_rec => g_log_level_rec) then
198: raise FND_API.G_EXC_ERROR;
199: end if;
200:
201: /*
202: * Code hook for IAC
206: p_trans_rec => px_trans_rec,
207: p_asset_hdr_rec => px_asset_hdr_rec,
208: p_asset_cat_rec => l_asset_cat_rec,
209: p_calling_function =>'FA_TRANSFER_PUB.Do_Transfer') then
210: raise FND_API.G_EXC_ERROR;
211: end if;
212: end if; -- (FA_IGI_EXT_PKG.IAC_Enabled)
213:
214: -- call to workflow business event
226: if not fa_cse_callouts_pvt.transfer(
227: p_trans_rec => px_trans_rec,
228: p_asset_hdr_rec => px_asset_hdr_rec,
229: p_asset_dist_tbl => px_asset_dist_tbl) then
230: raise FND_API.G_EXC_ERROR;
231: end if;
232: end if;
233:
234:
232: end if;
233:
234:
235:
236: if (p_commit = FND_API.G_TRUE) then
237: COMMIT WORK;
238: end if;
239: /*
240: -- Return the status.
248: p_count => x_msg_count,
249: p_data => x_msg_data
250: );
251:
252: x_return_status := FND_API.G_RET_STS_SUCCESS;
253:
254:
255: EXCEPTION
256: WHEN FND_API.G_EXC_ERROR THEN
252: x_return_status := FND_API.G_RET_STS_SUCCESS;
253:
254:
255: EXCEPTION
256: WHEN FND_API.G_EXC_ERROR THEN
257: FA_SRVR_MSG.Add_Message(
258: calling_fn => 'FA_TRANSFER_PUB.do_transfer', p_log_level_rec => g_log_level_rec);
259:
260: FND_MSG_PUB.Count_And_Get(
261: p_count => x_msg_count,
262: p_data => x_msg_data
263: );
264: ROLLBACK TO transfer_pub;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266:
267: WHEN OTHERS THEN
268: FA_SRVR_MSG.add_sql_error(
269: calling_fn => 'FA_TRANSFER_PUB.do_transfer', p_log_level_rec => g_log_level_rec);
272: p_count => x_msg_count,
273: p_data => x_msg_data
274: );
275: ROLLBACK TO transfer_pub;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277:
278: END;
279:
280: FUNCTION valid_input(px_trans_rec IN OUT NOCOPY fa_api_types.trans_rec_type,