DBA Data[Home] [Help]

APPS.OKL_AM_SV_WRITEDOWN_PVT dependencies on OKL_API

Line 34: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

30: SUBTYPE thpv_rec_type IS okl_trx_assets_pub.thpv_rec_type;
31: SUBTYPE tlpv_rec_type IS okl_txl_assets_pub.tlpv_rec_type;
32:
33:
34: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
35: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
36: l_record_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
37:
38: l_api_name CONSTANT VARCHAR2(30) := 'create_salvage_value_trx';

Line 35: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

31: SUBTYPE tlpv_rec_type IS okl_txl_assets_pub.tlpv_rec_type;
32:
33:
34: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
35: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
36: l_record_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
37:
38: l_api_name CONSTANT VARCHAR2(30) := 'create_salvage_value_trx';
39: l_api_version CONSTANT NUMBER := 1;

Line 36: l_record_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

32:
33:
34: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
35: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
36: l_record_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
37:
38: l_api_name CONSTANT VARCHAR2(30) := 'create_salvage_value_trx';
39: l_api_version CONSTANT NUMBER := 1;
40:

Line 103: l_record_status := OKL_API.G_RET_STS_SUCCESS;

99: -- Legal Entity Changes End
100:
101: BEGIN
102:
103: l_record_status := OKL_API.G_RET_STS_SUCCESS;
104:
105:
106: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
107: G_PKG_NAME,

Line 106: l_return_status := OKL_API.START_ACTIVITY(l_api_name,

102:
103: l_record_status := OKL_API.G_RET_STS_SUCCESS;
104:
105:
106: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
107: G_PKG_NAME,
108: p_init_msg_list,
109: l_api_version,
110: p_api_version,

Line 115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

111: '_PVT',
112: x_return_status);
113:
114:
115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;

Line 116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

112: x_return_status);
113:
114:
115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:

Line 117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN

113:
114:
115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: SELECT SYSDATE INTO l_sysdate FROM dual;

Line 118: RAISE OKL_API.G_EXCEPTION_ERROR;

114:
115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: SELECT SYSDATE INTO l_sysdate FROM dual;
122:

Line 130: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

