76: G_TAS_ID_TOKEN CONSTANT VARCHAR2(100) := 'TAS_ID';
77: G_TRX_ALREADY_PROCESSED CONSTANT VARCHAR2(200) := 'OKL_LLA_TRX_ALREADY_PROCESSED';
78: G_FUTURE_IN_SERVICE_DATE CONSTANT VARCHAR2(200) := 'OKL_LLA_FUTURE_IN_SERVICE_DATE';
79: G_CURRENT_OPEN_PERIOD CONSTANT VARCHAR2(30) := 'OPEN_PERIOD';
80: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
81: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
82: G_CONV_RATE_NOT_FOUND CONSTANT VARCHAR2(200) := 'OKL_LLA_CONV_RATE_NOT_FOUND';
83: G_FROM_CURRENCY_TOKEN CONSTANT VARCHAR2(200) := 'FROM_CURRENCY';
84: G_TO_CURRENCY_TOKEN CONSTANT VARCHAR2(200) := 'TO_CURRENCY';
77: G_TRX_ALREADY_PROCESSED CONSTANT VARCHAR2(200) := 'OKL_LLA_TRX_ALREADY_PROCESSED';
78: G_FUTURE_IN_SERVICE_DATE CONSTANT VARCHAR2(200) := 'OKL_LLA_FUTURE_IN_SERVICE_DATE';
79: G_CURRENT_OPEN_PERIOD CONSTANT VARCHAR2(30) := 'OPEN_PERIOD';
80: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
81: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
82: G_CONV_RATE_NOT_FOUND CONSTANT VARCHAR2(200) := 'OKL_LLA_CONV_RATE_NOT_FOUND';
83: G_FROM_CURRENCY_TOKEN CONSTANT VARCHAR2(200) := 'FROM_CURRENCY';
84: G_TO_CURRENCY_TOKEN CONSTANT VARCHAR2(200) := 'TO_CURRENCY';
85: G_CONV_TYPE_TOKEN CONSTANT VARCHAR2(200) := 'CONVERSION_TYPE';
113: p_asset_id IN NUMBER,
114: p_book_type_code IN VARCHAR2,
115: x_asset_deprn_rec OUT NOCOPY FA_API_TYPES.asset_deprn_rec_type) IS
116:
117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
118: l_api_name CONSTANT VARCHAR2(30) := 'GET_DEPRN_RESERVE';
119: l_api_version CONSTANT NUMBER := 1.0;
120:
121: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
125: l_deprn_reserve NUMBER;
126:
127: BEGIN
128: --call start activity to set savepoint
129: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
130: p_init_msg_list,
131: '_PVT',
132: x_return_status);
133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
129: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
130: p_init_msg_list,
131: '_PVT',
132: x_return_status);
133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_ERROR;
137: END IF;
130: p_init_msg_list,
131: '_PVT',
132: x_return_status);
133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_ERROR;
137: END IF;
138:
131: '_PVT',
132: x_return_status);
133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_ERROR;
137: END IF;
138:
139: l_asset_hdr_rec.asset_id := p_asset_id;
132: x_return_status);
133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
136: RAISE OKL_API.G_EXCEPTION_ERROR;
137: END IF;
138:
139: l_asset_hdr_rec.asset_id := p_asset_id;
140: l_asset_hdr_rec.book_type_code := p_book_type_code;
139: l_asset_hdr_rec.asset_id := p_asset_id;
140: l_asset_hdr_rec.book_type_code := p_book_type_code;
141:
142: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
143: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
144: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
145: );
146: Raise OKL_API.G_EXCEPTION_ERROR;
147: end if;
142: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
143: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
144: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
145: );
146: Raise OKL_API.G_EXCEPTION_ERROR;
147: end if;
148:
149: -- To fetch Depreciation Reserve
150: if not FA_UTIL_PVT.get_asset_deprn_rec
152: px_asset_deprn_rec => l_asset_deprn_rec,
153: p_period_counter => NULL,
154: p_mrc_sob_type_code => 'P'
155: ) then
156: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
158: );
159: Raise OKL_API.G_EXCEPTION_ERROR;
160: end if;
155: ) then
156: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
158: );
159: Raise OKL_API.G_EXCEPTION_ERROR;
160: end if;
161:
162: x_asset_deprn_rec := l_asset_deprn_rec;
163:
161:
162: x_asset_deprn_rec := l_asset_deprn_rec;
163:
164: --Call end Activity
165: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
166: EXCEPTION
167: WHEN OKL_API.G_EXCEPTION_ERROR Then
168: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
169: (
163:
164: --Call end Activity
165: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
166: EXCEPTION
167: WHEN OKL_API.G_EXCEPTION_ERROR Then
168: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
169: (
170: l_api_name,
171: G_PKG_NAME,
164: --Call end Activity
165: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
166: EXCEPTION
167: WHEN OKL_API.G_EXCEPTION_ERROR Then
168: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
169: (
170: l_api_name,
171: G_PKG_NAME,
172: 'OKL_API.G_RET_STS_ERROR',
168: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
169: (
170: l_api_name,
171: G_PKG_NAME,
172: 'OKL_API.G_RET_STS_ERROR',
173: x_msg_count,
174: x_msg_data,
175: '_PVT'
176: );
173: x_msg_count,
174: x_msg_data,
175: '_PVT'
176: );
177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
179: (
180: l_api_name,
181: G_PKG_NAME,
174: x_msg_data,
175: '_PVT'
176: );
177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
179: (
180: l_api_name,
181: G_PKG_NAME,
182: 'OKL_API.G_RET_STS_UNEXP_ERROR',
178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
179: (
180: l_api_name,
181: G_PKG_NAME,
182: 'OKL_API.G_RET_STS_UNEXP_ERROR',
183: x_msg_count,
184: x_msg_data,
185: '_PVT'
186: );
184: x_msg_data,
185: '_PVT'
186: );
187: WHEN OTHERS THEN
188: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
189: (
190: l_api_name,
191: G_PKG_NAME,
192: 'OTHERS',
452: p_amount IN NUMBER,
453: x_amount OUT NOCOPY NUMBER
454: ) IS
455:
456: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
457: l_api_name CONSTANT VARCHAR2(30) := 'CONVERT_2FUNCT_CURRENCY';
458: l_api_version CONSTANT NUMBER := 1.0;
459:
460:
466: x_currency_conversion_rate okl_k_headers_full_v.currency_conversion_rate%TYPE;
467: x_currency_conversion_date okl_k_headers_full_v.currency_conversion_date%TYPE;
468:
469: BEGIN
470: x_return_status := OKL_API.G_RET_STS_SUCCESS;
471: --call start activity to set savepoint
472: x_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
473: p_init_msg_list,
474: '_PVT',
468:
469: BEGIN
470: x_return_status := OKL_API.G_RET_STS_SUCCESS;
471: --call start activity to set savepoint
472: x_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
473: p_init_msg_list,
474: '_PVT',
475: x_return_status);
476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
472: x_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
473: p_init_msg_list,
474: '_PVT',
475: x_return_status);
476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_ERROR;
480: END IF;
473: p_init_msg_list,
474: '_PVT',
475: x_return_status);
476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_ERROR;
480: END IF;
481:
474: '_PVT',
475: x_return_status);
476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_ERROR;
480: END IF;
481:
482: x_amount := p_amount;
475: x_return_status);
476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_ERROR;
480: END IF;
481:
482: x_amount := p_amount;
483:
519:
520: End If;
521:
522: --Call end Activity
523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
524:
525: Exception
526: When OKL_API.G_EXCEPTION_ERROR Then
527:
522: --Call end Activity
523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
524:
525: Exception
526: When OKL_API.G_EXCEPTION_ERROR Then
527:
528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
529: (
530: l_api_name,
524:
525: Exception
526: When OKL_API.G_EXCEPTION_ERROR Then
527:
528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
529: (
530: l_api_name,
531: G_PKG_NAME,
532: 'OKL_API.G_RET_STS_ERROR',
528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
529: (
530: l_api_name,
531: G_PKG_NAME,
532: 'OKL_API.G_RET_STS_ERROR',
533: x_msg_count,
534: x_msg_data,
535: '_PVT'
536: );
533: x_msg_count,
534: x_msg_data,
535: '_PVT'
536: );
537: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
538:
539: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
540: (
541: l_api_name,
535: '_PVT'
536: );
537: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
538:
539: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
540: (
541: l_api_name,
542: G_PKG_NAME,
543: 'OKL_API.G_RET_STS_UNEXP_ERROR',
539: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
540: (
541: l_api_name,
542: G_PKG_NAME,
543: 'OKL_API.G_RET_STS_UNEXP_ERROR',
544: x_msg_count,
545: x_msg_data,
546: '_PVT'
547: );
546: '_PVT'
547: );
548: WHEN OTHERS THEN
549:
550: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
551: (
552: l_api_name,
553: G_PKG_NAME,
554: 'OTHERS',
574: x_msg_count OUT NOCOPY NUMBER,
575: x_msg_data OUT NOCOPY VARCHAR2,
576: p_tas_id IN NUMBER,
577: p_tsu_code IN VARCHAR2) IS
578: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
579: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_status';
580: l_api_version CONSTANT NUMBER := 1.0;
581:
582: l_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
589:
590: l_tsu_code OKL_TRX_ASSETS.TSU_CODE%TYPE;
591: BEGIN
592: --call start activity to set savepoint
593: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
594: p_init_msg_list,
595: '_PVT',
596: x_return_status);
597: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
593: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
594: p_init_msg_list,
595: '_PVT',
596: x_return_status);
597: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
599: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
600: RAISE OKL_API.G_EXCEPTION_ERROR;
601: END IF;
594: p_init_msg_list,
595: '_PVT',
596: x_return_status);
597: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
599: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
600: RAISE OKL_API.G_EXCEPTION_ERROR;
601: END IF;
602: --check if tsu code has already been updated to processed
595: '_PVT',
596: x_return_status);
597: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
599: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
600: RAISE OKL_API.G_EXCEPTION_ERROR;
601: END IF;
602: --check if tsu code has already been updated to processed
603: OPEN tsu_code_csr(p_tas_id => p_tas_id);
596: x_return_status);
597: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
599: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
600: RAISE OKL_API.G_EXCEPTION_ERROR;
601: END IF;
602: --check if tsu code has already been updated to processed
603: OPEN tsu_code_csr(p_tas_id => p_tas_id);
604: FETCH tsu_code_csr into l_tsu_code;
603: OPEN tsu_code_csr(p_tas_id => p_tas_id);
604: FETCH tsu_code_csr into l_tsu_code;
605: If tsu_code_csr%NOTFOUND Then
606: --internal error unable to find trransaction record while trying to update status
607: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
608: p_msg_name => G_STS_UPDATE_TRX_MISSING,
609: p_token1 => G_TAS_ID_TOKEN,
610: p_token1_value => p_tas_id
611: );
608: p_msg_name => G_STS_UPDATE_TRX_MISSING,
609: p_token1 => G_TAS_ID_TOKEN,
610: p_token1_value => p_tas_id
611: );
612: Raise OKL_API.G_EXCEPTION_ERROR;
613: Else
614: If l_tsu_code = p_tsu_code Then
615: --transaction already processed by another user
616: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
612: Raise OKL_API.G_EXCEPTION_ERROR;
613: Else
614: If l_tsu_code = p_tsu_code Then
615: --transaction already processed by another user
616: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
617: p_msg_name => G_TRX_ALREADY_PROCESSED
618: );
619: Raise OKL_API.G_EXCEPTION_ERROR;
620: Else
615: --transaction already processed by another user
616: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
617: p_msg_name => G_TRX_ALREADY_PROCESSED
618: );
619: Raise OKL_API.G_EXCEPTION_ERROR;
620: Else
621: l_thpv_rec.id := p_tas_id;
622: l_thpv_rec.tsu_code := p_tsu_code;
623: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
628: x_msg_data => x_msg_data,
629: p_thpv_rec => l_thpv_rec,
630: x_thpv_rec => l_thpv_rec_out);
631: --dbms_output.put_line('after updating trx status '||x_return_status);
632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
629: p_thpv_rec => l_thpv_rec,
630: x_thpv_rec => l_thpv_rec_out);
631: --dbms_output.put_line('after updating trx status '||x_return_status);
632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
637: End If;
630: x_thpv_rec => l_thpv_rec_out);
631: --dbms_output.put_line('after updating trx status '||x_return_status);
632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
637: End If;
638: End If;
631: --dbms_output.put_line('after updating trx status '||x_return_status);
632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
637: End If;
638: End If;
639: CLOSE tsu_code_csr;
637: End If;
638: End If;
639: CLOSE tsu_code_csr;
640: --Call end Activity
641: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: Exception
643: When OKL_API.G_EXCEPTION_ERROR Then
644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
645: (
639: CLOSE tsu_code_csr;
640: --Call end Activity
641: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: Exception
643: When OKL_API.G_EXCEPTION_ERROR Then
644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
640: --Call end Activity
641: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: Exception
643: When OKL_API.G_EXCEPTION_ERROR Then
644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKL_API.G_RET_STS_ERROR',
644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKL_API.G_RET_STS_ERROR',
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKL_API.G_RET_STS_UNEXP_ERROR',
654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKL_API.G_RET_STS_UNEXP_ERROR',
659: x_msg_count,
660: x_msg_data,
661: '_PVT'
662: );
660: x_msg_data,
661: '_PVT'
662: );
663: WHEN OTHERS THEN
664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
665: (
666: l_api_name,
667: G_PKG_NAME,
668: 'OTHERS',
685: x_current_units OUT NOCOPY Number,
686: x_asset_number OUT NOCOPY Varchar2,
687: x_asset_description OUT NOCOPY Varchar2) IS
688:
689: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
690: l_api_name CONSTANT varchar2(30) := 'CALC_NBV';
691: l_api_version CONSTANT NUMBER := 1.0;
692:
693: l_book_type_code okx_assets_v.Corporate_Book%TYPE;
731: l_asset_number,
732: l_asset_description;
733: If asset_cost_csr%NOTFOUND Then
734: --dbms_output.put_line('current Cost Not Found');
735: RAISE OKL_API.G_EXCEPTION_ERROR;
736: --error handling
737: End If;
738: Close asset_cost_csr;
739:
749: x_asset_number := l_asset_number;
750: x_asset_description := l_asset_description;
751:
752: Exception
753: When OKL_API.G_EXCEPTION_ERROR Then
754: Null;
755: --set message and stop
756: -- for testing
757: End Calc_Nbv;
775: x_msg_data OUT NOCOPY VARCHAR2,
776: p_book_type_code IN VARCHAR2,
777: p_release_date IN DATE) IS
778:
779: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
780: l_api_name CONSTANT VARCHAR2(30) := 'validate_release_date';
781: l_api_version CONSTANT NUMBER := 1.0;
782:
783: CURSOR open_period_cur(p_book_type_code IN VARCHAR2) IS
805:
806: l_current_open_period := open_period_rec.period_name||' ('||
807: to_char(open_period_rec.calendar_period_open_date,l_icx_date_format)
808: ||' - '||to_char(open_period_rec.calendar_period_close_date,l_icx_date_format)||')';
809: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
810: p_msg_name => 'OKL_LLA_RELEASE_DATE_INVALID',
811: p_token1 => 'BOOK_TYPE_CODE',
812: p_token1_value => p_book_type_code,
813: p_token2 => 'OPEN_PERIOD',
812: p_token1_value => p_book_type_code,
813: p_token2 => 'OPEN_PERIOD',
814: p_token2_value => l_current_open_period
815: );
816: RAISE OKL_API.G_EXCEPTION_ERROR;
817: END IF;
818:
819: EXCEPTION
820: WHEN OKL_API.G_EXCEPTION_ERROR Then
816: RAISE OKL_API.G_EXCEPTION_ERROR;
817: END IF;
818:
819: EXCEPTION
820: WHEN OKL_API.G_EXCEPTION_ERROR Then
821: x_return_status := OKL_API.G_RET_STS_ERROR;
822:
823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
817: END IF;
818:
819: EXCEPTION
820: WHEN OKL_API.G_EXCEPTION_ERROR Then
821: x_return_status := OKL_API.G_RET_STS_ERROR;
822:
823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
825:
819: EXCEPTION
820: WHEN OKL_API.G_EXCEPTION_ERROR Then
821: x_return_status := OKL_API.G_RET_STS_ERROR;
822:
823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
825:
826: WHEN OTHERS THEN
827: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
820: WHEN OKL_API.G_EXCEPTION_ERROR Then
821: x_return_status := OKL_API.G_RET_STS_ERROR;
822:
823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
825:
826: WHEN OTHERS THEN
827: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
828:
823: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
825:
826: WHEN OTHERS THEN
827: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
828:
829: END validate_release_date;
830:
831: ------------------------------------------------------------------------------
848: p_rebook_date IN DATE,
849: p_cost_adjustment IN NUMBER,
850: p_contract_start_date IN DATE) IS
851:
852: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
853: l_api_name CONSTANT VARCHAR2(30) := 'validate_rebook_date';
854: l_api_version CONSTANT NUMBER := 1.0;
855:
856: CURSOR open_period_cur(p_book_type_code IN VARCHAR2) IS
878:
879: l_current_open_period := open_period_rec.period_name||' ('||
880: to_char(open_period_rec.calendar_period_open_date,l_icx_date_format)
881: ||' - '||to_char(open_period_rec.calendar_period_close_date,l_icx_date_format)||')';
882: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
883: p_msg_name => 'OKL_LLA_REBOOK_DATE_INVALID',
884: p_token1 => 'BOOK_TYPE_CODE',
885: p_token1_value => p_book_type_code,
886: p_token2 => 'OPEN_PERIOD',
885: p_token1_value => p_book_type_code,
886: p_token2 => 'OPEN_PERIOD',
887: p_token2_value => l_current_open_period
888: );
889: RAISE OKL_API.G_EXCEPTION_ERROR;
890: END IF;
891:
892: -- Revision Date should be the same as Contract Start Date inorder to make an
893: -- asset cost change
893: -- asset cost change
894: IF (p_cost_adjustment IS NOT NULL AND
895: p_contract_start_date <> p_rebook_date) THEN
896:
897: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
898: p_msg_name => 'OKL_LLA_VALIDATE_DEPR_COST_CHG'
899: );
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
896:
897: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
898: p_msg_name => 'OKL_LLA_VALIDATE_DEPR_COST_CHG'
899: );
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
902:
903: EXCEPTION
904: WHEN OKL_API.G_EXCEPTION_ERROR Then
900: RAISE OKL_API.G_EXCEPTION_ERROR;
901: END IF;
902:
903: EXCEPTION
904: WHEN OKL_API.G_EXCEPTION_ERROR Then
905: x_return_status := OKL_API.G_RET_STS_ERROR;
906:
907: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
901: END IF;
902:
903: EXCEPTION
904: WHEN OKL_API.G_EXCEPTION_ERROR Then
905: x_return_status := OKL_API.G_RET_STS_ERROR;
906:
907: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
909:
903: EXCEPTION
904: WHEN OKL_API.G_EXCEPTION_ERROR Then
905: x_return_status := OKL_API.G_RET_STS_ERROR;
906:
907: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
909:
910: WHEN OTHERS THEN
911: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
904: WHEN OKL_API.G_EXCEPTION_ERROR Then
905: x_return_status := OKL_API.G_RET_STS_ERROR;
906:
907: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
909:
910: WHEN OTHERS THEN
911: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
912:
907: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
908: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
909:
910: WHEN OTHERS THEN
911: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
912:
913: END validate_rebook_date;
914: --Bug# 3783518: end
915: --------------------------------------------------------------------------------
988: --Bug# 4028371
989: x_fa_trx_date OUT NOCOPY DATE,
990: x_asset_fin_rec OUT NOCOPY FA_API_TYPES.asset_fin_rec_type) is
991:
992: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
993: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_ADJ_CST';
994: l_api_version CONSTANT NUMBER := 1.0;
995:
996: l_trans_rec FA_API_TYPES.trans_rec_type;
1025: --Bug# 6373605 end
1026:
1027: Begin
1028:
1029: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1030: l_asset_id := p_asset_id;
1031: l_book_type_code := p_book_type_code;
1032: l_adjust_cost := p_adjust_cost;
1033: --Bug # 2657558
1037: l_adj_percent_sv := p_adj_percent_sv;
1038:
1039: -- Call start_activity to create savepoint, check compatibility
1040: -- and initialize message list
1041: x_return_status := OKL_API.START_ACTIVITY (
1042: l_api_name
1043: ,p_init_msg_list
1044: ,'_PVT'
1045: ,x_return_status);
1043: ,p_init_msg_list
1044: ,'_PVT'
1045: ,x_return_status);
1046: -- Check if activity started successfully
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: ,'_PVT'
1045: ,x_return_status);
1046: -- Check if activity started successfully
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1045: ,x_return_status);
1046: -- Check if activity started successfully
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: --dbms_output.enable(1000000);
1046: -- Check if activity started successfully
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: --dbms_output.enable(1000000);
1054:
1103: l_fa_asset_hdr_rec.asset_id := l_asset_id;
1104: l_fa_asset_hdr_rec.book_type_code := l_book_type_code;
1105:
1106: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
1107: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1108: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
1109: );
1110: Raise OKL_API.G_EXCEPTION_ERROR;
1111: end if;
1106: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
1107: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1108: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
1109: );
1110: Raise OKL_API.G_EXCEPTION_ERROR;
1111: end if;
1112:
1113: If not FA_ASSET_VAL_PVT.validate_period_of_addition
1114: (p_asset_id => l_fa_asset_hdr_rec.asset_id,
1115: p_book => l_fa_asset_hdr_rec.book_type_code,
1116: p_mode => 'ABSOLUTE',
1117: px_period_of_addition => l_fa_asset_hdr_rec.period_of_addition
1118: ) then
1119: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1120: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
1121: );
1122: Raise OKL_API.G_EXCEPTION_ERROR;
1123: end if;
1118: ) then
1119: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1120: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
1121: );
1122: Raise OKL_API.G_EXCEPTION_ERROR;
1123: end if;
1124:
1125:
1126: If nvl(l_fa_asset_hdr_rec.period_of_addition,'N') = 'Y' Then
1136: p_asset_id => l_asset_id,
1137: p_book_type_code => l_book_type_code,
1138: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1139:
1140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1137: p_book_type_code => l_book_type_code,
1138: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1139:
1140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145:
1138: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1139:
1140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145:
1146: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
1139:
1140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_ERROR;
1144: END IF;
1145:
1146: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
1147: l_asset_deprn_rec_adj.deprn_reserve := (-1) * l_fa_asset_deprn_rec.deprn_reserve;
1188: p_group_reclass_options_rec => l_group_recalss_option_rec
1189: );
1190:
1191: --dbms_output.put_line('After Call to FA ADJUST API "'||l_return_status||'"');
1192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1189: );
1190:
1191: --dbms_output.put_line('After Call to FA ADJUST API "'||l_return_status||'"');
1192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: --Bug# 4028371
1190:
1191: --dbms_output.put_line('After Call to FA ADJUST API "'||l_return_status||'"');
1192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: --Bug# 4028371
1198: x_fa_trx_date := l_trans_rec.transaction_date_entered;
1191: --dbms_output.put_line('After Call to FA ADJUST API "'||l_return_status||'"');
1192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: --Bug# 4028371
1198: x_fa_trx_date := l_trans_rec.transaction_date_entered;
1199: --bug# 6373605 -- call populate sla sources
1220: ,x_return_status => x_return_status
1221: ,x_msg_count => x_msg_count
1222: ,x_msg_data => x_msg_data
1223: );
1224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1221: ,x_msg_count => x_msg_count
1222: ,x_msg_data => x_msg_data
1223: );
1224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1222: ,x_msg_data => x_msg_data
1223: );
1224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: --bug# 6373605 -- call populate SLA sources
1223: );
1224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: --bug# 6373605 -- call populate SLA sources
1231:
1228: END IF;
1229:
1230: --bug# 6373605 -- call populate SLA sources
1231:
1232: OKL_API.END_ACTIVITY (x_msg_count,
1233: x_msg_data );
1234: EXCEPTION
1235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1231:
1232: OKL_API.END_ACTIVITY (x_msg_count,
1233: x_msg_data );
1234: EXCEPTION
1235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1237: l_api_name,
1238: G_PKG_NAME,
1239: 'OKL_API.G_RET_STS_ERROR',
1232: OKL_API.END_ACTIVITY (x_msg_count,
1233: x_msg_data );
1234: EXCEPTION
1235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1237: l_api_name,
1238: G_PKG_NAME,
1239: 'OKL_API.G_RET_STS_ERROR',
1240: x_msg_count,
1235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1237: l_api_name,
1238: G_PKG_NAME,
1239: 'OKL_API.G_RET_STS_ERROR',
1240: x_msg_count,
1241: x_msg_data,
1242: '_PVT');
1243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1239: 'OKL_API.G_RET_STS_ERROR',
1240: x_msg_count,
1241: x_msg_data,
1242: '_PVT');
1243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1244: --dbms_output.put_line('Raising unexpected here...');
1245: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1246: l_api_name,
1247: G_PKG_NAME,
1241: x_msg_data,
1242: '_PVT');
1243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1244: --dbms_output.put_line('Raising unexpected here...');
1245: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1246: l_api_name,
1247: G_PKG_NAME,
1248: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1249: x_msg_count,
1244: --dbms_output.put_line('Raising unexpected here...');
1245: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1246: l_api_name,
1247: G_PKG_NAME,
1248: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1249: x_msg_count,
1250: x_msg_data,
1251: '_PVT');
1252: WHEN OTHERS THEN
1250: x_msg_data,
1251: '_PVT');
1252: WHEN OTHERS THEN
1253: --dbms_output.put_line('Raising when others here...'||SQLERRM);
1254: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1255: l_api_name,
1256: G_PKG_NAME,
1257: 'OTHERS',
1258: x_msg_count,
1307: --Bug# 4028371
1308: x_fa_trx_date OUT NOCOPY DATE,
1309: x_asset_fin_rec_new OUT NOCOPY FA_API_TYPES.asset_fin_rec_type) is
1310:
1311: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1312: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_ADJUST';
1313: l_api_version CONSTANT NUMBER := 1.0;
1314:
1315: l_trans_rec FA_API_TYPES.trans_rec_type;
1342: --Bug# 6373605 end
1343:
1344: Begin
1345:
1346: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1347: l_asset_id := p_asset_id;
1348: l_book_type_code := p_book_type_code;
1349:
1350: -- Call start_activity to create savepoint, check compatibility
1348: l_book_type_code := p_book_type_code;
1349:
1350: -- Call start_activity to create savepoint, check compatibility
1351: -- and initialize message list
1352: x_return_status := OKL_API.START_ACTIVITY (
1353: l_api_name
1354: ,p_init_msg_list
1355: ,'_PVT'
1356: ,x_return_status);
1354: ,p_init_msg_list
1355: ,'_PVT'
1356: ,x_return_status);
1357: -- Check if activity started successfully
1358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1355: ,'_PVT'
1356: ,x_return_status);
1357: -- Check if activity started successfully
1358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363:
1356: ,x_return_status);
1357: -- Check if activity started successfully
1358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363:
1364: --dbms_output.enable(1000000);
1357: -- Check if activity started successfully
1358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363:
1364: --dbms_output.enable(1000000);
1365:
1409: l_fa_asset_hdr_rec.asset_id := l_asset_id;
1410: l_fa_asset_hdr_rec.book_type_code := l_book_type_code;
1411:
1412: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
1413: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1414: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
1415: );
1416: Raise OKL_API.G_EXCEPTION_ERROR;
1417: end if;
1412: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
1413: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1414: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
1415: );
1416: Raise OKL_API.G_EXCEPTION_ERROR;
1417: end if;
1418:
1419: If not FA_ASSET_VAL_PVT.validate_period_of_addition
1420: (p_asset_id => l_fa_asset_hdr_rec.asset_id,
1421: p_book => l_fa_asset_hdr_rec.book_type_code,
1422: p_mode => 'ABSOLUTE',
1423: px_period_of_addition => l_fa_asset_hdr_rec.period_of_addition
1424: ) then
1425: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1426: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
1427: );
1428: Raise OKL_API.G_EXCEPTION_ERROR;
1429: end if;
1424: ) then
1425: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1426: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
1427: );
1428: Raise OKL_API.G_EXCEPTION_ERROR;
1429: end if;
1430:
1431:
1432: If nvl(l_fa_asset_hdr_rec.period_of_addition,'N') = 'Y' Then
1442: p_asset_id => l_asset_id,
1443: p_book_type_code => l_book_type_code,
1444: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1443: p_book_type_code => l_book_type_code,
1444: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1444: x_asset_deprn_rec => l_fa_asset_deprn_rec);
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1452: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
1445:
1446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451:
1452: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
1453: l_asset_deprn_rec_adj.deprn_reserve := (-1) * l_fa_asset_deprn_rec.deprn_reserve;
1526: --to_char(l_trans_rec.transaction_header_id));
1527:
1528: -- end if;
1529:
1530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1527:
1528: -- end if;
1529:
1530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: --Bug# 4028371
1528: -- end if;
1529:
1530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: --Bug# 4028371
1536: x_fa_trx_date := l_trans_rec.transaction_date_entered;
1529:
1530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: --Bug# 4028371
1536: x_fa_trx_date := l_trans_rec.transaction_date_entered;
1537: --bug# 6373605 -- call populate sla sources
1556: ,x_return_status => x_return_status
1557: ,x_msg_count => x_msg_count
1558: ,x_msg_data => x_msg_data
1559: );
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1557: ,x_msg_count => x_msg_count
1558: ,x_msg_data => x_msg_data
1559: );
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: --bug# 6373605 -- call populate SLA sources
1558: ,x_msg_data => x_msg_data
1559: );
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: --bug# 6373605 -- call populate SLA sources
1566:
1559: );
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: --bug# 6373605 -- call populate SLA sources
1566:
1567: OKL_API.END_ACTIVITY (x_msg_count,
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: --bug# 6373605 -- call populate SLA sources
1566:
1567: OKL_API.END_ACTIVITY (x_msg_count,
1568: x_msg_data );
1569: EXCEPTION
1570: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1571: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1566:
1567: OKL_API.END_ACTIVITY (x_msg_count,
1568: x_msg_data );
1569: EXCEPTION
1570: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1571: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKL_API.G_RET_STS_ERROR',
1567: OKL_API.END_ACTIVITY (x_msg_count,
1568: x_msg_data );
1569: EXCEPTION
1570: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1571: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKL_API.G_RET_STS_ERROR',
1575: x_msg_count,
1570: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1571: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKL_API.G_RET_STS_ERROR',
1575: x_msg_count,
1576: x_msg_data,
1577: '_PVT');
1578: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1574: 'OKL_API.G_RET_STS_ERROR',
1575: x_msg_count,
1576: x_msg_data,
1577: '_PVT');
1578: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1579: --dbms_output.put_line('Raising unexpected here...');
1580: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1581: l_api_name,
1582: G_PKG_NAME,
1576: x_msg_data,
1577: '_PVT');
1578: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1579: --dbms_output.put_line('Raising unexpected here...');
1580: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1581: l_api_name,
1582: G_PKG_NAME,
1583: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1584: x_msg_count,
1579: --dbms_output.put_line('Raising unexpected here...');
1580: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1581: l_api_name,
1582: G_PKG_NAME,
1583: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1584: x_msg_count,
1585: x_msg_data,
1586: '_PVT');
1587: WHEN OTHERS THEN
1585: x_msg_data,
1586: '_PVT');
1587: WHEN OTHERS THEN
1588: --dbms_output.put_line('Raising when others here...'||SQLERRM);
1589: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1590: l_api_name,
1591: G_PKG_NAME,
1592: 'OTHERS',
1593: x_msg_count,
1615: p_entered_deprn IN NUMBER,
1616: p_fa_cle_id IN NUMBER,
1617: x_calculated_deprn OUT NOCOPY NUMBER) IS
1618:
1619: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1620: l_api_name CONSTANT varchar2(30) := 'CALC_DEPRN_COST';
1621: l_api_version CONSTANT NUMBER := 1.0;
1622:
1623: l_entered_deprn Number;
1645: l_rbk_khr VARCHAR2(1) DEFAULT '?';
1646: --Bug# 4899328: End
1647:
1648: Begin
1649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1650: l_entered_deprn := p_entered_deprn;
1651:
1652: Select cleb_fin.id,
1653: kle_fin.oec,
1694: p_contract_id => l_chr_id,
1695: p_line_id => l_cle_id,
1696: x_value => l_cap_interest);
1697:
1698: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1701: RAISE Okl_Api.G_EXCEPTION_ERROR;
1702: END IF;
1695: p_line_id => l_cle_id,
1696: x_value => l_cap_interest);
1697:
1698: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1701: RAISE Okl_Api.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1696: x_value => l_cap_interest);
1697:
1698: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1701: RAISE Okl_Api.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1704: l_calculated_deprn := (l_capital_amount) - (l_oec) + (l_entered_deprn) + nvl(l_cap_interest,0);
1697:
1698: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1701: RAISE Okl_Api.G_EXCEPTION_ERROR;
1702: END IF;
1703:
1704: l_calculated_deprn := (l_capital_amount) - (l_oec) + (l_entered_deprn) + nvl(l_cap_interest,0);
1705: */
1712:
1713: x_calculated_deprn := l_calculated_deprn;
1714:
1715: Exception
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1718: l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1713: x_calculated_deprn := l_calculated_deprn;
1714:
1715: Exception
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1718: l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1718: l_api_name,
1719: G_PKG_NAME,
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: 'OKL_API.G_RET_STS_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT');
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1729: x_msg_count,
1724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1726: l_api_name,
1727: G_PKG_NAME,
1728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732: WHEN OTHERS THEN
1729: x_msg_count,
1730: x_msg_data,
1731: '_PVT');
1732: WHEN OTHERS THEN
1733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OTHERS',
1737: x_msg_count,
1759: p_rbk_fa_cle_id IN NUMBER,
1760: p_rbk_chr_id IN NUMBER,
1761: x_cap_fee_adjustment OUT NOCOPY NUMBER) IS
1762:
1763: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1764: l_api_name CONSTANT varchar2(30) := 'CALC_CAP_FEE_ADJUSTMENT';
1765: l_api_version CONSTANT NUMBER := 1.0;
1766:
1767: --Cursor to get FA line id of original contract
1808: l_orig_fa_cle_id Number;
1809: l_new_cap_fee Number;
1810:
1811: Begin
1812: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1813:
1814: open orig_fa_cle_csr(fa_cle_id => p_rbk_fa_cle_id);
1815: fetch orig_fa_cle_csr into l_orig_fa_cle_id;
1816: close orig_fa_cle_csr;
1822:
1823: x_cap_fee_adjustment := NVL(l_new_cap_fee,0);
1824:
1825: Exception
1826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: l_api_name,
1829: G_PKG_NAME,
1830: 'OKL_API.G_RET_STS_ERROR',
1823: x_cap_fee_adjustment := NVL(l_new_cap_fee,0);
1824:
1825: Exception
1826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: l_api_name,
1829: G_PKG_NAME,
1830: 'OKL_API.G_RET_STS_ERROR',
1831: x_msg_count,
1826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1828: l_api_name,
1829: G_PKG_NAME,
1830: 'OKL_API.G_RET_STS_ERROR',
1831: x_msg_count,
1832: x_msg_data,
1833: '_PVT');
1834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1830: 'OKL_API.G_RET_STS_ERROR',
1831: x_msg_count,
1832: x_msg_data,
1833: '_PVT');
1834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1836: l_api_name,
1837: G_PKG_NAME,
1838: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1831: x_msg_count,
1832: x_msg_data,
1833: '_PVT');
1834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1836: l_api_name,
1837: G_PKG_NAME,
1838: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1839: x_msg_count,
1834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1836: l_api_name,
1837: G_PKG_NAME,
1838: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1839: x_msg_count,
1840: x_msg_data,
1841: '_PVT');
1842: WHEN OTHERS THEN
1839: x_msg_count,
1840: x_msg_data,
1841: '_PVT');
1842: WHEN OTHERS THEN
1843: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1844: l_api_name,
1845: G_PKG_NAME,
1846: 'OTHERS',
1847: x_msg_count,
1889: --Bug# 4028371
1890: x_fa_trx_date OUT NOCOPY DATE,
1891: x_asset_hdr_rec OUT NOCOPY FA_API_TYPES.asset_hdr_rec_type) is
1892:
1893: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1894: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_ADD';
1895: l_api_version CONSTANT NUMBER := 1.0;
1896:
1897: l_trans_rec FA_API_TYPES.trans_rec_type;
1966:
1967: --Bug# 6373605 end
1968:
1969: Begin
1970: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1971: -- Call start_activity to create savepoint, check compatibility
1972: -- and initialize message list
1973: x_return_status := OKL_API.START_ACTIVITY (
1974: l_api_name
1969: Begin
1970: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1971: -- Call start_activity to create savepoint, check compatibility
1972: -- and initialize message list
1973: x_return_status := OKL_API.START_ACTIVITY (
1974: l_api_name
1975: ,p_init_msg_list
1976: ,'_PVT'
1977: ,x_return_status);
1975: ,p_init_msg_list
1976: ,'_PVT'
1977: ,x_return_status);
1978: -- Check if activity started successfully
1979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: END IF;
1976: ,'_PVT'
1977: ,x_return_status);
1978: -- Check if activity started successfully
1979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: END IF;
1984:
1977: ,x_return_status);
1978: -- Check if activity started successfully
1979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: END IF;
1984:
1985: --Bug#2476805
1978: -- Check if activity started successfully
1979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: END IF;
1984:
1985: --Bug#2476805
1986: --validate in_service_date
1990: Null; --unexpected error
1991: Else
1992: If p_talv_rec.in_service_date > open_period_rec.end_date then
1993: l_current_open_period := open_period_rec.period_name||' ('||to_char(open_period_rec.start_date,'DD-MON-YYYY')||' to '||to_char(open_period_rec.end_date,'DD-MON-YYYY')||')';
1994: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1995: p_msg_name => G_FUTURE_IN_SERVICE_DATE,
1996: p_token1 => G_ASSET_NUMBER_TOKEN,
1997: p_token1_value => p_talv_rec.asset_number,
1998: p_token2 => G_CURRENT_OPEN_PERIOD,
1997: p_token1_value => p_talv_rec.asset_number,
1998: p_token2 => G_CURRENT_OPEN_PERIOD,
1999: p_token2_value => l_current_open_period
2000: );
2001: RAISE OKL_API.G_EXCEPTION_ERROR;
2002: elsIf p_talv_rec.in_service_date <= open_period_rec.end_date then
2003: null;
2004: End If;
2005: End If;
2032: l_asset_hdr_rec.book_type_code := p_talv_rec.corporate_book;
2033: If p_talv_rec.corporate_book is Null Then
2034: --dbms_output.put_line('No FA Book Type entered for Transaction..');
2035: --raise error
2036: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2037: p_msg_name => G_FA_BOOK_NOT_ENTERED,
2038: p_token1 => G_ASSET_NUMBER_TOKEN,
2039: p_token1_value => p_talv_rec.asset_number
2040: );
2037: p_msg_name => G_FA_BOOK_NOT_ENTERED,
2038: p_token1 => G_ASSET_NUMBER_TOKEN,
2039: p_token1_value => p_talv_rec.asset_number
2040: );
2041: RAISE OKL_API.G_EXCEPTION_ERROR;
2042: --l_asset_hdr_rec.book_type_code := 'OPS CORP';
2043: End If;
2044:
2045: OPEN sob_csr(p_book_type_code => l_asset_hdr_rec.book_type_code);
2046: FETCH sob_csr into l_sob_id;
2047: If sob_csr%NOTFOUND Then
2048: --dbms_output.put_line('Set of books attached to book not found..');
2049: --raise appropriate error
2050: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2051: p_msg_name => G_SOB_FETCH_FAILED,
2052: p_token1 => G_FA_BOOK_TOKEN,
2053: p_token1_value => l_asset_hdr_rec.book_type_code
2054: );
2051: p_msg_name => G_SOB_FETCH_FAILED,
2052: p_token1 => G_FA_BOOK_TOKEN,
2053: p_token1_value => l_asset_hdr_rec.book_type_code
2054: );
2055: RAISE OKL_API.G_EXCEPTION_ERROR;
2056: Else
2057: l_asset_hdr_rec.set_of_books_id := l_sob_id; --optional
2058: End If;
2059: CLOSE sob_csr;
2126: x_return_status => x_return_status,
2127: p_entered_deprn => p_talv_rec.depreciation_cost,
2128: p_fa_cle_id => p_talv_rec.kle_id,
2129: x_calculated_deprn => l_deprn_cost);
2130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2133: RAISE OKL_API.G_EXCEPTION_ERROR;
2134: END IF;
2127: p_entered_deprn => p_talv_rec.depreciation_cost,
2128: p_fa_cle_id => p_talv_rec.kle_id,
2129: x_calculated_deprn => l_deprn_cost);
2130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2133: RAISE OKL_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: --Bug fix# 2788745: End
2128: p_fa_cle_id => p_talv_rec.kle_id,
2129: x_calculated_deprn => l_deprn_cost);
2130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2133: RAISE OKL_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: --Bug fix# 2788745: End
2136:
2129: x_calculated_deprn => l_deprn_cost);
2130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2133: RAISE OKL_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: --Bug fix# 2788745: End
2136:
2137: --Bug# 2823405 : Raise error if depreciation cost is lesser than salvage value
2135: --Bug fix# 2788745: End
2136:
2137: --Bug# 2823405 : Raise error if depreciation cost is lesser than salvage value
2138: IF (l_deprn_cost < p_talv_rec.salvage_value) Then
2139: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2140: p_msg_name => G_SALVAGE_VALUE
2141: );
2142: RAISE OKL_API.G_EXCEPTION_ERROR;
2143: End If;
2138: IF (l_deprn_cost < p_talv_rec.salvage_value) Then
2139: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2140: p_msg_name => G_SALVAGE_VALUE
2141: );
2142: RAISE OKL_API.G_EXCEPTION_ERROR;
2143: End If;
2144: --End Bug# 2823405
2145:
2146: -- Check and convert to functional currency.
2143: End If;
2144: --End Bug# 2823405
2145:
2146: -- Check and convert to functional currency.
2147: If ( p_no_curr_conv = OKL_API.G_FALSE ) Then -- amounts not converted to functional curr need to convert
2148:
2149: convert_2functional_currency(p_api_version => p_api_version,
2150: p_init_msg_list => p_init_msg_list,
2151: x_return_status => x_return_status,
2157: p_amount => l_deprn_cost,
2158: x_amount => l_asset_fin_rec.cost);
2159:
2160: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: END IF;
2158: x_amount => l_asset_fin_rec.cost);
2159:
2160: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: END IF;
2166:
2159:
2160: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: END IF;
2166:
2167: l_asset_fin_rec.original_cost := l_asset_fin_rec.cost;
2160: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: END IF;
2166:
2167: l_asset_fin_rec.original_cost := l_asset_fin_rec.cost;
2168:
2175: p_amount => p_talv_rec.salvage_value,
2176: x_amount => l_asset_fin_rec.salvage_value);
2177:
2178: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_ERROR;
2183: END IF;
2176: x_amount => l_asset_fin_rec.salvage_value);
2177:
2178: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_ERROR;
2183: END IF;
2184:
2177:
2178: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_ERROR;
2183: END IF;
2184:
2185: ELSE --amounts already in funtional currency no need to convert
2178: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_ERROR;
2183: END IF;
2184:
2185: ELSE --amounts already in funtional currency no need to convert
2186: --Bug fix# 2788745
2209: --l_asset_fin_rec.depreciate_flag := 'YES'; --gets pulled from
2210: --asset book defaults
2211:
2212: --Bug# 5261704
2213: If NVL(p_depreciate_flag,OKL_API.G_MISS_CHAR) = 'NO' then
2214: l_asset_fin_rec.depreciate_flag := 'NO';
2215: End If;
2216: --End Bug # 5261704
2217:
2233: l_expense_account;
2234: If exp_act_csr%NOTFOUND Then
2235: --raise appropriate error
2236: --dbms_output.put_line('expense account not found...');
2237: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2238: p_msg_name => G_EXP_ACCT_NOT_ENTERED,
2239: p_token1 => G_ASSET_NUMBER_TOKEN,
2240: p_token1_value => p_talv_rec.asset_number
2241: );
2238: p_msg_name => G_EXP_ACCT_NOT_ENTERED,
2239: p_token1 => G_ASSET_NUMBER_TOKEN,
2240: p_token1_value => p_talv_rec.asset_number
2241: );
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: --select code_combination_id
2244: --into l_asset_dist_rec.expense_ccid
2245: --from okx_ast_dst_hst_v
2246: --where book_type_code = 'OPS CORP'
2260: ---------------
2261: fa_addition_pub.do_addition
2262: (p_api_version => p_api_version,
2263: p_init_msg_list => p_init_msg_list,
2264: p_commit => OKL_API.G_FALSE,
2265: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2266: x_return_status => x_return_status,
2267: x_msg_count => x_msg_count,
2268: x_msg_data => x_msg_data,
2281: px_asset_dist_tbl => l_asset_dist_tbl,
2282: px_inv_tbl => l_inv_tbl
2283: );
2284: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_ERROR;
2289: END IF;
2282: px_inv_tbl => l_inv_tbl
2283: );
2284: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_ERROR;
2289: END IF;
2290: x_asset_hdr_rec := l_asset_hdr_rec;
2283: );
2284: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_ERROR;
2289: END IF;
2290: x_asset_hdr_rec := l_asset_hdr_rec;
2291: --Bug# 4028371:
2284: --dbms_output.put_line('After Calling Fixed Asset ADD api "'||x_return_status||'"');
2285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_ERROR;
2289: END IF;
2290: x_asset_hdr_rec := l_asset_hdr_rec;
2291: --Bug# 4028371:
2292: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2313: ,x_return_status => x_return_status
2314: ,x_msg_count => x_msg_count
2315: ,x_msg_data => x_msg_data
2316: );
2317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2314: ,x_msg_count => x_msg_count
2315: ,x_msg_data => x_msg_data
2316: );
2317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2315: ,x_msg_data => x_msg_data
2316: );
2317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2323: --bug# 6373605 -- call populate SLA sources
2316: );
2317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2318: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2323: --bug# 6373605 -- call populate SLA sources
2324: OKL_API.END_ACTIVITY (x_msg_count,
2320: RAISE OKL_API.G_EXCEPTION_ERROR;
2321: END IF;
2322:
2323: --bug# 6373605 -- call populate SLA sources
2324: OKL_API.END_ACTIVITY (x_msg_count,
2325: x_msg_data );
2326: EXCEPTION
2327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2323: --bug# 6373605 -- call populate SLA sources
2324: OKL_API.END_ACTIVITY (x_msg_count,
2325: x_msg_data );
2326: EXCEPTION
2327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2329: l_api_name,
2330: G_PKG_NAME,
2331: 'OKL_API.G_RET_STS_ERROR',
2324: OKL_API.END_ACTIVITY (x_msg_count,
2325: x_msg_data );
2326: EXCEPTION
2327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2329: l_api_name,
2330: G_PKG_NAME,
2331: 'OKL_API.G_RET_STS_ERROR',
2332: x_msg_count,
2327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2329: l_api_name,
2330: G_PKG_NAME,
2331: 'OKL_API.G_RET_STS_ERROR',
2332: x_msg_count,
2333: x_msg_data,
2334: '_PVT');
2335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2331: 'OKL_API.G_RET_STS_ERROR',
2332: x_msg_count,
2333: x_msg_data,
2334: '_PVT');
2335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2336: --dbms_output.put_line('Raising unexpected here...');
2337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2338: l_api_name,
2339: G_PKG_NAME,
2333: x_msg_data,
2334: '_PVT');
2335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2336: --dbms_output.put_line('Raising unexpected here...');
2337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2338: l_api_name,
2339: G_PKG_NAME,
2340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2341: x_msg_count,
2336: --dbms_output.put_line('Raising unexpected here...');
2337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2338: l_api_name,
2339: G_PKG_NAME,
2340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2341: x_msg_count,
2342: x_msg_data,
2343: '_PVT');
2344: WHEN OTHERS THEN
2342: x_msg_data,
2343: '_PVT');
2344: WHEN OTHERS THEN
2345: --dbms_output.put_line('Raising when others here...'||SQLERRM);
2346: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2347: l_api_name,
2348: G_PKG_NAME,
2349: 'OTHERS',
2350: x_msg_count,
2398: x_return_status => x_return_status,
2399: x_msg_count => x_msg_count,
2400: x_msg_data => x_msg_data,
2401: p_talv_rec => p_talv_rec,
2402: p_no_curr_conv => OKL_API.G_FALSE,
2403: --bug# 3156924
2404: p_trans_number => p_trans_number,
2405: p_calling_interface => p_calling_interface,
2406: --Bug# 5261704
2418: --Bug# 4028371
2419: x_fa_trx_date => x_fa_trx_date,
2420: x_asset_hdr_rec => x_asset_hdr_rec);
2421:
2422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_ERROR;
2426: END IF;
2419: x_fa_trx_date => x_fa_trx_date,
2420: x_asset_hdr_rec => x_asset_hdr_rec);
2421:
2422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_ERROR;
2426: END IF;
2427:
2420: x_asset_hdr_rec => x_asset_hdr_rec);
2421:
2422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_ERROR;
2426: END IF;
2427:
2428: End FIXED_ASSET_ADD;
2421:
2422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_ERROR;
2426: END IF;
2427:
2428: End FIXED_ASSET_ADD;
2429:
2437: --End of Comments
2438: --------------------------------------------------------------------------------
2439: PROCEDURE FIXED_ASSET_TRANSFER
2440: (p_api_version IN NUMBER,
2441: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2442: x_return_status OUT NOCOPY VARCHAR2,
2443: x_msg_count OUT NOCOPY NUMBER,
2444: x_msg_data OUT NOCOPY VARCHAR2,
2445: p_asset_id IN NUMBER,
2459: --Bug# 4028371
2460: x_fa_trx_date OUT NOCOPY DATE,
2461: p_calling_interface IN VARCHAR2) is
2462:
2463: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2464: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_TRANSFER';
2465: l_api_version CONSTANT NUMBER := 1.0;
2466:
2467:
2493: --Bug# 6373605 end
2494:
2495:
2496: begin
2497: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2498: -- Call start_activity to create savepoint, check compatibility
2499: -- and initialize message list
2500: x_return_status := OKL_API.START_ACTIVITY (
2501: l_api_name
2496: begin
2497: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2498: -- Call start_activity to create savepoint, check compatibility
2499: -- and initialize message list
2500: x_return_status := OKL_API.START_ACTIVITY (
2501: l_api_name
2502: ,p_init_msg_list
2503: ,'_PVT'
2504: ,x_return_status);
2502: ,p_init_msg_list
2503: ,'_PVT'
2504: ,x_return_status);
2505: -- Check if activity started successfully
2506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2509: RAISE OKL_API.G_EXCEPTION_ERROR;
2510: END IF;
2503: ,'_PVT'
2504: ,x_return_status);
2505: -- Check if activity started successfully
2506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2509: RAISE OKL_API.G_EXCEPTION_ERROR;
2510: END IF;
2511:
2504: ,x_return_status);
2505: -- Check if activity started successfully
2506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2509: RAISE OKL_API.G_EXCEPTION_ERROR;
2510: END IF;
2511:
2512: l_asset_hdr_rec.asset_id := p_asset_id;
2505: -- Check if activity started successfully
2506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2509: RAISE OKL_API.G_EXCEPTION_ERROR;
2510: END IF;
2511:
2512: l_asset_hdr_rec.asset_id := p_asset_id;
2513: l_asset_hdr_rec.book_type_code := p_book_type_code;
2548: px_asset_hdr_rec => l_asset_hdr_rec,
2549: px_asset_dist_tbl => l_asset_dist_tbl);
2550:
2551: --dbms_output.put_line('After calling FA Transfer Api '||x_return_status);
2552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2555: RAISE OKL_API.G_EXCEPTION_ERROR;
2556: END IF;
2549: px_asset_dist_tbl => l_asset_dist_tbl);
2550:
2551: --dbms_output.put_line('After calling FA Transfer Api '||x_return_status);
2552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2555: RAISE OKL_API.G_EXCEPTION_ERROR;
2556: END IF;
2557:
2550:
2551: --dbms_output.put_line('After calling FA Transfer Api '||x_return_status);
2552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2555: RAISE OKL_API.G_EXCEPTION_ERROR;
2556: END IF;
2557:
2558: --Bug# 6504515 -- moved inside the loop and if clause as
2551: --dbms_output.put_line('After calling FA Transfer Api '||x_return_status);
2552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2555: RAISE OKL_API.G_EXCEPTION_ERROR;
2556: END IF;
2557:
2558: --Bug# 6504515 -- moved inside the loop and if clause as
2559: -- SLA sources need to be populated only is
2585: ,x_msg_count => x_msg_count
2586: ,x_msg_data => x_msg_data
2587: );
2588:
2589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2593: END IF;
2586: ,x_msg_data => x_msg_data
2587: );
2588:
2589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2593: END IF;
2594: --bug# 6373605 -- call populate SLA sources
2587: );
2588:
2589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2593: END IF;
2594: --bug# 6373605 -- call populate SLA sources
2595: --Bug# 6504515 -- end
2588:
2589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2593: END IF;
2594: --bug# 6373605 -- call populate SLA sources
2595: --Bug# 6504515 -- end
2596:
2601: --Bug# 4028371
2602: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2603:
2604:
2605: OKL_API.END_ACTIVITY (x_msg_count,
2606: x_msg_data );
2607: EXCEPTION
2608: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2609: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2604:
2605: OKL_API.END_ACTIVITY (x_msg_count,
2606: x_msg_data );
2607: EXCEPTION
2608: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2609: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2610: l_api_name,
2611: G_PKG_NAME,
2612: 'OKL_API.G_RET_STS_ERROR',
2605: OKL_API.END_ACTIVITY (x_msg_count,
2606: x_msg_data );
2607: EXCEPTION
2608: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2609: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2610: l_api_name,
2611: G_PKG_NAME,
2612: 'OKL_API.G_RET_STS_ERROR',
2613: x_msg_count,
2608: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2609: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2610: l_api_name,
2611: G_PKG_NAME,
2612: 'OKL_API.G_RET_STS_ERROR',
2613: x_msg_count,
2614: x_msg_data,
2615: '_PVT');
2616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2612: 'OKL_API.G_RET_STS_ERROR',
2613: x_msg_count,
2614: x_msg_data,
2615: '_PVT');
2616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2617: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2618: l_api_name,
2619: G_PKG_NAME,
2620: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2613: x_msg_count,
2614: x_msg_data,
2615: '_PVT');
2616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2617: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2618: l_api_name,
2619: G_PKG_NAME,
2620: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2621: x_msg_count,
2616: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2617: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2618: l_api_name,
2619: G_PKG_NAME,
2620: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2621: x_msg_count,
2622: x_msg_data,
2623: '_PVT');
2624: WHEN OTHERS THEN
2621: x_msg_count,
2622: x_msg_data,
2623: '_PVT');
2624: WHEN OTHERS THEN
2625: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2626: l_api_name,
2627: G_PKG_NAME,
2628: 'OTHERS',
2629: x_msg_count,
2647: --End of Comments
2648: --------------------------------------------------------------------------------
2649: PROCEDURE FIXED_ASSET_ADJUST_UNIT
2650: (p_api_version IN NUMBER,
2651: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2652: x_return_status OUT NOCOPY VARCHAR2,
2653: x_msg_count OUT NOCOPY NUMBER,
2654: x_msg_data OUT NOCOPY VARCHAR2,
2655: p_asset_id IN NUMBER,
2669: --Bug# 4028371
2670: x_fa_trx_date OUT NOCOPY DATE,
2671: p_calling_interface IN VARCHAR2) is
2672:
2673: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2674: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_ADJUST_UNIT';
2675: l_api_version CONSTANT NUMBER := 1.0;
2676:
2677:
2704: l_fxlv_rec okl_sla_acc_sources_pvt.fxlv_rec_type;
2705: --Bug# 6373605 end
2706:
2707: begin
2708: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2709: -- Call start_activity to create savepoint, check compatibility
2710: -- and initialize message list
2711: x_return_status := OKL_API.START_ACTIVITY (
2712: l_api_name
2707: begin
2708: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2709: -- Call start_activity to create savepoint, check compatibility
2710: -- and initialize message list
2711: x_return_status := OKL_API.START_ACTIVITY (
2712: l_api_name
2713: ,p_init_msg_list
2714: ,'_PVT'
2715: ,x_return_status);
2713: ,p_init_msg_list
2714: ,'_PVT'
2715: ,x_return_status);
2716: -- Check if activity started successfully
2717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2720: RAISE OKL_API.G_EXCEPTION_ERROR;
2721: END IF;
2714: ,'_PVT'
2715: ,x_return_status);
2716: -- Check if activity started successfully
2717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2720: RAISE OKL_API.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2715: ,x_return_status);
2716: -- Check if activity started successfully
2717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2720: RAISE OKL_API.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2723: l_asset_hdr_rec.asset_id := p_asset_id;
2716: -- Check if activity started successfully
2717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2720: RAISE OKL_API.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2723: l_asset_hdr_rec.asset_id := p_asset_id;
2724: l_asset_hdr_rec.book_type_code := p_book_type_code;
2793: px_asset_hdr_rec => l_asset_hdr_rec,
2794: px_asset_dist_tbl => l_asset_dist_tbl);
2795:
2796: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
2797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2800: RAISE OKL_API.G_EXCEPTION_ERROR;
2801: END IF;
2794: px_asset_dist_tbl => l_asset_dist_tbl);
2795:
2796: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
2797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2800: RAISE OKL_API.G_EXCEPTION_ERROR;
2801: END IF;
2802: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2795:
2796: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
2797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2800: RAISE OKL_API.G_EXCEPTION_ERROR;
2801: END IF;
2802: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2803: --bug# 6373605 -- call populate sla sources
2796: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
2797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2800: RAISE OKL_API.G_EXCEPTION_ERROR;
2801: END IF;
2802: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2803: --bug# 6373605 -- call populate sla sources
2804: l_fxhv_rec.source_id := p_sla_source_header_id;
2823: ,x_msg_count => x_msg_count
2824: ,x_msg_data => x_msg_data
2825: );
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2824: ,x_msg_data => x_msg_data
2825: );
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: --bug# 6373605 -- call populate SLA sources
2825: );
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: --bug# 6373605 -- call populate SLA sources
2833:
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: --bug# 6373605 -- call populate SLA sources
2833:
2834: OKL_API.END_ACTIVITY (x_msg_count,
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: --bug# 6373605 -- call populate SLA sources
2833:
2834: OKL_API.END_ACTIVITY (x_msg_count,
2835: x_msg_data );
2836: EXCEPTION
2837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2838: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2833:
2834: OKL_API.END_ACTIVITY (x_msg_count,
2835: x_msg_data );
2836: EXCEPTION
2837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2838: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2839: l_api_name,
2840: G_PKG_NAME,
2841: 'OKL_API.G_RET_STS_ERROR',
2834: OKL_API.END_ACTIVITY (x_msg_count,
2835: x_msg_data );
2836: EXCEPTION
2837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2838: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2839: l_api_name,
2840: G_PKG_NAME,
2841: 'OKL_API.G_RET_STS_ERROR',
2842: x_msg_count,
2837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2838: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2839: l_api_name,
2840: G_PKG_NAME,
2841: 'OKL_API.G_RET_STS_ERROR',
2842: x_msg_count,
2843: x_msg_data,
2844: '_PVT');
2845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2841: 'OKL_API.G_RET_STS_ERROR',
2842: x_msg_count,
2843: x_msg_data,
2844: '_PVT');
2845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2847: l_api_name,
2848: G_PKG_NAME,
2849: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2842: x_msg_count,
2843: x_msg_data,
2844: '_PVT');
2845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2847: l_api_name,
2848: G_PKG_NAME,
2849: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2850: x_msg_count,
2845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2847: l_api_name,
2848: G_PKG_NAME,
2849: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2850: x_msg_count,
2851: x_msg_data,
2852: '_PVT');
2853: WHEN OTHERS THEN
2850: x_msg_count,
2851: x_msg_data,
2852: '_PVT');
2853: WHEN OTHERS THEN
2854: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2855: l_api_name,
2856: G_PKG_NAME,
2857: 'OTHERS',
2858: x_msg_count,
2874: --End of Comments
2875: --------------------------------------------------------------------------------
2876: PROCEDURE FIXED_ASSET_UPDATE_DESC
2877: (p_api_version IN NUMBER,
2878: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2879: x_return_status OUT NOCOPY VARCHAR2,
2880: x_msg_count OUT NOCOPY NUMBER,
2881: x_msg_data OUT NOCOPY VARCHAR2,
2882: p_asset_id IN NUMBER,
2887: p_trx_number IN VARCHAR2,
2888: x_fa_trx_date OUT NOCOPY DATE,
2889: p_calling_interface IN VARCHAR2) is
2890:
2891: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2892: l_api_name CONSTANT varchar2(30) := 'FIXED_ASSET_UPDATE_DESC';
2893: l_api_version CONSTANT NUMBER := 1.0;
2894:
2895: l_trans_rec fa_api_types.trans_rec_type;
2898: l_asset_type_rec fa_api_types.asset_type_rec_type;
2899: l_asset_cat_rec fa_api_types.asset_cat_rec_type;
2900:
2901: begin
2902: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2903: -- Call start_activity to create savepoint, check compatibility
2904: -- and initialize message list
2905: x_return_status := OKL_API.START_ACTIVITY (
2906: l_api_name
2901: begin
2902: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2903: -- Call start_activity to create savepoint, check compatibility
2904: -- and initialize message list
2905: x_return_status := OKL_API.START_ACTIVITY (
2906: l_api_name
2907: ,p_init_msg_list
2908: ,'_PVT'
2909: ,x_return_status);
2907: ,p_init_msg_list
2908: ,'_PVT'
2909: ,x_return_status);
2910: -- Check if activity started successfully
2911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2908: ,'_PVT'
2909: ,x_return_status);
2910: -- Check if activity started successfully
2911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916:
2909: ,x_return_status);
2910: -- Check if activity started successfully
2911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916:
2917: l_asset_hdr_rec.asset_id := p_asset_id;
2910: -- Check if activity started successfully
2911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916:
2917: l_asset_hdr_rec.asset_id := p_asset_id;
2918:
2926:
2927: l_asset_desc_rec.model_number := p_model_number;
2928: l_asset_desc_rec.manufacturer_name := p_manufacturer;
2929:
2930: If p_description is not null AND p_description <> OKL_API.G_MISS_CHAR THEN
2931: l_asset_desc_rec.description := p_description;
2932: end if;
2933:
2934: FA_ASSET_DESC_PUB.update_desc(
2952: END IF;
2953:
2954: x_fa_trx_date := l_trans_rec.transaction_date_entered;
2955:
2956: OKL_API.END_ACTIVITY (x_msg_count,
2957: x_msg_data );
2958: EXCEPTION
2959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2960: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2955:
2956: OKL_API.END_ACTIVITY (x_msg_count,
2957: x_msg_data );
2958: EXCEPTION
2959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2960: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2961: l_api_name,
2962: G_PKG_NAME,
2963: 'OKL_API.G_RET_STS_ERROR',
2956: OKL_API.END_ACTIVITY (x_msg_count,
2957: x_msg_data );
2958: EXCEPTION
2959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2960: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2961: l_api_name,
2962: G_PKG_NAME,
2963: 'OKL_API.G_RET_STS_ERROR',
2964: x_msg_count,
2959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2960: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2961: l_api_name,
2962: G_PKG_NAME,
2963: 'OKL_API.G_RET_STS_ERROR',
2964: x_msg_count,
2965: x_msg_data,
2966: '_PVT');
2967: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2963: 'OKL_API.G_RET_STS_ERROR',
2964: x_msg_count,
2965: x_msg_data,
2966: '_PVT');
2967: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2968: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2969: l_api_name,
2970: G_PKG_NAME,
2971: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2964: x_msg_count,
2965: x_msg_data,
2966: '_PVT');
2967: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2968: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2969: l_api_name,
2970: G_PKG_NAME,
2971: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2972: x_msg_count,
2967: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2968: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2969: l_api_name,
2970: G_PKG_NAME,
2971: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2972: x_msg_count,
2973: x_msg_data,
2974: '_PVT');
2975: WHEN OTHERS THEN
2972: x_msg_count,
2973: x_msg_data,
2974: '_PVT');
2975: WHEN OTHERS THEN
2976: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2977: l_api_name,
2978: G_PKG_NAME,
2979: 'OTHERS',
2980: x_msg_count,
3015: p_sla_asset_chr_id IN Number,
3016: --Bug# 6373605 end
3017: x_cimv_rec OUT NOCOPY cimv_rec_type) is
3018:
3019: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3020: l_api_name CONSTANT varchar2(30) := 'PROCESS_FA_LINE';
3021: l_api_version CONSTANT NUMBER := 1.0;
3022: l_fa_lty_code Varchar2(30) := G_FA_LINE_LTY_CODE;
3023:
3272:
3273: Begin
3274:
3275:
3276: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3277: -- Call start_activity to create savepoint, check compatibility
3278: -- and initialize message list
3279: x_return_status := OKL_API.START_ACTIVITY (
3280: l_api_name
3275:
3276: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3277: -- Call start_activity to create savepoint, check compatibility
3278: -- and initialize message list
3279: x_return_status := OKL_API.START_ACTIVITY (
3280: l_api_name
3281: ,p_init_msg_list
3282: ,'_PVT'
3283: ,x_return_status);
3281: ,p_init_msg_list
3282: ,'_PVT'
3283: ,x_return_status);
3284: -- Check if activity started successfully
3285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3288: RAISE OKL_API.G_EXCEPTION_ERROR;
3289: END IF;
3282: ,'_PVT'
3283: ,x_return_status);
3284: -- Check if activity started successfully
3285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3288: RAISE OKL_API.G_EXCEPTION_ERROR;
3289: END IF;
3290:
3283: ,x_return_status);
3284: -- Check if activity started successfully
3285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3288: RAISE OKL_API.G_EXCEPTION_ERROR;
3289: END IF;
3290:
3291: --Bug# 5261704 : opened this cursor earlier as tax owner value is required
3284: -- Check if activity started successfully
3285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3288: RAISE OKL_API.G_EXCEPTION_ERROR;
3289: END IF;
3290:
3291: --Bug# 5261704 : opened this cursor earlier as tax owner value is required
3292: -- for asset addition for setting depreciation flag to 'NO'
3306:
3307: l_cimv_rec := get_cimv_rec(l_fa_line_id, l_no_data_found);
3308: If l_no_data_found = TRUE Then
3309: --dbms_output.put_line('no fa item (line source) records ...!');
3310: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3311: p_msg_name => G_FA_ITEM_REC_NOT_FOUND,
3312: p_token1 => G_FA_LINE_ID,
3313: p_token1_value => to_char(l_fa_line_id)
3314: );
3311: p_msg_name => G_FA_ITEM_REC_NOT_FOUND,
3312: p_token1 => G_FA_LINE_ID,
3313: p_token1_value => to_char(l_fa_line_id)
3314: );
3315: RAISE OKL_API.G_EXCEPTION_ERROR;
3316: Else
3317: If (l_cimv_rec.jtot_object1_code is not null) and (l_cimv_rec.object1_id1) is not null Then
3318: Null; --asset is already linked
3319: x_cimv_rec := l_cimv_rec;
3322: --go to txlv to fetch the transaction record
3323: l_talv_rec := get_talv_rec(l_fa_line_id, p_trx_type, l_no_data_found);
3324: If l_no_data_found = TRUE Then
3325: --dbms_output.put_line('no asset creation transaction records ...!');
3326: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3327: p_msg_name => G_FA_TRX_REC_NOT_FOUND,
3328: p_token1 => G_FA_LINE_ID,
3329: p_token1_value => to_char(l_fa_line_id)
3330: );
3327: p_msg_name => G_FA_TRX_REC_NOT_FOUND,
3328: p_token1 => G_FA_LINE_ID,
3329: p_token1_value => to_char(l_fa_line_id)
3330: );
3331: RAISE OKL_API.G_EXCEPTION_ERROR;
3332: Else
3333: --bug#2675391 set corp book name for future use
3334: l_corp_book := l_talv_rec.corporate_book;
3335: --check if depreciation category has been entered
3334: l_corp_book := l_talv_rec.corporate_book;
3335: --check if depreciation category has been entered
3336: if l_talv_rec.depreciation_id is null then
3337: --dbms_output.put_line('Asset category not entered for Asset transaction..');
3338: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3339: p_msg_name => G_AST_CAT_NOT_ENTERED,
3340: p_token1 => G_ASSET_NUMBER_TOKEN,
3341: p_token1_value => l_talv_rec.asset_number
3342: );
3339: p_msg_name => G_AST_CAT_NOT_ENTERED,
3340: p_token1 => G_ASSET_NUMBER_TOKEN,
3341: p_token1_value => l_talv_rec.asset_number
3342: );
3343: RAISE OKL_API.G_EXCEPTION_ERROR;
3344: end if;
3345:
3346: --check if asset category has been entered
3347: If l_talv_rec.fa_location_id is null then
3345:
3346: --check if asset category has been entered
3347: If l_talv_rec.fa_location_id is null then
3348: --dbms_output.put_line('FA location not entered for Asset transaction..');
3349: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3350: p_msg_name => G_AST_LOC_NOT_ENTERED,
3351: p_token1 => G_ASSET_NUMBER_TOKEN,
3352: p_token1_value => l_talv_rec.asset_number
3353: );
3350: p_msg_name => G_AST_LOC_NOT_ENTERED,
3351: p_token1 => G_ASSET_NUMBER_TOKEN,
3352: p_token1_value => l_talv_rec.asset_number
3353: );
3354: RAISE OKL_API.G_EXCEPTION_ERROR;
3355: End If;
3356:
3357: --Bug# 3156924 : Fetch transaction details for calling FA interfaces
3358: -----------------
3357: --Bug# 3156924 : Fetch transaction details for calling FA interfaces
3358: -----------------
3359: --Bug# 6791359 : Commented the If clause
3360: ----------------
3361: --If nvl(l_trans_number,okl_api.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3362: Open l_tas_csr(p_tas_id => l_talv_rec.tas_id);
3363: Fetch l_tas_csr into l_trans_number,
3364: l_trans_date,
3365: --bug# 6373605 start
3377: --Bug# 3156924
3378:
3379: --check salvage value for operating Lease
3380:
3381: -- Bug# 3103387 - Changed NVL check from 0 to okl_api.G_MISS_NUM
3382: If (nvl(l_talv_rec.salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM and nvl(l_talv_rec.percent_salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM
3383: and l_Deal_Type = G_OP_LEASE_BK_CLASS) Then
3384:
3385: --get the residual value from top line
3378:
3379: --check salvage value for operating Lease
3380:
3381: -- Bug# 3103387 - Changed NVL check from 0 to okl_api.G_MISS_NUM
3382: If (nvl(l_talv_rec.salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM and nvl(l_talv_rec.percent_salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM
3383: and l_Deal_Type = G_OP_LEASE_BK_CLASS) Then
3384:
3385: --get the residual value from top line
3386: OPEN residual_val_csr(p_fin_ast_line_id => l_fin_ast_line_id);
3412: End If;
3413: Close chk_cat_bk_csr;
3414: If l_cat_bk_exists = '?' Then
3415: --dbms_output.put_line('Not a valid corporate book for category..');
3416: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3417: p_msg_name => G_FA_INVALID_BK_CAT,
3418: p_token1 => G_FA_BOOK,
3419: p_token1_value => l_talv_rec.corporate_book,
3420: p_token2 => G_ASSET_CATEGORY,
3419: p_token1_value => l_talv_rec.corporate_book,
3420: p_token2 => G_ASSET_CATEGORY,
3421: p_token2_value => to_char(l_talv_rec.depreciation_id)
3422: );
3423: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: Else
3425: --Bug# 5261704 : Set depreciate flag to 'NO' for
3426: -- deal types where cost will be subsequently adjusted to zero
3427: l_depreciate_flag := 'YES';
3454: --Bug# 4028371
3455: x_fa_trx_date => l_fa_add_date_corp,
3456: x_asset_hdr_rec => l_asset_hdr_rec);
3457: --dbms_output.put_line('After fixed_asset_add corp book'||x_return_status);
3458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3455: x_fa_trx_date => l_fa_add_date_corp,
3456: x_asset_hdr_rec => l_asset_hdr_rec);
3457: --dbms_output.put_line('After fixed_asset_add corp book'||x_return_status);
3458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3463: End If;
3456: x_asset_hdr_rec => l_asset_hdr_rec);
3457: --dbms_output.put_line('After fixed_asset_add corp book'||x_return_status);
3458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3463: End If;
3464:
3457: --dbms_output.put_line('After fixed_asset_add corp book'||x_return_status);
3458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3463: End If;
3464:
3465: --Bug# : 11.5.9 Multi GAAP
3482:
3483: If l_cat_bk_exists = '?' Then
3484: --dbms_output.put_line('Not a valid tax book for category..');
3485: --raise appropriate error
3486: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3487: p_msg_name => G_FA_INVALID_BK_CAT,
3488: p_token1 => G_FA_BOOK,
3489: p_token1_value => okl_tadv_rec.tax_book,
3490: p_token2 => G_ASSET_CATEGORY,
3489: p_token1_value => okl_tadv_rec.tax_book,
3490: p_token2 => G_ASSET_CATEGORY,
3491: p_token2_value => to_char(l_talv_rec.depreciation_id)
3492: );
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: Else
3495: --check if asset already exists in tax book
3496: l_ast_bk_exists := '?';
3497: Open chk_ast_bk_csr(p_book_type_code => okl_tadv_rec.tax_book,
3520:
3521: If l_mass_cpy_book = '?' Then
3522: --can not mass copy into tax book
3523: --dbms_output.put_line('Can not copy into tax book ...');
3524: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3525: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
3526: p_token1 => G_FA_BOOK,
3527: p_token1_value => okl_tadv_rec.tax_book
3528: );
3525: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
3526: p_token1 => G_FA_BOOK,
3527: p_token1_value => okl_tadv_rec.tax_book
3528: );
3529: RAISE OKL_API.G_EXCEPTION_ERROR;
3530: --raise appropriate error message;
3531: Else
3532: --can masscopy
3533: --intialize talv record for tax book
3549: --check salvage value for operating Lease
3550: If l_rep_pdt_book = okl_tadv_rec.tax_book Then
3551:
3552: -- Bug# 3103387 - Changed NVL check from 0
3553: -- to okl_api.G_MISS_NUM
3554: If (nvl(l_talv_rec.salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM and nvl(l_talv_rec.percent_salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM
3555: and l_Deal_Type = G_OP_LEASE_BK_CLASS) Then
3556: --null; --salvage value shouldbe residual value as for corp book
3557: --salvage value should be equal to corp book salvage value
3550: If l_rep_pdt_book = okl_tadv_rec.tax_book Then
3551:
3552: -- Bug# 3103387 - Changed NVL check from 0
3553: -- to okl_api.G_MISS_NUM
3554: If (nvl(l_talv_rec.salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM and nvl(l_talv_rec.percent_salvage_value,okl_api.G_MISS_NUM) = okl_api.G_MISS_NUM
3555: and l_Deal_Type = G_OP_LEASE_BK_CLASS) Then
3556: --null; --salvage value shouldbe residual value as for corp book
3557: --salvage value should be equal to corp book salvage value
3558: l_talv_rec.salvage_value := l_corp_salvage_value;
3582: l_depreciate_flag := 'YES';
3583: If ((l_deal_type = 'LOAN') OR
3584: (l_deal_type in (G_ST_LEASE_BK_CLASS,G_DF_LEASE_BK_CLASS) AND l_tax_owner = 'LESSEE')
3585: ) AND
3586: l_talv_rec.corporate_book <> nvl(l_rep_pdt_book,okl_api.g_miss_char) Then
3587: l_depreciate_flag := 'NO';
3588: End If;
3589: If (l_Multi_GAAP_YN = 'Y') AND
3590: (l_talv_rec.corporate_book = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR)) AND
3586: l_talv_rec.corporate_book <> nvl(l_rep_pdt_book,okl_api.g_miss_char) Then
3587: l_depreciate_flag := 'NO';
3588: End If;
3589: If (l_Multi_GAAP_YN = 'Y') AND
3590: (l_talv_rec.corporate_book = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR)) AND
3591: (p_adjust_asset_to_zero = 'Y') Then
3592: l_depreciate_flag := 'NO';
3593: End If;
3594: --End Bug# 5261704
3617: --Bug# 4028371
3618: x_fa_trx_date => l_fa_add_date_tax,
3619: x_asset_hdr_rec => l_asset_hdr_rec);
3620: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_ERROR;
3625: END IF;
3618: x_fa_trx_date => l_fa_add_date_tax,
3619: x_asset_hdr_rec => l_asset_hdr_rec);
3620: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: End If; --can mass copy into tax book
3619: x_asset_hdr_rec => l_asset_hdr_rec);
3620: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: End If; --can mass copy into tax book
3627: End If; --asset does not exist in tax book
3620: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: End If; --can mass copy into tax book
3627: End If; --asset does not exist in tax book
3628: End If; -- valid tax book for category
3665:
3666: If l_cat_bk_exists = '?' Then
3667: --dbms_output.put_line('Not a valid tax book for category..');
3668: --raise appropriate error
3669: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3670: p_msg_name => G_FA_INVALID_BK_CAT,
3671: p_token1 => G_FA_BOOK,
3672: p_token1_value => l_rep_pdt_book,
3673: p_token2 => G_ASSET_CATEGORY,
3672: p_token1_value => l_rep_pdt_book,
3673: p_token2 => G_ASSET_CATEGORY,
3674: p_token2_value => to_char(okx_ast_rec.depreciation_category)
3675: );
3676: RAISE OKL_API.G_EXCEPTION_ERROR;
3677: Else
3678: --check if asset already exists in tax book
3679: l_ast_bk_exists := '?';
3680: Open chk_ast_bk_csr(p_book_type_code => l_rep_pdt_book,
3703:
3704: If l_mass_cpy_book = '?' Then
3705: --can not mass copy into tax book
3706: --dbms_output.put_line('Can not copy into tax book ...');
3707: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3708: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
3709: p_token1 => G_FA_BOOK,
3710: p_token1_value => l_rep_pdt_book
3711: );
3708: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
3709: p_token1 => G_FA_BOOK,
3710: p_token1_value => l_rep_pdt_book
3711: );
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713: --raise appropriate error message;
3714: Else
3715:
3716: open bk_dfs_csr(ctId => okx_ast_rec.depreciation_category,
3718: bk => l_rep_pdt_book);
3719: Fetch bk_dfs_csr into l_bk_dfs_rec;
3720: If bk_dfs_csr%NOTFOUND Then
3721: Close bk_dfs_csr;
3722: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3723: p_msg_name => G_FA_INVALID_BK_CAT,
3724: p_token1 => G_FA_BOOK,
3725: p_token1_value => l_rep_pdt_book,
3726: p_token2 => G_ASSET_CATEGORY,
3724: p_token1 => G_FA_BOOK,
3725: p_token1_value => l_rep_pdt_book,
3726: p_token2 => G_ASSET_CATEGORY,
3727: p_token2_value => to_char(okx_ast_rec.depreciation_category));
3728: RAISE OKL_API.G_EXCEPTION_ERROR;
3729: End If;
3730: Close bk_dfs_csr;
3731:
3732: --can masscopy
3800: x_msg_count => x_msg_count,
3801: x_msg_data => x_msg_data,
3802: p_talv_rec => l_talv_rec,
3803: --Bug# 3621663
3804: --p_no_curr_conv => OKL_API.G_TRUE,
3805: --Bug# 3156924
3806: p_trans_number => l_trans_number,
3807: p_calling_interface => l_calling_interface,
3808: --Bug# :5261704
3823: --Bug# 4028371
3824: x_fa_trx_date => l_fa_add_date_mg,
3825: x_asset_hdr_rec => l_asset_hdr_rec);
3826: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3824: x_fa_trx_date => l_fa_add_date_mg,
3825: x_asset_hdr_rec => l_asset_hdr_rec);
3826: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: End If; --can mass copy into tax book
3825: x_asset_hdr_rec => l_asset_hdr_rec);
3826: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: End If; --can mass copy into tax book
3833: End If; --asset does not exist in tax book
3826: --dbms_output.put_line('After tax book "'||okl_tadv_rec.tax_book||'" :'||x_return_status);
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: End If; --can mass copy into tax book
3833: End If; --asset does not exist in tax book
3834: End If; -- valid tax book for category
3842: Open lse_source_csr(l_fa_lty_code);
3843: Fetch lse_source_csr into l_cimv_rec.jtot_object1_code;
3844: If lse_source_csr%NOTFOUND Then
3845: --dbms_output.put_line('Fatal error due to setup - lse source undefined');
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3847: p_msg_name => G_JTF_UNDEF_LINE_SOURCE,
3848: p_token1 => G_LTY_CODE,
3849: p_token1_value => l_fa_lty_code
3850: );
3847: p_msg_name => G_JTF_UNDEF_LINE_SOURCE,
3848: p_token1 => G_LTY_CODE,
3849: p_token1_value => l_fa_lty_code
3850: );
3851: RAISE OKL_API.G_EXCEPTION_ERROR;
3852: End If;
3853: Close lse_source_csr;
3854:
3855: OKL_OKC_MIGRATION_PVT.update_contract_item
3860: x_msg_data => x_msg_data,
3861: p_cimv_rec => l_cimv_rec,
3862: x_cimv_rec => l_cimv_rec_out);
3863: --dbms_output.put_line('After calling update item :'||x_return_status);
3864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3867: RAISE OKL_API.G_EXCEPTION_ERROR;
3868: END IF;
3861: p_cimv_rec => l_cimv_rec,
3862: x_cimv_rec => l_cimv_rec_out);
3863: --dbms_output.put_line('After calling update item :'||x_return_status);
3864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3867: RAISE OKL_API.G_EXCEPTION_ERROR;
3868: END IF;
3869: x_cimv_rec := l_cimv_rec_out;
3862: x_cimv_rec => l_cimv_rec_out);
3863: --dbms_output.put_line('After calling update item :'||x_return_status);
3864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3867: RAISE OKL_API.G_EXCEPTION_ERROR;
3868: END IF;
3869: x_cimv_rec := l_cimv_rec_out;
3870: l_asst_count := l_asst_count+1;
3863: --dbms_output.put_line('After calling update item :'||x_return_status);
3864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3867: RAISE OKL_API.G_EXCEPTION_ERROR;
3868: END IF;
3869: x_cimv_rec := l_cimv_rec_out;
3870: l_asst_count := l_asst_count+1;
3871:
3933: p_sla_asset_chr_id => p_sla_asset_chr_id,
3934: --Bug# 6373605--SLA populate sources
3935: x_asset_fin_rec => l_asset_fin_rec);
3936: --dbms_output.put_line('After fixed asset adjust Corp Bk for ST Lease :'||x_return_status);
3937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3934: --Bug# 6373605--SLA populate sources
3935: x_asset_fin_rec => l_asset_fin_rec);
3936: --dbms_output.put_line('After fixed asset adjust Corp Bk for ST Lease :'||x_return_status);
3937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3942: End If;
3935: x_asset_fin_rec => l_asset_fin_rec);
3936: --dbms_output.put_line('After fixed asset adjust Corp Bk for ST Lease :'||x_return_status);
3937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3942: End If;
3943: --Bug #2774529: End
3936: --dbms_output.put_line('After fixed asset adjust Corp Bk for ST Lease :'||x_return_status);
3937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3942: End If;
3943: --Bug #2774529: End
3944: End If;
4025: p_sla_asset_chr_id => p_sla_asset_chr_id,
4026: --Bug# 6373605--SLA populate sources
4027: x_asset_fin_rec => l_asset_fin_rec);
4028: --dbms_output.put_line('After fixed asset adjust for Tax bk ST Lease :'||x_return_status);
4029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_ERROR;
4033: END IF;
4026: --Bug# 6373605--SLA populate sources
4027: x_asset_fin_rec => l_asset_fin_rec);
4028: --dbms_output.put_line('After fixed asset adjust for Tax bk ST Lease :'||x_return_status);
4029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_ERROR;
4033: END IF;
4034: End If;
4027: x_asset_fin_rec => l_asset_fin_rec);
4028: --dbms_output.put_line('After fixed asset adjust for Tax bk ST Lease :'||x_return_status);
4029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_ERROR;
4033: END IF;
4034: End If;
4035: --Bug# 2774529: End
4028: --dbms_output.put_line('After fixed asset adjust for Tax bk ST Lease :'||x_return_status);
4029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4032: RAISE OKL_API.G_EXCEPTION_ERROR;
4033: END IF;
4034: End If;
4035: --Bug# 2774529: End
4036: End If;
4080: x_inv_org_id => l_inv_org_id,
4081: x_book_type_code => l_book_type_code,
4082: x_select => l_select);
4083: --dbms_output.put_line('TAX Owner :'||l_name);
4084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;*/
4081: x_book_type_code => l_book_type_code,
4082: x_select => l_select);
4083: --dbms_output.put_line('TAX Owner :'||l_name);
4084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;*/
4089:
4082: x_select => l_select);
4083: --dbms_output.put_line('TAX Owner :'||l_name);
4084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;*/
4089:
4090: If upper(l_tax_owner) = 'LESSOR' Then
4083: --dbms_output.put_line('TAX Owner :'||l_name);
4084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;*/
4089:
4090: If upper(l_tax_owner) = 'LESSOR' Then
4091: --call the adjustment api to set the cost to zero in corp book only
4144: p_sla_asset_chr_id => p_sla_asset_chr_id,
4145: --Bug# 6373605--SLA populate sources
4146: x_asset_fin_rec => l_asset_fin_rec);
4147: --dbms_output.put_line('After fixed asset adjust for Direct Fin Lease :'||x_return_status);
4148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_ERROR;
4152: END IF;
4145: --Bug# 6373605--SLA populate sources
4146: x_asset_fin_rec => l_asset_fin_rec);
4147: --dbms_output.put_line('After fixed asset adjust for Direct Fin Lease :'||x_return_status);
4148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_ERROR;
4152: END IF;
4153: End If;
4146: x_asset_fin_rec => l_asset_fin_rec);
4147: --dbms_output.put_line('After fixed asset adjust for Direct Fin Lease :'||x_return_status);
4148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_ERROR;
4152: END IF;
4153: End If;
4154: --Bug# End
4147: --dbms_output.put_line('After fixed asset adjust for Direct Fin Lease :'||x_return_status);
4148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_ERROR;
4152: END IF;
4153: End If;
4154: --Bug# End
4155: End If;
4213: p_sla_asset_chr_id => p_sla_asset_chr_id,
4214: --Bug# 6373605--SLA populate sources
4215: x_asset_fin_rec => l_asset_fin_rec);
4216: --dbms_output.put_line('After fixed asset adjust Corp Bk for DF Lease :'||x_return_status);
4217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4220: RAISE OKL_API.G_EXCEPTION_ERROR;
4221: END IF;
4214: --Bug# 6373605--SLA populate sources
4215: x_asset_fin_rec => l_asset_fin_rec);
4216: --dbms_output.put_line('After fixed asset adjust Corp Bk for DF Lease :'||x_return_status);
4217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4220: RAISE OKL_API.G_EXCEPTION_ERROR;
4221: END IF;
4222: End If;
4215: x_asset_fin_rec => l_asset_fin_rec);
4216: --dbms_output.put_line('After fixed asset adjust Corp Bk for DF Lease :'||x_return_status);
4217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4220: RAISE OKL_API.G_EXCEPTION_ERROR;
4221: END IF;
4222: End If;
4223: --Bug#2774529 End
4216: --dbms_output.put_line('After fixed asset adjust Corp Bk for DF Lease :'||x_return_status);
4217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4220: RAISE OKL_API.G_EXCEPTION_ERROR;
4221: END IF;
4222: End If;
4223: --Bug#2774529 End
4224: End If;
4303: p_sla_asset_chr_id => p_sla_asset_chr_id,
4304: --Bug# 6373605--SLA populate sources
4305: x_asset_fin_rec => l_asset_fin_rec);
4306: --dbms_output.put_line('After fixed asset adjust for Tax bk DF Lease :'||x_return_status);
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4304: --Bug# 6373605--SLA populate sources
4305: x_asset_fin_rec => l_asset_fin_rec);
4306: --dbms_output.put_line('After fixed asset adjust for Tax bk DF Lease :'||x_return_status);
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: End If;
4305: x_asset_fin_rec => l_asset_fin_rec);
4306: --dbms_output.put_line('After fixed asset adjust for Tax bk DF Lease :'||x_return_status);
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: End If;
4313: --Bug# 2774529 End
4306: --dbms_output.put_line('After fixed asset adjust for Tax bk DF Lease :'||x_return_status);
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: End If;
4313: --Bug# 2774529 End
4314: End If;
4389: p_sla_asset_chr_id => p_sla_asset_chr_id,
4390: --Bug# 6373605--SLA populate sources
4391: x_asset_fin_rec => l_asset_fin_rec);
4392:
4393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4395: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4390: --Bug# 6373605--SLA populate sources
4391: x_asset_fin_rec => l_asset_fin_rec);
4392:
4393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4395: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4398: END IF;
4391: x_asset_fin_rec => l_asset_fin_rec);
4392:
4393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4395: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4398: END IF;
4399: End if;
4392:
4393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4394: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4395: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4398: END IF;
4399: End if;
4400: End if;
4418: p_edit_mode => 'N',
4419: x_chrv_rec => x_chrv_rec,
4420: x_khrv_rec => x_khrv_rec);
4421:
4422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4425: RAISE OKL_API.G_EXCEPTION_ERROR;
4426: END IF;
4419: x_chrv_rec => x_chrv_rec,
4420: x_khrv_rec => x_khrv_rec);
4421:
4422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4425: RAISE OKL_API.G_EXCEPTION_ERROR;
4426: END IF;
4427:
4420: x_khrv_rec => x_khrv_rec);
4421:
4422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4425: RAISE OKL_API.G_EXCEPTION_ERROR;
4426: END IF;
4427:
4428: End If;
4421:
4422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4425: RAISE OKL_API.G_EXCEPTION_ERROR;
4426: END IF;
4427:
4428: End If;
4429:
4437: x_msg_data => x_msg_data,
4438: p_tas_id => l_talv_rec.tas_id,
4439: p_tsu_code => G_TSU_CODE_PROCESSED);
4440:
4441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4438: p_tas_id => l_talv_rec.tas_id,
4439: p_tsu_code => G_TSU_CODE_PROCESSED);
4440:
4441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446:
4439: p_tsu_code => G_TSU_CODE_PROCESSED);
4440:
4441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446:
4447: --Bug# 4028371
4440:
4441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446:
4447: --Bug# 4028371
4448: --update the fa trx date on transaction line
4456: x_msg_count => x_msg_count,
4457: x_msg_data => x_msg_data,
4458: p_talv_rec => l_talv_date_rec,
4459: x_talv_rec => lx_talv_date_rec);
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_ERROR;
4464: END IF;
4457: x_msg_data => x_msg_data,
4458: p_talv_rec => l_talv_date_rec,
4459: x_talv_rec => lx_talv_date_rec);
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_ERROR;
4464: END IF;
4465: --End Bug# 4028371
4458: p_talv_rec => l_talv_date_rec,
4459: x_talv_rec => lx_talv_date_rec);
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_ERROR;
4464: END IF;
4465: --End Bug# 4028371
4466: End If;--if asset transaction records found
4459: x_talv_rec => lx_talv_date_rec);
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: RAISE OKL_API.G_EXCEPTION_ERROR;
4464: END IF;
4465: --End Bug# 4028371
4466: End If;--if asset transaction records found
4467: End If; --if unplugged okc_k_items records for fa line
4465: --End Bug# 4028371
4466: End If;--if asset transaction records found
4467: End If; --if unplugged okc_k_items records for fa line
4468: End If; --fa line is found
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470: EXCEPTION
4471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4472: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4473: l_api_name,
4467: End If; --if unplugged okc_k_items records for fa line
4468: End If; --fa line is found
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470: EXCEPTION
4471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4472: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4473: l_api_name,
4474: G_PKG_NAME,
4475: 'OKL_API.G_RET_STS_ERROR',
4468: End If; --fa line is found
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470: EXCEPTION
4471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4472: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4473: l_api_name,
4474: G_PKG_NAME,
4475: 'OKL_API.G_RET_STS_ERROR',
4476: x_msg_count,
4471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4472: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4473: l_api_name,
4474: G_PKG_NAME,
4475: 'OKL_API.G_RET_STS_ERROR',
4476: x_msg_count,
4477: x_msg_data,
4478: '_PVT');
4479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4475: 'OKL_API.G_RET_STS_ERROR',
4476: x_msg_count,
4477: x_msg_data,
4478: '_PVT');
4479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4480: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4481: l_api_name,
4482: G_PKG_NAME,
4483: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4476: x_msg_count,
4477: x_msg_data,
4478: '_PVT');
4479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4480: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4481: l_api_name,
4482: G_PKG_NAME,
4483: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4484: x_msg_count,
4479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4480: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4481: l_api_name,
4482: G_PKG_NAME,
4483: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4484: x_msg_count,
4485: x_msg_data,
4486: '_PVT');
4487: WHEN OTHERS THEN
4484: x_msg_count,
4485: x_msg_data,
4486: '_PVT');
4487: WHEN OTHERS THEN
4488: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4489: l_api_name,
4490: G_PKG_NAME,
4491: 'OTHERS',
4492: x_msg_count,
4525: l_rep_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
4526: l_pdt_date DATE;
4527: l_no_data_found BOOLEAN;
4528: l_error_condition Exception;
4529: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4530: Begin
4531: l_pdtv_rec.id := p_pdt_id;
4532: l_pdt_date := p_pdt_date;
4533: l_no_data_found := TRUE;
4530: Begin
4531: l_pdtv_rec.id := p_pdt_id;
4532: l_pdt_date := p_pdt_date;
4533: l_no_data_found := TRUE;
4534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4535:
4536: okl_setupproducts_pub.Getpdt_parameters(p_api_version => p_api_version,
4537: p_init_msg_list => p_init_msg_list,
4538: x_return_status => l_return_status,
4542: p_pdtv_rec => l_pdtv_rec,
4543: p_product_date => l_pdt_date,
4544: p_pdt_parameter_rec => l_pdt_parameter_rec);
4545:
4546: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4547: x_rep_pdt_id := Null;
4548: x_tax_owner := Null;
4549: --Bug# 4775166
4550: Elsif l_pdt_parameter_rec.reporting_pdt_id IS NULL Then
4566: p_pdtv_rec => l_pdtv_rec,
4567: p_product_date => l_pdt_date,
4568: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
4569:
4570: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4571: x_rep_deal_type := NULL;
4572: Else
4573: x_rep_deal_type := l_rep_pdt_parameter_rec.deal_type;
4574: End If;
4577: Exception
4578: When l_error_condition Then
4579: Null;
4580: When Others Then
4581: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4582: End Get_Pdt_Params;
4583: --------------------------------------------------------------------------------
4584: --Start of Comments
4585: --Procedure Name : ACTIVATE_ASSET
4608: p_chrv_id IN NUMBER,
4609: p_call_mode IN VARCHAR2,
4610: x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
4611:
4612: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4613: l_api_name CONSTANT varchar2(30) := 'ACTIVATE_ASSET';
4614: l_api_version CONSTANT NUMBER := 1.0;
4615: l_fa_lty_code Varchar2(30) := G_FA_LINE_LTY_CODE;
4616: l_trx_type Varchar2(30) := G_TRX_LINE_TYPE_BOOK;
4696:
4697:
4698: BEGIN
4699:
4700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4701: -- Call start_activity to create savepoint, check compatibility
4702: -- and initialize message list
4703: x_return_status := OKL_API.START_ACTIVITY (
4704: l_api_name
4699:
4700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4701: -- Call start_activity to create savepoint, check compatibility
4702: -- and initialize message list
4703: x_return_status := OKL_API.START_ACTIVITY (
4704: l_api_name
4705: ,p_init_msg_list
4706: ,'_PVT'
4707: ,x_return_status);
4705: ,p_init_msg_list
4706: ,'_PVT'
4707: ,x_return_status);
4708: -- Check if activity started successfully
4709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4712: RAISE OKL_API.G_EXCEPTION_ERROR;
4713: END IF;
4706: ,'_PVT'
4707: ,x_return_status);
4708: -- Check if activity started successfully
4709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4712: RAISE OKL_API.G_EXCEPTION_ERROR;
4713: END IF;
4714:
4707: ,x_return_status);
4708: -- Check if activity started successfully
4709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4712: RAISE OKL_API.G_EXCEPTION_ERROR;
4713: END IF;
4714:
4715: Open chk_subclass_csr(p_chrv_id);
4708: -- Check if activity started successfully
4709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4712: RAISE OKL_API.G_EXCEPTION_ERROR;
4713: END IF;
4714:
4715: Open chk_subclass_csr(p_chrv_id);
4716: Fetch chk_subclass_csr into l_scs_code, l_sts_code, l_deal_type, l_pdt_id, l_start_date;
4715: Open chk_subclass_csr(p_chrv_id);
4716: Fetch chk_subclass_csr into l_scs_code, l_sts_code, l_deal_type, l_pdt_id, l_start_date;
4717: If chk_subclass_csr%NOTFOUND Then
4718: --dbms_output.put_line('Contract Not Found ....!');
4719: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4720: p_msg_name => G_CONTRACT_NOT_FOUND,
4721: p_token1 => G_CONTRACT_ID,
4722: p_token1_value => to_char(p_chrv_id)
4723: );
4720: p_msg_name => G_CONTRACT_NOT_FOUND,
4721: p_token1 => G_CONTRACT_ID,
4722: p_token1_value => to_char(p_chrv_id)
4723: );
4724: RAISE OKL_API.G_EXCEPTION_ERROR;
4725: --Handle error appropriately
4726: ElsIf upper(l_sts_code) <> G_APPROVED_STS_CODE Then
4727: --dbms_output.put_line('Contract has not been approved...!');
4728: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4724: RAISE OKL_API.G_EXCEPTION_ERROR;
4725: --Handle error appropriately
4726: ElsIf upper(l_sts_code) <> G_APPROVED_STS_CODE Then
4727: --dbms_output.put_line('Contract has not been approved...!');
4728: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4729: p_msg_name => G_CONTRACT_NOT_APPROVED
4730: );
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: --Raise appropraite error message
4727: --dbms_output.put_line('Contract has not been approved...!');
4728: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4729: p_msg_name => G_CONTRACT_NOT_APPROVED
4730: );
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: --Raise appropraite error message
4733: ElsIf l_scs_code <> G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
4734: --dbms_output.put_line('Contract is not a lease contract...!');
4735: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: --Raise appropraite error message
4733: ElsIf l_scs_code <> G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
4734: --dbms_output.put_line('Contract is not a lease contract...!');
4735: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4736: p_msg_name => G_CONTRACT_NOT_LEASE
4737: );
4738: RAISE OKL_API.G_EXCEPTION_ERROR;
4739: --Raise appropriate error message or do nothing
4734: --dbms_output.put_line('Contract is not a lease contract...!');
4735: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4736: p_msg_name => G_CONTRACT_NOT_LEASE
4737: );
4738: RAISE OKL_API.G_EXCEPTION_ERROR;
4739: --Raise appropriate error message or do nothing
4740: ElsIf l_scs_code = G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
4741: --Bug# : 11.5.9 enhancement Multi-Gaap :to create FA for reporting book
4742: --If l_deal_type in (G_LOAN_BK_CLASS,G_REVOLVING_LOAN_BK_CLASS) Then
4755: x_rep_pdt_id => l_rep_pdt_id,
4756: x_tax_owner => l_tax_owner,
4757: x_rep_deal_type => l_rep_deal_type);
4758:
4759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4756: x_tax_owner => l_tax_owner,
4757: x_rep_deal_type => l_rep_deal_type);
4758:
4759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4757: x_rep_deal_type => l_rep_deal_type);
4758:
4759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4765: If l_tax_owner is null then
4758:
4759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4765: If l_tax_owner is null then
4766: Open town_rul_csr(pchrid => p_chrv_id);
4772: p_msg_name => G_REQUIRED_VALUE,
4773: p_token1 => G_COL_NAME_TOKEN,
4774: p_token1_value => 'Tax Owner');
4775: x_return_status := OKC_API.G_RET_STS_ERROR;
4776: RAISE OKL_API.G_EXCEPTION_ERROR;
4777: Else
4778: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
4779: End If;
4780: Close town_rul_csr;
4930: x_cimv_rec => l_cimv_rec);
4931:
4932:
4933: --dbms_output.put_line('after process fa line '||x_return_status);
4934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4937: RAISE OKL_API.G_EXCEPTION_ERROR;
4938: END IF;
4931:
4932:
4933: --dbms_output.put_line('after process fa line '||x_return_status);
4934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4937: RAISE OKL_API.G_EXCEPTION_ERROR;
4938: END IF;
4939: x_cimv_tbl(l_asst_count) := l_cimv_rec;
4932:
4933: --dbms_output.put_line('after process fa line '||x_return_status);
4934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4937: RAISE OKL_API.G_EXCEPTION_ERROR;
4938: END IF;
4939: x_cimv_tbl(l_asst_count) := l_cimv_rec;
4940: l_asst_count := l_asst_count+1;
4933: --dbms_output.put_line('after process fa line '||x_return_status);
4934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4937: RAISE OKL_API.G_EXCEPTION_ERROR;
4938: END IF;
4939: x_cimv_tbl(l_asst_count) := l_cimv_rec;
4940: l_asst_count := l_asst_count+1;
4941:
4949:
4950: End If; -- for deal types
4951: Close chk_subclass_csr;
4952: End If;
4953: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4954: EXCEPTION
4955: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4956: If ( l_hdr_csr%ISOPEN ) Then
4957: CLOSE l_hdr_csr;
4951: Close chk_subclass_csr;
4952: End If;
4953: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4954: EXCEPTION
4955: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4956: If ( l_hdr_csr%ISOPEN ) Then
4957: CLOSE l_hdr_csr;
4958: End If;
4959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4955: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4956: If ( l_hdr_csr%ISOPEN ) Then
4957: CLOSE l_hdr_csr;
4958: End If;
4959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4958: End If;
4959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT');
4966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT');
4966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4967: If ( l_hdr_csr%ISOPEN ) Then
4968: CLOSE l_hdr_csr;
4969: End If;
4970: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4967: If ( l_hdr_csr%ISOPEN ) Then
4968: CLOSE l_hdr_csr;
4969: End If;
4970: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4971: l_api_name,
4972: G_PKG_NAME,
4973: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4974: x_msg_count,
4969: End If;
4970: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4971: l_api_name,
4972: G_PKG_NAME,
4973: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4974: x_msg_count,
4975: x_msg_data,
4976: '_PVT');
4977: WHEN OTHERS THEN
4977: WHEN OTHERS THEN
4978: If ( l_hdr_csr%ISOPEN ) Then
4979: CLOSE l_hdr_csr;
4980: End If;
4981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4982: l_api_name,
4983: G_PKG_NAME,
4984: 'OTHERS',
4985: x_msg_count,
5011: x_msg_data OUT NOCOPY VARCHAR2,
5012: p_rbk_chr_id IN NUMBER
5013: ) IS
5014:
5015: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5016: l_api_name CONSTANT varchar2(30) := 'REBOOK_ASSET';
5017: l_api_version CONSTANT NUMBER := 1.0;
5018: l_trx_type Varchar2(30) := G_TRX_LINE_TYPE_REBOOK;
5019:
5372: l_unit_difference number;
5373:
5374: BEGIN
5375:
5376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5377: -- Call start_activity to create savepoint, check compatibility
5378: -- and initialize message list
5379: x_return_status := OKL_API.START_ACTIVITY (
5380: l_api_name
5375:
5376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5377: -- Call start_activity to create savepoint, check compatibility
5378: -- and initialize message list
5379: x_return_status := OKL_API.START_ACTIVITY (
5380: l_api_name
5381: ,p_init_msg_list
5382: ,'_PVT'
5383: ,x_return_status);
5381: ,p_init_msg_list
5382: ,'_PVT'
5383: ,x_return_status);
5384: -- Check if activity started successfully
5385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_ERROR;
5389: END IF;
5382: ,'_PVT'
5383: ,x_return_status);
5384: -- Check if activity started successfully
5385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_ERROR;
5389: END IF;
5390:
5383: ,x_return_status);
5384: -- Check if activity started successfully
5385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_ERROR;
5389: END IF;
5390:
5391:
5384: -- Check if activity started successfully
5385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_ERROR;
5389: END IF;
5390:
5391:
5392: --get rebook reason code
5420: x_rep_pdt_id => l_rep_pdt_id,
5421: x_tax_owner => l_tax_owner,
5422: x_rep_deal_type => l_rep_deal_type);
5423:
5424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5427: RAISE OKL_API.G_EXCEPTION_ERROR;
5428: END IF;
5421: x_tax_owner => l_tax_owner,
5422: x_rep_deal_type => l_rep_deal_type);
5423:
5424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5427: RAISE OKL_API.G_EXCEPTION_ERROR;
5428: END IF;
5429:
5422: x_rep_deal_type => l_rep_deal_type);
5423:
5424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5427: RAISE OKL_API.G_EXCEPTION_ERROR;
5428: END IF;
5429:
5430: If l_tax_owner is null then
5423:
5424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5427: RAISE OKL_API.G_EXCEPTION_ERROR;
5428: END IF;
5429:
5430: If l_tax_owner is null then
5431: Open town_rul_csr(pchrid => l_chr_id);
5437: p_msg_name => G_REQUIRED_VALUE,
5438: p_token1 => G_COL_NAME_TOKEN,
5439: p_token1_value => 'Tax Owner');
5440: x_return_status := OKC_API.G_RET_STS_ERROR;
5441: RAISE OKL_API.G_EXCEPTION_ERROR;
5442: Else
5443: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
5444: End If;
5445: Close town_rul_csr;
5559: -- not mimic corporate book . It should adjust based on entered
5560: -- parameters. DF/ST(local) vs DF/ST(reporting) MG books are created with cost
5561: -- and SV zero to be untouched till offlease amortization process
5562: ---------------------------------------------------------------
5563: If ( adj_txl_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR))
5564: and (l_rebook_allowed_on_mg_book = 'N') Then
5565: --Exit;
5566: Null; --do not do anything for reporting book
5567: Else
5618: p_chr_id => p_rbk_chr_id,
5619: p_amount => adj_txl_rec.depreciation_cost,
5620: x_amount => l_dummy_amount);
5621:
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5625: RAISE OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5619: p_amount => adj_txl_rec.depreciation_cost,
5620: x_amount => l_dummy_amount);
5621:
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5625: RAISE OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5620: x_amount => l_dummy_amount);
5621:
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5625: RAISE OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5628: -- Bug# 5174778
5621:
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5625: RAISE OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5628: -- Bug# 5174778
5629: l_dummy_amount := okl_accounting_util.cross_currency_round_amount(
5649: p_rbk_fa_cle_id => adj_txl_rec.kle_id,
5650: p_rbk_chr_id => p_rbk_chr_id,
5651: x_cap_fee_adjustment => l_cap_fee_delta);
5652:
5653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5656: RAISE OKL_API.G_EXCEPTION_ERROR;
5657: END IF;
5650: p_rbk_chr_id => p_rbk_chr_id,
5651: x_cap_fee_adjustment => l_cap_fee_delta);
5652:
5653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5656: RAISE OKL_API.G_EXCEPTION_ERROR;
5657: END IF;
5658:
5651: x_cap_fee_adjustment => l_cap_fee_delta);
5652:
5653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5656: RAISE OKL_API.G_EXCEPTION_ERROR;
5657: END IF;
5658:
5659: l_cap_fee_delta_converted_amt := 0;
5652:
5653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5656: RAISE OKL_API.G_EXCEPTION_ERROR;
5657: END IF;
5658:
5659: l_cap_fee_delta_converted_amt := 0;
5660: convert_2functional_currency(
5666: p_chr_id => p_rbk_chr_id,
5667: p_amount => l_cap_fee_delta,
5668: x_amount => l_cap_fee_delta_converted_amt);
5669:
5670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5667: p_amount => l_cap_fee_delta,
5668: x_amount => l_cap_fee_delta_converted_amt);
5669:
5670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5675:
5668: x_amount => l_cap_fee_delta_converted_amt);
5669:
5670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5675:
5676: l_cost_delta := (l_cost_delta + l_cap_fee_delta_converted_amt);
5669:
5670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5675:
5676: l_cost_delta := (l_cost_delta + l_cap_fee_delta_converted_amt);
5677: --Bug# 3548044: End
5678: */
5679: --Bug# 4899328: End
5680:
5681: --Bug# 3548044 : Added if-else clause for reporting product books
5682: If okx_ast_rec.book_type_code <> nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) then
5683:
5684: --Bug# 3950089
5685: If (okx_ast_rec.percent_salvage_value is not null) Then
5686:
5686:
5687: If (adj_txl_rec.pct_salvage_value is null) or
5688: (adj_txl_rec.salvage_value is not null) Then
5689:
5690: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5691: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5692: p_token1 => G_ASSET_NUMBER_TOKEN,
5693: p_token1_value => okx_ast_rec.asset_number
5694: );
5691: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5692: p_token1 => G_ASSET_NUMBER_TOKEN,
5693: p_token1_value => okx_ast_rec.asset_number
5694: );
5695: x_return_status := OKL_API.G_RET_STS_ERROR;
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: End if;
5698:
5699: Elsif (okx_ast_rec.salvage_value is not null) Then
5692: p_token1 => G_ASSET_NUMBER_TOKEN,
5693: p_token1_value => okx_ast_rec.asset_number
5694: );
5695: x_return_status := OKL_API.G_RET_STS_ERROR;
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: End if;
5698:
5699: Elsif (okx_ast_rec.salvage_value is not null) Then
5700:
5699: Elsif (okx_ast_rec.salvage_value is not null) Then
5700:
5701: If (adj_txl_rec.salvage_value is null) Then
5702:
5703: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5704: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5705: p_token1 => G_ASSET_NUMBER_TOKEN,
5706: p_token1_value => okx_ast_rec.asset_number
5707: );
5704: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5705: p_token1 => G_ASSET_NUMBER_TOKEN,
5706: p_token1_value => okx_ast_rec.asset_number
5707: );
5708: x_return_status := OKL_API.G_RET_STS_ERROR;
5709: RAISE OKL_API.G_EXCEPTION_ERROR;
5710: End if;
5711: End If;
5712:
5705: p_token1 => G_ASSET_NUMBER_TOKEN,
5706: p_token1_value => okx_ast_rec.asset_number
5707: );
5708: x_return_status := OKL_API.G_RET_STS_ERROR;
5709: RAISE OKL_API.G_EXCEPTION_ERROR;
5710: End if;
5711: End If;
5712:
5713: If (okx_ast_rec.percent_salvage_value is not null) and
5728: p_chr_id => p_rbk_chr_id,
5729: p_amount => adj_txl_rec.salvage_value,
5730: x_amount => l_dummy_amount);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5729: p_amount => adj_txl_rec.salvage_value,
5730: x_amount => l_dummy_amount);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5730: x_amount => l_dummy_amount);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: -- Bug# 5174778
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: -- Bug# 5174778
5739: l_dummy_amount := okl_accounting_util.cross_currency_round_amount(
5743:
5744: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
5745: End If;
5746:
5747: ElsIf okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) then
5748:
5749: --Bug# 3950089
5750: If (okx_ast_rec.percent_salvage_value is not null) Then
5751:
5751:
5752: If (adj_txl_rec.corp_pct_salvage_value is null) or
5753: (adj_txl_rec.corp_salvage_value is not null) Then
5754:
5755: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5756: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5757: p_token1 => G_ASSET_NUMBER_TOKEN,
5758: p_token1_value => okx_ast_rec.asset_number
5759: );
5756: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5757: p_token1 => G_ASSET_NUMBER_TOKEN,
5758: p_token1_value => okx_ast_rec.asset_number
5759: );
5760: x_return_status := OKL_API.G_RET_STS_ERROR;
5761: RAISE OKL_API.G_EXCEPTION_ERROR;
5762: End if;
5763:
5764: Elsif (okx_ast_rec.salvage_value is not null) Then
5757: p_token1 => G_ASSET_NUMBER_TOKEN,
5758: p_token1_value => okx_ast_rec.asset_number
5759: );
5760: x_return_status := OKL_API.G_RET_STS_ERROR;
5761: RAISE OKL_API.G_EXCEPTION_ERROR;
5762: End if;
5763:
5764: Elsif (okx_ast_rec.salvage_value is not null) Then
5765:
5764: Elsif (okx_ast_rec.salvage_value is not null) Then
5765:
5766: If (adj_txl_rec.corp_salvage_value is null) Then
5767:
5768: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5769: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5770: p_token1 => G_ASSET_NUMBER_TOKEN,
5771: p_token1_value => okx_ast_rec.asset_number
5772: );
5769: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
5770: p_token1 => G_ASSET_NUMBER_TOKEN,
5771: p_token1_value => okx_ast_rec.asset_number
5772: );
5773: x_return_status := OKL_API.G_RET_STS_ERROR;
5774: RAISE OKL_API.G_EXCEPTION_ERROR;
5775: End if;
5776: End If;
5777:
5770: p_token1 => G_ASSET_NUMBER_TOKEN,
5771: p_token1_value => okx_ast_rec.asset_number
5772: );
5773: x_return_status := OKL_API.G_RET_STS_ERROR;
5774: RAISE OKL_API.G_EXCEPTION_ERROR;
5775: End if;
5776: End If;
5777:
5778: If (okx_ast_rec.percent_salvage_value is not null) Then
5791: p_chr_id => p_rbk_chr_id,
5792: p_amount => adj_txl_rec.corp_salvage_value,
5793: x_amount => l_dummy_amount);
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5792: p_amount => adj_txl_rec.corp_salvage_value,
5793: x_amount => l_dummy_amount);
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5793: x_amount => l_dummy_amount);
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5801: -- Bug# 5174778
5794:
5795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800:
5801: -- Bug# 5174778
5802: l_dummy_amount := okl_accounting_util.cross_currency_round_amount(
5848: --sv is adjusted to zero there from creation time
5849: Null;
5850: Elsif okx_ast_rec.book_class = 'TAX'
5851: --Bug # 3548044
5852: and okx_ast_rec.book_type_code <> nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR)Then
5853: --Salvage value will be zero in all the tax books as per bug#2967286
5854: --except for Muti-GAAP reporting books --Bug# 3548044
5855: Null;
5856: Else
5912: l_new_salvage_value := okx_ast_rec.salvage_value + l_salvage_delta;
5913: End If;
5914:
5915: If (l_new_cost < l_new_salvage_value) Then
5916: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5917: p_msg_name => G_SALVAGE_VALUE
5918: );
5919: RAISE OKL_API.G_EXCEPTION_ERROR;
5920: End If;
5915: If (l_new_cost < l_new_salvage_value) Then
5916: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
5917: p_msg_name => G_SALVAGE_VALUE
5918: );
5919: RAISE OKL_API.G_EXCEPTION_ERROR;
5920: End If;
5921: --End If; --Bug# 3548044
5922:
5923: -- Bug# 3783518
5935: p_rebook_date => l_date_trx_occured,
5936: p_cost_adjustment => l_asset_fin_rec_adj.cost,
5937: p_contract_start_date => l_start_date);
5938:
5939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5942: RAISE OKL_API.G_EXCEPTION_ERROR;
5943: END IF;
5936: p_cost_adjustment => l_asset_fin_rec_adj.cost,
5937: p_contract_start_date => l_start_date);
5938:
5939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5942: RAISE OKL_API.G_EXCEPTION_ERROR;
5943: END IF;
5944:
5937: p_contract_start_date => l_start_date);
5938:
5939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5942: RAISE OKL_API.G_EXCEPTION_ERROR;
5943: END IF;
5944:
5945: -------------------
5938:
5939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5942: RAISE OKL_API.G_EXCEPTION_ERROR;
5943: END IF;
5944:
5945: -------------------
5946: --Bug# 6373605
5975: x_fa_trx_date => l_fa_adj_date,
5976: x_asset_fin_rec_new => l_asset_fin_rec_new);
5977:
5978: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
5979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_ERROR;
5983: END IF;
5976: x_asset_fin_rec_new => l_asset_fin_rec_new);
5977:
5978: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
5979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5977:
5978: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
5979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5985: -- Bug# 5207066 start
5978: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
5979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5982: RAISE OKL_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5985: -- Bug# 5207066 start
5986:
5999: x_msg_count => x_msg_count,
6000: x_msg_data => x_msg_data,
6001: p_talv_rec => l_talv_date_rec,
6002: x_talv_rec => lx_talv_date_rec);
6003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_ERROR;
6007: END IF;
6000: x_msg_data => x_msg_data,
6001: p_talv_rec => l_talv_date_rec,
6002: x_talv_rec => lx_talv_date_rec);
6003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_ERROR;
6007: END IF;
6008: End If;
6001: p_talv_rec => l_talv_date_rec,
6002: x_talv_rec => lx_talv_date_rec);
6003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_ERROR;
6007: END IF;
6008: End If;
6009: --End Bug# 4028371
6002: x_talv_rec => lx_talv_date_rec);
6003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_ERROR;
6007: END IF;
6008: End If;
6009: --End Bug# 4028371
6010: --5362977 akrangan start
6040: --Bug# 4028371
6041: --Bug# 4028371
6042: x_fa_trx_date => l_fa_adj_date);
6043:
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6047: RAISE OKL_API.G_EXCEPTION_ERROR;
6048: END IF;
6041: --Bug# 4028371
6042: x_fa_trx_date => l_fa_adj_date);
6043:
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6047: RAISE OKL_API.G_EXCEPTION_ERROR;
6048: END IF;
6049:
6042: x_fa_trx_date => l_fa_adj_date);
6043:
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6047: RAISE OKL_API.G_EXCEPTION_ERROR;
6048: END IF;
6049:
6050: end if;
6043:
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6047: RAISE OKL_API.G_EXCEPTION_ERROR;
6048: END IF;
6049:
6050: end if;
6051: --Bug# 5362977
6066: --Bug# 4028371
6067: x_fa_trx_date => l_fa_adj_date);
6068: --akrangan bug 5362977 end
6069:
6070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6073: RAISE OKL_API.G_EXCEPTION_ERROR;
6074: END IF;
6067: x_fa_trx_date => l_fa_adj_date);
6068: --akrangan bug 5362977 end
6069:
6070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6073: RAISE OKL_API.G_EXCEPTION_ERROR;
6074: END IF;
6075:
6068: --akrangan bug 5362977 end
6069:
6070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6073: RAISE OKL_API.G_EXCEPTION_ERROR;
6074: END IF;
6075:
6076:
6069:
6070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6073: RAISE OKL_API.G_EXCEPTION_ERROR;
6074: END IF;
6075:
6076:
6077: --akrangan bug 5362977 start
6084: x_msg_count => x_msg_count,
6085: x_msg_data => x_msg_data,
6086: p_rbk_fin_ast_cle_id => adj_txl_rec.rbk_fin_ast_cle_id,
6087: p_rbk_chr_id => p_rbk_chr_id);
6088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_ERROR;
6092: END IF;
6085: x_msg_data => x_msg_data,
6086: p_rbk_fin_ast_cle_id => adj_txl_rec.rbk_fin_ast_cle_id,
6087: p_rbk_chr_id => p_rbk_chr_id);
6088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_ERROR;
6092: END IF;
6093: End If;
6086: p_rbk_fin_ast_cle_id => adj_txl_rec.rbk_fin_ast_cle_id,
6087: p_rbk_chr_id => p_rbk_chr_id);
6088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_ERROR;
6092: END IF;
6093: End If;
6094: --akrangan bug 5362977 end
6087: p_rbk_chr_id => p_rbk_chr_id);
6088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6091: RAISE OKL_API.G_EXCEPTION_ERROR;
6092: END IF;
6093: End If;
6094: --akrangan bug 5362977 end
6095:
6117: x_msg_data => x_msg_data,
6118: p_tas_id => adj_txl_rec.tas_id,
6119: p_tsu_code => G_TSU_CODE_PROCESSED);
6120:
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6124: RAISE OKL_API.G_EXCEPTION_ERROR;
6125: END IF;
6118: p_tas_id => adj_txl_rec.tas_id,
6119: p_tsu_code => G_TSU_CODE_PROCESSED);
6120:
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6124: RAISE OKL_API.G_EXCEPTION_ERROR;
6125: END IF;
6126: End If;
6119: p_tsu_code => G_TSU_CODE_PROCESSED);
6120:
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6124: RAISE OKL_API.G_EXCEPTION_ERROR;
6125: END IF;
6126: End If;
6127: --BUG# 3548044
6120:
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6124: RAISE OKL_API.G_EXCEPTION_ERROR;
6125: END IF;
6126: End If;
6127: --BUG# 3548044
6128: End If; --adj_txl_rec found
6213: p_sla_asset_chr_id => l_orig_chr_id,
6214: --Bug# 6373605
6215: x_cimv_rec => lx_cimv_rec);
6216: --dbms_output.put_line('After process FA line. '||x_return_status );
6217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6220: RAISE OKL_API.G_EXCEPTION_ERROR;
6221: END IF;
6214: --Bug# 6373605
6215: x_cimv_rec => lx_cimv_rec);
6216: --dbms_output.put_line('After process FA line. '||x_return_status );
6217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6220: RAISE OKL_API.G_EXCEPTION_ERROR;
6221: END IF;
6222: End IF;
6215: x_cimv_rec => lx_cimv_rec);
6216: --dbms_output.put_line('After process FA line. '||x_return_status );
6217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6220: RAISE OKL_API.G_EXCEPTION_ERROR;
6221: END IF;
6222: End IF;
6223: --Bug# :11.5.9 : Multi-GAAP End
6216: --dbms_output.put_line('After process FA line. '||x_return_status );
6217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6220: RAISE OKL_API.G_EXCEPTION_ERROR;
6221: END IF;
6222: End IF;
6223: --Bug# :11.5.9 : Multi-GAAP End
6224:
6232: x_msg_data => x_msg_data,
6233: p_fin_ast_cle_id => l_new_fin_cle_id,
6234: x_cimv_tbl => lx_cimv_ib_tbl);
6235: --dbms_output.put_line('After doing IB. '||x_return_status );
6236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6239: RAISE OKL_API.G_EXCEPTION_ERROR;
6240: END IF;
6233: p_fin_ast_cle_id => l_new_fin_cle_id,
6234: x_cimv_tbl => lx_cimv_ib_tbl);
6235: --dbms_output.put_line('After doing IB. '||x_return_status );
6236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6239: RAISE OKL_API.G_EXCEPTION_ERROR;
6240: END IF;
6241:
6234: x_cimv_tbl => lx_cimv_ib_tbl);
6235: --dbms_output.put_line('After doing IB. '||x_return_status );
6236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6239: RAISE OKL_API.G_EXCEPTION_ERROR;
6240: END IF;
6241:
6242: End Loop;
6235: --dbms_output.put_line('After doing IB. '||x_return_status );
6236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6239: RAISE OKL_API.G_EXCEPTION_ERROR;
6240: END IF;
6241:
6242: End Loop;
6243: Close new_ast_csr;
6249:
6250: */
6251: -- Bug# 4899328: End
6252:
6253: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
6254: EXCEPTION
6255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6256: If ( l_hdr_csr%ISOPEN ) Then
6257: CLOSE l_hdr_csr;
6251: -- Bug# 4899328: End
6252:
6253: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
6254: EXCEPTION
6255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6256: If ( l_hdr_csr%ISOPEN ) Then
6257: CLOSE l_hdr_csr;
6258: End If;
6259: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6256: If ( l_hdr_csr%ISOPEN ) Then
6257: CLOSE l_hdr_csr;
6258: End If;
6259: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6260: l_api_name,
6261: G_PKG_NAME,
6262: 'OKL_API.G_RET_STS_ERROR',
6263: x_msg_count,
6258: End If;
6259: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6260: l_api_name,
6261: G_PKG_NAME,
6262: 'OKL_API.G_RET_STS_ERROR',
6263: x_msg_count,
6264: x_msg_data,
6265: '_PVT');
6266: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6262: 'OKL_API.G_RET_STS_ERROR',
6263: x_msg_count,
6264: x_msg_data,
6265: '_PVT');
6266: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6267: If ( l_hdr_csr%ISOPEN ) Then
6268: CLOSE l_hdr_csr;
6269: End If;
6270: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6266: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6267: If ( l_hdr_csr%ISOPEN ) Then
6268: CLOSE l_hdr_csr;
6269: End If;
6270: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6271: l_api_name,
6272: G_PKG_NAME,
6273: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6274: x_msg_count,
6269: End If;
6270: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6271: l_api_name,
6272: G_PKG_NAME,
6273: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6274: x_msg_count,
6275: x_msg_data,
6276: '_PVT');
6277: WHEN OTHERS THEN
6277: WHEN OTHERS THEN
6278: If ( l_hdr_csr%ISOPEN ) Then
6279: CLOSE l_hdr_csr;
6280: End If;
6281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6282: l_api_name,
6283: G_PKG_NAME,
6284: 'OTHERS',
6285: x_msg_count,
6308: x_msg_data OUT NOCOPY VARCHAR2,
6309: p_rbk_chr_id IN NUMBER
6310: ) IS
6311:
6312: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
6313: l_api_name CONSTANT varchar2(30) := 'MASS_REBOOK_ASSET';
6314: l_api_version CONSTANT NUMBER := 1.0;
6315:
6316: --Cursor to get the rebook transaction reason codes
6598: l_hdr_rec l_hdr_csr%ROWTYPE;
6599:
6600: BEGIN
6601:
6602: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6603: -- Call start_activity to create savepoint, check compatibility
6604: -- and initialize message list
6605: x_return_status := OKL_API.START_ACTIVITY (
6606: l_api_name
6601:
6602: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6603: -- Call start_activity to create savepoint, check compatibility
6604: -- and initialize message list
6605: x_return_status := OKL_API.START_ACTIVITY (
6606: l_api_name
6607: ,p_init_msg_list
6608: ,'_PVT'
6609: ,x_return_status);
6607: ,p_init_msg_list
6608: ,'_PVT'
6609: ,x_return_status);
6610: -- Check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6608: ,'_PVT'
6609: ,x_return_status);
6610: -- Check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6609: ,x_return_status);
6610: -- Check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617: --get rebook reason code
6610: -- Check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617: --get rebook reason code
6618: --dbms_output.put_line('before rebook reason code cursor :');
6651: x_rep_pdt_id => l_rep_pdt_id,
6652: x_tax_owner => l_tax_owner,
6653: x_rep_deal_type => l_rep_deal_type);
6654:
6655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6658: RAISE OKL_API.G_EXCEPTION_ERROR;
6659: END IF;
6652: x_tax_owner => l_tax_owner,
6653: x_rep_deal_type => l_rep_deal_type);
6654:
6655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6658: RAISE OKL_API.G_EXCEPTION_ERROR;
6659: END IF;
6660:
6653: x_rep_deal_type => l_rep_deal_type);
6654:
6655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6658: RAISE OKL_API.G_EXCEPTION_ERROR;
6659: END IF;
6660:
6661: If l_tax_owner is null then
6654:
6655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6658: RAISE OKL_API.G_EXCEPTION_ERROR;
6659: END IF;
6660:
6661: If l_tax_owner is null then
6662: Open town_rul_csr(pchrid => l_chr_id);
6668: p_msg_name => G_REQUIRED_VALUE,
6669: p_token1 => G_COL_NAME_TOKEN,
6670: p_token1_value => 'Tax Owner');
6671: x_return_status := OKC_API.G_RET_STS_ERROR;
6672: RAISE OKL_API.G_EXCEPTION_ERROR;
6673: Else
6674: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
6675: End If;
6676: Close town_rul_csr;
6833: p_chr_id => p_rbk_chr_id,
6834: p_amount => l_residual_value,
6835: x_amount => l_dummy_amount);
6836:
6837: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6839: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6840: RAISE OKL_API.G_EXCEPTION_ERROR;
6841: END IF;
6834: p_amount => l_residual_value,
6835: x_amount => l_dummy_amount);
6836:
6837: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6839: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6840: RAISE OKL_API.G_EXCEPTION_ERROR;
6841: END IF;
6842:
6835: x_amount => l_dummy_amount);
6836:
6837: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6839: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6840: RAISE OKL_API.G_EXCEPTION_ERROR;
6841: END IF;
6842:
6843: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
6836:
6837: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6839: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6840: RAISE OKL_API.G_EXCEPTION_ERROR;
6841: END IF;
6842:
6843: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
6844:
6854: --check if salvage value is becoming more than asset cost
6855: l_new_salvage_value := okx_ast_rec.salvage_value + l_salvage_delta;
6856: l_new_cost := okx_ast_rec.cost;
6857: If (l_new_cost < l_new_salvage_value) Then
6858: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6859: p_msg_name => G_SALVAGE_VALUE
6860: );
6861: RAISE OKL_API.G_EXCEPTION_ERROR;
6862: End If;
6857: If (l_new_cost < l_new_salvage_value) Then
6858: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6859: p_msg_name => G_SALVAGE_VALUE
6860: );
6861: RAISE OKL_API.G_EXCEPTION_ERROR;
6862: End If;
6863:
6864: --Bug# 6373605
6865: l_asset_fin_rec_adj.contract_id := p_rbk_chr_id;
6891: x_fa_trx_date => l_fa_adj_date,
6892: --Bug# 3156924
6893: x_asset_fin_rec_new => l_asset_fin_rec_new);
6894: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
6895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6898: RAISE OKL_API.G_EXCEPTION_ERROR;
6899: END IF;
6892: --Bug# 3156924
6893: x_asset_fin_rec_new => l_asset_fin_rec_new);
6894: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
6895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6898: RAISE OKL_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6893: x_asset_fin_rec_new => l_asset_fin_rec_new);
6894: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
6895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6898: RAISE OKL_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6901: End If; --adjust yn = 'Y'
6894: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
6895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6898: RAISE OKL_API.G_EXCEPTION_ERROR;
6899: END IF;
6900:
6901: End If; --adjust yn = 'Y'
6902: End If; --cle is effective
6919: --Bug# 3548044: Multi-GAAP reporting Books should not follow CORP book
6920: --changes . But Mass rebook does not support corp book changes
6921: --does not support Multi-GAAP book changes
6922: ----------------------------------------------------------------------
6923: If ( adj_txl_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR)) Then
6924: --Exit;
6925: Null;
6926: --do not change the reporting tax book
6927: Else
7012: p_chr_id => p_rbk_chr_id,
7013: p_amount => l_residual_value,
7014: x_amount => l_dummy_amount);
7015:
7016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7019: RAISE OKL_API.G_EXCEPTION_ERROR;
7020: END IF;
7013: p_amount => l_residual_value,
7014: x_amount => l_dummy_amount);
7015:
7016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7019: RAISE OKL_API.G_EXCEPTION_ERROR;
7020: END IF;
7021:
7014: x_amount => l_dummy_amount);
7015:
7016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7019: RAISE OKL_API.G_EXCEPTION_ERROR;
7020: END IF;
7021:
7022: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
7015:
7016: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7018: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7019: RAISE OKL_API.G_EXCEPTION_ERROR;
7020: END IF;
7021:
7022: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
7023: --dbms_output.put_line('salvage delta '||to_char(l_salvage_delta));
7141: --If okx_ast_rec.book_class = 'CORPORATE' then --salvage value updates only for CORP
7142: l_new_salvage_value := okx_ast_rec.salvage_value + l_salvage_delta;
7143: l_new_cost := okx_ast_rec.cost + l_cost_delta;
7144: If (l_new_cost < l_new_salvage_value) Then
7145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
7146: p_msg_name => G_SALVAGE_VALUE
7147: );
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: End If;
7144: If (l_new_cost < l_new_salvage_value) Then
7145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
7146: p_msg_name => G_SALVAGE_VALUE
7147: );
7148: RAISE OKL_API.G_EXCEPTION_ERROR;
7149: End If;
7150: --End If; --Bug# 3548044
7151:
7152: -- Bug# 3783518
7164: p_rebook_date => l_mass_rebook_date,
7165: p_cost_adjustment => l_asset_fin_rec_adj.cost,
7166: p_contract_start_date => l_start_date);
7167:
7168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7165: p_cost_adjustment => l_asset_fin_rec_adj.cost,
7166: p_contract_start_date => l_start_date);
7167:
7168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173:
7166: p_contract_start_date => l_start_date);
7167:
7168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173:
7174: --Bug# 6373605
7167:
7168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173:
7174: --Bug# 6373605
7175: l_asset_fin_rec_adj.contract_id := p_rbk_chr_id;
7203: --Bug# 3156924
7204: x_asset_fin_rec_new => l_asset_fin_rec_new);
7205:
7206: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
7207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7210: RAISE OKL_API.G_EXCEPTION_ERROR;
7211: END IF;
7204: x_asset_fin_rec_new => l_asset_fin_rec_new);
7205:
7206: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
7207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7210: RAISE OKL_API.G_EXCEPTION_ERROR;
7211: END IF;
7212: --Bug# 4028371
7205:
7206: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
7207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7210: RAISE OKL_API.G_EXCEPTION_ERROR;
7211: END IF;
7212: --Bug# 4028371
7213: If adj_txl_rec.tal_id is not null Then
7206: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
7207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7210: RAISE OKL_API.G_EXCEPTION_ERROR;
7211: END IF;
7212: --Bug# 4028371
7213: If adj_txl_rec.tal_id is not null Then
7214: --update the fa trx date on transaction line
7222: x_msg_count => x_msg_count,
7223: x_msg_data => x_msg_data,
7224: p_talv_rec => l_talv_date_rec,
7225: x_talv_rec => lx_talv_date_rec);
7226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7229: RAISE OKL_API.G_EXCEPTION_ERROR;
7230: END IF;
7223: x_msg_data => x_msg_data,
7224: p_talv_rec => l_talv_date_rec,
7225: x_talv_rec => lx_talv_date_rec);
7226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7229: RAISE OKL_API.G_EXCEPTION_ERROR;
7230: END IF;
7231: End If;
7224: p_talv_rec => l_talv_date_rec,
7225: x_talv_rec => lx_talv_date_rec);
7226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7229: RAISE OKL_API.G_EXCEPTION_ERROR;
7230: END IF;
7231: End If;
7232: --End Bug# 4028371
7225: x_talv_rec => lx_talv_date_rec);
7226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7229: RAISE OKL_API.G_EXCEPTION_ERROR;
7230: END IF;
7231: End If;
7232: --End Bug# 4028371
7233: End If; --l_adjust_yn = 'Y'
7252: --check if salvage value is becoming more than asset cost
7253: l_new_salvage_value := okx_ast_rec.salvage_value + l_salvage_delta;
7254: l_new_cost := okx_ast_rec.cost + l_cost_delta;
7255: If (l_new_cost < l_new_salvage_value) Then
7256: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
7257: p_msg_name => G_SALVAGE_VALUE
7258: );
7259: RAISE OKL_API.G_EXCEPTION_ERROR;
7260: End If;
7255: If (l_new_cost < l_new_salvage_value) Then
7256: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
7257: p_msg_name => G_SALVAGE_VALUE
7258: );
7259: RAISE OKL_API.G_EXCEPTION_ERROR;
7260: End If;
7261:
7262: FIXED_ASSET_ADJUST
7263: (p_api_version => p_api_version,
7279: --Bug# 3156924
7280: x_asset_fin_rec_new => l_asset_fin_rec_new);
7281:
7282:
7283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7286: RAISE OKL_API.G_EXCEPTION_ERROR;
7287: END IF;
7280: x_asset_fin_rec_new => l_asset_fin_rec_new);
7281:
7282:
7283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7286: RAISE OKL_API.G_EXCEPTION_ERROR;
7287: END IF;
7288:
7281:
7282:
7283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7286: RAISE OKL_API.G_EXCEPTION_ERROR;
7287: END IF;
7288:
7289: End If; --l_corp_bk_changed_yn = 'Y'
7282:
7283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7286: RAISE OKL_API.G_EXCEPTION_ERROR;
7287: END IF;
7288:
7289: End If; --l_corp_bk_changed_yn = 'Y'
7290: --end of comments
7307: x_msg_data => x_msg_data,
7308: p_tas_id => adj_txl_rec.tas_id,
7309: p_tsu_code => G_TSU_CODE_PROCESSED);
7310:
7311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7314: RAISE OKL_API.G_EXCEPTION_ERROR;
7315: END IF;
7308: p_tas_id => adj_txl_rec.tas_id,
7309: p_tsu_code => G_TSU_CODE_PROCESSED);
7310:
7311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7314: RAISE OKL_API.G_EXCEPTION_ERROR;
7315: END IF;
7316: End If;
7309: p_tsu_code => G_TSU_CODE_PROCESSED);
7310:
7311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7314: RAISE OKL_API.G_EXCEPTION_ERROR;
7315: END IF;
7316: End If;
7317: --End Bug# 3548044
7310:
7311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7314: RAISE OKL_API.G_EXCEPTION_ERROR;
7315: END IF;
7316: End If;
7317: --End Bug# 3548044
7318:
7320: End Loop;
7321: Close adj_txl_csr;
7322: End If; --rbr code csr
7323: CLOSE rbr_code_csr;
7324: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7325: EXCEPTION
7326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7327: If ( l_hdr_csr%ISOPEN ) Then
7328: CLOSE l_hdr_csr;
7322: End If; --rbr code csr
7323: CLOSE rbr_code_csr;
7324: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
7325: EXCEPTION
7326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7327: If ( l_hdr_csr%ISOPEN ) Then
7328: CLOSE l_hdr_csr;
7329: End If;
7330:
7327: If ( l_hdr_csr%ISOPEN ) Then
7328: CLOSE l_hdr_csr;
7329: End If;
7330:
7331: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7332: l_api_name,
7333: G_PKG_NAME,
7334: 'OKL_API.G_RET_STS_ERROR',
7335: x_msg_count,
7330:
7331: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7332: l_api_name,
7333: G_PKG_NAME,
7334: 'OKL_API.G_RET_STS_ERROR',
7335: x_msg_count,
7336: x_msg_data,
7337: '_PVT');
7338: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7334: 'OKL_API.G_RET_STS_ERROR',
7335: x_msg_count,
7336: x_msg_data,
7337: '_PVT');
7338: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7339: If ( l_hdr_csr%ISOPEN ) Then
7340: CLOSE l_hdr_csr;
7341: End If;
7342:
7339: If ( l_hdr_csr%ISOPEN ) Then
7340: CLOSE l_hdr_csr;
7341: End If;
7342:
7343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7344: l_api_name,
7345: G_PKG_NAME,
7346: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7347: x_msg_count,
7342:
7343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7344: l_api_name,
7345: G_PKG_NAME,
7346: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7347: x_msg_count,
7348: x_msg_data,
7349: '_PVT');
7350: WHEN OTHERS THEN
7351: If ( l_hdr_csr%ISOPEN ) Then
7352: CLOSE l_hdr_csr;
7353: End If;
7354:
7355: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7356: l_api_name,
7357: G_PKG_NAME,
7358: 'OTHERS',
7359: x_msg_count,
7380: x_msg_data OUT NOCOPY VARCHAR2,
7381: p_rel_chr_id IN NUMBER
7382: ) IS
7383:
7384: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
7385: l_api_name CONSTANT varchar2(30) := 'RELEASE_ASSET';
7386: l_api_version CONSTANT NUMBER := 1.0;
7387: l_trx_type Varchar2(30) := G_TRX_LINE_TYPE_RELEASE;
7388:
7658: and stsb.ste_code not in ('HOLD','EXPIRED','TERMINATED','CANCELLED');
7659:
7660: l_asset_cle_id okc_k_lines_b.ID%TYPE;
7661:
7662: l_subsidy_exists varchar2(1) default OKL_API.G_FALSE;
7663: l_total_discount number;
7664: l_cost_adjustment number;
7665:
7666: --cursor to get asset id
7907: --Bug# 6373605 end
7908:
7909: BEGIN
7910:
7911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7912: -- Call start_activity to create savepoint, check compatibility
7913: -- and initialize message list
7914: x_return_status := OKL_API.START_ACTIVITY (
7915: l_api_name
7910:
7911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7912: -- Call start_activity to create savepoint, check compatibility
7913: -- and initialize message list
7914: x_return_status := OKL_API.START_ACTIVITY (
7915: l_api_name
7916: ,p_init_msg_list
7917: ,'_PVT'
7918: ,x_return_status);
7916: ,p_init_msg_list
7917: ,'_PVT'
7918: ,x_return_status);
7919: -- Check if activity started successfully
7920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7923: RAISE OKL_API.G_EXCEPTION_ERROR;
7924: END IF;
7917: ,'_PVT'
7918: ,x_return_status);
7919: -- Check if activity started successfully
7920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7923: RAISE OKL_API.G_EXCEPTION_ERROR;
7924: END IF;
7925:
7918: ,x_return_status);
7919: -- Check if activity started successfully
7920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7923: RAISE OKL_API.G_EXCEPTION_ERROR;
7924: END IF;
7925:
7926: --get rebook reason code
7919: -- Check if activity started successfully
7920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7923: RAISE OKL_API.G_EXCEPTION_ERROR;
7924: END IF;
7925:
7926: --get rebook reason code
7927: --dbms_output.put_line('before rebook reason code cursor :');
7955: x_rep_pdt_id => l_rep_pdt_id,
7956: x_tax_owner => l_tax_owner,
7957: x_rep_deal_type => l_rep_deal_type);
7958:
7959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: END IF;
7956: x_tax_owner => l_tax_owner,
7957: x_rep_deal_type => l_rep_deal_type);
7958:
7959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: END IF;
7964:
7957: x_rep_deal_type => l_rep_deal_type);
7958:
7959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: END IF;
7964:
7965: If l_tax_owner is null then
7958:
7959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: END IF;
7964:
7965: If l_tax_owner is null then
7966: Open town_rul_csr(pchrid => p_rel_chr_id);
7972: p_msg_name => G_REQUIRED_VALUE,
7973: p_token1 => G_COL_NAME_TOKEN,
7974: p_token1_value => 'Tax Owner');
7975: x_return_status := OKC_API.G_RET_STS_ERROR;
7976: RAISE OKL_API.G_EXCEPTION_ERROR;
7977: Else
7978: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
7979: End If;
7980: Close town_rul_csr;
8108: -- parameters. DF/ST(local) vs DF/ST(reporting) MG books are created with cost
8109: -- and SV zero to be untouched till offlease amortization process
8110: ---------------------------------------------------------------
8111: -- Bug# 3631094
8112: /*If ( adj_txl_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR))
8113: and (l_release_allowed_on_mg_book = 'N') Then
8114: --Exit;
8115: Null; --do not do anything for reporting book
8116: Else*/
8140: Fetch chk_cat_bk_csr into l_cat_bk_exists;
8141: Close chk_cat_bk_csr;
8142:
8143: If l_cat_bk_exists = '?' Then
8144: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8145: p_msg_name => G_FA_INVALID_BK_CAT,
8146: p_token1 => G_FA_BOOK,
8147: p_token1_value => adj_txl_rec.book_type_code,
8148: p_token2 => G_ASSET_CATEGORY,
8147: p_token1_value => adj_txl_rec.book_type_code,
8148: p_token2 => G_ASSET_CATEGORY,
8149: p_token2_value => to_char(adj_txl_rec.asset_category_id)
8150: );
8151: RAISE OKL_API.G_EXCEPTION_ERROR;
8152: Else
8153: --check if asset already exists in tax book
8154: l_ast_bk_exists := '?';
8155: Open chk_ast_bk_csr(p_book_type_code => adj_txl_rec.book_type_code,
8168: Fetch chk_mass_cpy_book into l_mass_cpy_book;
8169: Close chk_mass_cpy_book;
8170:
8171: If l_mass_cpy_book = '?' Then
8172: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8173: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
8174: p_token1 => G_FA_BOOK,
8175: p_token1_value => adj_txl_rec.book_type_code
8176: );
8173: p_msg_name => G_FA_TAX_CPY_NOT_ALLOWED,
8174: p_token1 => G_FA_BOOK,
8175: p_token1_value => adj_txl_rec.book_type_code
8176: );
8177: RAISE OKL_API.G_EXCEPTION_ERROR;
8178: Else
8179: --can masscopy
8180: --intialize talv record for tax book
8181:
8181:
8182: l_talv_rec := get_talv_rec(adj_txl_rec.kle_id, l_trx_type, l_no_data_found);
8183: If l_no_data_found = TRUE Then
8184: --dbms_output.put_line('no asset creation transaction records ...!');
8185: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8186: p_msg_name => G_FA_TRX_REC_NOT_FOUND,
8187: p_token1 => G_FA_LINE_ID,
8188: p_token1_value => to_char(adj_txl_rec.kle_id)
8189: );
8186: p_msg_name => G_FA_TRX_REC_NOT_FOUND,
8187: p_token1 => G_FA_LINE_ID,
8188: p_token1_value => to_char(adj_txl_rec.kle_id)
8189: );
8190: RAISE OKL_API.G_EXCEPTION_ERROR;
8191: End if;
8192:
8193: l_talv_rec.corporate_book := adj_txl_rec.book_type_code;
8194: l_talv_rec.dnz_asset_id := ast_corp_book_rec.asset_id;
8233: --Bug# 4028371
8234: x_fa_trx_date => l_fa_add_date_mg,
8235: x_asset_hdr_rec => l_asset_hdr_rec);
8236:
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8234: x_fa_trx_date => l_fa_add_date_mg,
8235: x_asset_hdr_rec => l_asset_hdr_rec);
8236:
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8235: x_asset_hdr_rec => l_asset_hdr_rec);
8236:
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8243: IF (l_rep_deal_type in (G_DF_LEASE_BK_CLASS,G_ST_LEASE_BK_CLASS)) THEN
8236:
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8240: RAISE OKL_API.G_EXCEPTION_ERROR;
8241: END IF;
8242:
8243: IF (l_rep_deal_type in (G_DF_LEASE_BK_CLASS,G_ST_LEASE_BK_CLASS)) THEN
8244:
8283: --Bug# 4028371
8284: x_fa_trx_date => l_fa_adj_date_mg,
8285: x_asset_fin_rec => l_asset_fin_rec);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8284: x_fa_trx_date => l_fa_adj_date_mg,
8285: x_asset_fin_rec => l_asset_fin_rec);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: END IF;
8285: x_asset_fin_rec => l_asset_fin_rec);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: END IF;
8293: END IF;
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: END IF;
8293: END IF;
8294:
8326:
8327: -- Bug# 5150150 -- Don't Include Cap Fee for Re-lease contracts
8328: l_cap_fee_delta := 0;
8329: l_cap_fee_delta_converted_amt := 0;
8330: IF NVL(l_orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE' THEN
8331:
8332: open cap_fee_csr(fa_cle_id => adj_txl_rec.kle_id
8333: ,rel_chr_id => p_rel_chr_id);
8334: fetch cap_fee_csr into l_cap_fee_delta;
8345: p_chr_id => p_rel_chr_id,
8346: p_amount => l_cap_fee_delta,
8347: x_amount => l_cap_fee_delta_converted_amt);
8348:
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8346: p_amount => l_cap_fee_delta,
8347: x_amount => l_cap_fee_delta_converted_amt);
8348:
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8347: x_amount => l_cap_fee_delta_converted_amt);
8348:
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8355: l_cap_fee_delta_converted_amt := NVL(l_cap_fee_delta_converted_amt,0);
8348:
8349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8352: RAISE OKL_API.G_EXCEPTION_ERROR;
8353: END IF;
8354:
8355: l_cap_fee_delta_converted_amt := NVL(l_cap_fee_delta_converted_amt,0);
8356: END IF; --Bug# 5150150
8377: p_chr_id => p_rel_chr_id,
8378: p_amount => adj_txl_rec.depreciation_cost,
8379: x_amount => l_dummy_amount);
8380:
8381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8384: RAISE OKL_API.G_EXCEPTION_ERROR;
8385: END IF;
8378: p_amount => adj_txl_rec.depreciation_cost,
8379: x_amount => l_dummy_amount);
8380:
8381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8384: RAISE OKL_API.G_EXCEPTION_ERROR;
8385: END IF;
8386:
8379: x_amount => l_dummy_amount);
8380:
8381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8384: RAISE OKL_API.G_EXCEPTION_ERROR;
8385: END IF;
8386:
8387: --calculate deltas
8380:
8381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8384: RAISE OKL_API.G_EXCEPTION_ERROR;
8385: END IF;
8386:
8387: --calculate deltas
8388: l_cost_delta := (l_dummy_amount - okx_ast_rec.cost);
8391: --Bug# 3533936 : End of commented code
8392: ------------------------------------------------------------------------
8393:
8394: --Bug# 3548044 : Added if-else clause for reporting product books
8395: If okx_ast_rec.book_type_code <> nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) then
8396:
8397: --Bug# 3950089
8398: If (okx_ast_rec.percent_salvage_value is not null) Then
8399:
8399:
8400: If (adj_txl_rec.pct_salvage_value is null) or
8401: (adj_txl_rec.salvage_value is not null) Then
8402:
8403: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8404: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8405: p_token1 => G_ASSET_NUMBER_TOKEN,
8406: p_token1_value => okx_ast_rec.asset_number
8407: );
8404: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8405: p_token1 => G_ASSET_NUMBER_TOKEN,
8406: p_token1_value => okx_ast_rec.asset_number
8407: );
8408: x_return_status := OKL_API.G_RET_STS_ERROR;
8409: RAISE OKL_API.G_EXCEPTION_ERROR;
8410: End if;
8411:
8412: Elsif (okx_ast_rec.salvage_value is not null) Then
8405: p_token1 => G_ASSET_NUMBER_TOKEN,
8406: p_token1_value => okx_ast_rec.asset_number
8407: );
8408: x_return_status := OKL_API.G_RET_STS_ERROR;
8409: RAISE OKL_API.G_EXCEPTION_ERROR;
8410: End if;
8411:
8412: Elsif (okx_ast_rec.salvage_value is not null) Then
8413:
8412: Elsif (okx_ast_rec.salvage_value is not null) Then
8413:
8414: If (adj_txl_rec.salvage_value is null) Then
8415:
8416: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8417: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8418: p_token1 => G_ASSET_NUMBER_TOKEN,
8419: p_token1_value => okx_ast_rec.asset_number
8420: );
8417: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8418: p_token1 => G_ASSET_NUMBER_TOKEN,
8419: p_token1_value => okx_ast_rec.asset_number
8420: );
8421: x_return_status := OKL_API.G_RET_STS_ERROR;
8422: RAISE OKL_API.G_EXCEPTION_ERROR;
8423: End if;
8424: End If;
8425:
8418: p_token1 => G_ASSET_NUMBER_TOKEN,
8419: p_token1_value => okx_ast_rec.asset_number
8420: );
8421: x_return_status := OKL_API.G_RET_STS_ERROR;
8422: RAISE OKL_API.G_EXCEPTION_ERROR;
8423: End if;
8424: End If;
8425:
8426: If (okx_ast_rec.percent_salvage_value is not null) and
8440: p_chr_id => p_rel_chr_id,
8441: p_amount => adj_txl_rec.salvage_value,
8442: x_amount => l_dummy_amount);
8443:
8444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8447: RAISE OKL_API.G_EXCEPTION_ERROR;
8448: END IF;
8441: p_amount => adj_txl_rec.salvage_value,
8442: x_amount => l_dummy_amount);
8443:
8444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8447: RAISE OKL_API.G_EXCEPTION_ERROR;
8448: END IF;
8449:
8442: x_amount => l_dummy_amount);
8443:
8444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8447: RAISE OKL_API.G_EXCEPTION_ERROR;
8448: END IF;
8449:
8450: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
8443:
8444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8447: RAISE OKL_API.G_EXCEPTION_ERROR;
8448: END IF;
8449:
8450: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
8451: End if;
8449:
8450: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
8451: End if;
8452:
8453: ElsIf okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) then
8454:
8455: --Bug# 3950089
8456: If (okx_ast_rec.percent_salvage_value is not null) Then
8457:
8457:
8458: If (adj_txl_rec.corp_pct_salvage_value is null) or
8459: (adj_txl_rec.corp_salvage_value is not null) Then
8460:
8461: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8462: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8463: p_token1 => G_ASSET_NUMBER_TOKEN,
8464: p_token1_value => okx_ast_rec.asset_number
8465: );
8462: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8463: p_token1 => G_ASSET_NUMBER_TOKEN,
8464: p_token1_value => okx_ast_rec.asset_number
8465: );
8466: x_return_status := OKL_API.G_RET_STS_ERROR;
8467: RAISE OKL_API.G_EXCEPTION_ERROR;
8468: End if;
8469:
8470: Elsif (okx_ast_rec.salvage_value is not null) Then
8463: p_token1 => G_ASSET_NUMBER_TOKEN,
8464: p_token1_value => okx_ast_rec.asset_number
8465: );
8466: x_return_status := OKL_API.G_RET_STS_ERROR;
8467: RAISE OKL_API.G_EXCEPTION_ERROR;
8468: End if;
8469:
8470: Elsif (okx_ast_rec.salvage_value is not null) Then
8471:
8470: Elsif (okx_ast_rec.salvage_value is not null) Then
8471:
8472: If (adj_txl_rec.corp_salvage_value is null) Then
8473:
8474: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8475: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8476: p_token1 => G_ASSET_NUMBER_TOKEN,
8477: p_token1_value => okx_ast_rec.asset_number
8478: );
8475: p_msg_name => 'OKL_LA_REVISE_SALVAGE_TYPE',
8476: p_token1 => G_ASSET_NUMBER_TOKEN,
8477: p_token1_value => okx_ast_rec.asset_number
8478: );
8479: x_return_status := OKL_API.G_RET_STS_ERROR;
8480: RAISE OKL_API.G_EXCEPTION_ERROR;
8481: End if;
8482: End If;
8483:
8476: p_token1 => G_ASSET_NUMBER_TOKEN,
8477: p_token1_value => okx_ast_rec.asset_number
8478: );
8479: x_return_status := OKL_API.G_RET_STS_ERROR;
8480: RAISE OKL_API.G_EXCEPTION_ERROR;
8481: End if;
8482: End If;
8483:
8484: If (okx_ast_rec.percent_salvage_value is not null) Then
8497: p_chr_id => p_rel_chr_id,
8498: p_amount => adj_txl_rec.corp_salvage_value,
8499: x_amount => l_dummy_amount);
8500:
8501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8504: RAISE OKL_API.G_EXCEPTION_ERROR;
8505: END IF;
8498: p_amount => adj_txl_rec.corp_salvage_value,
8499: x_amount => l_dummy_amount);
8500:
8501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8504: RAISE OKL_API.G_EXCEPTION_ERROR;
8505: END IF;
8506:
8499: x_amount => l_dummy_amount);
8500:
8501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8504: RAISE OKL_API.G_EXCEPTION_ERROR;
8505: END IF;
8506:
8507: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
8500:
8501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8504: RAISE OKL_API.G_EXCEPTION_ERROR;
8505: END IF;
8506:
8507: l_salvage_delta := (l_dummy_amount - okx_ast_rec.salvage_value);
8508: End If;
8512:
8513: -- Bug# 3631094: start
8514:
8515: -- Update of Asset cost
8516: If okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) Then
8517:
8518: If ( nvl(l_rep_deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR AND
8519: okx_ast_rec.cost <> 0 ) Then
8520:
8514:
8515: -- Update of Asset cost
8516: If okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) Then
8517:
8518: If ( nvl(l_rep_deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR AND
8519: okx_ast_rec.cost <> 0 ) Then
8520:
8521: --Bug# 3872534
8522: -- Adjust Asset COST and salvage value in
8585: End If;
8586:
8587:
8588: -- Update of Asset Salvage Value
8589: If okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) Then
8590:
8591: If ( nvl(l_rep_deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) THEN
8592:
8593: -- Adjust Asset cost and salvage value in
8587:
8588: -- Update of Asset Salvage Value
8589: If okx_ast_rec.book_type_code = nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) Then
8590:
8591: If ( nvl(l_rep_deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) THEN
8592:
8593: -- Adjust Asset cost and salvage value in
8594: -- Reporting Book to zero, if the product
8595: -- is not a Multi-Gaap product
8761: l_new_salvage_value := okx_ast_rec.salvage_value + l_salvage_delta;
8762: End if;
8763:
8764: If (l_new_cost < l_new_salvage_value) Then
8765: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8766: p_msg_name => G_SALVAGE_VALUE
8767: );
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: End If;
8764: If (l_new_cost < l_new_salvage_value) Then
8765: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
8766: p_msg_name => G_SALVAGE_VALUE
8767: );
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: End If;
8770: --End If; --Bug# 3548044
8771:
8772: --bug# 3156924 :
8782: --For re-lease contract move this validation upfront to
8783: --OKL_CONTRACT_BOOK_PVT
8784: --Bug# 4869443
8785: -- No date validation required for Re-lease asset and Re-lease contract
8786: /*If nvl(l_orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE' Then
8787: --Bug# 3783518
8788: -- Release contract start date should fall in the current
8789: -- open period in FA
8790: validate_release_date
8795: x_msg_data => x_msg_data,
8796: p_book_type_code => okx_ast_rec.book_type_code,
8797: p_release_date => l_release_date);
8798:
8799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8796: p_book_type_code => okx_ast_rec.book_type_code,
8797: p_release_date => l_release_date);
8798:
8799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8804: End If;*/
8797: p_release_date => l_release_date);
8798:
8799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8804: End If;*/
8805: --Bug# End 4631549
8798:
8799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8802: RAISE OKL_API.G_EXCEPTION_ERROR;
8803: END IF;
8804: End If;*/
8805: --Bug# End 4631549
8806:
8838: x_fa_trx_date => l_fa_adj_date,
8839: x_asset_fin_rec_new => l_asset_fin_rec_new);
8840:
8841: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
8842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8845: RAISE OKL_API.G_EXCEPTION_ERROR;
8846: END IF;
8839: x_asset_fin_rec_new => l_asset_fin_rec_new);
8840:
8841: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
8842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8845: RAISE OKL_API.G_EXCEPTION_ERROR;
8846: END IF;
8847: --Bug# 4028371
8840:
8841: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
8842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8845: RAISE OKL_API.G_EXCEPTION_ERROR;
8846: END IF;
8847: --Bug# 4028371
8848: If adj_txl_rec.tal_id is not null Then
8841: --dbms_output.put_line('After fixed asset adjust for rebook :'||x_return_status);
8842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8845: RAISE OKL_API.G_EXCEPTION_ERROR;
8846: END IF;
8847: --Bug# 4028371
8848: If adj_txl_rec.tal_id is not null Then
8849: --update the fa trx date on transaction line
8857: x_msg_count => x_msg_count,
8858: x_msg_data => x_msg_data,
8859: p_talv_rec => l_talv_date_rec,
8860: x_talv_rec => lx_talv_date_rec);
8861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8864: RAISE OKL_API.G_EXCEPTION_ERROR;
8865: END IF;
8858: x_msg_data => x_msg_data,
8859: p_talv_rec => l_talv_date_rec,
8860: x_talv_rec => lx_talv_date_rec);
8861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8864: RAISE OKL_API.G_EXCEPTION_ERROR;
8865: END IF;
8866: End If;
8859: p_talv_rec => l_talv_date_rec,
8860: x_talv_rec => lx_talv_date_rec);
8861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8864: RAISE OKL_API.G_EXCEPTION_ERROR;
8865: END IF;
8866: End If;
8867: --End Bug# 4028371
8860: x_talv_rec => lx_talv_date_rec);
8861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8864: RAISE OKL_API.G_EXCEPTION_ERROR;
8865: END IF;
8866: End If;
8867: --End Bug# 4028371
8868: Else
8900: --Bug# 6373605--SLA populate sources
8901: x_fa_trx_date => l_fa_adj_date,
8902: x_asset_fin_rec_new => l_asset_fin_rec_new);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8901: x_fa_trx_date => l_fa_adj_date,
8902: x_asset_fin_rec_new => l_asset_fin_rec_new);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8902: x_asset_fin_rec_new => l_asset_fin_rec_new);
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8910: If adj_txl_rec.tal_id is not null then
8903:
8904: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8910: If adj_txl_rec.tal_id is not null then
8911: --update th fa trx date on transaction line
8918: (p_book_type_code => okx_ast_rec.book_type_code,
8919: x_return_status => x_return_status,
8920: x_fa_trx_date => l_fa_adj_date);
8921:
8922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8925: RAISE OKL_API.G_EXCEPTION_ERROR;
8926: END IF;
8919: x_return_status => x_return_status,
8920: x_fa_trx_date => l_fa_adj_date);
8921:
8922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8925: RAISE OKL_API.G_EXCEPTION_ERROR;
8926: END IF;
8927:
8920: x_fa_trx_date => l_fa_adj_date);
8921:
8922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8925: RAISE OKL_API.G_EXCEPTION_ERROR;
8926: END IF;
8927:
8928: l_talv_date_rec.fa_trx_date := l_fa_adj_date;*/
8921:
8922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8925: RAISE OKL_API.G_EXCEPTION_ERROR;
8926: END IF;
8927:
8928: l_talv_date_rec.fa_trx_date := l_fa_adj_date;*/
8929: l_talv_date_rec.fa_trx_date := l_fa_adj_date;
8938: x_msg_count => x_msg_count,
8939: x_msg_data => x_msg_data,
8940: p_talv_rec => l_talv_date_rec,
8941: x_talv_rec => lx_talv_date_rec);
8942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8945: RAISE OKL_API.G_EXCEPTION_ERROR;
8946: END IF;
8939: x_msg_data => x_msg_data,
8940: p_talv_rec => l_talv_date_rec,
8941: x_talv_rec => lx_talv_date_rec);
8942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8945: RAISE OKL_API.G_EXCEPTION_ERROR;
8946: END IF;
8947: End If; --adj_txl_rec.tal_id is not null
8940: p_talv_rec => l_talv_date_rec,
8941: x_talv_rec => lx_talv_date_rec);
8942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8945: RAISE OKL_API.G_EXCEPTION_ERROR;
8946: END IF;
8947: End If; --adj_txl_rec.tal_id is not null
8948: End If; --l_adjust_yn = 'Y'
8941: x_talv_rec => lx_talv_date_rec);
8942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8945: RAISE OKL_API.G_EXCEPTION_ERROR;
8946: END IF;
8947: End If; --adj_txl_rec.tal_id is not null
8948: End If; --l_adjust_yn = 'Y'
8949:
8974: --Bug# 4028371
8975: x_fa_trx_date => l_fa_tsfr_date
8976: );
8977:
8978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8981: RAISE OKL_API.G_EXCEPTION_ERROR;
8982: END IF;
8975: x_fa_trx_date => l_fa_tsfr_date
8976: );
8977:
8978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8981: RAISE OKL_API.G_EXCEPTION_ERROR;
8982: END IF;
8983: END IF;
8976: );
8977:
8978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8981: RAISE OKL_API.G_EXCEPTION_ERROR;
8982: END IF;
8983: END IF;
8984: End If;
8977:
8978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8981: RAISE OKL_API.G_EXCEPTION_ERROR;
8982: END IF;
8983: END IF;
8984: End If;
8985:
8998: x_msg_data => x_msg_data,
8999: p_tas_id => adj_txl_rec.tas_id,
9000: p_tsu_code => G_TSU_CODE_PROCESSED);
9001:
9002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9005: RAISE OKL_API.G_EXCEPTION_ERROR;
9006: END IF;
8999: p_tas_id => adj_txl_rec.tas_id,
9000: p_tsu_code => G_TSU_CODE_PROCESSED);
9001:
9002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9005: RAISE OKL_API.G_EXCEPTION_ERROR;
9006: END IF;
9007: End If;
9000: p_tsu_code => G_TSU_CODE_PROCESSED);
9001:
9002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9005: RAISE OKL_API.G_EXCEPTION_ERROR;
9006: END IF;
9007: End If;
9008: --End Bug# 3533936*/
9001:
9002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9005: RAISE OKL_API.G_EXCEPTION_ERROR;
9006: END IF;
9007: End If;
9008: --End Bug# 3533936*/
9009:
9019: open l_allast_csr(p_chr_id => p_rel_chr_id);
9020: loop
9021: fetch l_allast_csr into l_asset_cle_id,l_orig_system_id1;
9022: exit when l_allast_csr%NOTFOUND;
9023: l_subsidy_exists := OKL_API.G_FALSE;
9024: okl_subsidy_process_pvt.is_asset_subsidized
9025: (p_api_version => p_api_version,
9026: p_init_msg_list => p_init_msg_list,
9027: x_return_status => x_return_status,
9028: x_msg_count => x_msg_count,
9029: x_msg_data => x_msg_data,
9030: p_asset_cle_id => l_asset_cle_id,
9031: x_subsidized => l_subsidy_exists);
9032: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_ERROR;
9036: END IF;
9029: x_msg_data => x_msg_data,
9030: p_asset_cle_id => l_asset_cle_id,
9031: x_subsidized => l_subsidy_exists);
9032: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9030: p_asset_cle_id => l_asset_cle_id,
9031: x_subsidized => l_subsidy_exists);
9032: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9038:
9031: x_subsidized => l_subsidy_exists);
9032: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9038:
9039: If l_subsidy_exists = OKL_API.G_TRUE then
9035: RAISE Okl_Api.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9038:
9039: If l_subsidy_exists = OKL_API.G_TRUE then
9040:
9041: --get total discount for original asset
9042: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
9043: p_init_msg_list => p_init_msg_list,
9048: p_contract_id => l_rel_chr_id,
9049: p_line_id => l_asset_cle_id,
9050: x_value => l_total_discount);
9051:
9052: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9054: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9055: RAISE OKL_API.G_EXCEPTION_ERROR;
9056: END IF;
9049: p_line_id => l_asset_cle_id,
9050: x_value => l_total_discount);
9051:
9052: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9054: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9055: RAISE OKL_API.G_EXCEPTION_ERROR;
9056: END IF;
9057:
9050: x_value => l_total_discount);
9051:
9052: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9054: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9055: RAISE OKL_API.G_EXCEPTION_ERROR;
9056: END IF;
9057:
9058: --Bug# 3621663 : Fix for Multi-Currency
9051:
9052: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9054: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9055: RAISE OKL_API.G_EXCEPTION_ERROR;
9056: END IF;
9057:
9058: --Bug# 3621663 : Fix for Multi-Currency
9059: l_dummy_amount := null;
9066: p_chr_id => p_rel_chr_id,
9067: p_amount => l_total_discount,
9068: x_amount => l_dummy_amount);
9069:
9070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9073: RAISE OKL_API.G_EXCEPTION_ERROR;
9074: END IF;
9067: p_amount => l_total_discount,
9068: x_amount => l_dummy_amount);
9069:
9070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9073: RAISE OKL_API.G_EXCEPTION_ERROR;
9074: END IF;
9075: l_total_discount := l_dummy_amount;
9068: x_amount => l_dummy_amount);
9069:
9070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9073: RAISE OKL_API.G_EXCEPTION_ERROR;
9074: END IF;
9075: l_total_discount := l_dummy_amount;
9076: --Bug# 3621663 : Fix for Multi-Currency
9069:
9070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9073: RAISE OKL_API.G_EXCEPTION_ERROR;
9074: END IF;
9075: l_total_discount := l_dummy_amount;
9076: --Bug# 3621663 : Fix for Multi-Currency
9077:
9089: -- Reporting Book on Re-lease. The subsidy adjustment
9090: -- is done by the call to Fixed_Asset_Add
9091:
9092: If l_asset_rec.book_type_code =
9093: nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) Then
9094:
9095: open orig_pdt_csr(l_orig_system_id1);
9096: fetch orig_pdt_csr into l_orig_reporting_pdt_id;
9097: close orig_pdt_csr;
9098:
9099: End If;
9100:
9101: If (l_asset_rec.book_type_code =
9102: nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR)
9103: AND l_orig_reporting_pdt_id is null) Then
9104:
9105: NULL;
9106:
9108:
9109: --Bug# 3872534: Replace NBV checks with cost checks
9110: If (l_asset_rec.asset_cost <> 0) then
9111: If ((l_asset_rec.asset_cost + l_cost_adjustment) <= 0) then
9112: OKL_API.set_message(p_app_name => G_APP_NAME,
9113: p_msg_name => G_SUBSIDY_ADJ_COST_ERROR,
9114: p_token1 => G_ASSET_NUMBER_TOKEN,
9115: p_token1_value => l_asset_rec.asset_number,
9116: p_token2 => G_BOOK_TYPE_TOKEN,
9116: p_token2 => G_BOOK_TYPE_TOKEN,
9117: p_token2_value => l_asset_rec.book_type_code,
9118: p_token3 => G_ASSET_NUMBER_TOKEN,
9119: p_token3_value => l_asset_rec.asset_number);
9120: x_return_status := OKL_API.G_RET_STS_ERROR;
9121: RAISE OKL_API.G_EXCEPTION_ERROR;
9122: Elsif ((l_asset_rec.asset_cost + l_cost_adjustment) > 0) then
9123:
9124: --Bug# 3156924
9117: p_token2_value => l_asset_rec.book_type_code,
9118: p_token3 => G_ASSET_NUMBER_TOKEN,
9119: p_token3_value => l_asset_rec.asset_number);
9120: x_return_status := OKL_API.G_RET_STS_ERROR;
9121: RAISE OKL_API.G_EXCEPTION_ERROR;
9122: Elsif ((l_asset_rec.asset_cost + l_cost_adjustment) > 0) then
9123:
9124: --Bug# 3156924
9125: l_trans_number := l_asset_rec.trans_number;
9146: x_msg_data => x_msg_data,
9147: p_book_type_code => l_asset_rec.book_type_code,
9148: p_release_date => l_release_date);
9149:
9150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9153: RAISE OKL_API.G_EXCEPTION_ERROR;
9154: END IF;
9147: p_book_type_code => l_asset_rec.book_type_code,
9148: p_release_date => l_release_date);
9149:
9150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9153: RAISE OKL_API.G_EXCEPTION_ERROR;
9154: END IF;
9155: */
9148: p_release_date => l_release_date);
9149:
9150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9153: RAISE OKL_API.G_EXCEPTION_ERROR;
9154: END IF;
9155: */
9156:
9149:
9150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9153: RAISE OKL_API.G_EXCEPTION_ERROR;
9154: END IF;
9155: */
9156:
9157: l_subsidy_asset_fin_rec_adj.cost := l_cost_adjustment;
9210: --Bug# 4028371
9211: x_fa_trx_date => l_fa_adj_date,
9212: x_asset_fin_rec_new => l_asset_fin_rec_new);
9213:
9214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9217: RAISE OKL_API.G_EXCEPTION_ERROR;
9218: END IF;
9211: x_fa_trx_date => l_fa_adj_date,
9212: x_asset_fin_rec_new => l_asset_fin_rec_new);
9213:
9214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9217: RAISE OKL_API.G_EXCEPTION_ERROR;
9218: END IF;
9219:
9212: x_asset_fin_rec_new => l_asset_fin_rec_new);
9213:
9214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9217: RAISE OKL_API.G_EXCEPTION_ERROR;
9218: END IF;
9219:
9220: End If;
9213:
9214: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9216: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9217: RAISE OKL_API.G_EXCEPTION_ERROR;
9218: END IF;
9219:
9220: End If;
9221: End If;
9241: x_msg_data => x_msg_data,
9242: p_tas_id => tas_rec.id,
9243: p_tsu_code => G_TSU_CODE_PROCESSED);
9244:
9245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9248: RAISE OKL_API.G_EXCEPTION_ERROR;
9249: END IF;
9242: p_tas_id => tas_rec.id,
9243: p_tsu_code => G_TSU_CODE_PROCESSED);
9244:
9245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9248: RAISE OKL_API.G_EXCEPTION_ERROR;
9249: END IF;
9250:
9243: p_tsu_code => G_TSU_CODE_PROCESSED);
9244:
9245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9248: RAISE OKL_API.G_EXCEPTION_ERROR;
9249: END IF;
9250:
9251: END LOOP;
9244:
9245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9248: RAISE OKL_API.G_EXCEPTION_ERROR;
9249: END IF;
9250:
9251: END LOOP;
9252: --End Bug# 3533936
9251: END LOOP;
9252: --End Bug# 3533936
9253: --Bug 3631094: end
9254:
9255: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9256: EXCEPTION
9257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9258: If ( l_hdr_csr%ISOPEN ) Then
9259: CLOSE l_hdr_csr;
9253: --Bug 3631094: end
9254:
9255: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
9256: EXCEPTION
9257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9258: If ( l_hdr_csr%ISOPEN ) Then
9259: CLOSE l_hdr_csr;
9260: End If;
9261:
9258: If ( l_hdr_csr%ISOPEN ) Then
9259: CLOSE l_hdr_csr;
9260: End If;
9261:
9262: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9263: l_api_name,
9264: G_PKG_NAME,
9265: 'OKL_API.G_RET_STS_ERROR',
9266: x_msg_count,
9261:
9262: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9263: l_api_name,
9264: G_PKG_NAME,
9265: 'OKL_API.G_RET_STS_ERROR',
9266: x_msg_count,
9267: x_msg_data,
9268: '_PVT');
9269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9265: 'OKL_API.G_RET_STS_ERROR',
9266: x_msg_count,
9267: x_msg_data,
9268: '_PVT');
9269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9270: If ( l_hdr_csr%ISOPEN ) Then
9271: CLOSE l_hdr_csr;
9272: End If;
9273:
9270: If ( l_hdr_csr%ISOPEN ) Then
9271: CLOSE l_hdr_csr;
9272: End If;
9273:
9274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9275: l_api_name,
9276: G_PKG_NAME,
9277: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9278: x_msg_count,
9273:
9274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9275: l_api_name,
9276: G_PKG_NAME,
9277: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9278: x_msg_count,
9279: x_msg_data,
9280: '_PVT');
9281: WHEN OTHERS THEN
9282: If ( l_hdr_csr%ISOPEN ) Then
9283: CLOSE l_hdr_csr;
9284: End If;
9285:
9286: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9287: l_api_name,
9288: G_PKG_NAME,
9289: 'OTHERS',
9290: x_msg_count,
9296: ---------------------------------------------------------------------
9297: --Bug# 3621875: pricing parameters
9298: --------------------------------------------------------------------
9299: Procedure Get_pricing_Parameters ( p_api_version IN NUMBER,
9300: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9301: x_return_status OUT NOCOPY VARCHAR2,
9302: x_msg_count OUT NOCOPY NUMBER,
9303: x_msg_data OUT NOCOPY VARCHAR2,
9304: p_chr_id IN NUMBER,
9304: p_chr_id IN NUMBER,
9305: p_cle_id IN NUMBER,
9306: x_ast_dtl_tbl OUT NOCOPY ast_dtl_tbl_type) is
9307:
9308: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
9309: l_api_name CONSTANT varchar2(30) := 'GET_PRICING_PARAMS';
9310: l_api_version CONSTANT NUMBER := 1.0;
9311:
9312: --cursor to get transaction going on on this asset
9640: l_new_cap_fee NUMBER;
9641: -- Bug# 5150150 - End
9642:
9643: begin
9644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9645:
9646: -- Call start_activity to create savepoint, check compatibility
9647: -- and initialize message list
9648: x_return_status := OKL_API.START_ACTIVITY (
9644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9645:
9646: -- Call start_activity to create savepoint, check compatibility
9647: -- and initialize message list
9648: x_return_status := OKL_API.START_ACTIVITY (
9649: l_api_name
9650: ,p_init_msg_list
9651: ,'_PVT'
9652: ,x_return_status);
9650: ,p_init_msg_list
9651: ,'_PVT'
9652: ,x_return_status);
9653: -- Check if activity started successfully
9654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9657: RAISE OKL_API.G_EXCEPTION_ERROR;
9658: END IF;
9651: ,'_PVT'
9652: ,x_return_status);
9653: -- Check if activity started successfully
9654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9657: RAISE OKL_API.G_EXCEPTION_ERROR;
9658: END IF;
9659:
9652: ,x_return_status);
9653: -- Check if activity started successfully
9654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9657: RAISE OKL_API.G_EXCEPTION_ERROR;
9658: END IF;
9659:
9660: -------------------------------------------------
9653: -- Check if activity started successfully
9654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9657: RAISE OKL_API.G_EXCEPTION_ERROR;
9658: END IF;
9659:
9660: -------------------------------------------------
9661: --1. Find out details of the current transactions
9692: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_fa_rec2.prorate_convention_code;
9693: x_ast_dtl_tbl(i).COST := l_fa_rec2.cost;
9694: --get method id
9695: l_method_id := null;
9696: If nvl(l_fa_rec2.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9697: open l_method_csr1(p_method_code => l_fa_rec2.deprn_method_code,
9698: p_life => l_fa_rec2.life_in_months);
9699: fetch l_method_csr1 into l_method_id;
9700: if l_method_csr1%NOTFOUND then
9700: if l_method_csr1%NOTFOUND then
9701: null;
9702: end if;
9703: close l_method_csr1;
9704: ElsIf nvl(l_fa_rec2.adjusted_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9705: open l_method_csr2(p_method_code => l_fa_rec2.deprn_method_code,
9706: p_basic_rate => l_fa_rec2.basic_rate,
9707: p_adj_rate => l_fa_rec2.adjusted_rate);
9708: fetch l_method_csr2 into l_method_id;
9743: x_rep_pdt_id => l_rep_pdt_id,
9744: x_tax_owner => l_tax_owner,
9745: x_rep_deal_type => l_rep_deal_type);
9746:
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9744: x_tax_owner => l_tax_owner,
9745: x_rep_deal_type => l_rep_deal_type);
9746:
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9745: x_rep_deal_type => l_rep_deal_type);
9746:
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9753:
9746:
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9753:
9754: l_Multi_GAAP_YN := 'N';
9826: open l_clev_csr(p_cle_id => p_cle_id);
9827: fetch l_clev_csr into l_clev_rec;
9828: close l_clev_csr;
9829:
9830: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
9831: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
9832: p_token1 => 'ASSET_NUMBER',
9833: p_token1_value => l_clev_rec.name
9834: );
9831: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
9832: p_token1 => 'ASSET_NUMBER',
9833: p_token1_value => l_clev_rec.name
9834: );
9835: Raise OKL_API.G_EXCEPTION_ERROR;
9836: --Bug# 4775166
9837: End If;
9838: close l_booking_corp_csr;
9839:
9837: End If;
9838: close l_booking_corp_csr;
9839:
9840: l_method_id := null;
9841: If nvl(l_booking_corp_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9842: open l_method_csr1(p_method_code => l_booking_corp_rec.deprn_method,
9843: p_life => l_booking_corp_rec.life_in_months);
9844: fetch l_method_csr1 into l_method_id;
9845: if l_method_csr1%NOTFOUND then
9845: if l_method_csr1%NOTFOUND then
9846: null;
9847: end if;
9848: close l_method_csr1;
9849: ElsIf nvl(l_booking_corp_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9850: open l_method_csr2(p_method_code => l_booking_corp_rec.deprn_method,
9851: p_basic_rate => l_booking_corp_rec.deprn_rate,
9852: p_adj_rate => l_booking_corp_rec.deprn_rate);
9853: fetch l_method_csr2 into l_method_id;
9886: p_entered_deprn => l_booking_corp_rec.depreciation_cost,
9887: p_fa_cle_id => l_booking_corp_rec.kle_id,
9888: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9889:
9890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_ERROR;
9894: END IF;
9887: p_fa_cle_id => l_booking_corp_rec.kle_id,
9888: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9889:
9890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_ERROR;
9894: END IF;
9895: End If;
9888: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9889:
9890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_ERROR;
9894: END IF;
9895: End If;
9896:
9889:
9890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_ERROR;
9894: END IF;
9895: End If;
9896:
9897: --process tax_books
9905: i := i + 1;
9906:
9907: --get deprn method
9908: l_method_id := null;
9909: If nvl(l_booking_tax_rec.life_in_months_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9910: open l_method_csr1(p_method_code => l_booking_tax_rec.deprn_method_tax,
9911: p_life => l_booking_tax_rec.life_in_months_tax);
9912: fetch l_method_csr1 into l_method_id;
9913: if l_method_csr1%NOTFOUND then
9913: if l_method_csr1%NOTFOUND then
9914: null;
9915: end if;
9916: close l_method_csr1;
9917: ElsIf nvl(l_booking_tax_rec.deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
9918: open l_method_csr2(p_method_code => l_booking_tax_rec.deprn_method_tax,
9919: p_basic_rate => l_booking_tax_rec.deprn_rate_tax,
9920: p_adj_rate => l_booking_tax_rec.deprn_rate_tax);
9921: fetch l_method_csr2 into l_method_id;
9934: x_ast_dtl_tbl(i).IN_SERVICE_DATE := l_booking_corp_rec.in_service_date;
9935: x_ast_dtl_tbl(i).LIFE_IN_MONTHS := l_booking_tax_rec.life_in_months_tax;
9936: x_ast_dtl_tbl(i).BASIC_RATE := null;
9937: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_booking_tax_rec.deprn_rate_tax;
9938: If nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR and
9939: l_multi_gaap_yn = 'Y' and
9940: l_rep_pdt_book = l_booking_tax_rec.tax_book then
9941: x_ast_dtl_tbl(i).SALVAGE_VALUE := l_booking_corp_rec.salvage_value;
9942: x_ast_dtl_tbl(i).PERCENT_SALVAGE_VALUE := l_booking_corp_rec.percent_salvage_value;
9944: end if;
9945: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_booking_tax_rec.prorate_convention_code;
9946:
9947: If (l_multi_GAAP_yn = 'N') OR
9948: (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> l_booking_tax_rec.tax_book) then
9949: If (l_deal_type = 'LOAN') OR
9950: (l_deal_type in ('LEASEST','LEASEDF') AND l_tax_owner = 'LESSEE')
9951: then
9952: x_ast_dtl_tbl(i).cost := 0;
9959: p_entered_deprn => l_booking_tax_rec.cost,
9960: p_fa_cle_id => l_booking_corp_rec.kle_id,
9961: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9962:
9963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9966: RAISE OKL_API.G_EXCEPTION_ERROR;
9967: END IF;
9960: p_fa_cle_id => l_booking_corp_rec.kle_id,
9961: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9962:
9963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9966: RAISE OKL_API.G_EXCEPTION_ERROR;
9967: END IF;
9968: End If;
9961: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9962:
9963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9966: RAISE OKL_API.G_EXCEPTION_ERROR;
9967: END IF;
9968: End If;
9969: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
9962:
9963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9966: RAISE OKL_API.G_EXCEPTION_ERROR;
9967: END IF;
9968: End If;
9969: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
9970: If (l_rep_deal_type = 'LEASEOP') then
9965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9966: RAISE OKL_API.G_EXCEPTION_ERROR;
9967: END IF;
9968: End If;
9969: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
9970: If (l_rep_deal_type = 'LEASEOP') then
9971: Calc_Deprn_Cost ( p_api_version => p_api_version,
9972: p_init_msg_list => p_init_msg_list,
9973: x_msg_count => x_msg_count,
9976: p_entered_deprn => l_booking_tax_rec.cost,
9977: p_fa_cle_id => l_booking_corp_rec.kle_id,
9978: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9979:
9980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9983: RAISE OKL_API.G_EXCEPTION_ERROR;
9984: END IF;
9977: p_fa_cle_id => l_booking_corp_rec.kle_id,
9978: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9979:
9980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9983: RAISE OKL_API.G_EXCEPTION_ERROR;
9984: END IF;
9985: ElsIf l_rep_deal_type in ('LEASEST','LEASEDF') then
9978: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
9979:
9980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9983: RAISE OKL_API.G_EXCEPTION_ERROR;
9984: END IF;
9985: ElsIf l_rep_deal_type in ('LEASEST','LEASEDF') then
9986: x_ast_dtl_tbl(i).cost := 0;
9979:
9980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9983: RAISE OKL_API.G_EXCEPTION_ERROR;
9984: END IF;
9985: ElsIf l_rep_deal_type in ('LEASEST','LEASEDF') then
9986: x_ast_dtl_tbl(i).cost := 0;
9987: x_ast_dtl_tbl(i).salvage_value := 0;
10006: close l_defaults_csr;
10007:
10008: --get deprn method
10009: l_method_id := null;
10010: If nvl(l_defaults_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10011: open l_method_csr1(p_method_code => l_defaults_rec.deprn_method,
10012: p_life => l_defaults_rec.life_in_months);
10013: fetch l_method_csr1 into l_method_id;
10014: if l_method_csr1%NOTFOUND then
10014: if l_method_csr1%NOTFOUND then
10015: null;
10016: end if;
10017: close l_method_csr1;
10018: ElsIf nvl(l_defaults_rec.basic_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10019: open l_method_csr2(p_method_code => l_defaults_rec.deprn_method,
10020: p_basic_rate => l_defaults_rec.basic_rate,
10021: p_adj_rate => l_defaults_rec.adjusted_rate);
10022: fetch l_method_csr2 into l_method_id;
10050: p_entered_deprn => l_booking_tax_rec.cost,
10051: p_fa_cle_id => l_booking_corp_rec.kle_id,
10052: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
10053:
10054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10057: RAISE OKL_API.G_EXCEPTION_ERROR;
10058: END IF;
10051: p_fa_cle_id => l_booking_corp_rec.kle_id,
10052: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
10053:
10054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10057: RAISE OKL_API.G_EXCEPTION_ERROR;
10058: END IF;
10059: Elsif l_rep_deal_type in ('LEASEST','LEASEDF') then
10052: x_calculated_deprn => x_ast_dtl_tbl(i).cost);
10053:
10054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10057: RAISE OKL_API.G_EXCEPTION_ERROR;
10058: END IF;
10059: Elsif l_rep_deal_type in ('LEASEST','LEASEDF') then
10060: x_ast_dtl_tbl(i).cost := 0;
10053:
10054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10057: RAISE OKL_API.G_EXCEPTION_ERROR;
10058: END IF;
10059: Elsif l_rep_deal_type in ('LEASEST','LEASEDF') then
10060: x_ast_dtl_tbl(i).cost := 0;
10061: x_ast_dtl_tbl(i).salvage_value := 0;
10074: open l_clev_csr(p_cle_id => p_cle_id);
10075: fetch l_clev_csr into l_clev_rec;
10076: close l_clev_csr;
10077:
10078: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10079: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10080: p_token1 => 'ASSET_NUMBER',
10081: p_token1_value => l_clev_rec.name
10082: );
10079: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10080: p_token1 => 'ASSET_NUMBER',
10081: p_token1_value => l_clev_rec.name
10082: );
10083: Raise OKL_API.G_EXCEPTION_ERROR;
10084: --Bug# 4775166
10085: End If;
10086: close l_booking_corp_csr;
10087:
10085: End If;
10086: close l_booking_corp_csr;
10087:
10088: l_method_id := null;
10089: If nvl(l_booking_corp_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10090: open l_method_csr1(p_method_code => l_booking_corp_rec.deprn_method,
10091: p_life => l_booking_corp_rec.life_in_months);
10092: fetch l_method_csr1 into l_method_id;
10093: if l_method_csr1%NOTFOUND then
10093: if l_method_csr1%NOTFOUND then
10094: null;
10095: end if;
10096: close l_method_csr1;
10097: ElsIf nvl(l_booking_corp_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10098: open l_method_csr2(p_method_code => l_booking_corp_rec.deprn_method,
10099: p_basic_rate => l_booking_corp_rec.deprn_rate,
10100: p_adj_rate => l_booking_corp_rec.deprn_rate);
10101: fetch l_method_csr2 into l_method_id;
10153: p_rbk_fa_cle_id => l_booking_corp_rec.kle_id,
10154: p_rbk_chr_id => p_chr_id,
10155: x_cap_fee_adjustment => l_cap_fee_delta);
10156:
10157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10160: RAISE OKL_API.G_EXCEPTION_ERROR;
10161: END IF;
10154: p_rbk_chr_id => p_chr_id,
10155: x_cap_fee_adjustment => l_cap_fee_delta);
10156:
10157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10160: RAISE OKL_API.G_EXCEPTION_ERROR;
10161: END IF;
10162: x_ast_dtl_tbl(i).cost := l_booking_corp_rec.depreciation_cost + l_cap_fee_delta;
10155: x_cap_fee_adjustment => l_cap_fee_delta);
10156:
10157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10160: RAISE OKL_API.G_EXCEPTION_ERROR;
10161: END IF;
10162: x_ast_dtl_tbl(i).cost := l_booking_corp_rec.depreciation_cost + l_cap_fee_delta;
10163: */
10156:
10157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10160: RAISE OKL_API.G_EXCEPTION_ERROR;
10161: END IF;
10162: x_ast_dtl_tbl(i).cost := l_booking_corp_rec.depreciation_cost + l_cap_fee_delta;
10163: */
10164:
10178: i := i + 1;
10179:
10180: --get deprn method
10181: l_method_id := null;
10182: If nvl(l_booking_tax_rec.life_in_months_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10183: open l_method_csr1(p_method_code => l_booking_tax_rec.deprn_method_tax,
10184: p_life => l_booking_tax_rec.life_in_months_tax);
10185: fetch l_method_csr1 into l_method_id;
10186: if l_method_csr1%NOTFOUND then
10186: if l_method_csr1%NOTFOUND then
10187: null;
10188: end if;
10189: close l_method_csr1;
10190: ElsIf nvl(l_booking_tax_rec.deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10191: open l_method_csr2(p_method_code => l_booking_tax_rec.deprn_method_tax,
10192: p_basic_rate => l_booking_tax_rec.deprn_rate_tax,
10193: p_adj_rate => l_booking_tax_rec.deprn_rate_tax);
10194: fetch l_method_csr2 into l_method_id;
10218: x_ast_dtl_tbl(i).IN_SERVICE_DATE := l_booking_corp_rec.in_service_date;
10219: x_ast_dtl_tbl(i).LIFE_IN_MONTHS := l_booking_tax_rec.life_in_months_tax;
10220: x_ast_dtl_tbl(i).BASIC_RATE := null;
10221: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_booking_tax_rec.deprn_rate_tax;
10222: If nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR and
10223: l_multi_gaap_yn = 'Y' and
10224: l_rep_pdt_book = l_booking_tax_rec.tax_book then
10225: x_ast_dtl_tbl(i).SALVAGE_VALUE := l_booking_corp_rec.salvage_value;
10226: x_ast_dtl_tbl(i).PERCENT_SALVAGE_VALUE := l_booking_corp_rec.percent_salvage_value;
10228: end if;
10229: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_fa_rec.prorate_convention_code;
10230:
10231: If (l_multi_GAAP_yn = 'N') OR
10232: (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> l_booking_tax_rec.tax_book) then
10233: If (l_deal_type = 'LOAN') OR
10234: (l_deal_type in ('LEASEST','LEASEDF') AND l_tax_owner = 'LESSEE')
10235: then
10236: x_ast_dtl_tbl(i).cost := l_fa_rec.cost;
10250: p_rbk_fa_cle_id => l_booking_corp_rec.kle_id,
10251: p_rbk_chr_id => p_chr_id,
10252: x_cap_fee_adjustment => l_cap_fee_delta);
10253:
10254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10257: RAISE OKL_API.G_EXCEPTION_ERROR;
10258: END IF;
10251: p_rbk_chr_id => p_chr_id,
10252: x_cap_fee_adjustment => l_cap_fee_delta);
10253:
10254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10257: RAISE OKL_API.G_EXCEPTION_ERROR;
10258: END IF;
10259: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10252: x_cap_fee_adjustment => l_cap_fee_delta);
10253:
10254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10257: RAISE OKL_API.G_EXCEPTION_ERROR;
10258: END IF;
10259: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10260: */
10253:
10254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10257: RAISE OKL_API.G_EXCEPTION_ERROR;
10258: END IF;
10259: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10260: */
10261:
10262: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost;
10263: --Bug# 4899328: End
10264: End If;
10265:
10266: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
10267: If (l_rep_deal_type = 'LEASEOP') then
10268:
10269: -- Bug# 4899328: Cap fee changes are now included in the
10270: -- Depreciation cost. Depreciation cost amount is automatically
10280: p_rbk_fa_cle_id => l_booking_corp_rec.kle_id,
10281: p_rbk_chr_id => p_chr_id,
10282: x_cap_fee_adjustment => l_cap_fee_delta);
10283:
10284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10287: RAISE OKL_API.G_EXCEPTION_ERROR;
10288: END IF;
10281: p_rbk_chr_id => p_chr_id,
10282: x_cap_fee_adjustment => l_cap_fee_delta);
10283:
10284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10287: RAISE OKL_API.G_EXCEPTION_ERROR;
10288: END IF;
10289: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10282: x_cap_fee_adjustment => l_cap_fee_delta);
10283:
10284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10287: RAISE OKL_API.G_EXCEPTION_ERROR;
10288: END IF;
10289: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10290: */
10283:
10284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10287: RAISE OKL_API.G_EXCEPTION_ERROR;
10288: END IF;
10289: x_ast_dtl_tbl(i).cost := l_booking_tax_rec.cost + l_cap_fee_delta;
10290: */
10291:
10312: open l_clev_csr(p_cle_id => p_cle_id);
10313: fetch l_clev_csr into l_clev_rec;
10314: close l_clev_csr;
10315:
10316: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10317: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10318: p_token1 => 'ASSET_NUMBER',
10319: p_token1_value => l_clev_rec.name
10320: );
10317: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10318: p_token1 => 'ASSET_NUMBER',
10319: p_token1_value => l_clev_rec.name
10320: );
10321: Raise OKL_API.G_EXCEPTION_ERROR;
10322: --Bug# 4775166
10323: End If;
10324: close l_booking_corp_csr;
10325:
10323: End If;
10324: close l_booking_corp_csr;
10325:
10326: l_method_id := null;
10327: If nvl(l_booking_corp_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10328: open l_method_csr1(p_method_code => l_booking_corp_rec.deprn_method,
10329: p_life => l_booking_corp_rec.life_in_months);
10330: fetch l_method_csr1 into l_method_id;
10331: if l_method_csr1%NOTFOUND then
10331: if l_method_csr1%NOTFOUND then
10332: null;
10333: end if;
10334: close l_method_csr1;
10335: ElsIf nvl(l_booking_corp_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10336: open l_method_csr2(p_method_code => l_booking_corp_rec.deprn_method,
10337: p_basic_rate => l_booking_corp_rec.deprn_rate,
10338: p_adj_rate => l_booking_corp_rec.deprn_rate);
10339: fetch l_method_csr2 into l_method_id;
10425: i := i + 1;
10426:
10427: --get deprn method
10428: l_method_id := null;
10429: If nvl(l_booking_tax_rec.life_in_months_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10430: open l_method_csr1(p_method_code => l_booking_tax_rec.deprn_method_tax,
10431: p_life => l_booking_tax_rec.life_in_months_tax);
10432: fetch l_method_csr1 into l_method_id;
10433: if l_method_csr1%NOTFOUND then
10433: if l_method_csr1%NOTFOUND then
10434: null;
10435: end if;
10436: close l_method_csr1;
10437: ElsIf nvl(l_booking_tax_rec.deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10438: open l_method_csr2(p_method_code => l_booking_tax_rec.deprn_method_tax,
10439: p_basic_rate => l_booking_tax_rec.deprn_rate_tax,
10440: p_adj_rate => l_booking_tax_rec.deprn_rate_tax);
10441: fetch l_method_csr2 into l_method_id;
10465: x_ast_dtl_tbl(i).IN_SERVICE_DATE := l_booking_corp_rec.in_service_date;
10466: x_ast_dtl_tbl(i).LIFE_IN_MONTHS := l_booking_tax_rec.life_in_months_tax;
10467: x_ast_dtl_tbl(i).BASIC_RATE := null;
10468: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_booking_tax_rec.deprn_rate_tax;
10469: If nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR and
10470: l_multi_gaap_yn = 'Y' and
10471: l_rep_pdt_book = l_booking_tax_rec.tax_book then
10472: x_ast_dtl_tbl(i).SALVAGE_VALUE := l_booking_corp_rec.salvage_value;
10473: x_ast_dtl_tbl(i).PERCENT_SALVAGE_VALUE := l_booking_corp_rec.percent_salvage_value;
10474: l_multi_gaap_book_done := 'Y';
10475: end if;
10476: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_fa_rec.prorate_convention_code;
10477: If (l_multi_GAAP_yn = 'N') OR
10478: (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> l_booking_tax_rec.tax_book) then
10479:
10480: -- Bug# 5150150
10481: If (l_deal_type = 'LOAN') OR
10482: (l_deal_type in ('LEASEST','LEASEDF') AND l_tax_owner = 'LESSEE')
10505: end if;
10506: -- Bug# 5150150-End
10507: End If;
10508:
10509: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
10510: If (l_rep_deal_type = 'LEASEOP') then
10511: --find out if new capitalized fee has been added
10512:
10513: -- Bug# 5150150-start
10511: --find out if new capitalized fee has been added
10512:
10513: -- Bug# 5150150-start
10514: -- If Re-lease contract
10515: if (NVL(l_orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE') then
10516: if (NVL(l_fa_rec.cost,0) = 0) then
10517: x_ast_dtl_tbl(i).cost := l_exp_asset_cost ;
10518: else
10519: x_ast_dtl_tbl(i).cost := l_fa_rec.cost ;
10554: open l_clev_csr(p_cle_id => p_cle_id);
10555: fetch l_clev_csr into l_clev_rec;
10556: close l_clev_csr;
10557:
10558: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10559: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10560: p_token1 => 'ASSET_NUMBER',
10561: p_token1_value => l_clev_rec.name
10562: );
10559: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10560: p_token1 => 'ASSET_NUMBER',
10561: p_token1_value => l_clev_rec.name
10562: );
10563: Raise OKL_API.G_EXCEPTION_ERROR;
10564: --Bug# 4775166
10565: End If;
10566: close l_booking_corp_csr;
10567:
10565: End If;
10566: close l_booking_corp_csr;
10567:
10568: l_method_id := null;
10569: If nvl(l_booking_corp_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10570: open l_method_csr1(p_method_code => l_booking_corp_rec.deprn_method,
10571: p_life => l_booking_corp_rec.life_in_months);
10572: fetch l_method_csr1 into l_method_id;
10573: if l_method_csr1%NOTFOUND then
10573: if l_method_csr1%NOTFOUND then
10574: null;
10575: end if;
10576: close l_method_csr1;
10577: ElsIf nvl(l_booking_corp_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10578: open l_method_csr2(p_method_code => l_booking_corp_rec.deprn_method,
10579: p_basic_rate => l_booking_corp_rec.deprn_rate,
10580: p_adj_rate => l_booking_corp_rec.deprn_rate);
10581: fetch l_method_csr2 into l_method_id;
10632: i := i + 1;
10633:
10634: --get deprn method
10635: l_method_id := null;
10636: If nvl(l_booking_tax_rec.life_in_months_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10637: open l_method_csr1(p_method_code => l_booking_tax_rec.deprn_method_tax,
10638: p_life => l_booking_tax_rec.life_in_months_tax);
10639: fetch l_method_csr1 into l_method_id;
10640: if l_method_csr1%NOTFOUND then
10640: if l_method_csr1%NOTFOUND then
10641: null;
10642: end if;
10643: close l_method_csr1;
10644: ElsIf nvl(l_booking_tax_rec.deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10645: open l_method_csr2(p_method_code => l_booking_tax_rec.deprn_method_tax,
10646: p_basic_rate => l_booking_tax_rec.deprn_rate_tax,
10647: p_adj_rate => l_booking_tax_rec.deprn_rate_tax);
10648: fetch l_method_csr2 into l_method_id;
10672: x_ast_dtl_tbl(i).IN_SERVICE_DATE := l_booking_corp_rec.in_service_date;
10673: x_ast_dtl_tbl(i).LIFE_IN_MONTHS := l_booking_tax_rec.life_in_months_tax;
10674: x_ast_dtl_tbl(i).BASIC_RATE := null;
10675: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_booking_tax_rec.deprn_rate_tax;
10676: If nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR and
10677: l_multi_gaap_yn = 'Y' and
10678: l_rep_pdt_book = l_booking_tax_rec.tax_book then
10679: x_ast_dtl_tbl(i).SALVAGE_VALUE := l_booking_corp_rec.salvage_value;
10680: x_ast_dtl_tbl(i).PERCENT_SALVAGE_VALUE := l_booking_corp_rec.percent_salvage_value;
10681: l_multi_gaap_book_done := 'Y';
10682: end if;
10683: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_fa_rec.prorate_convention_code;
10684: If (l_multi_GAAP_yn = 'N') OR
10685: (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> l_booking_tax_rec.tax_book) then
10686: x_ast_dtl_tbl(i).cost := l_fa_rec.cost;
10687:
10688: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
10689: If (l_rep_deal_type = 'LEASEOP') then
10684: If (l_multi_GAAP_yn = 'N') OR
10685: (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) <> l_booking_tax_rec.tax_book) then
10686: x_ast_dtl_tbl(i).cost := l_fa_rec.cost;
10687:
10688: ElsIf (l_multi_gaap_yn = 'Y') and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_booking_tax_rec.tax_book then
10689: If (l_rep_deal_type = 'LEASEOP') then
10690: --find out if new capitalized fee has been added
10691: x_ast_dtl_tbl(i).cost := l_fa_rec.cost ;
10692:
10716: open l_clev_csr(p_cle_id => p_cle_id);
10717: fetch l_clev_csr into l_clev_rec;
10718: close l_clev_csr;
10719:
10720: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10721: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10722: p_token1 => 'ASSET_NUMBER',
10723: p_token1_value => l_clev_rec.name
10724: );
10721: p_msg_name => 'OKL_LA_NO_CORP_BOOK_DFLTS',
10722: p_token1 => 'ASSET_NUMBER',
10723: p_token1_value => l_clev_rec.name
10724: );
10725: Raise OKL_API.G_EXCEPTION_ERROR;
10726: --Bug# 4775166
10727: End If;
10728: close l_mass_rebook_corp_csr;
10729:
10727: End If;
10728: close l_mass_rebook_corp_csr;
10729:
10730: l_method_id := null;
10731: If nvl(l_mass_rebook_corp_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10732: open l_method_csr1(p_method_code => l_mass_rebook_corp_rec.deprn_method,
10733: p_life => l_mass_rebook_corp_rec.life_in_months);
10734: fetch l_method_csr1 into l_method_id;
10735: if l_method_csr1%NOTFOUND then
10735: if l_method_csr1%NOTFOUND then
10736: null;
10737: end if;
10738: close l_method_csr1;
10739: ElsIf nvl(l_mass_rebook_corp_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10740: open l_method_csr2(p_method_code => l_mass_rebook_corp_rec.deprn_method,
10741: p_basic_rate => l_mass_rebook_corp_rec.deprn_rate,
10742: p_adj_rate => l_mass_rebook_corp_rec.deprn_rate);
10743: fetch l_method_csr2 into l_method_id;
10781: x_ast_dtl_tbl(i).BASIC_RATE := l_fa_Rec.basic_rate;
10782: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_fa_rec.adjusted_rate;
10783: --get method id
10784: l_method_id := null;
10785: If nvl(l_fa_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10786: open l_method_csr1(p_method_code => l_fa_rec.deprn_method_code,
10787: p_life => l_fa_rec.life_in_months);
10788: fetch l_method_csr1 into l_method_id;
10789: if l_method_csr1%NOTFOUND then
10789: if l_method_csr1%NOTFOUND then
10790: null;
10791: end if;
10792: close l_method_csr1;
10793: ElsIf nvl(l_fa_rec.adjusted_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10794: open l_method_csr2(p_method_code => l_fa_rec.deprn_method_code,
10795: p_basic_rate => l_fa_rec.basic_rate,
10796: p_adj_rate => l_fa_rec.adjusted_rate);
10797: fetch l_method_csr2 into l_method_id;
10834: x_ast_dtl_tbl(i).PRORATE_CONVENTION_CODE := l_fa_rec2.prorate_convention_code;
10835: x_ast_dtl_tbl(i).COST := l_fa_rec2.cost;
10836: --get method id
10837: l_method_id := null;
10838: If nvl(l_fa_rec2.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10839: open l_method_csr1(p_method_code => l_fa_rec2.deprn_method_code,
10840: p_life => l_fa_rec2.life_in_months);
10841: fetch l_method_csr1 into l_method_id;
10842: if l_method_csr1%NOTFOUND then
10842: if l_method_csr1%NOTFOUND then
10843: null;
10844: end if;
10845: close l_method_csr1;
10846: ElsIf nvl(l_fa_rec2.adjusted_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10847: open l_method_csr2(p_method_code => l_fa_rec2.deprn_method_code,
10848: p_basic_rate => l_fa_rec2.basic_rate,
10849: p_adj_rate => l_fa_rec2.adjusted_rate);
10850: fetch l_method_csr2 into l_method_id;
10859: ElsIf l_mass_rebook_tax_csr%FOUND then
10860: --get deprn method
10861: i := i + 1;
10862: l_method_id := null;
10863: If nvl(l_mass_rebook_tax_rec.life_in_months_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10864: open l_method_csr1(p_method_code => l_mass_rebook_tax_rec.deprn_method_tax,
10865: p_life => l_mass_rebook_tax_rec.life_in_months_tax);
10866: fetch l_method_csr1 into l_method_id;
10867: if l_method_csr1%NOTFOUND then
10867: if l_method_csr1%NOTFOUND then
10868: null;
10869: end if;
10870: close l_method_csr1;
10871: ElsIf nvl(l_mass_rebook_tax_rec.deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10872: open l_method_csr2(p_method_code => l_mass_rebook_tax_rec.deprn_method_tax,
10873: p_basic_rate => l_mass_rebook_tax_rec.deprn_rate_tax,
10874: p_adj_rate => l_mass_rebook_tax_rec.deprn_rate_tax);
10875: fetch l_method_csr2 into l_method_id;
10899: x_ast_dtl_tbl(i).BASIC_RATE := l_fa_Rec2.basic_rate;
10900: x_ast_dtl_tbl(i).ADJUSTED_RATE := l_fa_rec2.adjusted_rate;
10901: --get method id
10902: l_method_id := null;
10903: If nvl(l_fa_rec.life_in_months,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10904: open l_method_csr1(p_method_code => l_fa_rec2.deprn_method_code,
10905: p_life => l_fa_rec2.life_in_months);
10906: fetch l_method_csr1 into l_method_id;
10907: if l_method_csr1%NOTFOUND then
10907: if l_method_csr1%NOTFOUND then
10908: null;
10909: end if;
10910: close l_method_csr1;
10911: ElsIf nvl(l_fa_rec2.adjusted_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
10912: open l_method_csr2(p_method_code => l_fa_rec2.deprn_method_code,
10913: p_basic_rate => l_fa_rec2.basic_rate,
10914: p_adj_rate => l_fa_rec2.adjusted_rate);
10915: fetch l_method_csr2 into l_method_id;
10928: close l_fa_csr2;
10929: End If;
10930: End If;
10931: End If;
10932: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
10933: EXCEPTION
10934: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10935: If l_curr_trx_csr%ISOPEN then
10936: close l_curr_trx_csr;
10930: End If;
10931: End If;
10932: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
10933: EXCEPTION
10934: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10935: If l_curr_trx_csr%ISOPEN then
10936: close l_curr_trx_csr;
10937: end if;
10938: If l_booking_corp_csr%ISOPEN then
10970: end if;
10971: if l_clev_csr%isopen then
10972: close l_clev_csr;
10973: end if;
10974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10975: l_api_name,
10976: G_PKG_NAME,
10977: 'OKL_API.G_RET_STS_ERROR',
10978: x_msg_count,
10973: end if;
10974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10975: l_api_name,
10976: G_PKG_NAME,
10977: 'OKL_API.G_RET_STS_ERROR',
10978: x_msg_count,
10979: x_msg_data,
10980: '_PVT');
10981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10977: 'OKL_API.G_RET_STS_ERROR',
10978: x_msg_count,
10979: x_msg_data,
10980: '_PVT');
10981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10982: If l_curr_trx_csr%ISOPEN then
10983: close l_curr_trx_csr;
10984: end if;
10985: If l_booking_corp_csr%ISOPEN then
11017: end if;
11018: if l_clev_csr%isopen then
11019: close l_clev_csr;
11020: end if;
11021: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11022: l_api_name,
11023: G_PKG_NAME,
11024: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11025: x_msg_count,
11020: end if;
11021: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11022: l_api_name,
11023: G_PKG_NAME,
11024: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11025: x_msg_count,
11026: x_msg_data,
11027: '_PVT');
11028: WHEN OTHERS THEN
11064: end if;
11065: if l_clev_csr%isopen then
11066: close l_clev_csr;
11067: end if;
11068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11069: l_api_name,
11070: G_PKG_NAME,
11071: 'OTHERS',
11072: x_msg_count,
11086: --
11087: --End of Comments
11088: --------------------------------------------------------------------------------
11089: Procedure recalculate_asset_cost ( p_api_version IN NUMBER,
11090: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11091: x_return_status OUT NOCOPY VARCHAR2,
11092: x_msg_count OUT NOCOPY NUMBER,
11093: x_msg_data OUT NOCOPY VARCHAR2,
11094: p_chr_id IN NUMBER,
11093: x_msg_data OUT NOCOPY VARCHAR2,
11094: p_chr_id IN NUMBER,
11095: p_cle_id IN NUMBER) is
11096:
11097: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
11098: l_api_name CONSTANT varchar2(30) := 'RECALCULATE_ASSET_COST';
11099: l_api_version CONSTANT NUMBER := 1.0;
11100:
11101: --cursor to check if the contract is undergoing on-line rebook
11190: l_txdv_rec okl_txd_assets_pub.adpv_rec_type;
11191: lx_txdv_rec okl_txd_assets_pub.adpv_rec_type;
11192:
11193: BEGIN
11194: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11195:
11196: -- Call start_activity to create savepoint, check compatibility
11197: -- and initialize message list
11198: x_return_status := OKL_API.START_ACTIVITY (
11194: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11195:
11196: -- Call start_activity to create savepoint, check compatibility
11197: -- and initialize message list
11198: x_return_status := OKL_API.START_ACTIVITY (
11199: l_api_name
11200: ,p_init_msg_list
11201: ,'_PVT'
11202: ,x_return_status);
11200: ,p_init_msg_list
11201: ,'_PVT'
11202: ,x_return_status);
11203: -- Check if activity started successfully
11204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11207: RAISE OKL_API.G_EXCEPTION_ERROR;
11208: END IF;
11201: ,'_PVT'
11202: ,x_return_status);
11203: -- Check if activity started successfully
11204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11207: RAISE OKL_API.G_EXCEPTION_ERROR;
11208: END IF;
11209:
11202: ,x_return_status);
11203: -- Check if activity started successfully
11204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11207: RAISE OKL_API.G_EXCEPTION_ERROR;
11208: END IF;
11209:
11210: --check for rebook contract
11203: -- Check if activity started successfully
11204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11207: RAISE OKL_API.G_EXCEPTION_ERROR;
11208: END IF;
11209:
11210: --check for rebook contract
11211: l_rbk_khr := '?';
11247: x_rep_pdt_id => l_rep_pdt_id,
11248: x_tax_owner => l_tax_owner,
11249: x_rep_deal_type => l_rep_deal_type);
11250:
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11248: x_tax_owner => l_tax_owner,
11249: x_rep_deal_type => l_rep_deal_type);
11250:
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256:
11249: x_rep_deal_type => l_rep_deal_type);
11250:
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256:
11257: l_Multi_GAAP_YN := 'N';
11250:
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256:
11257: l_Multi_GAAP_YN := 'N';
11258: --checks wheter Multi-GAAP processing needs tobe done
11329: x_msg_data => x_msg_data,
11330: p_tlpv_rec => l_talv_rec,
11331: x_tlpv_rec => lx_talv_rec);
11332:
11333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11336: RAISE OKL_API.G_EXCEPTION_ERROR;
11337: END IF;
11330: p_tlpv_rec => l_talv_rec,
11331: x_tlpv_rec => lx_talv_rec);
11332:
11333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11336: RAISE OKL_API.G_EXCEPTION_ERROR;
11337: END IF;
11338:
11331: x_tlpv_rec => lx_talv_rec);
11332:
11333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11336: RAISE OKL_API.G_EXCEPTION_ERROR;
11337: END IF;
11338:
11339: --process tax_books
11332:
11333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11336: RAISE OKL_API.G_EXCEPTION_ERROR;
11337: END IF;
11338:
11339: --process tax_books
11340: For l_tax_book_rec in l_tax_book_csr(p_tal_id => l_curr_trx_rec.tal_id)
11352: x_msg_data => x_msg_data,
11353: p_adpv_rec => l_txdv_rec,
11354: x_adpv_rec => lx_txdv_rec);
11355:
11356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11359: RAISE OKL_API.G_EXCEPTION_ERROR;
11360: END IF;
11353: p_adpv_rec => l_txdv_rec,
11354: x_adpv_rec => lx_txdv_rec);
11355:
11356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11359: RAISE OKL_API.G_EXCEPTION_ERROR;
11360: END IF;
11361: End Loop;
11354: x_adpv_rec => lx_txdv_rec);
11355:
11356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11359: RAISE OKL_API.G_EXCEPTION_ERROR;
11360: END IF;
11361: End Loop;
11362:
11355:
11356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11359: RAISE OKL_API.G_EXCEPTION_ERROR;
11360: END IF;
11361: End Loop;
11362:
11363: --2. Online Rebook adjustments
11381: x_msg_data => x_msg_data,
11382: p_tlpv_rec => l_talv_rec,
11383: x_tlpv_rec => lx_talv_rec);
11384:
11385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11382: p_tlpv_rec => l_talv_rec,
11383: x_tlpv_rec => lx_talv_rec);
11384:
11385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390: End If;
11383: x_tlpv_rec => lx_talv_rec);
11384:
11385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390: End If;
11391:
11384:
11385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11386: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_ERROR;
11389: END IF;
11390: End If;
11391:
11392: --process tax_books
11393: For l_tax_book_rec in l_tax_book_csr(p_tal_id => l_curr_trx_rec.tal_id)
11394: Loop
11395:
11396: --Multi-Gaap Book
11397: If (l_multi_GAAP_yn = 'Y' and nvl(l_rep_pdt_book,OKL_API.G_MISS_CHAR) = l_tax_book_rec.tax_book) then
11398:
11399: If l_rep_deal_type in ('LEASEDF','LEASEST','LOAN') then
11400: -- Do not recalculate asset cost for DF/ST Lease and Loan
11401: NULL;
11414: x_msg_data => x_msg_data,
11415: p_adpv_rec => l_txdv_rec,
11416: x_adpv_rec => lx_txdv_rec);
11417:
11418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11421: RAISE OKL_API.G_EXCEPTION_ERROR;
11422: END IF;
11415: p_adpv_rec => l_txdv_rec,
11416: x_adpv_rec => lx_txdv_rec);
11417:
11418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11421: RAISE OKL_API.G_EXCEPTION_ERROR;
11422: END IF;
11423:
11416: x_adpv_rec => lx_txdv_rec);
11417:
11418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11421: RAISE OKL_API.G_EXCEPTION_ERROR;
11422: END IF;
11423:
11424: End If;
11417:
11418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11421: RAISE OKL_API.G_EXCEPTION_ERROR;
11422: END IF;
11423:
11424: End If;
11425:
11445: x_msg_data => x_msg_data,
11446: p_adpv_rec => l_txdv_rec,
11447: x_adpv_rec => lx_txdv_rec);
11448:
11449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11452: RAISE OKL_API.G_EXCEPTION_ERROR;
11453: END IF;
11446: p_adpv_rec => l_txdv_rec,
11447: x_adpv_rec => lx_txdv_rec);
11448:
11449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11452: RAISE OKL_API.G_EXCEPTION_ERROR;
11453: END IF;
11454:
11447: x_adpv_rec => lx_txdv_rec);
11448:
11449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11452: RAISE OKL_API.G_EXCEPTION_ERROR;
11453: END IF;
11454:
11455: End if;
11448:
11449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11452: RAISE OKL_API.G_EXCEPTION_ERROR;
11453: END IF;
11454:
11455: End if;
11456: End if;
11459: End If;
11460: End If;
11461: End Loop;
11462: End If;
11463: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
11464: EXCEPTION
11465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11467: l_api_name,
11461: End Loop;
11462: End If;
11463: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
11464: EXCEPTION
11465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11467: l_api_name,
11468: G_PKG_NAME,
11469: 'OKL_API.G_RET_STS_ERROR',
11462: End If;
11463: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
11464: EXCEPTION
11465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11467: l_api_name,
11468: G_PKG_NAME,
11469: 'OKL_API.G_RET_STS_ERROR',
11470: x_msg_count,
11465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11467: l_api_name,
11468: G_PKG_NAME,
11469: 'OKL_API.G_RET_STS_ERROR',
11470: x_msg_count,
11471: x_msg_data,
11472: '_PVT');
11473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11469: 'OKL_API.G_RET_STS_ERROR',
11470: x_msg_count,
11471: x_msg_data,
11472: '_PVT');
11473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11474: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11475: l_api_name,
11476: G_PKG_NAME,
11477: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11470: x_msg_count,
11471: x_msg_data,
11472: '_PVT');
11473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11474: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11475: l_api_name,
11476: G_PKG_NAME,
11477: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11478: x_msg_count,
11473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11474: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11475: l_api_name,
11476: G_PKG_NAME,
11477: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11478: x_msg_count,
11479: x_msg_data,
11480: '_PVT');
11481: WHEN OTHERS THEN
11487: end if;
11488: if l_chr_csr%ISOPEN then
11489: close l_chr_csr;
11490: end if;
11491: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11492: l_api_name,
11493: G_PKG_NAME,
11494: 'OTHERS',
11495: x_msg_count,