29: x_salvage_value OUT NOCOPY NUMBER,
30: x_recoverable_cost OUT NOCOPY NUMBER,
31: x_adj_recoverable_cost OUT NOCOPY NUMBER) is
32:
33: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
34: l_api_name CONSTANT varchar2(30) := 'CONVERT_FA_AMOUNTS';
35: l_api_version CONSTANT NUMBER := 1.0;
36:
37:
87: l_adj_recoverable_cost NUMBER;
88:
89: l_inv_conv_rate NUMBER;
90: begin
91: x_return_status := OKL_API.G_RET_STS_SUCCESS;
92: -- Call start_activity to create savepoint, check compatibility
93: -- and initialize message list
94: x_return_status := OKL_API.START_ACTIVITY (
95: l_api_name
90: begin
91: x_return_status := OKL_API.G_RET_STS_SUCCESS;
92: -- Call start_activity to create savepoint, check compatibility
93: -- and initialize message list
94: x_return_status := OKL_API.START_ACTIVITY (
95: l_api_name
96: ,p_init_msg_list
97: ,'_PVT'
98: ,x_return_status);
96: ,p_init_msg_list
97: ,'_PVT'
98: ,x_return_status);
99: -- Check if activity started successfully
100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
103: RAISE OKL_API.G_EXCEPTION_ERROR;
104: END IF;
97: ,'_PVT'
98: ,x_return_status);
99: -- Check if activity started successfully
100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
103: RAISE OKL_API.G_EXCEPTION_ERROR;
104: END IF;
105:
98: ,x_return_status);
99: -- Check if activity started successfully
100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
103: RAISE OKL_API.G_EXCEPTION_ERROR;
104: END IF;
105:
106: open conv_params_csr(p_asset_id);
99: -- Check if activity started successfully
100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
103: RAISE OKL_API.G_EXCEPTION_ERROR;
104: END IF;
105:
106: open conv_params_csr(p_asset_id);
107: Fetch conv_params_csr into l_conv_params_rec;
200: x_salvage_value := l_salvage_value;
201: x_recoverable_cost := l_recoverable_cost;
202: x_adj_recoverable_cost := l_adj_recoverable_cost;
203:
204: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
205: EXCEPTION
206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
208: l_api_name,
202: x_adj_recoverable_cost := l_adj_recoverable_cost;
203:
204: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
205: EXCEPTION
206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
208: l_api_name,
209: G_PKG_NAME,
210: 'OKL_API.G_RET_STS_ERROR',
203:
204: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
205: EXCEPTION
206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
208: l_api_name,
209: G_PKG_NAME,
210: 'OKL_API.G_RET_STS_ERROR',
211: x_msg_count,
206: WHEN OKL_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
208: l_api_name,
209: G_PKG_NAME,
210: 'OKL_API.G_RET_STS_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PVT');
214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
210: 'OKL_API.G_RET_STS_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PVT');
214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
216: l_api_name,
217: G_PKG_NAME,
218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PVT');
214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
216: l_api_name,
217: G_PKG_NAME,
218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count,
214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
216: l_api_name,
217: G_PKG_NAME,
218: 'OKL_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count,
220: x_msg_data,
221: '_PVT');
222: WHEN OTHERS THEN
219: x_msg_count,
220: x_msg_data,
221: '_PVT');
222: WHEN OTHERS THEN
223: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
224: l_api_name,
225: G_PKG_NAME,
226: 'OTHERS',
227: x_msg_count,
256: x_salvage_value OUT NOCOPY NUMBER,
257: x_recoverable_cost OUT NOCOPY NUMBER,
258: x_adj_recoverable_cost OUT NOCOPY NUMBER) is
259:
260: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
261: l_api_name CONSTANT varchar2(30) := 'CONVERT_FA_AMOUNTS';
262: l_api_version CONSTANT NUMBER := 1.0;
263:
264:
295: l_recoverable_cost NUMBER;
296: l_adj_recoverable_cost NUMBER;
297:
298: Begin
299: x_return_status := OKL_API.G_RET_STS_SUCCESS;
300: -- Call start_activity to create savepoint, check compatibility
301: -- and initialize message list
302: x_return_status := OKL_API.START_ACTIVITY (
303: l_api_name
298: Begin
299: x_return_status := OKL_API.G_RET_STS_SUCCESS;
300: -- Call start_activity to create savepoint, check compatibility
301: -- and initialize message list
302: x_return_status := OKL_API.START_ACTIVITY (
303: l_api_name
304: ,p_init_msg_list
305: ,'_PVT'
306: ,x_return_status);
304: ,p_init_msg_list
305: ,'_PVT'
306: ,x_return_status);
307: -- Check if activity started successfully
308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_ERROR;
312: END IF;
305: ,'_PVT'
306: ,x_return_status);
307: -- Check if activity started successfully
308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_ERROR;
312: END IF;
313:
306: ,x_return_status);
307: -- Check if activity started successfully
308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_ERROR;
312: END IF;
313:
314: --get fixed asset
307: -- Check if activity started successfully
308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
311: RAISE OKL_API.G_EXCEPTION_ERROR;
312: END IF;
313:
314: --get fixed asset
315: Open fixed_Ast_csr(p_fin_ast_id);
342: x_salvage_value => l_salvage_value,
343: x_recoverable_cost => l_recoverable_cost,
344: x_adj_recoverable_cost => l_adj_recoverable_cost);
345: -- Check if activity started successfully
346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_ERROR;
350: END IF;
343: x_recoverable_cost => l_recoverable_cost,
344: x_adj_recoverable_cost => l_adj_recoverable_cost);
345: -- Check if activity started successfully
346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_ERROR;
350: END IF;
351:
344: x_adj_recoverable_cost => l_adj_recoverable_cost);
345: -- Check if activity started successfully
346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_ERROR;
350: END IF;
351:
352: x_cost := l_cost;
345: -- Check if activity started successfully
346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
349: RAISE OKL_API.G_EXCEPTION_ERROR;
350: END IF;
351:
352: x_cost := l_cost;
353: x_adj_cost := l_adj_cost;
355: x_salvage_value := l_salvage_value;
356: x_recoverable_cost := l_recoverable_cost;
357: x_adj_recoverable_cost := l_adj_recoverable_cost;
358:
359: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
360: EXCEPTION
361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
363: l_api_name,
357: x_adj_recoverable_cost := l_adj_recoverable_cost;
358:
359: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
360: EXCEPTION
361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
363: l_api_name,
364: G_PKG_NAME,
365: 'OKL_API.G_RET_STS_ERROR',
358:
359: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
360: EXCEPTION
361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
363: l_api_name,
364: G_PKG_NAME,
365: 'OKL_API.G_RET_STS_ERROR',
366: x_msg_count,
361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
363: l_api_name,
364: G_PKG_NAME,
365: 'OKL_API.G_RET_STS_ERROR',
366: x_msg_count,
367: x_msg_data,
368: '_PVT');
369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
365: 'OKL_API.G_RET_STS_ERROR',
366: x_msg_count,
367: x_msg_data,
368: '_PVT');
369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
371: l_api_name,
372: G_PKG_NAME,
373: 'OKL_API.G_RET_STS_UNEXP_ERROR',
366: x_msg_count,
367: x_msg_data,
368: '_PVT');
369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
371: l_api_name,
372: G_PKG_NAME,
373: 'OKL_API.G_RET_STS_UNEXP_ERROR',
374: x_msg_count,
369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
371: l_api_name,
372: G_PKG_NAME,
373: 'OKL_API.G_RET_STS_UNEXP_ERROR',
374: x_msg_count,
375: x_msg_data,
376: '_PVT');
377: WHEN OTHERS THEN
374: x_msg_count,
375: x_msg_data,
376: '_PVT');
377: WHEN OTHERS THEN
378: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
379: l_api_name,
380: G_PKG_NAME,
381: 'OTHERS',
382: x_msg_count,
409: p_okl_salvage_value IN NUMBER,
410: x_fa_cost OUT NOCOPY NUMBER,
411: x_fa_salvage_value OUT NOCOPY NUMBER) is
412:
413: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
414: l_api_name CONSTANT varchar2(30) := 'CONVERT_OKL_AMOUNTS';
415: l_api_version CONSTANT NUMBER := 1.0;
416:
417: Cursor conv_params_csr(finassetid NUMBER) is
452:
453: l_fa_cost NUMBER;
454: l_fa_salvage_value NUMBER;
455: begin
456: x_return_status := OKL_API.G_RET_STS_SUCCESS;
457: -- Call start_activity to create savepoint, check compatibility
458: -- and initialize message list
459: x_return_status := OKL_API.START_ACTIVITY (
460: l_api_name
455: begin
456: x_return_status := OKL_API.G_RET_STS_SUCCESS;
457: -- Call start_activity to create savepoint, check compatibility
458: -- and initialize message list
459: x_return_status := OKL_API.START_ACTIVITY (
460: l_api_name
461: ,p_init_msg_list
462: ,'_PVT'
463: ,x_return_status);
461: ,p_init_msg_list
462: ,'_PVT'
463: ,x_return_status);
464: -- Check if activity started successfully
465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
462: ,'_PVT'
463: ,x_return_status);
464: -- Check if activity started successfully
465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
470:
463: ,x_return_status);
464: -- Check if activity started successfully
465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
470:
471: open conv_params_csr(p_fin_ast_id);
464: -- Check if activity started successfully
465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
470:
471: open conv_params_csr(p_fin_ast_id);
472: Fetch conv_params_csr into l_conv_params_rec;
545:
546: x_fa_cost := l_fa_cost;
547: x_fa_salvage_value := l_fa_salvage_value;
548:
549: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
550: EXCEPTION
551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553: l_api_name,
547: x_fa_salvage_value := l_fa_salvage_value;
548:
549: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
550: EXCEPTION
551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553: l_api_name,
554: G_PKG_NAME,
555: 'OKL_API.G_RET_STS_ERROR',
548:
549: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
550: EXCEPTION
551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553: l_api_name,
554: G_PKG_NAME,
555: 'OKL_API.G_RET_STS_ERROR',
556: x_msg_count,
551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553: l_api_name,
554: G_PKG_NAME,
555: 'OKL_API.G_RET_STS_ERROR',
556: x_msg_count,
557: x_msg_data,
558: '_PVT');
559: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
555: 'OKL_API.G_RET_STS_ERROR',
556: x_msg_count,
557: x_msg_data,
558: '_PVT');
559: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
560: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
561: l_api_name,
562: G_PKG_NAME,
563: 'OKL_API.G_RET_STS_UNEXP_ERROR',
556: x_msg_count,
557: x_msg_data,
558: '_PVT');
559: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
560: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
561: l_api_name,
562: G_PKG_NAME,
563: 'OKL_API.G_RET_STS_UNEXP_ERROR',
564: x_msg_count,
559: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
560: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
561: l_api_name,
562: G_PKG_NAME,
563: 'OKL_API.G_RET_STS_UNEXP_ERROR',
564: x_msg_count,
565: x_msg_data,
566: '_PVT');
567: WHEN OTHERS THEN
564: x_msg_count,
565: x_msg_data,
566: '_PVT');
567: WHEN OTHERS THEN
568: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
569: l_api_name,
570: G_PKG_NAME,
571: 'OTHERS',
572: x_msg_count,