126: okl_am_util_pvt.get_transaction_id(p_try_name => 'Fixed Asset Salvage Change',
127: x_return_status => x_return_status,
128: x_try_id => l_try_id);
129:
130: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
131: -- Unable to find a transaction type for this transaction
132: OKL_API.set_message(p_app_name => 'OKL',
133: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
134: p_token1 => 'TRY_NAME',

Line 132: OKL_API.set_message(p_app_name => 'OKL',

128: x_try_id => l_try_id);
129:
130: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
131: -- Unable to find a transaction type for this transaction
132: OKL_API.set_message(p_app_name => 'OKL',
133: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
134: p_token1 => 'TRY_NAME',
135: p_token1_value => 'Fixed Asset Salvage Change');
136: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 150: IF p_assets_tbl(i).p_cle_id IS NULL OR p_assets_tbl(i).p_cle_id = OKL_API.G_MISS_NUM THEN

146: -- create salvage value writedown transactions (FSC/FSL) in OKL tables.
147: LOOP
148:
149:
150: IF p_assets_tbl(i).p_cle_id IS NULL OR p_assets_tbl(i).p_cle_id = OKL_API.G_MISS_NUM THEN
151: l_record_status := OKL_API.G_RET_STS_ERROR;
152: -- cle_id is required
153: OKC_API.set_message( p_app_name => 'OKC',
154: p_msg_name => G_REQUIRED_VALUE,

Line 151: l_record_status := OKL_API.G_RET_STS_ERROR;

147: LOOP
148:
149:
150: IF p_assets_tbl(i).p_cle_id IS NULL OR p_assets_tbl(i).p_cle_id = OKL_API.G_MISS_NUM THEN
151: l_record_status := OKL_API.G_RET_STS_ERROR;
152: -- cle_id is required
153: OKC_API.set_message( p_app_name => 'OKC',
154: p_msg_name => G_REQUIRED_VALUE,
155: p_token1 => G_COL_NAME_TOKEN,

Line 163: l_record_status := OKL_API.G_RET_STS_ERROR;

159: -- Check if a pending transaction already exists for this financial asset
160: OPEN l_assettrx_csr(p_assets_tbl(i).p_cle_id);
161: FETCH l_assettrx_csr INTO l_asset_number;
162: IF l_assettrx_csr%FOUND THEN
163: l_record_status := OKL_API.G_RET_STS_ERROR;
164: -- Asset failed because a pending salvage value writedown transaction already exists for the financial asset
165: OKL_API.set_message(
166: p_app_name => 'OKL',
167: p_msg_name => 'OKL_AM_SVW_TRX_EXISTS',

Line 165: OKL_API.set_message(

161: FETCH l_assettrx_csr INTO l_asset_number;
162: IF l_assettrx_csr%FOUND THEN
163: l_record_status := OKL_API.G_RET_STS_ERROR;
164: -- Asset failed because a pending salvage value writedown transaction already exists for the financial asset
165: OKL_API.set_message(
166: p_app_name => 'OKL',
167: p_msg_name => 'OKL_AM_SVW_TRX_EXISTS',
168: p_token1 => 'ASSET_NUMBER',
169: p_token1_value => l_asset_number);

Line 177: l_record_status := OKL_API.G_RET_STS_ERROR;

173: -- Check if an accepted termination quote exists for this line
174: OPEN l_quotes_csr(p_assets_tbl(i).p_cle_id);
175: FETCH l_quotes_csr INTO l_asset_number;
176: IF l_quotes_csr%FOUND THEN
177: l_record_status := OKL_API.G_RET_STS_ERROR;
178: -- Can not change Salvage value for asset ASSET_NUMBER as an accepted termination quote exists for this asset.
179: OKL_API.set_message( p_app_name => 'OKL',
180: p_msg_name => 'OKL_AM_SVW_NOT_ALLOWED',
181: p_token1 => 'ASSET_NUMBER',

Line 179: OKL_API.set_message( p_app_name => 'OKL',

175: FETCH l_quotes_csr INTO l_asset_number;
176: IF l_quotes_csr%FOUND THEN
177: l_record_status := OKL_API.G_RET_STS_ERROR;
178: -- Can not change Salvage value for asset ASSET_NUMBER as an accepted termination quote exists for this asset.
179: OKL_API.set_message( p_app_name => 'OKL',
180: p_msg_name => 'OKL_AM_SVW_NOT_ALLOWED',
181: p_token1 => 'ASSET_NUMBER',
182: p_token1_value => l_asset_number);
183: ELSE

Line 192: l_record_status := OKL_API.G_RET_STS_ERROR;

188:
189:
190: IF l_assetlinesv_csr%NOTFOUND THEN
191:
192: l_record_status := OKL_API.G_RET_STS_ERROR;
193:
194: -- asset_number is invalid
195: OKC_API.set_message( p_app_name => 'OKC',
196: p_msg_name => G_INVALID_VALUE,

Line 203: ELSIF p_assets_tbl(i).p_new_salvage_value IS NULL OR p_assets_tbl(i).p_new_salvage_value = OKL_API.G_MISS_NUM THEN

199:
200:
201:
202:
203: ELSIF p_assets_tbl(i).p_new_salvage_value IS NULL OR p_assets_tbl(i).p_new_salvage_value = OKL_API.G_MISS_NUM THEN
204:
205: l_record_status := OKL_API.G_RET_STS_ERROR;
206: --Asset failed because the new Salvage Value is missing
207: OKL_API.set_message( p_app_name => 'OKL',

Line 205: l_record_status := OKL_API.G_RET_STS_ERROR;

201:
202:
203: ELSIF p_assets_tbl(i).p_new_salvage_value IS NULL OR p_assets_tbl(i).p_new_salvage_value = OKL_API.G_MISS_NUM THEN
204:
205: l_record_status := OKL_API.G_RET_STS_ERROR;
206: --Asset failed because the new Salvage Value is missing
207: OKL_API.set_message( p_app_name => 'OKL',
208: p_msg_name => 'OKL_AM_NO_NEW_SALVAGE_VALUE',
209: p_token1 => 'ASSET_NUMBER',

Line 207: OKL_API.set_message( p_app_name => 'OKL',

203: ELSIF p_assets_tbl(i).p_new_salvage_value IS NULL OR p_assets_tbl(i).p_new_salvage_value = OKL_API.G_MISS_NUM THEN
204:
205: l_record_status := OKL_API.G_RET_STS_ERROR;
206: --Asset failed because the new Salvage Value is missing
207: OKL_API.set_message( p_app_name => 'OKL',
208: p_msg_name => 'OKL_AM_NO_NEW_SALVAGE_VALUE',
209: p_token1 => 'ASSET_NUMBER',
210: p_token1_value => l_asset_number);
211:

Line 214: l_record_status := OKL_API.G_RET_STS_ERROR;

210: p_token1_value => l_asset_number);
211:
212: ELSIF p_assets_tbl(i).p_new_salvage_value < 0 THEN
213:
214: l_record_status := OKL_API.G_RET_STS_ERROR;
215: -- Asset failed because the new Salvage Value is negative
216: OKL_API.set_message( p_app_name => 'OKL',
217: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
218: p_token1 => 'ASSET_NUMBER',

Line 216: OKL_API.set_message( p_app_name => 'OKL',

212: ELSIF p_assets_tbl(i).p_new_salvage_value < 0 THEN
213:
214: l_record_status := OKL_API.G_RET_STS_ERROR;
215: -- Asset failed because the new Salvage Value is negative
216: OKL_API.set_message( p_app_name => 'OKL',
217: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
218: p_token1 => 'ASSET_NUMBER',
219: p_token1_value => l_asset_number);
220:

Line 226: l_record_status := OKL_API.G_RET_STS_ERROR;

222:
223:
224:
225: IF l_old_salvage_value IS NULL THEN
226: l_record_status := OKL_API.G_RET_STS_ERROR;
227: -- Asset failed because the old Salvage Value is missing
228: OKL_API.set_message( p_app_name => 'OKL',
229: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
230: p_token1 => 'ASSET_NUMBER',

Line 228: OKL_API.set_message( p_app_name => 'OKL',

224:
225: IF l_old_salvage_value IS NULL THEN
226: l_record_status := OKL_API.G_RET_STS_ERROR;
227: -- Asset failed because the old Salvage Value is missing
228: OKL_API.set_message( p_app_name => 'OKL',
229: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
230: p_token1 => 'ASSET_NUMBER',
231: p_token1_value => l_asset_number);
232:

Line 242: l_record_status := OKL_API.G_RET_STS_ERROR;

238: FETCH l_oklheaders_csr into l_legal_entity_id;
239: CLOSE l_oklheaders_csr;
240:
241: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
242: l_record_status := OKL_API.G_RET_STS_ERROR;
243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
244: p_msg_name => g_required_value,
245: p_token1 => g_col_name_token,
246: p_token1_value => 'legal_entity_id');

Line 243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,

239: CLOSE l_oklheaders_csr;
240:
241: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
242: l_record_status := OKL_API.G_RET_STS_ERROR;
243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
244: p_msg_name => g_required_value,
245: p_token1 => g_col_name_token,
246: p_token1_value => 'legal_entity_id');
247: RAISE OKC_API.G_EXCEPTION_ERROR;

Line 260: p_init_msg_list => OKL_API.G_FALSE,

256:
257: -- create transaction header
258: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
259: p_api_version => p_api_version,
260: p_init_msg_list => OKL_API.G_FALSE,
261: x_return_status => l_record_status,
262: x_msg_count => x_msg_count,
263: x_msg_data => x_msg_data,
264: p_thpv_rec => lp_thpv_rec,

Line 267: IF l_record_status = OKL_API.G_RET_STS_SUCCESS THEN

263: x_msg_data => x_msg_data,
264: p_thpv_rec => lp_thpv_rec,
265: x_thpv_rec => lx_thpv_rec);
266:
267: IF l_record_status = OKL_API.G_RET_STS_SUCCESS THEN
268:
269: --SECHAWLA 03-JAN-03 2683876 Pass the currency code if creating/updating amounts in txl assets
270: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
271: lp_tlpv_rec.currency_code := l_func_curr_code;

Line 290: p_init_msg_list => OKL_API.G_FALSE,

286: lp_tlpv_rec.dnz_khr_id := l_dnz_chr_id;
287:
288: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
289: p_api_version => p_api_version,
290: p_init_msg_list => OKL_API.G_FALSE,
291: x_return_status => l_record_status,
292: x_msg_count => x_msg_count,
293: x_msg_data => x_msg_data,
294: p_tlpv_rec => lp_tlpv_rec,

Line 299: l_record_status := OKL_API.G_RET_STS_ERROR;

295: x_tlpv_rec => lx_tlpv_rec);
296: END IF;
297:
298: ELSIF p_assets_tbl(i).p_new_salvage_value = l_old_salvage_value THEN
299: l_record_status := OKL_API.G_RET_STS_ERROR;
300: -- Asset failed because the new Salvage Value is not lower than the old value.
301: OKL_API.set_message( p_app_name => 'OKL',
302: p_msg_name => 'OKL_AM_SAME_SALVAGE_VALUE',
303: p_token1 => 'ASSET_NUMBER',

Line 301: OKL_API.set_message( p_app_name => 'OKL',

297:
298: ELSIF p_assets_tbl(i).p_new_salvage_value = l_old_salvage_value THEN
299: l_record_status := OKL_API.G_RET_STS_ERROR;
300: -- Asset failed because the new Salvage Value is not lower than the old value.
301: OKL_API.set_message( p_app_name => 'OKL',
302: p_msg_name => 'OKL_AM_SAME_SALVAGE_VALUE',
303: p_token1 => 'ASSET_NUMBER',
304: p_token1_value => l_asset_number);
305: ELSE -- if new sv > old sv

Line 307: l_record_status := OKL_API.G_RET_STS_ERROR;

303: p_token1 => 'ASSET_NUMBER',
304: p_token1_value => l_asset_number);
305: ELSE -- if new sv > old sv
306:
307: l_record_status := OKL_API.G_RET_STS_ERROR;
308: -- Asset failed because the new Salvage Value is not lower than the old value.
309: OKL_API.set_message(
310: p_app_name => 'OKL',
311: p_msg_name => 'OKL_AM_INVALID_SALVAGE_VALUE',

Line 309: OKL_API.set_message(

305: ELSE -- if new sv > old sv
306:
307: l_record_status := OKL_API.G_RET_STS_ERROR;
308: -- Asset failed because the new Salvage Value is not lower than the old value.
309: OKL_API.set_message(
310: p_app_name => 'OKL',
311: p_msg_name => 'OKL_AM_INVALID_SALVAGE_VALUE',
312: p_token1 => 'ASSET_NUMBER',
313: p_token1_value => l_asset_number);

Line 331: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

327: CLOSE l_assettrx_csr;
328:
329: END IF;
330: -- If it reaches this point for the current record, that means x_return_status is SUCCESS
331: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
332: IF l_record_status <> OKL_API.G_RET_STS_SUCCESS THEN
333: l_overall_status := OKL_API.G_RET_STS_ERROR;
334: END IF;
335: END IF;

Line 332: IF l_record_status <> OKL_API.G_RET_STS_SUCCESS THEN

328:
329: END IF;
330: -- If it reaches this point for the current record, that means x_return_status is SUCCESS
331: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
332: IF l_record_status <> OKL_API.G_RET_STS_SUCCESS THEN
333: l_overall_status := OKL_API.G_RET_STS_ERROR;
334: END IF;
335: END IF;
336:

Line 333: l_overall_status := OKL_API.G_RET_STS_ERROR;

329: END IF;
330: -- If it reaches this point for the current record, that means x_return_status is SUCCESS
331: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
332: IF l_record_status <> OKL_API.G_RET_STS_SUCCESS THEN
333: l_overall_status := OKL_API.G_RET_STS_ERROR;
334: END IF;
335: END IF;
336:
337:

Line 349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);

345:
346: END IF;
347:
348:
349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
350:
351: EXCEPTION
352: WHEN OKL_API.G_EXCEPTION_ERROR THEN
353:

Line 352: WHEN OKL_API.G_EXCEPTION_ERROR THEN

348:
349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
350:
351: EXCEPTION
352: WHEN OKL_API.G_EXCEPTION_ERROR THEN
353:
354:
355: IF l_assetlinesv_csr%ISOPEN THEN
356: CLOSE l_assetlinesv_csr;

Line 374: x_return_status := OKL_API.HANDLE_EXCEPTIONS

370: CLOSE l_oklheaders_csr;
371: END IF;
372: -- Legal Entity Changes End
373:
374: x_return_status := OKL_API.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
378: 'OKL_API.G_RET_STS_ERROR',

Line 378: 'OKL_API.G_RET_STS_ERROR',

374: x_return_status := OKL_API.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
378: 'OKL_API.G_RET_STS_ERROR',
379: x_msg_count,
380: x_msg_data,
381: '_PVT'
382: );

Line 383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

379: x_msg_count,
380: x_msg_data,
381: '_PVT'
382: );
383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
384:
385:
386: IF l_assetlinesv_csr%ISOPEN THEN
387: CLOSE l_assetlinesv_csr;

Line 404: x_return_status :=OKL_API.HANDLE_EXCEPTIONS

400: CLOSE l_oklheaders_csr;
401: END IF;
402: -- Legal Entity Changes End
403:
404: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
405: (
406: l_api_name,
407: G_PKG_NAME,
408: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 408: 'OKL_API.G_RET_STS_UNEXP_ERROR',

404: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
405: (
406: l_api_name,
407: G_PKG_NAME,
408: 'OKL_API.G_RET_STS_UNEXP_ERROR',
409: x_msg_count,
410: x_msg_data,
411: '_PVT'
412: );

Line 433: x_return_status :=OKL_API.HANDLE_EXCEPTIONS

429: CLOSE l_oklheaders_csr;
430: END IF;
431: -- Legal Entity Changes End
432:
433: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
434: (
435: l_api_name,
436: G_PKG_NAME,
437: 'OTHERS',