DBA Data[Home] [Help]

APPS.OKL_AM_PROCESS_RV_TRX_PVT dependencies on OKC_API

Line 69: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

65:
66: fnd_file.new_line(fnd_file.log,2);
67: fnd_file.new_line(fnd_file.output,2);
68:
69: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
70: fnd_file.put_line(fnd_file.log, 'MASS REBOOK Process Failed, None of the transactions got processed');
71: fnd_file.put_line(fnd_file.output, 'MASS REBOOK Process Failed, None of the transactions got processed');
72: END IF;
73:

Line 147: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

143: l_rbk_tbl rbk_tbl_type ;
144: lx_error_rec OKL_API.error_rec_type;
145: l_msg_idx INTEGER := FND_MSG_PUB.G_FIRST;
146:
147: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
148: l_api_name CONSTANT VARCHAR2(30) := 'process_transactions';
149:
150:
151: l_method_code fa_methods.method_code%TYPE;

Line 210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN

206: p_api_version,
207: '_PVT',
208: x_return_status);
209:
210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
213: RAISE OKC_API.G_EXCEPTION_ERROR;
214: END IF;

Line 211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

207: '_PVT',
208: x_return_status);
209:
210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
213: RAISE OKC_API.G_EXCEPTION_ERROR;
214: END IF;
215:

Line 212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN

208: x_return_status);
209:
210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
213: RAISE OKC_API.G_EXCEPTION_ERROR;
214: END IF;
215:
216:

Line 213: RAISE OKC_API.G_EXCEPTION_ERROR;

209:
210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
213: RAISE OKC_API.G_EXCEPTION_ERROR;
214: END IF;
215:
216:
217:

Line 227: l_transaction_status := OKC_API.G_RET_STS_SUCCESS;

223:
224: -- loop thru all the transactions in the OKL tables and process them
225: FOR l_assettrx_rec IN l_assettrx_csr(l_sysdate) LOOP
226:
227: l_transaction_status := OKC_API.G_RET_STS_SUCCESS;
228: l_total_count := l_total_count + 1;
229:
230:
231:

