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 273: OKC_API.set_message( p_app_name => 'OKL',

269: ELSE
270:
271: IF l_assettrx_rec.new_residual_value IS NULL OR l_assettrx_rec.new_residual_value = OKL_API.G_MISS_NUM THEN
272: --Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER because the new residual value is missing.
273: OKC_API.set_message( p_app_name => 'OKL',
274: p_msg_name => 'OKL_AM_RV_REQUIRED',
275: p_token1 => 'ASSET_NUMBER',
276: p_token1_value => l_assettrx_rec.asset_number);
277:

Line 278: l_transaction_status := OKC_API.G_RET_STS_ERROR;

274: p_msg_name => 'OKL_AM_RV_REQUIRED',
275: p_token1 => 'ASSET_NUMBER',
276: p_token1_value => l_assettrx_rec.asset_number);
277:
278: l_transaction_status := OKC_API.G_RET_STS_ERROR;
279: ELSE
280:
281: l_rbk_tbl(1).khr_id := l_assettrx_rec.dnz_khr_id;
282: l_rbk_tbl(1).kle_id := l_assettrx_rec.kle_id;

Line 286: p_init_msg_list => OKC_API.G_FALSE,

282: l_rbk_tbl(1).kle_id := l_assettrx_rec.kle_id;
283:
284: okl_mass_rebook_pub.apply_mass_rebook(
285: p_api_version => p_api_version,
286: p_init_msg_list => OKC_API.G_FALSE,
287: x_return_status => l_return_status,
288: x_msg_count => x_msg_count,
289: x_msg_data => x_msg_data,
290: p_rbk_tbl => l_rbk_tbl,

Line 300: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

296: p_residual_value => l_assettrx_rec.new_residual_value,
297: p_strm_lalevl_tbl => l_strm_lalevl_empty_tbl);
298:
299:
300: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
301: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER.
302: OKC_API.set_message( p_app_name => 'OKL',
303: p_msg_name => 'OKL_AM_RVP_TRANS_FAILED',
304: p_token1 => 'ASSET_NUMBER',

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

298:
299:
300: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
301: -- Residual Value Writedown transaction could not be processed for asset ASSET_NUMBER.
302: OKC_API.set_message( p_app_name => 'OKL',
303: p_msg_name => 'OKL_AM_RVP_TRANS_FAILED',
304: p_token1 => 'ASSET_NUMBER',
305: p_token1_value => l_assettrx_rec.asset_number);
306: l_transaction_status := l_return_status;

Line 313: p_init_msg_list => OKC_API.G_FALSE,

309: lp_thpv_rec.id := l_assettrx_rec.id;
310: lp_thpv_rec.tsu_code := 'PROCESSED';
311: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
312: p_api_version => p_api_version,
313: p_init_msg_list => OKC_API.G_FALSE,
314: x_return_status => l_return_status,
315: x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data,
317: p_thpv_rec => lp_thpv_rec,

Line 320: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

316: x_msg_data => x_msg_data,
317: p_thpv_rec => lp_thpv_rec,
318: x_thpv_rec => lx_thpv_rec);
319:
320: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
321: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
322: OKC_API.set_message( p_app_name => 'OKL',
323: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
324: p_token1 => 'STATUS',

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

318: x_thpv_rec => lx_thpv_rec);
319:
320: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
321: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
322: OKC_API.set_message( p_app_name => 'OKL',
323: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
324: p_token1 => 'STATUS',
325: p_token1_value => 'PROCESSED',
326: p_token2 => 'ASSET_NUMBER',

Line 331: OKC_API.set_message(

327: p_token2_value => l_assettrx_rec.asset_number);
328: ELSE
329: l_process_count := l_process_count + 1;
330: -- Residual Value Writedown transaction processed successfully for asset ASSET_NUMBER.
331: OKC_API.set_message(
332: p_app_name => 'OKL',
333: p_msg_name => 'OKL_AM_RVW_PROCESSED',
334: p_token1 => 'ASSET_NUMBER',
335: p_token1_value => l_assettrx_rec.asset_number);

Line 338: OKC_API.set_message(

334: p_token1 => 'ASSET_NUMBER',
335: p_token1_value => l_assettrx_rec.asset_number);
336:
337: -- Old Residual Value :
338: OKC_API.set_message(
339: p_app_name => 'OKL',
340: p_msg_name => 'OKL_AM_OLD_RESIDUAL_VALUE',
341: p_token1 => 'OLD_RV',
342: p_token1_value => l_assettrx_rec.old_residual_value);

Line 345: OKC_API.set_message(

341: p_token1 => 'OLD_RV',
342: p_token1_value => l_assettrx_rec.old_residual_value);
343:
344: -- New Residual Value :
345: OKC_API.set_message(
346: p_app_name => 'OKL',
347: p_msg_name => 'OKL_AM_NEW_RESIDUAL_VALUE',
348: p_token1 => 'NEW_RV',
349: p_token1_value => l_assettrx_rec.new_residual_value);

Line 356: IF l_transaction_status <> OKC_API.G_RET_STS_SUCCESS THEN

352: END IF;
353: END IF;
354: END IF;
355:
356: IF l_transaction_status <> OKC_API.G_RET_STS_SUCCESS THEN
357: -- update the staus (tsu_code) in okl_trx_assets_v
358: lp_thpv_rec.id := l_assettrx_rec.id;
359: lp_thpv_rec.tsu_code := 'ERROR';
360: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(

Line 362: p_init_msg_list => OKC_API.G_FALSE,

358: lp_thpv_rec.id := l_assettrx_rec.id;
359: lp_thpv_rec.tsu_code := 'ERROR';
360: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
361: p_api_version => p_api_version,
362: p_init_msg_list => OKC_API.G_FALSE,
363: x_return_status => l_return_status,
364: x_msg_count => x_msg_count,
365: x_msg_data => x_msg_data,
366: p_thpv_rec => lp_thpv_rec,

Line 369: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN

365: x_msg_data => x_msg_data,
366: p_thpv_rec => lp_thpv_rec,
367: x_thpv_rec => lx_thpv_rec);
368:
369: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
370: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
371: OKC_API.set_message( p_app_name => 'OKL',
372: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
373: p_token1 => 'STATUS',

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

367: x_thpv_rec => lx_thpv_rec);
368:
369: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
370: -- Transaction status STATUS could not be updated in OKL for asset ASSET_NUMBER
371: OKC_API.set_message( p_app_name => 'OKL',
372: p_msg_name => 'OKL_AM_TRXASSET_UPD_FAILED',
373: p_token1 => 'STATUS',
374: p_token1_value => 'ERROR',
375: p_token2 => 'ASSET_NUMBER',

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

418: x_total_count := l_total_count;
419: x_processed_count := l_process_count;
420: x_error_count := l_total_count - l_process_count;
421:
422: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
423:
424: EXCEPTION
425:
426: WHEN OKC_API.G_EXCEPTION_ERROR THEN

Line 426: WHEN OKC_API.G_EXCEPTION_ERROR THEN

422: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
423:
424: EXCEPTION
425:
426: WHEN OKC_API.G_EXCEPTION_ERROR THEN
427:
428: IF l_assettrx_csr%ISOPEN THEN
429: CLOSE l_assettrx_csr;
430: END IF;

Line 434: x_return_status := OKC_API.HANDLE_EXCEPTIONS

430: END IF;
431: IF l_quotes_csr%ISOPEN THEN
432: CLOSE l_quotes_csr;
433: END IF;
434: x_return_status := OKC_API.HANDLE_EXCEPTIONS
435: (
436: l_api_name,
437: G_PKG_NAME,
438: 'OKC_API.G_RET_STS_ERROR',

Line 438: 'OKC_API.G_RET_STS_ERROR',

434: x_return_status := OKC_API.HANDLE_EXCEPTIONS
435: (
436: l_api_name,
437: G_PKG_NAME,
438: 'OKC_API.G_RET_STS_ERROR',
439: x_msg_count,
440: x_msg_data,
441: '_PVT'
442: );

Line 443: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

439: x_msg_count,
440: x_msg_data,
441: '_PVT'
442: );
443: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',

Line 455: 'OKC_API.G_RET_STS_UNEXP_ERROR',

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

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: 'OTHERS',