Line 234: OKC_API.set_message( p_app_name => 'OKL',

230:
231:
232: IF l_assettrx_rec.dnz_khr_id IS NULL OR l_assettrx_rec.dnz_khr_id = OKL_API.G_MISS_NUM THEN
233: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER because the Contract Id is missing.
234: OKC_API.set_message( p_app_name => 'OKL',
235: p_msg_name => 'OKL_AM_KHR_REQUIRED',
236: p_token1 => 'ASSET_NUMBER',
237: p_token1_value => l_assettrx_rec.asset_number);
238: l_transaction_status := OKC_API.G_RET_STS_ERROR;

Line 238: l_transaction_status := OKC_API.G_RET_STS_ERROR;

234: OKC_API.set_message( p_app_name => 'OKL',
235: p_msg_name => 'OKL_AM_KHR_REQUIRED',
236: p_token1 => 'ASSET_NUMBER',
237: p_token1_value => l_assettrx_rec.asset_number);
238: l_transaction_status := OKC_API.G_RET_STS_ERROR;
239:
240: ELSIF l_assettrx_rec.sts_code <> 'BOOKED' THEN
241: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER because the Contract is not booked
242: OKC_API.set_message( p_app_name => 'OKL',

Line 242: OKC_API.set_message( p_app_name => 'OKL',

238: l_transaction_status := OKC_API.G_RET_STS_ERROR;
239:
240: ELSIF l_assettrx_rec.sts_code <> 'BOOKED' THEN
241: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER because the Contract is not booked
242: OKC_API.set_message( p_app_name => 'OKL',
243: p_msg_name => 'OKL_AM_KHR_NOT_BOOKED',
244: p_token1 => 'ASSET_NUMBER',
245: p_token1_value => l_assettrx_rec.asset_number,
246: p_token2 => 'CONTRACT_NUMBER',

Line 249: l_transaction_status := OKC_API.G_RET_STS_ERROR;

245: p_token1_value => l_assettrx_rec.asset_number,
246: p_token2 => 'CONTRACT_NUMBER',
247: p_token2_value => l_assettrx_rec.contract_number);
248:
249: l_transaction_status := OKC_API.G_RET_STS_ERROR;
250:
251: ELSE
252:
253: OPEN l_quotes_csr(l_assettrx_rec.dnz_khr_id);

Line 266: l_transaction_status := OKC_API.G_RET_STS_ERROR;

262: p_token1_value => l_assettrx_rec.asset_number,
263: p_token2 => 'CONTRACT_NUMBER',
264: p_token2_value => l_assettrx_rec.contract_number);
265:
266: l_transaction_status := OKC_API.G_RET_STS_ERROR;
267:
268:
269: ELSE
270:

Line 275: p_init_msg_list => OKC_API.G_FALSE,

271: --Bug# 8756653
272: -- Check if contract has been upgraded for effective dated rebook
273: OKL_LLA_UTIL_PVT.check_rebook_upgrade
274: (p_api_version => p_api_version,
275: p_init_msg_list => OKC_API.G_FALSE,
276: x_return_status => l_return_status,
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data,
279: p_chr_id => l_assettrx_rec.dnz_khr_id);

Line 283: l_transaction_status := OKC_API.G_RET_STS_ERROR;

279: p_chr_id => l_assettrx_rec.dnz_khr_id);
280:
281: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
282:
283: l_transaction_status := OKC_API.G_RET_STS_ERROR;
284:
285: ELSE
286:
287: IF l_assettrx_rec.new_residual_value IS NULL OR l_assettrx_rec.new_residual_value = OKL_API.G_MISS_NUM THEN

Line 289: OKC_API.set_message( p_app_name => 'OKL',

285: ELSE
286:
287: IF l_assettrx_rec.new_residual_value IS NULL OR l_assettrx_rec.new_residual_value = OKL_API.G_MISS_NUM THEN
288: --Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER because the new residual value is missing.
289: OKC_API.set_message( p_app_name => 'OKL',
290: p_msg_name => 'OKL_AM_RV_REQUIRED',
291: p_token1 => 'ASSET_NUMBER',
292: p_token1_value => l_assettrx_rec.asset_number);
293:

Line 294: l_transaction_status := OKC_API.G_RET_STS_ERROR;

290: p_msg_name => 'OKL_AM_RV_REQUIRED',
291: p_token1 => 'ASSET_NUMBER',
292: p_token1_value => l_assettrx_rec.asset_number);
293:
294: l_transaction_status := OKC_API.G_RET_STS_ERROR;
295: ELSE
296:
297: l_rbk_tbl(1).khr_id := l_assettrx_rec.dnz_khr_id;
298: l_rbk_tbl(1).kle_id := l_assettrx_rec.kle_id;

Line 302: p_init_msg_list => OKC_API.G_FALSE,

298: l_rbk_tbl(1).kle_id := l_assettrx_rec.kle_id;
299:
300: okl_mass_rebook_pub.apply_mass_rebook(
301: p_api_version => p_api_version,
302: p_init_msg_list => OKC_API.G_FALSE,
303: x_return_status => l_return_status,
304: x_msg_count => x_msg_count,
305: x_msg_data => x_msg_data,
306: p_rbk_tbl => l_rbk_tbl,

Line 316: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

312: p_residual_value => l_assettrx_rec.new_residual_value,
313: p_strm_lalevl_tbl => l_strm_lalevl_empty_tbl);
314:
315:
316: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
317: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER.
318: OKC_API.set_message( p_app_name => 'OKL',
319: p_msg_name => 'OKL_AM_RVP_TRANS_FAILED',
320: p_token1 => 'ASSET_NUMBER',

Line 318: OKC_API.set_message( p_app_name => 'OKL',

314:
315:
316: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
317: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER.
318: OKC_API.set_message( p_app_name => 'OKL',
319: p_msg_name => 'OKL_AM_RVP_TRANS_FAILED',
320: p_token1 => 'ASSET_NUMBER',
321: p_token1_value => l_assettrx_rec.asset_number);
322: l_transaction_status := l_return_status;

Line 329: p_init_msg_list => OKC_API.G_FALSE,

325: lp_thpv_rec.id := l_assettrx_rec.id;
326: lp_thpv_rec.tsu_code := 'PROCESSED';
327: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
328: p_api_version => p_api_version,
329: p_init_msg_list => OKC_API.G_FALSE,
330: x_return_status => l_return_status,
331: x_msg_count => x_msg_count,
332: x_msg_data => x_msg_data,
333: p_thpv_rec => lp_thpv_rec,

Line 336: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

332: x_msg_data => x_msg_data,
333: p_thpv_rec => lp_thpv_rec,
334: x_thpv_rec => lx_thpv_rec);
335:
336: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
337: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
338: OKC_API.set_message( p_app_name => 'OKL',
339: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
340: p_token1 => 'STATUS',

Line 338: OKC_API.set_message( p_app_name => 'OKL',

334: x_thpv_rec => lx_thpv_rec);
335:
336: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
337: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
338: OKC_API.set_message( p_app_name => 'OKL',
339: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
340: p_token1 => 'STATUS',
341: p_token1_value => 'PROCESSED',
342: p_token2 => 'ASSET_NUMBER',

Line 347: OKC_API.set_message(

343: p_token2_value => l_assettrx_rec.asset_number);
344: ELSE
345: l_process_count := l_process_count + 1;
346: -- Residual Value Writedown transaction processed successfully for asset ASSET_NUMBER.
347: OKC_API.set_message(
348: p_app_name => 'OKL',
349: p_msg_name => 'OKL_AM_RVW_PROCESSED',
350: p_token1 => 'ASSET_NUMBER',
351: p_token1_value => l_assettrx_rec.asset_number);

Line 354: OKC_API.set_message(

350: p_token1 => 'ASSET_NUMBER',
351: p_token1_value => l_assettrx_rec.asset_number);
352:
353: -- Old Residual Value :
354: OKC_API.set_message(
355: p_app_name => 'OKL',
356: p_msg_name => 'OKL_AM_OLD_RESIDUAL_VALUE',
357: p_token1 => 'OLD_RV',
358: p_token1_value => l_assettrx_rec.old_residual_value);

Line 361: OKC_API.set_message(

357: p_token1 => 'OLD_RV',
358: p_token1_value => l_assettrx_rec.old_residual_value);
359:
360: -- New Residual Value :
361: OKC_API.set_message(
362: p_app_name => 'OKL',
363: p_msg_name => 'OKL_AM_NEW_RESIDUAL_VALUE',
364: p_token1 => 'NEW_RV',
365: p_token1_value => l_assettrx_rec.new_residual_value);

Line 373: IF l_transaction_status <> OKC_API.G_RET_STS_SUCCESS THEN

369: END IF;
370: END IF;
371: END IF;
372:
373: IF l_transaction_status <> OKC_API.G_RET_STS_SUCCESS THEN
374: -- update the staus (tsu_code) in okl_trx_assets_v
375: lp_thpv_rec.id := l_assettrx_rec.id;
376: lp_thpv_rec.tsu_code := 'ERROR';
377: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(

Line 379: p_init_msg_list => OKC_API.G_FALSE,

375: lp_thpv_rec.id := l_assettrx_rec.id;
376: lp_thpv_rec.tsu_code := 'ERROR';
377: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
378: p_api_version => p_api_version,
379: p_init_msg_list => OKC_API.G_FALSE,
380: x_return_status => l_return_status,
381: x_msg_count => x_msg_count,
382: x_msg_data => x_msg_data,
383: p_thpv_rec => lp_thpv_rec,

Line 386: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

382: x_msg_data => x_msg_data,
383: p_thpv_rec => lp_thpv_rec,
384: x_thpv_rec => lx_thpv_rec);
385:
386: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
387: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
388: OKC_API.set_message( p_app_name => 'OKL',
389: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
390: p_token1 => 'STATUS',

Line 388: OKC_API.set_message( p_app_name => 'OKL',

384: x_thpv_rec => lx_thpv_rec);
385:
386: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
387: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
388: OKC_API.set_message( p_app_name => 'OKL',
389: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
390: p_token1 => 'STATUS',
391: p_token1_value => 'ERROR',
392: p_token2 => 'ASSET_NUMBER',

Line 439: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

435: x_total_count := l_total_count;
436: x_processed_count := l_process_count;
437: x_error_count := l_total_count - l_process_count;
438:
439: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
440:
441: EXCEPTION
442:
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN

Line 443: WHEN OKC_API.G_EXCEPTION_ERROR THEN

439: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
440:
441: EXCEPTION
442:
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
444:
445: IF l_assettrx_csr%ISOPEN THEN
446: CLOSE l_assettrx_csr;
447: END IF;

Line 451: x_return_status := OKC_API.HANDLE_EXCEPTIONS

447: END IF;
448: IF l_quotes_csr%ISOPEN THEN
449: CLOSE l_quotes_csr;
450: END IF;
451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
452: (
453: l_api_name,
454: G_PKG_NAME,
455: 'OKC_API.G_RET_STS_ERROR',

Line 455: 'OKC_API.G_RET_STS_ERROR',

451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
452: (
453: l_api_name,
454: G_PKG_NAME,
455: 'OKC_API.G_RET_STS_ERROR',
456: x_msg_count,
457: x_msg_data,
458: '_PVT'
459: );

Line 460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

456: x_msg_count,
457: x_msg_data,
458: '_PVT'
459: );
460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
461:
462: IF l_assettrx_csr%ISOPEN THEN
463: CLOSE l_assettrx_csr;
464: END IF;

Line 468: x_return_status :=OKC_API.HANDLE_EXCEPTIONS

464: END IF;
465: IF l_quotes_csr%ISOPEN THEN
466: CLOSE l_quotes_csr;
467: END IF;
468: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
469: (
470: l_api_name,
471: G_PKG_NAME,
472: 'OKC_API.G_RET_STS_UNEXP_ERROR',

Line 472: 'OKC_API.G_RET_STS_UNEXP_ERROR',

468: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
469: (
470: l_api_name,
471: G_PKG_NAME,
472: 'OKC_API.G_RET_STS_UNEXP_ERROR',
473: x_msg_count,
474: x_msg_data,
475: '_PVT'
476: );

Line 485: x_return_status :=OKC_API.HANDLE_EXCEPTIONS

481: END IF;
482: IF l_quotes_csr%ISOPEN THEN
483: CLOSE l_quotes_csr;
484: END IF;
485: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
486: (
487: l_api_name,
488: G_PKG_NAME,
489: 'OTHERS',