[Home] [Help]
185: WHEN mg_error THEN
186: IF l_get_fin_product%ISOPEN THEN
187: CLOSE l_get_fin_product;
188: END IF;
189: x_return_status := OKL_API.G_RET_STS_ERROR;
190: WHEN OTHERS THEN
191: IF l_get_fin_product%ISOPEN THEN
192: CLOSE l_get_fin_product;
193: END IF;
190: WHEN OTHERS THEN
191: IF l_get_fin_product%ISOPEN THEN
192: CLOSE l_get_fin_product;
193: END IF;
194: OKL_API.set_message(p_app_name => 'OKC',
195: p_msg_name => g_unexpected_error,
196: p_token1 => g_sqlcode_token,
197: p_token1_value => sqlcode,
198: p_token2 => g_sqlerrm_token,
196: p_token1 => g_sqlcode_token,
197: p_token1_value => sqlcode,
198: p_token2 => g_sqlerrm_token,
199: p_token2_value => sqlerrm);
200: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
201: END get_reporting_product;
202:
203:
204:
302: -- SECHAWLA 19-FEB-04 3439647 : Added l_fa_life_in_months
303: FETCH l_methodcode_csr INTO l_fa_method_code, l_fa_life_in_months; -- life_in_months will be null for diminishing dep methods
304: IF l_methodcode_csr%NOTFOUND THEN
305: -- The depreciation method defined for category DEPRN_CAT and book BOOK is invalid.
306: OKL_API.set_message( p_app_name => 'OKL',
307: p_msg_name => 'OKL_AM_INVALID_DEPRN_MTHD',
308: p_token1 => 'DEPRN_CAT',
309: p_token1_value => p_book_rec.depreciation_category,
310: p_token2 => 'BOOK',
316:
317: -- SECHAWLA 28-MAY-04 3645574 : Removing this validation, as life is null for diminishing dep methods
318: /*IF p_book_rec.life_in_months IS NULL THEN
319: -- Life in Months not defined for asset ASSET_NUMBER and book BOOK
320: OKL_API.set_message( p_app_name => 'OKL',
321: p_msg_name => 'OKL_AM_NO_LIFE_IN_MONTHS',
322: p_token1 => 'ASSET_NUMBER',
323: p_token1_value => p_book_rec.asset_number,
324: p_token2 => 'BOOK',
328: */
329: -- SECHAWLA 28-MAY-04 3645574 : new validation, eithr life or rate should be defined
330: IF p_book_rec.life_in_months IS NULL AND p_book_rec.deprn_rate IS NULL THEN
331: -- Life in Months or Depreciation Rate should be defined for asset ASSET_NUMBER and book BOOK.
332: OKL_API.set_message( p_app_name => 'OKL',
333: p_msg_name => 'OKL_AM_NO_LIFE_NO_RATE',
334: p_token1 => 'ASSET_NUMBER',
335: p_token1_value => p_book_rec.asset_number,
336: p_token2 => 'BOOK',
343: OKL_ACCOUNTING_UTIL.get_fa_trx_date(p_book_type_code => p_book_rec.book_type_code,
344: x_return_status => x_return_status,
345: x_fa_trx_date => l_fa_trx_date);
346:
347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE process_unexp_error;
349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
350: RAISE process_error;
351: END IF;
345: x_fa_trx_date => l_fa_trx_date);
346:
347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE process_unexp_error;
349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
350: RAISE process_error;
351: END IF;
352:
353:
366: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
367: -- Legal Entity Changes End
368:
369: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
370: p_init_msg_list => OKL_API.G_FALSE,
371: x_return_status => x_return_status,
372: x_msg_count => x_msg_count,
373: x_msg_data => x_msg_data,
374: p_thpv_rec => lp_thpv_rec,
373: x_msg_data => x_msg_data,
374: p_thpv_rec => lp_thpv_rec,
375: x_thpv_rec => lx_thpv_rec);
376:
377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
378: RAISE process_unexp_error;
379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
380: RAISE process_error;
381: END IF;
375: x_thpv_rec => lx_thpv_rec);
376:
377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
378: RAISE process_unexp_error;
379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
380: RAISE process_error;
381: END IF;
382:
383:
434: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
435: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
436:
437: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
438: p_init_msg_list => OKL_API.G_FALSE,
439: x_return_status => x_return_status,
440: x_msg_count => x_msg_count,
441: x_msg_data => x_msg_data,
442: p_tlpv_rec => lp_tlpv_rec,
441: x_msg_data => x_msg_data,
442: p_tlpv_rec => lp_tlpv_rec,
443: x_tlpv_rec => lx_tlpv_rec);
444:
445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE process_unexp_error;
447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
448: RAISE process_error;
449: END IF;
443: x_tlpv_rec => lx_tlpv_rec);
444:
445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE process_unexp_error;
447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
448: RAISE process_error;
449: END IF;
450:
451: -- When process_oplease procedure is called with mg rep book (tax book), then
456: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
457: lp_adpv_rec.asset_number := p_book_rec.asset_number;
458: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
459: p_api_version => p_api_version,
460: p_init_msg_list => OKL_API.G_FALSE,
461: x_return_status => x_return_status,
462: x_msg_count => x_msg_count,
463: x_msg_data => x_msg_data,
464: p_adpv_rec => lp_adpv_rec,
462: x_msg_count => x_msg_count,
463: x_msg_data => x_msg_data,
464: p_adpv_rec => lp_adpv_rec,
465: x_adpv_rec => lx_adpv_rec );
466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE process_unexp_error;
468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
469: RAISE process_error;
470: END IF;
464: p_adpv_rec => lp_adpv_rec,
465: x_adpv_rec => lx_adpv_rec );
466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE process_unexp_error;
468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
469: RAISE process_error;
470: END IF;
471: END IF;
472:
479: OPEN l_astbksv_csr(l_asset_id, l_corporate_book);
480: FETCH l_astbksv_csr INTO l_cost;
481: IF l_astbksv_csr%NOTFOUND THEN
482: -- Cost not defined for this asset and book type code
483: OKL_API.set_message( p_app_name => 'OKL',
484: p_msg_name => 'OKL_AM_COST_NOT_FOUND',
485: p_token1 => 'ASSET_NUMBER',
486: p_token1_value => l_asset_number,
487: p_token2 => 'BOOK_TYPE_CODE',
515: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
516: -- Legal Entity Changes End
517:
518: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
519: p_init_msg_list => OKL_API.G_FALSE,
520: x_return_status => x_return_status,
521: x_msg_count => x_msg_count,
522: x_msg_data => x_msg_data,
523: p_thpv_rec => lp_thpv_rec,
522: x_msg_data => x_msg_data,
523: p_thpv_rec => lp_thpv_rec,
524: x_thpv_rec => lx_thpv_rec);
525:
526: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
527: RAISE process_unexp_error;
528: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
529: RAISE process_error;
530: END IF;
524: x_thpv_rec => lx_thpv_rec);
525:
526: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
527: RAISE process_unexp_error;
528: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
529: RAISE process_error;
530: END IF;
531:
532: -- create 2nd transaction line.
599: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
600: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
601:
602: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
603: p_init_msg_list => OKL_API.G_FALSE,
604: x_return_status => x_return_status,
605: x_msg_count => x_msg_count,
606: x_msg_data => x_msg_data,
607: p_tlpv_rec => lp_tlpv_rec,
607: p_tlpv_rec => lp_tlpv_rec,
608: x_tlpv_rec => lx_tlpv_rec);
609:
610:
611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE process_unexp_error;
613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE process_error;
615: END IF;
609:
610:
611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE process_unexp_error;
613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE process_error;
615: END IF;
616:
617:
623: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
624: lp_adpv_rec.asset_number := p_book_rec.asset_number;
625: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
626: p_api_version => p_api_version,
627: p_init_msg_list => OKL_API.G_FALSE,
628: x_return_status => x_return_status,
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data,
631: p_adpv_rec => lp_adpv_rec,
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data,
631: p_adpv_rec => lp_adpv_rec,
632: x_adpv_rec => lx_adpv_rec );
633: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE process_unexp_error;
635: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
636: RAISE process_error;
637: END IF;
631: p_adpv_rec => lp_adpv_rec,
632: x_adpv_rec => lx_adpv_rec );
633: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE process_unexp_error;
635: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
636: RAISE process_error;
637: END IF;
638: END IF;
639: END IF;
661: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
662: -- Legal Entity Changes End
663:
664: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
665: p_init_msg_list => OKL_API.G_FALSE,
666: x_return_status => x_return_status,
667: x_msg_count => x_msg_count,
668: x_msg_data => x_msg_data,
669: p_thpv_rec => lp_thpv_rec,
668: x_msg_data => x_msg_data,
669: p_thpv_rec => lp_thpv_rec,
670: x_thpv_rec => lx_thpv_rec);
671:
672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
673: RAISE process_unexp_error;
674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
675: RAISE process_error;
676: END IF;
670: x_thpv_rec => lx_thpv_rec);
671:
672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
673: RAISE process_unexp_error;
674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
675: RAISE process_error;
676: END IF;
677:
678: -- create 3rd transaction line.
731: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
732: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
733:
734: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
735: p_init_msg_list => OKL_API.G_FALSE,
736: x_return_status => x_return_status,
737: x_msg_count => x_msg_count,
738: x_msg_data => x_msg_data,
739: p_tlpv_rec => lp_tlpv_rec,
739: p_tlpv_rec => lp_tlpv_rec,
740: x_tlpv_rec => lx_tlpv_rec);
741:
742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE process_unexp_error;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE process_error;
747: END IF;
741:
742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE process_unexp_error;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE process_error;
747: END IF;
748: -- SECHAWLA 06-MAY-04 3578894 : end create 3rd trx hdr and line
749:
755: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
756: lp_adpv_rec.asset_number := p_book_rec.asset_number;
757: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
758: p_api_version => p_api_version,
759: p_init_msg_list => OKL_API.G_FALSE,
760: x_return_status => x_return_status,
761: x_msg_count => x_msg_count,
762: x_msg_data => x_msg_data,
763: p_adpv_rec => lp_adpv_rec,
761: x_msg_count => x_msg_count,
762: x_msg_data => x_msg_data,
763: p_adpv_rec => lp_adpv_rec,
764: x_adpv_rec => lx_adpv_rec );
765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE process_unexp_error;
767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
768: RAISE process_error;
769: END IF;
763: p_adpv_rec => lp_adpv_rec,
764: x_adpv_rec => lx_adpv_rec );
765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE process_unexp_error;
767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
768: RAISE process_error;
769: END IF;
770: END IF;
771:
787: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
788: -- Legal Entity Changes End
789:
790: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
791: p_init_msg_list => OKL_API.G_FALSE,
792: x_return_status => x_return_status,
793: x_msg_count => x_msg_count,
794: x_msg_data => x_msg_data,
795: p_thpv_rec => lp_thpv_rec,
794: x_msg_data => x_msg_data,
795: p_thpv_rec => lp_thpv_rec,
796: x_thpv_rec => lx_thpv_rec);
797:
798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
799: RAISE process_unexp_error;
800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
801: RAISE process_error;
802: END IF;
796: x_thpv_rec => lx_thpv_rec);
797:
798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
799: RAISE process_unexp_error;
800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
801: RAISE process_error;
802: END IF;
803:
804: -- create 1st transaction line.
868: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
869: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
870:
871: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
872: p_init_msg_list => OKL_API.G_FALSE,
873: x_return_status => x_return_status,
874: x_msg_count => x_msg_count,
875: x_msg_data => x_msg_data,
876: p_tlpv_rec => lp_tlpv_rec,
876: p_tlpv_rec => lp_tlpv_rec,
877: x_tlpv_rec => lx_tlpv_rec);
878:
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE process_unexp_error;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE process_error;
884: END IF;
878:
879:
880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
881: RAISE process_unexp_error;
882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
883: RAISE process_error;
884: END IF;
885:
886:
892: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
893: lp_adpv_rec.asset_number := p_book_rec.asset_number;
894: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
895: p_api_version => p_api_version,
896: p_init_msg_list => OKL_API.G_FALSE,
897: x_return_status => x_return_status,
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data,
900: p_adpv_rec => lp_adpv_rec,
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data,
900: p_adpv_rec => lp_adpv_rec,
901: x_adpv_rec => lx_adpv_rec );
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE process_unexp_error;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE process_error;
906: END IF;
900: p_adpv_rec => lp_adpv_rec,
901: x_adpv_rec => lx_adpv_rec );
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE process_unexp_error;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE process_error;
906: END IF;
907: END IF;
908:
930: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
931: -- Legal Entity Changes End
932:
933: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
934: p_init_msg_list => OKL_API.G_FALSE,
935: x_return_status => x_return_status,
936: x_msg_count => x_msg_count,
937: x_msg_data => x_msg_data,
938: p_thpv_rec => lp_thpv_rec,
937: x_msg_data => x_msg_data,
938: p_thpv_rec => lp_thpv_rec,
939: x_thpv_rec => lx_thpv_rec);
940:
941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
942: RAISE process_unexp_error;
943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
944: RAISE process_error;
945: END IF;
939: x_thpv_rec => lx_thpv_rec);
940:
941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
942: RAISE process_unexp_error;
943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
944: RAISE process_error;
945: END IF;
946:
947: -- create 2nd transaction line.
1000: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
1001: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
1002:
1003: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
1004: p_init_msg_list => OKL_API.G_FALSE,
1005: x_return_status => x_return_status,
1006: x_msg_count => x_msg_count,
1007: x_msg_data => x_msg_data,
1008: p_tlpv_rec => lp_tlpv_rec,
1008: p_tlpv_rec => lp_tlpv_rec,
1009: x_tlpv_rec => lx_tlpv_rec);
1010:
1011:
1012: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1013: RAISE process_unexp_error;
1014: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1015: RAISE process_error;
1016: END IF;
1010:
1011:
1012: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1013: RAISE process_unexp_error;
1014: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1015: RAISE process_error;
1016: END IF;
1017: -- SECHAWLA 06-MAY-04 3578894 : end create 2nd trx hdr and line
1018:
1024: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
1025: lp_adpv_rec.asset_number := p_book_rec.asset_number;
1026: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
1027: p_api_version => p_api_version,
1028: p_init_msg_list => OKL_API.G_FALSE,
1029: x_return_status => x_return_status,
1030: x_msg_count => x_msg_count,
1031: x_msg_data => x_msg_data,
1032: p_adpv_rec => lp_adpv_rec,
1030: x_msg_count => x_msg_count,
1031: x_msg_data => x_msg_data,
1032: p_adpv_rec => lp_adpv_rec,
1033: x_adpv_rec => lx_adpv_rec );
1034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE process_unexp_error;
1036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1037: RAISE process_error;
1038: END IF;
1032: p_adpv_rec => lp_adpv_rec,
1033: x_adpv_rec => lx_adpv_rec );
1034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE process_unexp_error;
1036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1037: RAISE process_error;
1038: END IF;
1039: END IF;
1040:
1053: IF l_amthld_csr%ISOPEN THEN
1054: CLOSE l_amthld_csr;
1055: END IF;
1056:
1057: x_return_status := OKL_API.G_RET_STS_ERROR;
1058: WHEN process_unexp_error THEN
1059: --IF l_astbksv_csr%ISOPEN THEN
1060: -- CLOSE l_astbksv_csr;
1061: --END IF;
1066:
1067: IF l_amthld_csr%ISOPEN THEN
1068: CLOSE l_amthld_csr;
1069: END IF;
1070: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1071: WHEN OTHERS THEN
1072: --IF l_astbksv_csr%ISOPEN THEN
1073: -- CLOSE l_astbksv_csr;
1074: --END IF;
1080: IF l_amthld_csr%ISOPEN THEN
1081: CLOSE l_amthld_csr;
1082: END IF;
1083: -- unexpected error
1084: OKL_API.set_message(p_app_name => 'OKC',
1085: p_msg_name => g_unexpected_error,
1086: p_token1 => g_sqlcode_token,
1087: p_token1_value => sqlcode,
1088: p_token2 => g_sqlerrm_token,
1086: p_token1 => g_sqlcode_token,
1087: p_token1_value => sqlcode,
1088: p_token2 => g_sqlerrm_token,
1089: p_token2_value => sqlerrm);
1090: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1091:
1092: END process_oplease;
1093:
1094:
1203: -- SECHAWLA 19-FEB-04 3439647 : Added l_fa_life_in_months
1204: FETCH l_methodcode_csr INTO l_fa_method_code, l_fa_life_in_months;
1205: IF l_methodcode_csr%NOTFOUND THEN
1206: -- The depreciation method defined for category DEPRN_CAT and book BOOK is invalid.
1207: OKL_API.set_message( p_app_name => 'OKL',
1208: p_msg_name => 'OKL_AM_INVALID_DEPRN_MTHD',
1209: p_token1 => 'DEPRN_CAT',
1210: p_token1_value => p_book_rec.depreciation_category,
1211: p_token2 => 'BOOK',
1219: -- SECHAWLA 28-MAY-04 3645574 : Removing this validation, as life is null for diminishing dep methods
1220: /*
1221: IF p_book_rec.life_in_months IS NULL THEN
1222: -- Life in Months not defined for asset ASSET_NUMBER and book BOOK
1223: OKL_API.set_message( p_app_name => 'OKL',
1224: p_msg_name => 'OKL_AM_NO_LIFE_IN_MONTHS',
1225: p_token1 => 'ASSET_NUMBER',
1226: p_token1_value => p_book_rec.asset_number,
1227: p_token2 => 'BOOK',
1232: */
1233: -- SECHAWLA 28-MAY-04 3645574 : new validation, either life or rate should be defined
1234: IF p_book_rec.life_in_months IS NULL AND p_book_rec.deprn_rate IS NULL THEN
1235: -- Either Life in Months or Depreciation Rate should be defined for asset ASSET_NUMBER and book BOOK.
1236: OKL_API.set_message( p_app_name => 'OKL',
1237: p_msg_name => 'OKL_AM_NO_LIFE_NO_RATE',
1238: p_token1 => 'ASSET_NUMBER',
1239: p_token1_value => p_book_rec.asset_number,
1240: p_token2 => 'BOOK',
1248: OKL_ACCOUNTING_UTIL.get_fa_trx_date(p_book_type_code => p_book_rec.book_type_code,
1249: x_return_status => x_return_status,
1250: x_fa_trx_date => l_fa_trx_date);
1251:
1252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE process_unexp_error;
1254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1255: RAISE process_error;
1256: END IF;
1250: x_fa_trx_date => l_fa_trx_date);
1251:
1252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE process_unexp_error;
1254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1255: RAISE process_error;
1256: END IF;
1257:
1258: -- SGORANTL 22-MAR-06 5097643 : convert original_cost and depreciation_cost to functional currency
1300:
1301: l_nest_invest_val_in_func := l_converted_amount;
1302: -- end of SGORANTL 22-MAR-06 5097643 : convert original_cost and depreciation_cost to functional currency
1303:
1304: OKL_API.set_message('OKL', 'orig_cost=');
1305:
1306:
1307:
1308: IF l_hold_period_days IS NOT NULL AND l_hold_period_days <> 0 THEN -- SECHAWLA 03-JUN-04 Added check for 0 hold period days
1331: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
1332: -- Legal Entity Changes End
1333:
1334: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
1335: p_init_msg_list => OKL_API.G_FALSE,
1336: x_return_status => x_return_status,
1337: x_msg_count => x_msg_count,
1338: x_msg_data => x_msg_data,
1339: p_thpv_rec => lp_thpv_rec,
1338: x_msg_data => x_msg_data,
1339: p_thpv_rec => lp_thpv_rec,
1340: x_thpv_rec => lx_thpv_rec);
1341:
1342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE process_unexp_error;
1344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1345: RAISE process_error;
1346: END IF;
1340: x_thpv_rec => lx_thpv_rec);
1341:
1342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1343: RAISE process_unexp_error;
1344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1345: RAISE process_error;
1346: END IF;
1347:
1348: -- Create 1st transaction line to update asset cost and stop depreciation
1402: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
1403: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
1404:
1405: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
1406: p_init_msg_list => OKL_API.G_FALSE,
1407: x_return_status => x_return_status,
1408: x_msg_count => x_msg_count,
1409: x_msg_data => x_msg_data,
1410: p_tlpv_rec => lp_tlpv_rec,
1409: x_msg_data => x_msg_data,
1410: p_tlpv_rec => lp_tlpv_rec,
1411: x_tlpv_rec => lx_tlpv_rec);
1412:
1413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE process_unexp_error;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE process_error;
1417: END IF;
1411: x_tlpv_rec => lx_tlpv_rec);
1412:
1413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE process_unexp_error;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE process_error;
1417: END IF;
1418:
1419:
1425: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
1426: lp_adpv_rec.asset_number := p_book_rec.asset_number;
1427: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
1428: p_api_version => p_api_version,
1429: p_init_msg_list => OKL_API.G_FALSE,
1430: x_return_status => x_return_status,
1431: x_msg_count => x_msg_count,
1432: x_msg_data => x_msg_data,
1433: p_adpv_rec => lp_adpv_rec,
1431: x_msg_count => x_msg_count,
1432: x_msg_data => x_msg_data,
1433: p_adpv_rec => lp_adpv_rec,
1434: x_adpv_rec => lx_adpv_rec );
1435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE process_unexp_error;
1437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE process_error;
1439: END IF;
1433: p_adpv_rec => lp_adpv_rec,
1434: x_adpv_rec => lx_adpv_rec );
1435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE process_unexp_error;
1437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE process_error;
1439: END IF;
1440: END IF;
1441:
1465: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
1466: -- Legal Entity Changes End
1467:
1468: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
1469: p_init_msg_list => OKL_API.G_FALSE,
1470: x_return_status => x_return_status,
1471: x_msg_count => x_msg_count,
1472: x_msg_data => x_msg_data,
1473: p_thpv_rec => lp_thpv_rec,
1472: x_msg_data => x_msg_data,
1473: p_thpv_rec => lp_thpv_rec,
1474: x_thpv_rec => lx_thpv_rec);
1475:
1476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE process_unexp_error;
1478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE process_error;
1480: END IF;
1474: x_thpv_rec => lx_thpv_rec);
1475:
1476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE process_unexp_error;
1478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE process_error;
1480: END IF;
1481:
1482: -- Create 2nd transaction line to update asset cost
1543: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx line
1544: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
1545:
1546: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
1547: p_init_msg_list => OKL_API.G_FALSE,
1548: x_return_status => x_return_status,
1549: x_msg_count => x_msg_count,
1550: x_msg_data => x_msg_data,
1551: p_tlpv_rec => lp_tlpv_rec,
1550: x_msg_data => x_msg_data,
1551: p_tlpv_rec => lp_tlpv_rec,
1552: x_tlpv_rec => lx_tlpv_rec);
1553:
1554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE process_unexp_error;
1556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1557: RAISE process_error;
1558: END IF;
1552: x_tlpv_rec => lx_tlpv_rec);
1553:
1554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE process_unexp_error;
1556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1557: RAISE process_error;
1558: END IF;
1559:
1560: -- When process_dfstlease_lessor procedure is called with mg rep book (tax book), then
1565: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
1566: lp_adpv_rec.asset_number := p_book_rec.asset_number;
1567: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
1568: p_api_version => p_api_version,
1569: p_init_msg_list => OKL_API.G_FALSE,
1570: x_return_status => x_return_status,
1571: x_msg_count => x_msg_count,
1572: x_msg_data => x_msg_data,
1573: p_adpv_rec => lp_adpv_rec,
1571: x_msg_count => x_msg_count,
1572: x_msg_data => x_msg_data,
1573: p_adpv_rec => lp_adpv_rec,
1574: x_adpv_rec => lx_adpv_rec );
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE process_unexp_error;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE process_error;
1579: END IF;
1573: p_adpv_rec => lp_adpv_rec,
1574: x_adpv_rec => lx_adpv_rec );
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE process_unexp_error;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE process_error;
1579: END IF;
1580: END IF;
1581:
1607: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
1608: -- Legal Entity Changes End
1609:
1610: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
1611: p_init_msg_list => OKL_API.G_FALSE,
1612: x_return_status => x_return_status,
1613: x_msg_count => x_msg_count,
1614: x_msg_data => x_msg_data,
1615: p_thpv_rec => lp_thpv_rec,
1614: x_msg_data => x_msg_data,
1615: p_thpv_rec => lp_thpv_rec,
1616: x_thpv_rec => lx_thpv_rec);
1617:
1618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE process_unexp_error;
1620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1621: RAISE process_error;
1622: END IF;
1616: x_thpv_rec => lx_thpv_rec);
1617:
1618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE process_unexp_error;
1620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1621: RAISE process_error;
1622: END IF;
1623:
1624: -- create 3rd transaction line
1677: -- p_cle_id => p_kle_id,
1678: -- x_formula_value => l_net_investment_value,
1679: -- x_return_status => x_return_status);
1680:
1681: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: -- RAISE OKL_API.G_EXCEPTION_ERROR;
1685: -- END IF;
1678: -- x_formula_value => l_net_investment_value,
1679: -- x_return_status => x_return_status);
1680:
1681: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: -- RAISE OKL_API.G_EXCEPTION_ERROR;
1685: -- END IF;
1686: -- */
1679: -- x_return_status => x_return_status);
1680:
1681: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: -- RAISE OKL_API.G_EXCEPTION_ERROR;
1685: -- END IF;
1686: -- */
1687: /* -- SGORANTL 22-MAR-06 5097643
1680:
1681: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: -- RAISE OKL_API.G_EXCEPTION_ERROR;
1685: -- END IF;
1686: -- */
1687: /* -- SGORANTL 22-MAR-06 5097643
1688:
1721: -- SECHAWLA 15-NOV-04 : set FA date on trx line
1722: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
1723:
1724: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
1725: p_init_msg_list => OKL_API.G_FALSE,
1726: x_return_status => x_return_status,
1727: x_msg_count => x_msg_count,
1728: x_msg_data => x_msg_data,
1729: p_tlpv_rec => lp_tlpv_rec,
1728: x_msg_data => x_msg_data,
1729: p_tlpv_rec => lp_tlpv_rec,
1730: x_tlpv_rec => lx_tlpv_rec);
1731:
1732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1733: RAISE process_unexp_error;
1734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1735: RAISE process_error;
1736: END IF;
1730: x_tlpv_rec => lx_tlpv_rec);
1731:
1732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1733: RAISE process_unexp_error;
1734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1735: RAISE process_error;
1736: END IF;
1737:
1738:
1744: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
1745: lp_adpv_rec.asset_number := p_book_rec.asset_number;
1746: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
1747: p_api_version => p_api_version,
1748: p_init_msg_list => OKL_API.G_FALSE,
1749: x_return_status => x_return_status,
1750: x_msg_count => x_msg_count,
1751: x_msg_data => x_msg_data,
1752: p_adpv_rec => lp_adpv_rec,
1750: x_msg_count => x_msg_count,
1751: x_msg_data => x_msg_data,
1752: p_adpv_rec => lp_adpv_rec,
1753: x_adpv_rec => lx_adpv_rec );
1754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE process_unexp_error;
1756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1757: RAISE process_error;
1758: END IF;
1752: p_adpv_rec => lp_adpv_rec,
1753: x_adpv_rec => lx_adpv_rec );
1754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE process_unexp_error;
1756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1757: RAISE process_error;
1758: END IF;
1759: END IF;
1760:
1786: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
1787: -- Legal Entity Changes End
1788:
1789: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
1790: p_init_msg_list => OKL_API.G_FALSE,
1791: x_return_status => x_return_status,
1792: x_msg_count => x_msg_count,
1793: x_msg_data => x_msg_data,
1794: p_thpv_rec => lp_thpv_rec,
1793: x_msg_data => x_msg_data,
1794: p_thpv_rec => lp_thpv_rec,
1795: x_thpv_rec => lx_thpv_rec);
1796:
1797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE process_unexp_error;
1799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE process_error;
1801: END IF;
1795: x_thpv_rec => lx_thpv_rec);
1796:
1797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE process_unexp_error;
1799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE process_error;
1801: END IF;
1802:
1803: -- create 4th transaction line
1866: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
1867: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
1868:
1869: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
1870: p_init_msg_list => OKL_API.G_FALSE,
1871: x_return_status => x_return_status,
1872: x_msg_count => x_msg_count,
1873: x_msg_data => x_msg_data,
1874: p_tlpv_rec => lp_tlpv_rec,
1873: x_msg_data => x_msg_data,
1874: p_tlpv_rec => lp_tlpv_rec,
1875: x_tlpv_rec => lx_tlpv_rec);
1876:
1877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE process_unexp_error;
1879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1880: RAISE process_error;
1881: END IF;
1875: x_tlpv_rec => lx_tlpv_rec);
1876:
1877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE process_unexp_error;
1879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1880: RAISE process_error;
1881: END IF;
1882:
1883: -- When process_dfstlease_lessor procedure is called with mg rep book (tax book), then
1888: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
1889: lp_adpv_rec.asset_number := p_book_rec.asset_number;
1890: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
1891: p_api_version => p_api_version,
1892: p_init_msg_list => OKL_API.G_FALSE,
1893: x_return_status => x_return_status,
1894: x_msg_count => x_msg_count,
1895: x_msg_data => x_msg_data,
1896: p_adpv_rec => lp_adpv_rec,
1894: x_msg_count => x_msg_count,
1895: x_msg_data => x_msg_data,
1896: p_adpv_rec => lp_adpv_rec,
1897: x_adpv_rec => lx_adpv_rec );
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE process_unexp_error;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE process_error;
1902: END IF;
1896: p_adpv_rec => lp_adpv_rec,
1897: x_adpv_rec => lx_adpv_rec );
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE process_unexp_error;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE process_error;
1902: END IF;
1903: END IF;
1904:
1921: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
1922: -- Legal Entity Changes End
1923:
1924: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
1925: p_init_msg_list => OKL_API.G_FALSE,
1926: x_return_status => x_return_status,
1927: x_msg_count => x_msg_count,
1928: x_msg_data => x_msg_data,
1929: p_thpv_rec => lp_thpv_rec,
1928: x_msg_data => x_msg_data,
1929: p_thpv_rec => lp_thpv_rec,
1930: x_thpv_rec => lx_thpv_rec);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE process_unexp_error;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE process_error;
1936: END IF;
1930: x_thpv_rec => lx_thpv_rec);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE process_unexp_error;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE process_error;
1936: END IF;
1937:
1938: -- create transaction line
1992: -- p_cle_id => p_kle_id,
1993: -- x_formula_value => l_net_investment_value,
1994: -- x_return_status => x_return_status);
1995:
1996: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1999: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2000: -- END IF;
1993: -- x_formula_value => l_net_investment_value,
1994: -- x_return_status => x_return_status);
1995:
1996: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1999: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2000: -- END IF;
2001: -- */
1994: -- x_return_status => x_return_status);
1995:
1996: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1999: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2000: -- END IF;
2001: -- */
2002: lp_tlpv_rec.depreciation_cost := p_net_investment_value;
1995:
1996: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1999: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2000: -- END IF;
2001: -- */
2002: lp_tlpv_rec.depreciation_cost := p_net_investment_value;
2003:
2030: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
2031: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
2032:
2033: OKL_TXL_ASSETS_PUB.create_txl_asset_def( p_api_version => p_api_version,
2034: p_init_msg_list => OKL_API.G_FALSE,
2035: x_return_status => x_return_status,
2036: x_msg_count => x_msg_count,
2037: x_msg_data => x_msg_data,
2038: p_tlpv_rec => lp_tlpv_rec,
2037: x_msg_data => x_msg_data,
2038: p_tlpv_rec => lp_tlpv_rec,
2039: x_tlpv_rec => lx_tlpv_rec);
2040:
2041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2042: RAISE process_unexp_error;
2043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2044: RAISE process_error;
2045: END IF;
2039: x_tlpv_rec => lx_tlpv_rec);
2040:
2041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2042: RAISE process_unexp_error;
2043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2044: RAISE process_error;
2045: END IF;
2046:
2047:
2053: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
2054: lp_adpv_rec.asset_number := p_book_rec.asset_number;
2055: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2056: p_api_version => p_api_version,
2057: p_init_msg_list => OKL_API.G_FALSE,
2058: x_return_status => x_return_status,
2059: x_msg_count => x_msg_count,
2060: x_msg_data => x_msg_data,
2061: p_adpv_rec => lp_adpv_rec,
2059: x_msg_count => x_msg_count,
2060: x_msg_data => x_msg_data,
2061: p_adpv_rec => lp_adpv_rec,
2062: x_adpv_rec => lx_adpv_rec );
2063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE process_unexp_error;
2065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2066: RAISE process_error;
2067: END IF;
2061: p_adpv_rec => lp_adpv_rec,
2062: x_adpv_rec => lx_adpv_rec );
2063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE process_unexp_error;
2065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2066: RAISE process_error;
2067: END IF;
2068: END IF;
2069:
2093: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
2094: -- Legal Entity Changes End
2095:
2096: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
2097: p_init_msg_list => OKL_API.G_FALSE,
2098: x_return_status => x_return_status,
2099: x_msg_count => x_msg_count,
2100: x_msg_data => x_msg_data,
2101: p_thpv_rec => lp_thpv_rec,
2100: x_msg_data => x_msg_data,
2101: p_thpv_rec => lp_thpv_rec,
2102: x_thpv_rec => lx_thpv_rec);
2103:
2104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE process_unexp_error;
2106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2107: RAISE process_error;
2108: END IF;
2102: x_thpv_rec => lx_thpv_rec);
2103:
2104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE process_unexp_error;
2106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2107: RAISE process_error;
2108: END IF;
2109:
2110: -- create 2nd transaction line
2172: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
2173: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
2174:
2175: OKL_TXL_ASSETS_PUB.create_txl_asset_def( p_api_version => p_api_version,
2176: p_init_msg_list => OKL_API.G_FALSE,
2177: x_return_status => x_return_status,
2178: x_msg_count => x_msg_count,
2179: x_msg_data => x_msg_data,
2180: p_tlpv_rec => lp_tlpv_rec,
2179: x_msg_data => x_msg_data,
2180: p_tlpv_rec => lp_tlpv_rec,
2181: x_tlpv_rec => lx_tlpv_rec);
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE process_unexp_error;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE process_error;
2187: END IF;
2181: x_tlpv_rec => lx_tlpv_rec);
2182:
2183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2184: RAISE process_unexp_error;
2185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2186: RAISE process_error;
2187: END IF;
2188:
2189: -- When process_dfstlease_lessor procedure is called with mg rep book (tax book), then
2194: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
2195: lp_adpv_rec.asset_number := p_book_rec.asset_number;
2196: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2197: p_api_version => p_api_version,
2198: p_init_msg_list => OKL_API.G_FALSE,
2199: x_return_status => x_return_status,
2200: x_msg_count => x_msg_count,
2201: x_msg_data => x_msg_data,
2202: p_adpv_rec => lp_adpv_rec,
2200: x_msg_count => x_msg_count,
2201: x_msg_data => x_msg_data,
2202: p_adpv_rec => lp_adpv_rec,
2203: x_adpv_rec => lx_adpv_rec );
2204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE process_unexp_error;
2206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2207: RAISE process_error;
2208: END IF;
2202: p_adpv_rec => lp_adpv_rec,
2203: x_adpv_rec => lx_adpv_rec );
2204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE process_unexp_error;
2206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2207: RAISE process_error;
2208: END IF;
2209: END IF;
2210:
2223: CLOSE l_amthld_csr;
2224: END IF;
2225:
2226:
2227: x_return_status := OKL_API.G_RET_STS_ERROR;
2228: WHEN process_unexp_error THEN
2229:
2230: IF l_methodcode_csr%ISOPEN THEN
2231: CLOSE l_methodcode_csr;
2234: IF l_amthld_csr%ISOPEN THEN
2235: CLOSE l_amthld_csr;
2236: END IF;
2237:
2238: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2239: WHEN OTHERS THEN
2240:
2241: IF l_methodcode_csr%ISOPEN THEN
2242: CLOSE l_methodcode_csr;
2245: IF l_amthld_csr%ISOPEN THEN
2246: CLOSE l_amthld_csr;
2247: END IF;
2248: -- unexpected error
2249: OKL_API.set_message(p_app_name => 'OKC',
2250: p_msg_name => g_unexpected_error,
2251: p_token1 => g_sqlcode_token,
2252: p_token1_value => sqlcode,
2253: p_token2 => g_sqlerrm_token,
2251: p_token1 => g_sqlcode_token,
2252: p_token1_value => sqlcode,
2253: p_token2 => g_sqlerrm_token,
2254: p_token2_value => sqlerrm);
2255: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2256:
2257: END process_dfstlease_lessor;
2258:
2259:
2368: -- SECHAWLA 19-FEB-04 3439647 : Added l_fa_life_in_months
2369: FETCH l_methodcode_csr INTO l_fa_method_code, l_fa_life_in_months;
2370: IF l_methodcode_csr%NOTFOUND THEN
2371: -- The depreciation method defined for category DEPRN_CAT and book BOOK is invalid.
2372: OKL_API.set_message( p_app_name => 'OKL',
2373: p_msg_name => 'OKL_AM_INVALID_DEPRN_MTHD',
2374: p_token1 => 'DEPRN_CAT',
2375: p_token1_value => p_book_rec.depreciation_category,
2376: p_token2 => 'BOOK',
2384: -- SECHAWLA 28-MAY-04 3645574 : Removing this validation, as life is null for diminishing dep methods
2385: /*
2386: IF p_book_rec.life_in_months IS NULL THEN
2387: -- Life in Months not defined for asset
2388: OKL_API.set_message( p_app_name => 'OKL',
2389: p_msg_name => 'OKL_AM_NO_LIFE_IN_MONTHS',
2390: p_token1 => 'ASSET_NUMBER',
2391: p_token1_value => p_book_rec.asset_number,
2392: p_token2 => 'BOOK',
2397:
2398: -- SECHAWLA 28-MAY-04 3645574 : new validation, eithr life or rate should be defined
2399: IF p_book_rec.life_in_months IS NULL AND p_book_rec.deprn_rate IS NULL THEN
2400: -- Either Life in Months or Depreciation Rate should be defined for asset ASSET_NUMBER and book BOOK.
2401: OKL_API.set_message( p_app_name => 'OKL',
2402: p_msg_name => 'OKL_AM_NO_LIFE_NO_RATE',
2403: p_token1 => 'ASSET_NUMBER',
2404: p_token1_value => p_book_rec.asset_number,
2405: p_token2 => 'BOOK',
2412: OKL_ACCOUNTING_UTIL.get_fa_trx_date(p_book_type_code => p_book_rec.book_type_code,
2413: x_return_status => x_return_status,
2414: x_fa_trx_date => l_fa_trx_date);
2415:
2416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2417: RAISE process_unexp_error;
2418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2419: RAISE process_error;
2420: END IF;
2414: x_fa_trx_date => l_fa_trx_date);
2415:
2416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2417: RAISE process_unexp_error;
2418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2419: RAISE process_error;
2420: END IF;
2421:
2422: -- SGORANTL 22-MAR-06 5097643 : convert original_cost and depreciation_cost to functional currency
2492: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
2493: -- Legal Entity Changes End
2494:
2495: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
2496: p_init_msg_list => OKL_API.G_FALSE,
2497: x_return_status => x_return_status,
2498: x_msg_count => x_msg_count,
2499: x_msg_data => x_msg_data,
2500: p_thpv_rec => lp_thpv_rec,
2499: x_msg_data => x_msg_data,
2500: p_thpv_rec => lp_thpv_rec,
2501: x_thpv_rec => lx_thpv_rec);
2502:
2503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2504: RAISE process_unexp_error;
2505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2506: RAISE process_error;
2507: END IF;
2501: x_thpv_rec => lx_thpv_rec);
2502:
2503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2504: RAISE process_unexp_error;
2505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2506: RAISE process_error;
2507: END IF;
2508:
2509: -- Create 1st transaction line to update asset cost and stop depreciation
2561: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
2562: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
2563:
2564: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
2565: p_init_msg_list => OKL_API.G_FALSE,
2566: x_return_status => x_return_status,
2567: x_msg_count => x_msg_count,
2568: x_msg_data => x_msg_data,
2569: p_tlpv_rec => lp_tlpv_rec,
2568: x_msg_data => x_msg_data,
2569: p_tlpv_rec => lp_tlpv_rec,
2570: x_tlpv_rec => lx_tlpv_rec);
2571:
2572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE process_unexp_error;
2574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2575: RAISE process_error;
2576: END IF;
2570: x_tlpv_rec => lx_tlpv_rec);
2571:
2572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE process_unexp_error;
2574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2575: RAISE process_error;
2576: END IF;
2577:
2578: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
2581: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
2582: lp_adpv_rec.asset_number := p_book_rec.asset_number;
2583: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2584: p_api_version => p_api_version,
2585: p_init_msg_list => OKL_API.G_FALSE,
2586: x_return_status => x_return_status,
2587: x_msg_count => x_msg_count,
2588: x_msg_data => x_msg_data,
2589: p_adpv_rec => lp_adpv_rec,
2587: x_msg_count => x_msg_count,
2588: x_msg_data => x_msg_data,
2589: p_adpv_rec => lp_adpv_rec,
2590: x_adpv_rec => lx_adpv_rec );
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE process_unexp_error;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE process_error;
2595: END IF;
2589: p_adpv_rec => lp_adpv_rec,
2590: x_adpv_rec => lx_adpv_rec );
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE process_unexp_error;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE process_error;
2595: END IF;
2596: END IF;
2597:
2620: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
2621: -- Legal Entity Changes End
2622:
2623: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
2624: p_init_msg_list => OKL_API.G_FALSE,
2625: x_return_status => x_return_status,
2626: x_msg_count => x_msg_count,
2627: x_msg_data => x_msg_data,
2628: p_thpv_rec => lp_thpv_rec,
2627: x_msg_data => x_msg_data,
2628: p_thpv_rec => lp_thpv_rec,
2629: x_thpv_rec => lx_thpv_rec);
2630:
2631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE process_unexp_error;
2633: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE process_error;
2635: END IF;
2629: x_thpv_rec => lx_thpv_rec);
2630:
2631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE process_unexp_error;
2633: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE process_error;
2635: END IF;
2636:
2637: -- Create 2nd transaction line to update asset cost
2693: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
2694: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
2695:
2696: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
2697: p_init_msg_list => OKL_API.G_FALSE,
2698: x_return_status => x_return_status,
2699: x_msg_count => x_msg_count,
2700: x_msg_data => x_msg_data,
2701: p_tlpv_rec => lp_tlpv_rec,
2700: x_msg_data => x_msg_data,
2701: p_tlpv_rec => lp_tlpv_rec,
2702: x_tlpv_rec => lx_tlpv_rec);
2703:
2704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2705: RAISE process_unexp_error;
2706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2707: RAISE process_error;
2708: END IF;
2702: x_tlpv_rec => lx_tlpv_rec);
2703:
2704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2705: RAISE process_unexp_error;
2706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2707: RAISE process_error;
2708: END IF;
2709:
2710: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
2713: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
2714: lp_adpv_rec.asset_number := p_book_rec.asset_number;
2715: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2716: p_api_version => p_api_version,
2717: p_init_msg_list => OKL_API.G_FALSE,
2718: x_return_status => x_return_status,
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data,
2721: p_adpv_rec => lp_adpv_rec,
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data,
2721: p_adpv_rec => lp_adpv_rec,
2722: x_adpv_rec => lx_adpv_rec );
2723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2724: RAISE process_unexp_error;
2725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2726: RAISE process_error;
2727: END IF;
2721: p_adpv_rec => lp_adpv_rec,
2722: x_adpv_rec => lx_adpv_rec );
2723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2724: RAISE process_unexp_error;
2725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2726: RAISE process_error;
2727: END IF;
2728:
2729: END IF;
2752: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
2753: -- Legal Entity Changes End
2754:
2755: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
2756: p_init_msg_list => OKL_API.G_FALSE,
2757: x_return_status => x_return_status,
2758: x_msg_count => x_msg_count,
2759: x_msg_data => x_msg_data,
2760: p_thpv_rec => lp_thpv_rec,
2759: x_msg_data => x_msg_data,
2760: p_thpv_rec => lp_thpv_rec,
2761: x_thpv_rec => lx_thpv_rec);
2762:
2763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE process_unexp_error;
2765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2766: RAISE process_error;
2767: END IF;
2761: x_thpv_rec => lx_thpv_rec);
2762:
2763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE process_unexp_error;
2765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2766: RAISE process_error;
2767: END IF;
2768:
2769: -- create 3rd transaction line
2823: -- p_cle_id => p_kle_id,
2824: -- x_formula_value => l_net_investment_value,
2825: -- x_return_status => x_return_status);
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_formula_value => l_net_investment_value,
2825: -- x_return_status => x_return_status);
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: -- */
2825: -- x_return_status => x_return_status);
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: -- */
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: -- */
2833:
2834: /* -- SGORANTL 22-MAR-06 5097643
2868: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
2869: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
2870:
2871: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
2872: p_init_msg_list => OKL_API.G_FALSE,
2873: x_return_status => x_return_status,
2874: x_msg_count => x_msg_count,
2875: x_msg_data => x_msg_data,
2876: p_tlpv_rec => lp_tlpv_rec,
2875: x_msg_data => x_msg_data,
2876: p_tlpv_rec => lp_tlpv_rec,
2877: x_tlpv_rec => lx_tlpv_rec);
2878:
2879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE process_unexp_error;
2881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2882: RAISE process_error;
2883: END IF;
2877: x_tlpv_rec => lx_tlpv_rec);
2878:
2879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE process_unexp_error;
2881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2882: RAISE process_error;
2883: END IF;
2884:
2885: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
2888: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
2889: lp_adpv_rec.asset_number := p_book_rec.asset_number;
2890: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2891: p_api_version => p_api_version,
2892: p_init_msg_list => OKL_API.G_FALSE,
2893: x_return_status => x_return_status,
2894: x_msg_count => x_msg_count,
2895: x_msg_data => x_msg_data,
2896: p_adpv_rec => lp_adpv_rec,
2894: x_msg_count => x_msg_count,
2895: x_msg_data => x_msg_data,
2896: p_adpv_rec => lp_adpv_rec,
2897: x_adpv_rec => lx_adpv_rec );
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE process_unexp_error;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE process_error;
2902: END IF;
2896: p_adpv_rec => lp_adpv_rec,
2897: x_adpv_rec => lx_adpv_rec );
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE process_unexp_error;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE process_error;
2902: END IF;
2903:
2904: END IF;
2929: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
2930: -- Legal Entity Changes End
2931:
2932: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
2933: p_init_msg_list => OKL_API.G_FALSE,
2934: x_return_status => x_return_status,
2935: x_msg_count => x_msg_count,
2936: x_msg_data => x_msg_data,
2937: p_thpv_rec => lp_thpv_rec,
2936: x_msg_data => x_msg_data,
2937: p_thpv_rec => lp_thpv_rec,
2938: x_thpv_rec => lx_thpv_rec);
2939:
2940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2941: RAISE process_unexp_error;
2942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2943: RAISE process_error;
2944: END IF;
2938: x_thpv_rec => lx_thpv_rec);
2939:
2940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2941: RAISE process_unexp_error;
2942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2943: RAISE process_error;
2944: END IF;
2945:
2946: -- create 4th transaction line
3007: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
3008: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
3009:
3010: OKL_TXL_ASSETS_PUB.create_txl_asset_def(p_api_version => p_api_version,
3011: p_init_msg_list => OKL_API.G_FALSE,
3012: x_return_status => x_return_status,
3013: x_msg_count => x_msg_count,
3014: x_msg_data => x_msg_data,
3015: p_tlpv_rec => lp_tlpv_rec,
3014: x_msg_data => x_msg_data,
3015: p_tlpv_rec => lp_tlpv_rec,
3016: x_tlpv_rec => lx_tlpv_rec);
3017:
3018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE process_unexp_error;
3020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3021: RAISE process_error;
3022: END IF;
3016: x_tlpv_rec => lx_tlpv_rec);
3017:
3018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE process_unexp_error;
3020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3021: RAISE process_error;
3022: END IF;
3023:
3024: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
3027: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
3028: lp_adpv_rec.asset_number := p_book_rec.asset_number;
3029: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
3030: p_api_version => p_api_version,
3031: p_init_msg_list => OKL_API.G_FALSE,
3032: x_return_status => x_return_status,
3033: x_msg_count => x_msg_count,
3034: x_msg_data => x_msg_data,
3035: p_adpv_rec => lp_adpv_rec,
3033: x_msg_count => x_msg_count,
3034: x_msg_data => x_msg_data,
3035: p_adpv_rec => lp_adpv_rec,
3036: x_adpv_rec => lx_adpv_rec );
3037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE process_unexp_error;
3039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3040: RAISE process_error;
3041: END IF;
3035: p_adpv_rec => lp_adpv_rec,
3036: x_adpv_rec => lx_adpv_rec );
3037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3038: RAISE process_unexp_error;
3039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3040: RAISE process_error;
3041: END IF;
3042:
3043: END IF;
3058: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
3059: -- Legal Entity Changes End
3060:
3061: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
3062: p_init_msg_list => OKL_API.G_FALSE,
3063: x_return_status => x_return_status,
3064: x_msg_count => x_msg_count,
3065: x_msg_data => x_msg_data,
3066: p_thpv_rec => lp_thpv_rec,
3065: x_msg_data => x_msg_data,
3066: p_thpv_rec => lp_thpv_rec,
3067: x_thpv_rec => lx_thpv_rec);
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE process_unexp_error;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE process_error;
3073: END IF;
3067: x_thpv_rec => lx_thpv_rec);
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE process_unexp_error;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE process_error;
3073: END IF;
3074:
3075: -- create transaction line
3130: -- p_cle_id => p_kle_id,
3131: -- x_formula_value => l_net_investment_value,
3132: -- x_return_status => x_return_status);
3133:
3134: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3135: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3136: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3137: -- RAISE OKL_API.G_EXCEPTION_ERROR;
3138: -- END IF;
3131: -- x_formula_value => l_net_investment_value,
3132: -- x_return_status => x_return_status);
3133:
3134: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3135: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3136: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3137: -- RAISE OKL_API.G_EXCEPTION_ERROR;
3138: -- END IF;
3139: -- */
3132: -- x_return_status => x_return_status);
3133:
3134: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3135: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3136: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3137: -- RAISE OKL_API.G_EXCEPTION_ERROR;
3138: -- END IF;
3139: -- */
3140: /* -- SGORANTL 22-MAR-06 5097643
3133:
3134: -- IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3135: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3136: -- ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3137: -- RAISE OKL_API.G_EXCEPTION_ERROR;
3138: -- END IF;
3139: -- */
3140: /* -- SGORANTL 22-MAR-06 5097643
3141:
3169: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
3170: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
3171:
3172: OKL_TXL_ASSETS_PUB.create_txl_asset_def( p_api_version => p_api_version,
3173: p_init_msg_list => OKL_API.G_FALSE,
3174: x_return_status => x_return_status,
3175: x_msg_count => x_msg_count,
3176: x_msg_data => x_msg_data,
3177: p_tlpv_rec => lp_tlpv_rec,
3176: x_msg_data => x_msg_data,
3177: p_tlpv_rec => lp_tlpv_rec,
3178: x_tlpv_rec => lx_tlpv_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE process_unexp_error;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE process_error;
3184: END IF;
3178: x_tlpv_rec => lx_tlpv_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE process_unexp_error;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE process_error;
3184: END IF;
3185:
3186: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
3189: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
3190: lp_adpv_rec.asset_number := p_book_rec.asset_number;
3191: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
3192: p_api_version => p_api_version,
3193: p_init_msg_list => OKL_API.G_FALSE,
3194: x_return_status => x_return_status,
3195: x_msg_count => x_msg_count,
3196: x_msg_data => x_msg_data,
3197: p_adpv_rec => lp_adpv_rec,
3195: x_msg_count => x_msg_count,
3196: x_msg_data => x_msg_data,
3197: p_adpv_rec => lp_adpv_rec,
3198: x_adpv_rec => lx_adpv_rec );
3199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3200: RAISE process_unexp_error;
3201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3202: RAISE process_error;
3203: END IF;
3197: p_adpv_rec => lp_adpv_rec,
3198: x_adpv_rec => lx_adpv_rec );
3199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3200: RAISE process_unexp_error;
3201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3202: RAISE process_error;
3203: END IF;
3204:
3205: END IF;
3229: lp_thpv_rec.legal_entity_id := p_legal_entity_id;
3230: -- Legal Entity Changes End
3231:
3232: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def( p_api_version => p_api_version,
3233: p_init_msg_list => OKL_API.G_FALSE,
3234: x_return_status => x_return_status,
3235: x_msg_count => x_msg_count,
3236: x_msg_data => x_msg_data,
3237: p_thpv_rec => lp_thpv_rec,
3236: x_msg_data => x_msg_data,
3237: p_thpv_rec => lp_thpv_rec,
3238: x_thpv_rec => lx_thpv_rec);
3239:
3240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3241: RAISE process_unexp_error;
3242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3243: RAISE process_error;
3244: END IF;
3238: x_thpv_rec => lx_thpv_rec);
3239:
3240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3241: RAISE process_unexp_error;
3242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3243: RAISE process_error;
3244: END IF;
3245:
3246: -- create 2nd transaction line
3307: -- SECHAWLA 15-DEC-04 4028371 : set FA date on trx header
3308: lp_tlpv_rec.FA_TRX_DATE := l_fa_trx_date;
3309:
3310: OKL_TXL_ASSETS_PUB.create_txl_asset_def( p_api_version => p_api_version,
3311: p_init_msg_list => OKL_API.G_FALSE,
3312: x_return_status => x_return_status,
3313: x_msg_count => x_msg_count,
3314: x_msg_data => x_msg_data,
3315: p_tlpv_rec => lp_tlpv_rec,
3313: x_msg_count => x_msg_count,
3314: x_msg_data => x_msg_data,
3315: p_tlpv_rec => lp_tlpv_rec,
3316: x_tlpv_rec => lx_tlpv_rec);
3317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3318: RAISE process_unexp_error;
3319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3320: RAISE process_error;
3321: END IF;
3315: p_tlpv_rec => lp_tlpv_rec,
3316: x_tlpv_rec => lx_tlpv_rec);
3317: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3318: RAISE process_unexp_error;
3319: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3320: RAISE process_error;
3321: END IF;
3322:
3323: -- SECHAWLA 06-MAY-04 3578894 : If this book is a tax book, also create a row in okl_txd_assets_b
3326: lp_adpv_rec.tax_book := p_book_rec.book_type_code;
3327: lp_adpv_rec.asset_number := p_book_rec.asset_number;
3328: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
3329: p_api_version => p_api_version,
3330: p_init_msg_list => OKL_API.G_FALSE,
3331: x_return_status => x_return_status,
3332: x_msg_count => x_msg_count,
3333: x_msg_data => x_msg_data,
3334: p_adpv_rec => lp_adpv_rec,
3332: x_msg_count => x_msg_count,
3333: x_msg_data => x_msg_data,
3334: p_adpv_rec => lp_adpv_rec,
3335: x_adpv_rec => lx_adpv_rec );
3336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3337: RAISE process_unexp_error;
3338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3339: RAISE process_unexp_error;
3340: END IF;
3334: p_adpv_rec => lp_adpv_rec,
3335: x_adpv_rec => lx_adpv_rec );
3336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3337: RAISE process_unexp_error;
3338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3339: RAISE process_unexp_error;
3340: END IF;
3341:
3342: END IF;
3352: IF l_amthld_csr%ISOPEN THEN
3353: CLOSE l_amthld_csr;
3354: END IF;
3355:
3356: x_return_status := OKL_API.G_RET_STS_ERROR;
3357: WHEN process_unexp_error THEN
3358: IF l_methodcode_csr%ISOPEN THEN
3359: CLOSE l_methodcode_csr;
3360: END IF;
3362: IF l_amthld_csr%ISOPEN THEN
3363: CLOSE l_amthld_csr;
3364: END IF;
3365:
3366: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3367: WHEN OTHERS THEN
3368: IF l_methodcode_csr%ISOPEN THEN
3369: CLOSE l_methodcode_csr;
3370: END IF;
3373: CLOSE l_amthld_csr;
3374: END IF;
3375:
3376: -- unexpected error
3377: OKL_API.set_message(p_app_name => 'OKC',
3378: p_msg_name => g_unexpected_error,
3379: p_token1 => g_sqlcode_token,
3380: p_token1_value => sqlcode,
3381: p_token2 => g_sqlerrm_token,
3379: p_token1 => g_sqlcode_token,
3380: p_token1_value => sqlcode,
3381: p_token2 => g_sqlerrm_token,
3382: p_token2_value => sqlerrm);
3383: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3384: END process_dfstlease_lessee;
3385:
3386: ----------SECHAWLA 06-MAY-04 3578894 end new procedures --------------------
3387:
3453: l_cost NUMBER;
3454: l_accumulated_deprn NUMBER;
3455: l_try_id okl_trx_types_v.id%TYPE;
3456:
3457: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3458: l_api_name CONSTANT VARCHAR2(30) := 'create_offlease_asset_trx';
3459: l_tax_owner VARCHAR2(10);
3460: l_rulv_rec okl_rule_pub.rulv_rec_type;
3461:
3761: l_additional_params okl_execute_formula_pub.ctxt_val_tbl_type;
3762:
3763: BEGIN
3764:
3765: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3766: G_PKG_NAME,
3767: p_init_msg_list,
3768: l_api_version,
3769: p_api_version,
3768: l_api_version,
3769: p_api_version,
3770: '_PVT',
3771: x_return_status);
3772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3769: p_api_version,
3770: '_PVT',
3771: x_return_status);
3772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777:
3770: '_PVT',
3771: x_return_status);
3772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777:
3778: IF p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM THEN
3771: x_return_status);
3772: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777:
3778: IF p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM THEN
3779: x_return_status := OKL_API.G_RET_STS_ERROR;
3774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777:
3778: IF p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM THEN
3779: x_return_status := OKL_API.G_RET_STS_ERROR;
3780: -- kle id parameter is null
3781: OKC_API.set_message( p_app_name => 'OKC',
3782: p_msg_name => G_REQUIRED_VALUE,
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777:
3778: IF p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM THEN
3779: x_return_status := OKL_API.G_RET_STS_ERROR;
3780: -- kle id parameter is null
3781: OKC_API.set_message( p_app_name => 'OKC',
3782: p_msg_name => G_REQUIRED_VALUE,
3783: p_token1 => G_COL_NAME_TOKEN,
3781: OKC_API.set_message( p_app_name => 'OKC',
3782: p_msg_name => G_REQUIRED_VALUE,
3783: p_token1 => G_COL_NAME_TOKEN,
3784: p_token1_value => 'KLE_ID');
3785: RAISE OKL_API.G_EXCEPTION_ERROR;
3786: END IF;
3787:
3788: -- SECHAWLA 06-MAY-04 3578894 : Validate p_kle_id
3789: OPEN l_okllines_csr(p_kle_id);
3788: -- SECHAWLA 06-MAY-04 3578894 : Validate p_kle_id
3789: OPEN l_okllines_csr(p_kle_id);
3790: FETCH l_okllines_csr INTO l_name;
3791: IF l_okllines_csr%NOTFOUND THEN
3792: x_return_status := OKL_API.G_RET_STS_ERROR;
3793: -- kle id is invalid
3794: OKC_API.set_message( p_app_name => 'OKC',
3795: p_msg_name => G_INVALID_VALUE,
3796: p_token1 => G_COL_NAME_TOKEN,
3794: OKC_API.set_message( p_app_name => 'OKC',
3795: p_msg_name => G_INVALID_VALUE,
3796: p_token1 => G_COL_NAME_TOKEN,
3797: p_token1_value => 'KLE_ID');
3798: RAISE OKL_API.G_EXCEPTION_ERROR;
3799: END IF;
3800: CLOSE l_okllines_csr;
3801:
3802: --SECHAWLA 06-MAY-04 3578894 : These validations are not required as p_early_termination_yn parameter
3803: --will not be used any more in this API. This parameter was used to populate depreciation cost with RV if it
3804: --is EOT and with NIV if early termination. As part of bug fix 3578894, depreciation cost should always be
3805: --NIV . Still keeping the parameter in the API call for possibility of future use
3806: /*
3807: IF p_early_termination_yn IS NULL OR p_early_termination_yn = OKL_API.G_MISS_CHAR THEN
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3809: -- early_termination_yn parameter is null
3810: OKC_API.set_message( p_app_name => 'OKC',
3811: p_msg_name => G_REQUIRED_VALUE,
3804: --is EOT and with NIV if early termination. As part of bug fix 3578894, depreciation cost should always be
3805: --NIV . Still keeping the parameter in the API call for possibility of future use
3806: /*
3807: IF p_early_termination_yn IS NULL OR p_early_termination_yn = OKL_API.G_MISS_CHAR THEN
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3809: -- early_termination_yn parameter is null
3810: OKC_API.set_message( p_app_name => 'OKC',
3811: p_msg_name => G_REQUIRED_VALUE,
3812: p_token1 => G_COL_NAME_TOKEN,
3812: p_token1 => G_COL_NAME_TOKEN,
3813: p_token1_value => 'EARLY_TERMINATION_YN');
3814:
3815:
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: IF p_early_termination_yn <> 'Y' AND p_early_termination_yn <> 'N' THEN
3820: x_return_status := OKL_API.G_RET_STS_ERROR;
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: IF p_early_termination_yn <> 'Y' AND p_early_termination_yn <> 'N' THEN
3820: x_return_status := OKL_API.G_RET_STS_ERROR;
3821: -- early_termination_yn parameter is invalid
3822: OKC_API.set_message( p_app_name => 'OKC',
3823: p_msg_name => G_INVALID_VALUE,
3824: p_token1 => G_COL_NAME_TOKEN,
3824: p_token1 => G_COL_NAME_TOKEN,
3825: p_token1_value => 'EARLY_TERMINATION_YN');
3826:
3827:
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3829: END IF;
3830: */
3831:
3832: SELECT SYSDATE INTO l_sysdate FROM DUAL;
3832: SELECT SYSDATE INTO l_sysdate FROM DUAL;
3833:
3834: -- rmunjulu EDAT Added condition to default
3835: IF p_quote_eff_date IS NOT NULL
3836: AND p_quote_eff_date <> OKL_API.G_MISS_DATE THEN
3837:
3838: l_quote_eff_date := p_quote_eff_date;
3839:
3840: ELSE
3844: END IF;
3845:
3846: -- rmunjulu EDAT Added condition to default
3847: IF p_quote_accpt_date IS NOT NULL
3848: AND p_quote_accpt_date <> OKL_API.G_MISS_DATE THEN
3849:
3850: l_quote_accpt_date := p_quote_accpt_date;
3851:
3852: ELSE
3859: x_return_status => x_return_status,
3860: x_try_id => l_try_id);
3861:
3862:
3863: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3864: --Unable to find a transaction type for this transaction .
3865: OKL_API.set_message(p_app_name => 'OKL',
3866: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3867: p_token1 => 'TRY_NAME',
3861:
3862:
3863: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3864: --Unable to find a transaction type for this transaction .
3865: OKL_API.set_message(p_app_name => 'OKL',
3866: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
3867: p_token1 => 'TRY_NAME',
3868: p_token1_value => 'Off Lease Amortization');
3869: RAISE OKC_API.G_EXCEPTION_ERROR;
3893:
3894:
3895: IF l_df_original_cost IS NULL THEN
3896: IF l_oec IS NULL THEN
3897: x_return_status := OKL_API.G_RET_STS_ERROR;
3898: -- OEC not defined for the asset
3899: OKL_API.set_message( p_app_name => 'OKL',
3900: p_msg_name => 'OKL_AM_NO_OEC',
3901: p_token1 => 'ASSET_NUMBER',
3895: IF l_df_original_cost IS NULL THEN
3896: IF l_oec IS NULL THEN
3897: x_return_status := OKL_API.G_RET_STS_ERROR;
3898: -- OEC not defined for the asset
3899: OKL_API.set_message( p_app_name => 'OKL',
3900: p_msg_name => 'OKL_AM_NO_OEC',
3901: p_token1 => 'ASSET_NUMBER',
3902: p_token1_value => l_name);
3903:
3900: p_msg_name => 'OKL_AM_NO_OEC',
3901: p_token1 => 'ASSET_NUMBER',
3902: p_token1_value => l_name);
3903:
3904: RAISE OKL_API.G_EXCEPTION_ERROR;
3905: END IF;
3906: END IF;
3907:
3908:
3925:
3926: x_formula_value => l_base_NIV,
3927: x_return_status => x_return_status);
3928:
3929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3932: RAISE OKL_API.G_EXCEPTION_ERROR;
3933: END IF;
3926: x_formula_value => l_base_NIV,
3927: x_return_status => x_return_status);
3928:
3929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3932: RAISE OKL_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: -- SECHAWLA 19-FEB-04 3439647 : end moved code
3927: x_return_status => x_return_status);
3928:
3929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3932: RAISE OKL_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: -- SECHAWLA 19-FEB-04 3439647 : end moved code
3935:
3928:
3929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3932: RAISE OKL_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: -- SECHAWLA 19-FEB-04 3439647 : end moved code
3935:
3936: END IF;
3949: ,x_return_status => x_return_status
3950: ,x_msg_count => x_msg_count
3951: ,x_msg_data => x_msg_data);
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3950: ,x_msg_count => x_msg_count
3951: ,x_msg_data => x_msg_data);
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3951: ,x_msg_data => x_msg_data);
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3959:
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3959:
3960:
3957: END IF;
3958:
3959:
3960:
3961: IF l_rulv_rec.rule_information1 IS NULL OR l_rulv_rec.rule_information1 = OKL_API.G_MISS_CHAR THEN
3962: x_return_status := OKL_API.G_RET_STS_ERROR;
3963: -- tax owner is not defined for contract CONTRACT_NUMBER.
3964: OKL_API.set_message( p_app_name => 'OKL',
3965: p_msg_name => 'OKL_AM_NO_TAX_OWNER',
3958:
3959:
3960:
3961: IF l_rulv_rec.rule_information1 IS NULL OR l_rulv_rec.rule_information1 = OKL_API.G_MISS_CHAR THEN
3962: x_return_status := OKL_API.G_RET_STS_ERROR;
3963: -- tax owner is not defined for contract CONTRACT_NUMBER.
3964: OKL_API.set_message( p_app_name => 'OKL',
3965: p_msg_name => 'OKL_AM_NO_TAX_OWNER',
3966: p_token1 => 'CONTRACT_NUMBER',
3960:
3961: IF l_rulv_rec.rule_information1 IS NULL OR l_rulv_rec.rule_information1 = OKL_API.G_MISS_CHAR THEN
3962: x_return_status := OKL_API.G_RET_STS_ERROR;
3963: -- tax owner is not defined for contract CONTRACT_NUMBER.
3964: OKL_API.set_message( p_app_name => 'OKL',
3965: p_msg_name => 'OKL_AM_NO_TAX_OWNER',
3966: p_token1 => 'CONTRACT_NUMBER',
3967: p_token1_value => l_contract_number);
3968:
3965: p_msg_name => 'OKL_AM_NO_TAX_OWNER',
3966: p_token1 => 'CONTRACT_NUMBER',
3967: p_token1_value => l_contract_number);
3968:
3969: RAISE OKL_API.G_EXCEPTION_ERROR;
3970: END IF;
3971:
3972: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or 'LESSOR'
3973: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3990: x_mg_rep_book => lx_mg_rep_book,
3991: x_rep_deal_type => lx_rep_deal_type);
3992: -- x_rep_tax_owner => lx_rep_tax_owner);
3993:
3994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3991: x_rep_deal_type => lx_rep_deal_type);
3992: -- x_rep_tax_owner => lx_rep_tax_owner);
3993:
3994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999:
3992: -- x_rep_tax_owner => lx_rep_tax_owner);
3993:
3994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999:
4000: -- If lx_rep_product is not null then lx_rep_deal_type and lx_mg_rep_book will also be populated
3993:
3994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999:
4000: -- If lx_rep_product is not null then lx_rep_deal_type and lx_mg_rep_book will also be populated
4001:
4011: EXIT;
4012: END IF;
4013: END LOOP;
4014: IF l_rep_book_found = 'N' THEN
4015: x_return_status := OKL_API.G_RET_STS_ERROR;
4016: -- Multi GAAP asset book is invalid
4017: OKL_API.set_message( p_app_name => 'OKL',
4018: p_msg_name => 'OKL_AM_INVALID_MG_BOOK');
4019:
4013: END LOOP;
4014: IF l_rep_book_found = 'N' THEN
4015: x_return_status := OKL_API.G_RET_STS_ERROR;
4016: -- Multi GAAP asset book is invalid
4017: OKL_API.set_message( p_app_name => 'OKL',
4018: p_msg_name => 'OKL_AM_INVALID_MG_BOOK');
4019:
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4016: -- Multi GAAP asset book is invalid
4017: OKL_API.set_message( p_app_name => 'OKL',
4018: p_msg_name => 'OKL_AM_INVALID_MG_BOOK');
4019:
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4022: END IF;
4023:
4024: -- At this point we know that if K has OP LEASE rep product attached, then mg rep book in profile is one of the
4029: -- Get the corporate book info. This cursor will return only 1 row for corp book
4030: FOR l_assetcorpbook_rec IN l_assetcorpbook_csr(p_kle_id, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4031:
4032: process_oplease(p_api_version => p_api_version,
4033: p_init_msg_list => OKL_API.G_FALSE,
4034: x_return_status => x_return_status,
4035: x_msg_count => x_msg_count,
4036: x_msg_data => x_msg_data,
4037: p_book_rec => l_assetcorpbook_rec,
4041: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4042: p_func_curr_code => l_func_curr_code,
4043: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4044:
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4042: p_func_curr_code => l_func_curr_code,
4043: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4044:
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050:
4043: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4044:
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050:
4051:
4044:
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050:
4051:
4052:
4058: -- This cursor will return 1 row for the reporting book
4059: FOR l_assetrepbook_rec IN l_assetrepbook_csr(p_kle_id, lx_mg_rep_book, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4060: process_oplease(
4061: p_api_version => p_api_version,
4062: p_init_msg_list => OKL_API.G_FALSE,
4063: x_return_status => x_return_status,
4064: x_msg_count => x_msg_count,
4065: x_msg_data => x_msg_data,
4066: p_book_rec => l_assetrepbook_rec,
4070: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4071: p_func_curr_code => l_func_curr_code,
4072: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4073:
4074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4077: RAISE OKL_API.G_EXCEPTION_ERROR;
4078: END IF;
4071: p_func_curr_code => l_func_curr_code,
4072: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4073:
4074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4077: RAISE OKL_API.G_EXCEPTION_ERROR;
4078: END IF;
4079: END LOOP;
4072: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4073:
4074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4077: RAISE OKL_API.G_EXCEPTION_ERROR;
4078: END IF;
4079: END LOOP;
4080: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4073:
4074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4077: RAISE OKL_API.G_EXCEPTION_ERROR;
4078: END IF;
4079: END LOOP;
4080: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4081:
4100: p_additional_parameters => l_add_params,
4101: x_formula_value => l_reporting_NIV,
4102: x_return_status => x_return_status);
4103:
4104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4101: x_formula_value => l_reporting_NIV,
4102: x_return_status => x_return_status);
4103:
4104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4109:
4102: x_return_status => x_return_status);
4103:
4104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4109:
4110: process_dfstlease_lessor( p_api_version => p_api_version,
4103:
4104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4109:
4110: process_dfstlease_lessor( p_api_version => p_api_version,
4111: p_init_msg_list => OKL_API.G_FALSE,
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4109:
4110: process_dfstlease_lessor( p_api_version => p_api_version,
4111: p_init_msg_list => OKL_API.G_FALSE,
4112: x_return_status => x_return_status,
4113: x_msg_count => x_msg_count,
4114: x_msg_data => x_msg_data ,
4115: p_book_rec => l_assetrepbook_rec,
4122: p_sysdate => l_quote_eff_date, --l_sysdate,
4123: p_func_curr_code => l_func_curr_code,
4124: p_legal_entity_id => l_legal_entity_id);
4125:
4126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4129: RAISE OKL_API.G_EXCEPTION_ERROR;
4130: END IF;
4123: p_func_curr_code => l_func_curr_code,
4124: p_legal_entity_id => l_legal_entity_id);
4125:
4126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4129: RAISE OKL_API.G_EXCEPTION_ERROR;
4130: END IF;
4131:
4124: p_legal_entity_id => l_legal_entity_id);
4125:
4126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4129: RAISE OKL_API.G_EXCEPTION_ERROR;
4130: END IF;
4131:
4132:
4125:
4126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4129: RAISE OKL_API.G_EXCEPTION_ERROR;
4130: END IF;
4131:
4132:
4133: END LOOP;
4145: FOR l_corptax_norep_books_rec IN l_corptax_norep_books_csr(p_kle_id, lx_mg_rep_book, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4146:
4147:
4148: process_dfstlease_lessee(p_api_version => p_api_version,
4149: p_init_msg_list => OKL_API.G_FALSE,
4150: x_return_status => x_return_status,
4151: x_msg_count => x_msg_count,
4152: x_msg_data => x_msg_data,
4153: p_book_rec => l_corptax_norep_books_rec,
4160: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4161: p_func_curr_code => l_func_curr_code,
4162: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4163:
4164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_ERROR;
4168: END IF;
4161: p_func_curr_code => l_func_curr_code,
4162: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4163:
4164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4162: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4163:
4164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4170: END LOOP;
4163:
4164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4170: END LOOP;
4171:
4172: IF lx_rep_deal_type = 'LEASEOP' THEN
4173: FOR l_assetrepbook_rec IN l_assetrepbook_csr(p_kle_id, lx_mg_rep_book, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4174: process_oplease(
4175: p_api_version => p_api_version,
4176: p_init_msg_list => OKL_API.G_FALSE,
4177: x_return_status => x_return_status,
4178: x_msg_count => x_msg_count,
4179: x_msg_data => x_msg_data,
4180: p_book_rec => l_assetrepbook_rec,
4184: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4185: p_func_curr_code => l_func_curr_code,
4186: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4187:
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4185: p_func_curr_code => l_func_curr_code,
4186: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4187:
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: END LOOP;
4186: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4187:
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: END LOOP;
4194: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4187:
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: END LOOP;
4194: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4195: -- -- SECHAWLA 06-MAY-04 3578894 : Do nothing till Authoring bug 3574232 is fixed
4214: p_additional_parameters => l_add_params,
4215: x_formula_value => l_reporting_NIV,
4216: x_return_status => x_return_status);
4217:
4218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4215: x_formula_value => l_reporting_NIV,
4216: x_return_status => x_return_status);
4217:
4218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4223:
4216: x_return_status => x_return_status);
4217:
4218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4223:
4224: process_dfstlease_lessor(p_api_version => p_api_version,
4217:
4218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4223:
4224: process_dfstlease_lessor(p_api_version => p_api_version,
4225: p_init_msg_list => OKL_API.G_FALSE,
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4223:
4224: process_dfstlease_lessor(p_api_version => p_api_version,
4225: p_init_msg_list => OKL_API.G_FALSE,
4226: x_return_status => x_return_status,
4227: x_msg_count => x_msg_count,
4228: x_msg_data => x_msg_data,
4229: p_book_rec => l_assetrepbook_rec,
4236: p_sysdate => l_quote_eff_date, --l_sysdate,
4237: p_func_curr_code => l_func_curr_code,
4238: p_legal_entity_id => l_legal_entity_id);
4239:
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4237: p_func_curr_code => l_func_curr_code,
4238: p_legal_entity_id => l_legal_entity_id);
4239:
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: END LOOP;
4238: p_legal_entity_id => l_legal_entity_id);
4239:
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: END LOOP;
4246:
4239:
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: END LOOP;
4246:
4247: END IF;
4250: FOR l_corptaxbooks_rec IN l_corptaxbooks_csr(p_kle_id, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4251:
4252:
4253: process_dfstlease_lessee(p_api_version => p_api_version,
4254: p_init_msg_list => OKL_API.G_FALSE,
4255: x_return_status => x_return_status,
4256: x_msg_count => x_msg_count,
4257: x_msg_data => x_msg_data,
4258: p_book_rec => l_corptaxbooks_rec,
4265: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4266: p_func_curr_code => l_func_curr_code,
4267: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4268:
4269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4272: RAISE OKL_API.G_EXCEPTION_ERROR;
4273: END IF;
4266: p_func_curr_code => l_func_curr_code,
4267: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4268:
4269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4272: RAISE OKL_API.G_EXCEPTION_ERROR;
4273: END IF;
4274:
4267: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4268:
4269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4272: RAISE OKL_API.G_EXCEPTION_ERROR;
4273: END IF;
4274:
4275: END LOOP;
4268:
4269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4272: RAISE OKL_API.G_EXCEPTION_ERROR;
4273: END IF;
4274:
4275: END LOOP;
4276: END IF;
4280: -- Get the corporate and tax book info. This cursor will return all the books
4281: FOR l_assetcorpbook_rec IN l_assetcorpbook_csr(p_kle_id, l_quote_accpt_date) LOOP -- rmunjulu EDAT pass quote accpt date
4282:
4283: process_dfstlease_lessor(p_api_version => p_api_version,
4284: p_init_msg_list => OKL_API.G_FALSE,
4285: x_return_status => x_return_status,
4286: x_msg_count => x_msg_count,
4287: x_msg_data => x_msg_data,
4288: p_book_rec => l_assetcorpbook_rec,
4295: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4296: p_func_curr_code => l_func_curr_code,
4297: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4298:
4299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4302: RAISE OKL_API.G_EXCEPTION_ERROR;
4303: END IF;
4296: p_func_curr_code => l_func_curr_code,
4297: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4298:
4299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4302: RAISE OKL_API.G_EXCEPTION_ERROR;
4303: END IF;
4304:
4297: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4298:
4299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4302: RAISE OKL_API.G_EXCEPTION_ERROR;
4303: END IF;
4304:
4305: END LOOP;
4298:
4299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4302: RAISE OKL_API.G_EXCEPTION_ERROR;
4303: END IF;
4304:
4305: END LOOP;
4306:
4309: IF lx_rep_deal_type = 'LEASEOP' THEN
4310: FOR l_assetrepbook_rec IN l_assetrepbook_csr(p_kle_id, lx_mg_rep_book, l_quote_eff_date) LOOP -- rmunjulu EDAT pass quote eff date
4311: process_oplease(
4312: p_api_version => p_api_version,
4313: p_init_msg_list => OKL_API.G_FALSE,
4314: x_return_status => x_return_status,
4315: x_msg_count => x_msg_count,
4316: x_msg_data => x_msg_data,
4317: p_book_rec => l_assetrepbook_rec,
4321: p_sysdate => l_quote_eff_date, -- rmunjulu EDAT
4322: p_func_curr_code => l_func_curr_code,
4323: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4324:
4325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: END IF;
4322: p_func_curr_code => l_func_curr_code,
4323: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4324:
4325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: END IF;
4330: END LOOP;
4323: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity changes
4324:
4325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: END IF;
4330: END LOOP;
4331: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4324:
4325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4328: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: END IF;
4330: END LOOP;
4331: ELSIF lx_rep_deal_type IN ('LEASEDF','LEASEST') THEN
4332:
4351: p_additional_parameters => l_add_params,
4352: x_formula_value => l_reporting_NIV,
4353: x_return_status => x_return_status);
4354:
4355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4358: RAISE OKL_API.G_EXCEPTION_ERROR;
4359: END IF;
4352: x_formula_value => l_reporting_NIV,
4353: x_return_status => x_return_status);
4354:
4355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4358: RAISE OKL_API.G_EXCEPTION_ERROR;
4359: END IF;
4360:
4353: x_return_status => x_return_status);
4354:
4355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4358: RAISE OKL_API.G_EXCEPTION_ERROR;
4359: END IF;
4360:
4361: process_dfstlease_lessor(p_api_version => p_api_version,
4354:
4355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4358: RAISE OKL_API.G_EXCEPTION_ERROR;
4359: END IF;
4360:
4361: process_dfstlease_lessor(p_api_version => p_api_version,
4362: p_init_msg_list => OKL_API.G_FALSE,
4358: RAISE OKL_API.G_EXCEPTION_ERROR;
4359: END IF;
4360:
4361: process_dfstlease_lessor(p_api_version => p_api_version,
4362: p_init_msg_list => OKL_API.G_FALSE,
4363: x_return_status => x_return_status,
4364: x_msg_count => x_msg_count,
4365: x_msg_data => x_msg_data,
4366: p_book_rec => l_assetrepbook_rec,
4373: p_sysdate => l_quote_eff_date,
4374: p_func_curr_code => l_func_curr_code,
4375: p_legal_entity_id => l_legal_entity_id);
4376:
4377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4374: p_func_curr_code => l_func_curr_code,
4375: p_legal_entity_id => l_legal_entity_id);
4376:
4377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382: END LOOP;
4375: p_legal_entity_id => l_legal_entity_id);
4376:
4377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382: END LOOP;
4383:
4376:
4377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382: END LOOP;
4383:
4384: END IF;
4394:
4395:
4396:
4397:
4398: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4399: EXCEPTION
4400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4401: -- SECHAWLA 06-MAY-04 3578894 : Changed cursor name l_linesv_csr to l_assetbooks_csr
4402: IF l_assetcorpbook_csr%ISOPEN THEN
4396:
4397:
4398: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4399: EXCEPTION
4400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4401: -- SECHAWLA 06-MAY-04 3578894 : Changed cursor name l_linesv_csr to l_assetbooks_csr
4402: IF l_assetcorpbook_csr%ISOPEN THEN
4403: CLOSE l_assetcorpbook_csr;
4404: END IF;
4442: CLOSE l_facorpbook_csr;
4443: END IF;
4444:
4445:
4446: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKL_API.G_RET_STS_ERROR',
4446: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKL_API.G_RET_STS_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT'
4454: );
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT'
4454: );
4455: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4456: -- SECHAWLA 06-MAY-04 3578894 : Changed cursor name l_linesv_csr to l_assetbooks_csr
4457: IF l_assetcorpbook_csr%ISOPEN THEN
4458: CLOSE l_assetcorpbook_csr;
4459: END IF;
4494: IF l_facorpbook_csr%ISOPEN THEN
4495: CLOSE l_facorpbook_csr;
4496: END IF;
4497:
4498: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4499: (
4500: l_api_name,
4501: G_PKG_NAME,
4502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4498: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4499: (
4500: l_api_name,
4501: G_PKG_NAME,
4502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4503: x_msg_count,
4504: x_msg_data,
4505: '_PVT'
4506: );
4545:
4546: IF l_facorpbook_csr%ISOPEN THEN
4547: CLOSE l_facorpbook_csr;
4548: END IF;
4549: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4550: (
4551: l_api_name,
4552: G_PKG_NAME,
4553: 'OTHERS',
4611: l_sts_code VARCHAR2(30);
4612:
4613: l_api_name CONSTANT VARCHAR2(30) := 'create_offlease_asset_trx';
4614: l_api_version CONSTANT NUMBER := 1;
4615: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4616:
4617: BEGIN
4618: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4619: G_PKG_NAME,
4614: l_api_version CONSTANT NUMBER := 1;
4615: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4616:
4617: BEGIN
4618: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4619: G_PKG_NAME,
4620: p_init_msg_list,
4621: l_api_version,
4622: p_api_version,
4621: l_api_version,
4622: p_api_version,
4623: '_PVT',
4624: x_return_status);
4625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4622: p_api_version,
4623: '_PVT',
4624: x_return_status);
4625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4623: '_PVT',
4624: x_return_status);
4625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4631: -- SECHAWLA 19-NOV-2004 4022466 : added validations
4624: x_return_status);
4625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4627: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4631: -- SECHAWLA 19-NOV-2004 4022466 : added validations
4632: IF p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM THEN
4628: RAISE OKL_API.G_EXCEPTION_ERROR;
4629: END IF;
4630:
4631: -- SECHAWLA 19-NOV-2004 4022466 : added validations
4632: IF p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM THEN
4633: x_return_status := OKL_API.G_RET_STS_ERROR;
4634: -- chr id is required
4635: OKC_API.set_message( p_app_name => 'OKC',
4636: p_msg_name => G_REQUIRED_VALUE,
4629: END IF;
4630:
4631: -- SECHAWLA 19-NOV-2004 4022466 : added validations
4632: IF p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM THEN
4633: x_return_status := OKL_API.G_RET_STS_ERROR;
4634: -- chr id is required
4635: OKC_API.set_message( p_app_name => 'OKC',
4636: p_msg_name => G_REQUIRED_VALUE,
4637: p_token1 => G_COL_NAME_TOKEN,
4635: OKC_API.set_message( p_app_name => 'OKC',
4636: p_msg_name => G_REQUIRED_VALUE,
4637: p_token1 => G_COL_NAME_TOKEN,
4638: p_token1_value => 'CONTRACT_ID');
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4641:
4642: OPEN l_okckhdr_csr(p_contract_id);
4643: FETCH l_okckhdr_csr INTO l_sts_code;
4641:
4642: OPEN l_okckhdr_csr(p_contract_id);
4643: FETCH l_okckhdr_csr INTO l_sts_code;
4644: IF l_okckhdr_csr%NOTFOUND THEN
4645: x_return_status := OKL_API.G_RET_STS_ERROR;
4646: -- chr id is invalid
4647: OKC_API.set_message( p_app_name => 'OKC',
4648: p_msg_name => G_INVALID_VALUE,
4649: p_token1 => G_COL_NAME_TOKEN,
4647: OKC_API.set_message( p_app_name => 'OKC',
4648: p_msg_name => G_INVALID_VALUE,
4649: p_token1 => G_COL_NAME_TOKEN,
4650: p_token1_value => 'CONTRACT_ID');
4651: RAISE OKL_API.G_EXCEPTION_ERROR;
4652: END IF;
4653: CLOSE l_okckhdr_csr;
4654: -- SECHAWLA 19-NOV-2004 4022466 : end
4655:
4664: p_early_termination_yn => p_early_termination_yn,
4665: p_quote_eff_date => p_quote_eff_date, -- rmunjulu EDAT
4666: p_quote_accpt_date => p_quote_accpt_date); -- rmunjulu EDAT
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4665: p_quote_eff_date => p_quote_eff_date, -- rmunjulu EDAT
4666: p_quote_accpt_date => p_quote_accpt_date); -- rmunjulu EDAT
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4666: p_quote_accpt_date => p_quote_accpt_date); -- rmunjulu EDAT
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4674: END LOOP;
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4674: END LOOP;
4675:
4672: END IF;
4673:
4674: END LOOP;
4675:
4676: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4677:
4678: EXCEPTION
4679: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4680: IF l_okcklines_csr%ISOPEN THEN
4675:
4676: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4677:
4678: EXCEPTION
4679: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4680: IF l_okcklines_csr%ISOPEN THEN
4681: CLOSE l_okcklines_csr;
4682: END IF;
4683: -- SECHAWLA 19-NOV-2004 4022466
4684: IF l_okckhdr_csr%ISOPEN THEN
4685: CLOSE l_okckhdr_csr;
4686: END IF;
4687:
4688: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4689: (
4690: l_api_name,
4691: G_PKG_NAME,
4692: 'OKL_API.G_RET_STS_ERROR',
4688: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4689: (
4690: l_api_name,
4691: G_PKG_NAME,
4692: 'OKL_API.G_RET_STS_ERROR',
4693: x_msg_count,
4694: x_msg_data,
4695: '_PVT'
4696: );
4693: x_msg_count,
4694: x_msg_data,
4695: '_PVT'
4696: );
4697: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4698: IF l_okcklines_csr%ISOPEN THEN
4699: CLOSE l_okcklines_csr;
4700: END IF;
4701: -- SECHAWLA 19-NOV-2004 4022466
4702: IF l_okckhdr_csr%ISOPEN THEN
4703: CLOSE l_okckhdr_csr;
4704: END IF;
4705:
4706: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4707: (
4708: l_api_name,
4709: G_PKG_NAME,
4710: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4706: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4707: (
4708: l_api_name,
4709: G_PKG_NAME,
4710: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4711: x_msg_count,
4712: x_msg_data,
4713: '_PVT'
4714: );
4720: -- SECHAWLA 19-NOV-2004 4022466
4721: IF l_okckhdr_csr%ISOPEN THEN
4722: CLOSE l_okckhdr_csr;
4723: END IF;
4724: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4725: (
4726: l_api_name,
4727: G_PKG_NAME,
4728: 'OTHERS',
4761: p_header_rec IN thpv_rec_type,
4762: p_lines_rec IN tlpv_rec_type
4763: ) IS
4764:
4765: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4766: l_api_name CONSTANT VARCHAR2(30) := 'update_offlease_asset_trx';
4767: lx_header_rec thpv_rec_type;
4768: lx_lines_rec tlpv_rec_type;
4769:
4849:
4850: BEGIN
4851:
4852:
4853: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4854: G_PKG_NAME,
4855: p_init_msg_list,
4856: l_api_version,
4857: p_api_version,
4856: l_api_version,
4857: p_api_version,
4858: '_PVT',
4859: x_return_status);
4860: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4862: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4863: RAISE OKL_API.G_EXCEPTION_ERROR;
4864: END IF;
4857: p_api_version,
4858: '_PVT',
4859: x_return_status);
4860: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4862: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4863: RAISE OKL_API.G_EXCEPTION_ERROR;
4864: END IF;
4865:
4858: '_PVT',
4859: x_return_status);
4860: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4862: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4863: RAISE OKL_API.G_EXCEPTION_ERROR;
4864: END IF;
4865:
4866: SELECT SYSDATE INTO l_sysdate FROM DUAL;
4859: x_return_status);
4860: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4862: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4863: RAISE OKL_API.G_EXCEPTION_ERROR;
4864: END IF;
4865:
4866: SELECT SYSDATE INTO l_sysdate FROM DUAL;
4867:
4866: SELECT SYSDATE INTO l_sysdate FROM DUAL;
4867:
4868: lp_lines_temp_rec := p_lines_rec;
4869:
4870: IF p_header_rec.id IS NULL OR p_header_rec.id = OKL_API.G_MISS_NUM OR
4871: p_lines_rec.id IS NULL OR p_lines_rec.id = OKL_API.G_MISS_NUM THEN
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: -- transaction id is requierd
4874: OKC_API.set_message( p_app_name => 'OKC',
4867:
4868: lp_lines_temp_rec := p_lines_rec;
4869:
4870: IF p_header_rec.id IS NULL OR p_header_rec.id = OKL_API.G_MISS_NUM OR
4871: p_lines_rec.id IS NULL OR p_lines_rec.id = OKL_API.G_MISS_NUM THEN
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: -- transaction id is requierd
4874: OKC_API.set_message( p_app_name => 'OKC',
4875: p_msg_name => G_REQUIRED_VALUE,
4868: lp_lines_temp_rec := p_lines_rec;
4869:
4870: IF p_header_rec.id IS NULL OR p_header_rec.id = OKL_API.G_MISS_NUM OR
4871: p_lines_rec.id IS NULL OR p_lines_rec.id = OKL_API.G_MISS_NUM THEN
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: -- transaction id is requierd
4874: OKC_API.set_message( p_app_name => 'OKC',
4875: p_msg_name => G_REQUIRED_VALUE,
4876: p_token1 => G_COL_NAME_TOKEN,
4874: OKC_API.set_message( p_app_name => 'OKC',
4875: p_msg_name => G_REQUIRED_VALUE,
4876: p_token1 => G_COL_NAME_TOKEN,
4877: p_token1_value => 'TRANSACTION_ID');
4878: RAISE OKL_API.G_EXCEPTION_ERROR;
4879: END IF;
4880:
4881:
4882:
4884: -- SECHAWLA 24-FEB-05 4147143 : added kle_id, tal_type
4885: -- SECHAWLA 27-FEB-05 4147143 : added booktype_code
4886: FETCH l_lines_csr INTO l_asset_number, l_old_hold_days, l_depreciate_yn, l_kle_id, l_tal_type, l_booktype_code ;
4887: IF l_lines_csr%NOTFOUND THEN
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4889: -- Line ID in the input line record is invalid
4890: OKC_API.set_message( p_app_name => 'OKC',
4891: p_msg_name => G_INVALID_VALUE,
4892: p_token1 => G_COL_NAME_TOKEN,
4890: OKC_API.set_message( p_app_name => 'OKC',
4891: p_msg_name => G_INVALID_VALUE,
4892: p_token1 => G_COL_NAME_TOKEN,
4893: p_token1_value => 'LINE_ID');
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: CLOSE l_lines_csr;
4897:
4898: -- SECHAWLA 28-MAY-04 3645574 : Depreciation method can not be null
4895: END IF;
4896: CLOSE l_lines_csr;
4897:
4898: -- SECHAWLA 28-MAY-04 3645574 : Depreciation method can not be null
4899: IF p_lines_rec.deprn_method IS NULL OR p_lines_rec.deprn_method = OKL_API.G_MISS_CHAR THEN
4900: x_return_status := OKL_API.G_RET_STS_ERROR;
4901: -- Depreciation method can not be null
4902: OKL_API.set_message( p_app_name => 'OKC',
4903: p_msg_name => G_REQUIRED_VALUE,
4896: CLOSE l_lines_csr;
4897:
4898: -- SECHAWLA 28-MAY-04 3645574 : Depreciation method can not be null
4899: IF p_lines_rec.deprn_method IS NULL OR p_lines_rec.deprn_method = OKL_API.G_MISS_CHAR THEN
4900: x_return_status := OKL_API.G_RET_STS_ERROR;
4901: -- Depreciation method can not be null
4902: OKL_API.set_message( p_app_name => 'OKC',
4903: p_msg_name => G_REQUIRED_VALUE,
4904: p_token1 => G_COL_NAME_TOKEN,
4898: -- SECHAWLA 28-MAY-04 3645574 : Depreciation method can not be null
4899: IF p_lines_rec.deprn_method IS NULL OR p_lines_rec.deprn_method = OKL_API.G_MISS_CHAR THEN
4900: x_return_status := OKL_API.G_RET_STS_ERROR;
4901: -- Depreciation method can not be null
4902: OKL_API.set_message( p_app_name => 'OKC',
4903: p_msg_name => G_REQUIRED_VALUE,
4904: p_token1 => G_COL_NAME_TOKEN,
4905: p_token1_value => 'Depreciation Method');
4906: RAISE OKL_API.G_EXCEPTION_ERROR;
4902: OKL_API.set_message( p_app_name => 'OKC',
4903: p_msg_name => G_REQUIRED_VALUE,
4904: p_token1 => G_COL_NAME_TOKEN,
4905: p_token1_value => 'Depreciation Method');
4906: RAISE OKL_API.G_EXCEPTION_ERROR;
4907:
4908: END IF;
4909:
4910: -- SECHAWLA 03-JUN-04 3657624 : depreciation rate needs to be divided by 100 before storing
4908: END IF;
4909:
4910: -- SECHAWLA 03-JUN-04 3657624 : depreciation rate needs to be divided by 100 before storing
4911: -- in okl_txl_assets_b
4912: IF lp_lines_temp_rec.deprn_rate IS NOT NULL AND lp_lines_temp_rec.deprn_rate <> OKL_API.G_MISS_NUM THEN
4913: lp_lines_temp_rec.deprn_rate := lp_lines_temp_rec.deprn_rate / 100;
4914: END IF;
4915:
4916:
4915:
4916:
4917: -- SECHAWLA 07-FEB-03 Bug # 2789656 : Added the following validation to prevent negative salvage value
4918: IF p_lines_rec.salvage_value < 0 THEN
4919: x_return_status := OKL_API.G_RET_STS_ERROR;
4920: -- Asset failed because the new Salvage Value is negative
4921: OKL_API.set_message( p_app_name => 'OKL',
4922: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
4923: p_token1 => 'ASSET_NUMBER',
4917: -- SECHAWLA 07-FEB-03 Bug # 2789656 : Added the following validation to prevent negative salvage value
4918: IF p_lines_rec.salvage_value < 0 THEN
4919: x_return_status := OKL_API.G_RET_STS_ERROR;
4920: -- Asset failed because the new Salvage Value is negative
4921: OKL_API.set_message( p_app_name => 'OKL',
4922: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
4923: p_token1 => 'ASSET_NUMBER',
4924: p_token1_value => l_asset_number);
4925: RAISE OKL_API.G_EXCEPTION_ERROR;
4921: OKL_API.set_message( p_app_name => 'OKL',
4922: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
4923: p_token1 => 'ASSET_NUMBER',
4924: p_token1_value => l_asset_number);
4925: RAISE OKL_API.G_EXCEPTION_ERROR;
4926: END IF;
4927:
4928: -- SECHAWLA 03-JUN-04 Added check for 0 hold period days
4929: IF l_old_hold_days IS NOT NULL
4931: AND l_depreciate_yn = 'Y' THEN
4932: -- Incase of following scenarios update the hold_period_days when there is a change in the transcation date
4933: -- scenario 1 - Operating lease with hold period, where depreciate_yn = 'Y'
4934: -- scenario 2 - Direct Finance Lease with hold period.
4935: IF p_header_rec.date_trans_occurred IS NOT NULL AND p_header_rec.date_trans_occurred <> OKL_API.G_MISS_DATE THEN
4936:
4937: OPEN l_hdrtransdate_csr(p_header_rec.id);
4938: FETCH l_hdrtransdate_csr INTO l_old_trans_date;
4939: IF l_hdrtransdate_csr%NOTFOUND THEN
4936:
4937: OPEN l_hdrtransdate_csr(p_header_rec.id);
4938: FETCH l_hdrtransdate_csr INTO l_old_trans_date;
4939: IF l_hdrtransdate_csr%NOTFOUND THEN
4940: x_return_status := OKL_API.G_RET_STS_ERROR;
4941: -- Header ID in the input header record is invalid
4942: OKC_API.set_message( p_app_name => 'OKC',
4943: p_msg_name => G_INVALID_VALUE,
4944: p_token1 => G_COL_NAME_TOKEN,
4942: OKC_API.set_message( p_app_name => 'OKC',
4943: p_msg_name => G_INVALID_VALUE,
4944: p_token1 => G_COL_NAME_TOKEN,
4945: p_token1_value => 'HEADER_ID');
4946: RAISE OKL_API.G_EXCEPTION_ERROR;
4947: END IF;
4948:
4949:
4950:
4961: FETCH l_amortline_csr INTO l_date_trans_occurred;
4962: CLOSE l_amortline_csr;
4963:
4964: IF l_new_trans_date < l_date_trans_occurred THEN
4965: x_return_status := OKL_API.G_RET_STS_ERROR;
4966: -- Asset failed because the new Transaction Date is invalid
4967: OKL_API.set_message( p_app_name => 'OKL',
4968: p_msg_name => 'OKL_AM_INVALID_DEP_DT');
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4963:
4964: IF l_new_trans_date < l_date_trans_occurred THEN
4965: x_return_status := OKL_API.G_RET_STS_ERROR;
4966: -- Asset failed because the new Transaction Date is invalid
4967: OKL_API.set_message( p_app_name => 'OKL',
4968: p_msg_name => 'OKL_AM_INVALID_DEP_DT');
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971: END IF;
4965: x_return_status := OKL_API.G_RET_STS_ERROR;
4966: -- Asset failed because the new Transaction Date is invalid
4967: OKL_API.set_message( p_app_name => 'OKL',
4968: p_msg_name => 'OKL_AM_INVALID_DEP_DT');
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971: END IF;
4972: -- SECHAWLA 24-FEB-05 4147143 : end
4973:
4977: l_hold_diff := trunc(l_old_trans_date) - trunc(l_new_trans_date);
4978: lp_lines_temp_rec.hold_period_days := l_old_hold_days - l_hold_diff;
4979:
4980: ELSE
4981: x_return_status := OKL_API.G_RET_STS_ERROR;
4982: -- Asset failed because the new Transaction Date is invalid
4983: OKL_API.set_message( p_app_name => 'OKL',
4984: p_msg_name => 'OKL_AM_INVALID_TRANS_DATE',
4985: p_token1 => 'ASSET_NUMBER',
4979:
4980: ELSE
4981: x_return_status := OKL_API.G_RET_STS_ERROR;
4982: -- Asset failed because the new Transaction Date is invalid
4983: OKL_API.set_message( p_app_name => 'OKL',
4984: p_msg_name => 'OKL_AM_INVALID_TRANS_DATE',
4985: p_token1 => 'ASSET_NUMBER',
4986: p_token1_value => l_asset_number);
4987: RAISE OKL_API.G_EXCEPTION_ERROR;
4983: OKL_API.set_message( p_app_name => 'OKL',
4984: p_msg_name => 'OKL_AM_INVALID_TRANS_DATE',
4985: p_token1 => 'ASSET_NUMBER',
4986: p_token1_value => l_asset_number);
4987: RAISE OKL_API.G_EXCEPTION_ERROR;
4988: END IF;
4989: ELSE
4990:
4991: l_hold_diff := trunc(l_new_trans_date) - trunc(l_old_trans_date) ;
5008: -- SECHAWLA 24-FEB-05 4147143 : end
5009:
5010: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
5011: p_api_version => p_api_version,
5012: p_init_msg_list => OKL_API.G_FALSE,
5013: x_return_status => x_return_status,
5014: x_msg_count => x_msg_count,
5015: x_msg_data => x_msg_data,
5016: p_thpv_rec => p_header_rec,
5015: x_msg_data => x_msg_data,
5016: p_thpv_rec => p_header_rec,
5017: x_thpv_rec => lx_header_rec);
5018:
5019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5022: RAISE OKL_API.G_EXCEPTION_ERROR;
5023: END IF;
5016: p_thpv_rec => p_header_rec,
5017: x_thpv_rec => lx_header_rec);
5018:
5019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5022: RAISE OKL_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5017: x_thpv_rec => lx_header_rec);
5018:
5019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5022: RAISE OKL_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5025:
5018:
5019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5022: RAISE OKL_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5025:
5026:
5025:
5026:
5027: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5028: p_api_version => p_api_version,
5029: p_init_msg_list => OKL_API.G_FALSE,
5030: x_return_status => x_return_status,
5031: x_msg_count => x_msg_count,
5032: x_msg_data => x_msg_data,
5033: p_tlpv_rec => lp_lines_temp_rec,
5032: x_msg_data => x_msg_data,
5033: p_tlpv_rec => lp_lines_temp_rec,
5034: x_tlpv_rec => lx_lines_rec);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5033: p_tlpv_rec => lp_lines_temp_rec,
5034: x_tlpv_rec => lx_lines_rec);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5034: x_tlpv_rec => lx_lines_rec);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5042:
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5042:
5043: -- SECHAWLA 24-FEB-05 4147143 :
5051: lp_header_rec.tsu_code := 'CANCELED';
5052:
5053: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
5054: p_api_version => p_api_version,
5055: p_init_msg_list => OKL_API.G_FALSE,
5056: x_return_status => x_return_status,
5057: x_msg_count => x_msg_count,
5058: x_msg_data => x_msg_data,
5059: p_thpv_rec => lp_header_rec,
5058: x_msg_data => x_msg_data,
5059: p_thpv_rec => lp_header_rec,
5060: x_thpv_rec => lx_header_rec);
5061:
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: RAISE OKL_API.G_EXCEPTION_ERROR;
5066: END IF;
5059: p_thpv_rec => lp_header_rec,
5060: x_thpv_rec => lx_header_rec);
5061:
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: RAISE OKL_API.G_EXCEPTION_ERROR;
5066: END IF;
5067:
5060: x_thpv_rec => lx_header_rec);
5061:
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: RAISE OKL_API.G_EXCEPTION_ERROR;
5066: END IF;
5067:
5068: END LOOP;
5061:
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: RAISE OKL_API.G_EXCEPTION_ERROR;
5066: END IF;
5067:
5068: END LOOP;
5069: ELSE
5073: lp_lines_rec.hold_period_days := lp_lines_temp_rec.hold_period_days;
5074:
5075: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5076: p_api_version => p_api_version,
5077: p_init_msg_list => OKL_API.G_FALSE,
5078: x_return_status => x_return_status,
5079: x_msg_count => x_msg_count,
5080: x_msg_data => x_msg_data,
5081: p_tlpv_rec => lp_lines_rec,
5080: x_msg_data => x_msg_data,
5081: p_tlpv_rec => lp_lines_rec,
5082: x_tlpv_rec => lx_lines_rec);
5083:
5084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_ERROR;
5088: END IF;
5081: p_tlpv_rec => lp_lines_rec,
5082: x_tlpv_rec => lx_lines_rec);
5083:
5084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_ERROR;
5088: END IF;
5089:
5082: x_tlpv_rec => lx_lines_rec);
5083:
5084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_ERROR;
5088: END IF;
5089:
5090: END LOOP;
5083:
5084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_ERROR;
5088: END IF;
5089:
5090: END LOOP;
5091: END IF;
5100: lp_header_rec.date_trans_occurred := trunc(p_header_rec.date_trans_occurred);
5101:
5102: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
5103: p_api_version => p_api_version,
5104: p_init_msg_list => OKL_API.G_FALSE,
5105: x_return_status => x_return_status,
5106: x_msg_count => x_msg_count,
5107: x_msg_data => x_msg_data,
5108: p_thpv_rec => lp_header_rec,
5107: x_msg_data => x_msg_data,
5108: p_thpv_rec => lp_header_rec,
5109: x_thpv_rec => lx_header_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5108: p_thpv_rec => lp_header_rec,
5109: x_thpv_rec => lx_header_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116: --END IF;
5109: x_thpv_rec => lx_header_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116: --END IF;
5117: -- Update line
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116: --END IF;
5117: -- Update line
5118: lp_lines_temp_rec.id := l_depstartline_rec.line_id;
5118: lp_lines_temp_rec.id := l_depstartline_rec.line_id;
5119: -- change id on the lines record with id of 4th trx and keep all other attributes same as that of 3rd trx
5120: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5121: p_api_version => p_api_version,
5122: p_init_msg_list => OKL_API.G_FALSE,
5123: x_return_status => x_return_status,
5124: x_msg_count => x_msg_count,
5125: x_msg_data => x_msg_data,
5126: p_tlpv_rec => lp_lines_temp_rec,
5125: x_msg_data => x_msg_data,
5126: p_tlpv_rec => lp_lines_temp_rec,
5127: x_tlpv_rec => lx_lines_rec);
5128:
5129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5126: p_tlpv_rec => lp_lines_temp_rec,
5127: x_tlpv_rec => lx_lines_rec);
5128:
5129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134: END LOOP;
5127: x_tlpv_rec => lx_lines_rec);
5128:
5129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134: END LOOP;
5135: END IF; -- IF l_tal_type = 'AML' THEN
5128:
5129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_ERROR;
5133: END IF;
5134: END LOOP;
5135: END IF; -- IF l_tal_type = 'AML' THEN
5136:
5134: END LOOP;
5135: END IF; -- IF l_tal_type = 'AML' THEN
5136:
5137:
5138: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5139: EXCEPTION
5140: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5141: IF l_lines_csr%ISOPEN THEN
5142: CLOSE l_lines_csr;
5136:
5137:
5138: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5139: EXCEPTION
5140: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5141: IF l_lines_csr%ISOPEN THEN
5142: CLOSE l_lines_csr;
5143: END IF;
5144: IF l_hdrtransdate_csr%ISOPEN THEN
5158: CLOSE l_amortline_csr;
5159: END IF;
5160:
5161:
5162: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5163: (
5164: l_api_name,
5165: G_PKG_NAME,
5166: 'OKL_API.G_RET_STS_ERROR',
5162: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5163: (
5164: l_api_name,
5165: G_PKG_NAME,
5166: 'OKL_API.G_RET_STS_ERROR',
5167: x_msg_count,
5168: x_msg_data,
5169: '_PVT'
5170: );
5167: x_msg_count,
5168: x_msg_data,
5169: '_PVT'
5170: );
5171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5172: IF l_lines_csr%ISOPEN THEN
5173: CLOSE l_lines_csr;
5174: END IF;
5175: IF l_hdrtransdate_csr%ISOPEN THEN
5188: IF l_amortline_csr%ISOPEN THEN
5189: CLOSE l_amortline_csr;
5190: END IF;
5191:
5192: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5193: (
5194: l_api_name,
5195: G_PKG_NAME,
5196: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5192: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5193: (
5194: l_api_name,
5195: G_PKG_NAME,
5196: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5197: x_msg_count,
5198: x_msg_data,
5199: '_PVT'
5200: );
5217:
5218: IF l_amortline_csr%ISOPEN THEN
5219: CLOSE l_amortline_csr;
5220: END IF;
5221: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5222: (
5223: l_api_name,
5224: G_PKG_NAME,
5225: 'OTHERS',
5254: p_header_tbl IN thpv_tbl_type,
5255: p_lines_tbl IN tlpv_tbl_type,
5256: x_record_status OUT NOCOPY VARCHAR2 ) IS
5257:
5258: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5259: l_api_name CONSTANT VARCHAR2(30) := 'update_offlease_asset_trx';
5260: lx_header_rec thpv_rec_type;
5261: lx_lines_rec tlpv_rec_type;
5262:
5286: l_date_valid_yn VARCHAR2(1);
5287:
5288: BEGIN
5289:
5290: x_record_status := OKL_API.G_RET_STS_SUCCESS;
5291:
5292: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5293: G_PKG_NAME,
5294: p_init_msg_list,
5288: BEGIN
5289:
5290: x_record_status := OKL_API.G_RET_STS_SUCCESS;
5291:
5292: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5293: G_PKG_NAME,
5294: p_init_msg_list,
5295: l_api_version,
5296: p_api_version,
5295: l_api_version,
5296: p_api_version,
5297: '_PVT',
5298: x_return_status);
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5296: p_api_version,
5297: '_PVT',
5298: x_return_status);
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5297: '_PVT',
5298: x_return_status);
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: /* -- SECHAWLA 24-FEB-05 4147143 : commented out as this procedure is not being used.
5298: x_return_status);
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: /* -- SECHAWLA 24-FEB-05 4147143 : commented out as this procedure is not being used.
5306: With new logic of updating off-lease transctions, update to one transaction results in updat to other
5305: /* -- SECHAWLA 24-FEB-05 4147143 : commented out as this procedure is not being used.
5306: With new logic of updating off-lease transctions, update to one transaction results in updat to other
5307: transactions for an asset. This procedure needs to be modified to uptake the new logic, if required
5308: IF p_header_tbl.count <> p_lines_tbl.count THEN
5309: x_return_status := OKL_API.G_RET_STS_ERROR;
5310: -- Number of records in the input header and lines table should be same.
5311: OKL_API.set_message( p_app_name => 'OKL',
5312: p_msg_name => 'OKL_AM_INVALID_RECORD_COUNT');
5313:
5307: transactions for an asset. This procedure needs to be modified to uptake the new logic, if required
5308: IF p_header_tbl.count <> p_lines_tbl.count THEN
5309: x_return_status := OKL_API.G_RET_STS_ERROR;
5310: -- Number of records in the input header and lines table should be same.
5311: OKL_API.set_message( p_app_name => 'OKL',
5312: p_msg_name => 'OKL_AM_INVALID_RECORD_COUNT');
5313:
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5310: -- Number of records in the input header and lines table should be same.
5311: OKL_API.set_message( p_app_name => 'OKL',
5312: p_msg_name => 'OKL_AM_INVALID_RECORD_COUNT');
5313:
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: SELECT SYSDATE INTO l_sysdate FROM DUAL;
5318:
5327:
5328: lp_lines_temp_rec := p_lines_tbl(i);
5329:
5330: -- << LABEL 1 >>
5331: IF p_header_tbl(i).id IS NULL OR p_header_tbl(i).id = OKL_API.G_MISS_NUM OR
5332: p_lines_tbl(i).id IS NULL OR p_lines_tbl(i).id = OKL_API.G_MISS_NUM THEN
5333: x_record_status := OKL_API.G_RET_STS_ERROR;
5334: -- transaction Id is required
5335: OKC_API.set_message( p_app_name => 'OKC',
5328: lp_lines_temp_rec := p_lines_tbl(i);
5329:
5330: -- << LABEL 1 >>
5331: IF p_header_tbl(i).id IS NULL OR p_header_tbl(i).id = OKL_API.G_MISS_NUM OR
5332: p_lines_tbl(i).id IS NULL OR p_lines_tbl(i).id = OKL_API.G_MISS_NUM THEN
5333: x_record_status := OKL_API.G_RET_STS_ERROR;
5334: -- transaction Id is required
5335: OKC_API.set_message( p_app_name => 'OKC',
5336: p_msg_name => G_REQUIRED_VALUE,
5329:
5330: -- << LABEL 1 >>
5331: IF p_header_tbl(i).id IS NULL OR p_header_tbl(i).id = OKL_API.G_MISS_NUM OR
5332: p_lines_tbl(i).id IS NULL OR p_lines_tbl(i).id = OKL_API.G_MISS_NUM THEN
5333: x_record_status := OKL_API.G_RET_STS_ERROR;
5334: -- transaction Id is required
5335: OKC_API.set_message( p_app_name => 'OKC',
5336: p_msg_name => G_REQUIRED_VALUE,
5337: p_token1 => G_COL_NAME_TOKEN,
5343: OPEN l_hdrtransdate_csr(p_header_tbl(i).id);
5344: FETCH l_hdrtransdate_csr INTO l_old_trans_date;
5345: -- << LABEL 4 >>
5346: IF l_hdrtransdate_csr%NOTFOUND THEN
5347: x_record_status := OKL_API.G_RET_STS_ERROR;
5348: -- Header Id for the current record in the input table is invalid
5349: OKC_API.set_message( p_app_name => 'OKC',
5350: p_msg_name => G_INVALID_VALUE,
5351: p_token1 => G_COL_NAME_TOKEN,
5358: OPEN l_lines_csr(p_lines_tbl(i).id);
5359: FETCH l_lines_csr INTO l_asset_number, l_old_hold_days, l_depreciate_yn ;
5360: -- << LABEL 2 >>
5361: IF l_lines_csr%NOTFOUND THEN
5362: x_record_status := OKL_API.G_RET_STS_ERROR;
5363: -- Line Id for the current record in the input table is invalid
5364: OKC_API.set_message( p_app_name => 'OKC',
5365: p_msg_name => G_INVALID_VALUE,
5366: p_token1 => G_COL_NAME_TOKEN,
5367: p_token1_value => 'LINE_ID');
5368:
5369: -- SECHAWLA 07-FEB-03 Bug # 2789656 : Added the following validation to prevent negative salvage value
5370: ELSIF p_lines_tbl(i).salvage_value < 0 THEN
5371: x_record_status := OKL_API.G_RET_STS_ERROR;
5372: -- Asset failed because the new Salvage Value is negative
5373: OKL_API.set_message( p_app_name => 'OKL',
5374: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
5375: p_token1 => 'ASSET_NUMBER',
5369: -- SECHAWLA 07-FEB-03 Bug # 2789656 : Added the following validation to prevent negative salvage value
5370: ELSIF p_lines_tbl(i).salvage_value < 0 THEN
5371: x_record_status := OKL_API.G_RET_STS_ERROR;
5372: -- Asset failed because the new Salvage Value is negative
5373: OKL_API.set_message( p_app_name => 'OKL',
5374: p_msg_name => 'OKL_AM_NEGATIVE_SALVAGE_VALUE',
5375: p_token1 => 'ASSET_NUMBER',
5376: p_token1_value => l_asset_number);
5377:
5383: -- scenario 1 - Operating lease with hold period, where depreciate_yn = 'Y'
5384: -- scenario 2 - Direct Finance Lease with hold period.
5385:
5386: IF p_header_tbl(i).date_trans_occurred IS NOT NULL AND
5387: p_header_tbl(i).date_trans_occurred <> OKL_API.G_MISS_DATE THEN
5388:
5389:
5390: l_new_trans_date := p_header_tbl(i).date_trans_occurred;
5391: -- hold period days is not updateable thru the screen
5396: IF trunc(l_new_trans_date) >= trunc(l_sysdate) THEN
5397: l_hold_diff := trunc(l_old_trans_date) - trunc(l_new_trans_date);
5398: lp_lines_temp_rec.hold_period_days := l_old_hold_days - l_hold_diff;
5399: ELSE
5400: x_record_status := OKL_API.G_RET_STS_ERROR;
5401: -- Asset failed because the new Transaction Date is invalid
5402: OKL_API.set_message( p_app_name => 'OKL',
5403: p_msg_name => 'OKL_AM_INVALID_TRANS_DATE',
5404: p_token1 => 'ASSET_NUMBER',
5398: lp_lines_temp_rec.hold_period_days := l_old_hold_days - l_hold_diff;
5399: ELSE
5400: x_record_status := OKL_API.G_RET_STS_ERROR;
5401: -- Asset failed because the new Transaction Date is invalid
5402: OKL_API.set_message( p_app_name => 'OKL',
5403: p_msg_name => 'OKL_AM_INVALID_TRANS_DATE',
5404: p_token1 => 'ASSET_NUMBER',
5405: p_token1_value => l_asset_number);
5406:
5419:
5420: IF l_date_valid_yn = 'Y' THEN
5421: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
5422: p_api_version => p_api_version,
5423: p_init_msg_list => OKL_API.G_FALSE,
5424: x_return_status => x_return_status,
5425: x_msg_count => x_msg_count,
5426: x_msg_data => x_msg_data,
5427: p_thpv_rec => p_header_tbl(i),
5426: x_msg_data => x_msg_data,
5427: p_thpv_rec => p_header_tbl(i),
5428: x_thpv_rec => lx_header_rec);
5429:
5430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5433: RAISE OKL_API.G_EXCEPTION_ERROR;
5434: END IF;
5427: p_thpv_rec => p_header_tbl(i),
5428: x_thpv_rec => lx_header_rec);
5429:
5430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5433: RAISE OKL_API.G_EXCEPTION_ERROR;
5434: END IF;
5435:
5428: x_thpv_rec => lx_header_rec);
5429:
5430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5433: RAISE OKL_API.G_EXCEPTION_ERROR;
5434: END IF;
5435:
5436: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5429:
5430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5433: RAISE OKL_API.G_EXCEPTION_ERROR;
5434: END IF;
5435:
5436: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5437: p_api_version => p_api_version,
5434: END IF;
5435:
5436: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
5437: p_api_version => p_api_version,
5438: p_init_msg_list => OKL_API.G_FALSE,
5439: x_return_status => x_return_status,
5440: x_msg_count => x_msg_count,
5441: x_msg_data => x_msg_data,
5442: p_tlpv_rec => lp_lines_temp_rec,
5441: x_msg_data => x_msg_data,
5442: p_tlpv_rec => lp_lines_temp_rec,
5443: x_tlpv_rec => lx_lines_rec);
5444:
5445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5448: RAISE OKL_API.G_EXCEPTION_ERROR;
5449: END IF;
5442: p_tlpv_rec => lp_lines_temp_rec,
5443: x_tlpv_rec => lx_lines_rec);
5444:
5445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5448: RAISE OKL_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: END IF;
5443: x_tlpv_rec => lx_lines_rec);
5444:
5445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5448: RAISE OKL_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: END IF;
5451:
5444:
5445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5448: RAISE OKL_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: END IF;
5451:
5452:
5463:
5464: END LOOP;
5465: END IF; -- p_header_tbl.count > 0
5466: */
5467: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5468: EXCEPTION
5469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5470: IF l_lines_csr%ISOPEN THEN
5471: CLOSE l_lines_csr;
5465: END IF; -- p_header_tbl.count > 0
5466: */
5467: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5468: EXCEPTION
5469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5470: IF l_lines_csr%ISOPEN THEN
5471: CLOSE l_lines_csr;
5472: END IF;
5473: IF l_hdrtransdate_csr%ISOPEN THEN
5472: END IF;
5473: IF l_hdrtransdate_csr%ISOPEN THEN
5474: CLOSE l_hdrtransdate_csr;
5475: END IF;
5476: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5477: (
5478: l_api_name,
5479: G_PKG_NAME,
5480: 'OKL_API.G_RET_STS_ERROR',
5476: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5477: (
5478: l_api_name,
5479: G_PKG_NAME,
5480: 'OKL_API.G_RET_STS_ERROR',
5481: x_msg_count,
5482: x_msg_data,
5483: '_PVT'
5484: );
5481: x_msg_count,
5482: x_msg_data,
5483: '_PVT'
5484: );
5485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5486: IF l_lines_csr%ISOPEN THEN
5487: CLOSE l_lines_csr;
5488: END IF;
5489: IF l_hdrtransdate_csr%ISOPEN THEN
5488: END IF;
5489: IF l_hdrtransdate_csr%ISOPEN THEN
5490: CLOSE l_hdrtransdate_csr;
5491: END IF;
5492: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5493: (
5494: l_api_name,
5495: G_PKG_NAME,
5496: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5492: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5493: (
5494: l_api_name,
5495: G_PKG_NAME,
5496: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5497: x_msg_count,
5498: x_msg_data,
5499: '_PVT'
5500: );
5504: END IF;
5505: IF l_hdrtransdate_csr%ISOPEN THEN
5506: CLOSE l_hdrtransdate_csr;
5507: END IF;
5508: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5509: (
5510: l_api_name,
5511: G_PKG_NAME,
5512: 'OTHERS',
5614: l_line_id := -999;
5615: l_val := NULL;
5616:
5617: -- Start activity
5618: l_return_status := OKL_API.START_ACTIVITY( l_api_name,
5619: G_PKG_NAME,
5620: p_init_msg_list,
5621: l_api_version,
5622: p_api_version,
5622: p_api_version,
5623: '_PVT',
5624: x_return_status);
5625:
5626: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5628: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5629: RAISE OKL_API.G_EXCEPTION_ERROR;
5630: END IF;
5623: '_PVT',
5624: x_return_status);
5625:
5626: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5628: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5629: RAISE OKL_API.G_EXCEPTION_ERROR;
5630: END IF;
5631:
5624: x_return_status);
5625:
5626: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5628: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5629: RAISE OKL_API.G_EXCEPTION_ERROR;
5630: END IF;
5631:
5632: -- Get trn details
5625:
5626: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5628: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5629: RAISE OKL_API.G_EXCEPTION_ERROR;
5630: END IF;
5631:
5632: -- Get trn details
5633: FOR trns_rec IN trns_csr(p_deprn_rec.p_tas_id) LOOP
5642: -- Check trx_id
5643: IF l_id IS NULL
5644: OR l_id = -999 THEN
5645:
5646: OKL_API.set_message(
5647: p_app_name => 'OKC',
5648: p_msg_name => G_INVALID_VALUE,
5649: p_token1 => G_COL_NAME_TOKEN,
5650: p_token1_value => 'p_tas_id');
5648: p_msg_name => G_INVALID_VALUE,
5649: p_token1 => G_COL_NAME_TOKEN,
5650: p_token1_value => 'p_tas_id');
5651:
5652: RAISE OKL_API.G_EXCEPTION_ERROR;
5653:
5654: END IF;
5655:
5656: -- Check trn type
5663:
5664: END LOOP;
5665:
5666: -- Transaction type TRANSACTION_TYPE is not updateable.
5667: OKL_API.set_message(
5668: p_app_name => 'OKL',
5669: p_msg_name => 'OKL_AM_DEPRN_TYPE_ERR',
5670: p_token1 => 'TRANSACTION_TYPE',
5671: p_token1_value => l_trns_type);
5669: p_msg_name => 'OKL_AM_DEPRN_TYPE_ERR',
5670: p_token1 => 'TRANSACTION_TYPE',
5671: p_token1_value => l_trns_type);
5672:
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674:
5675: END IF;
5676:
5677: -- Check trn status
5684:
5685: END LOOP;
5686:
5687: -- Transaction with status STATUS is not updateable.
5688: OKL_API.set_message(
5689: p_app_name => 'OKL',
5690: p_msg_name => 'OKL_AM_DEPRN_STATUS_ERR',
5691: p_token1 => 'STATUS',
5692: p_token1_value => l_status);
5690: p_msg_name => 'OKL_AM_DEPRN_STATUS_ERR',
5691: p_token1 => 'STATUS',
5692: p_token1_value => l_status);
5693:
5694: RAISE OKL_API.G_EXCEPTION_ERROR;
5695:
5696: END IF;
5697:
5698:
5698:
5699:
5700: -- RMUNJULU 06-May-2004
5701: -- Check if deprn_method passed but not life_in_months/rate
5702: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5703: AND (p_deprn_rec.p_life_in_months IS NULL OR p_deprn_rec.p_life_in_months = OKL_API.G_MISS_NUM)
5704: -- SECHAWLA 28-MAY-04 3645574 : Added check for deprn rate
5705: AND (p_deprn_rec.p_deprn_rate_percent IS NULL OR p_deprn_rec.p_deprn_rate_percent = OKL_API.G_MISS_NUM) THEN
5706:
5699:
5700: -- RMUNJULU 06-May-2004
5701: -- Check if deprn_method passed but not life_in_months/rate
5702: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5703: AND (p_deprn_rec.p_life_in_months IS NULL OR p_deprn_rec.p_life_in_months = OKL_API.G_MISS_NUM)
5704: -- SECHAWLA 28-MAY-04 3645574 : Added check for deprn rate
5705: AND (p_deprn_rec.p_deprn_rate_percent IS NULL OR p_deprn_rec.p_deprn_rate_percent = OKL_API.G_MISS_NUM) THEN
5706:
5707: -- SECHAWLA 28-MAY-04 3645574
5701: -- Check if deprn_method passed but not life_in_months/rate
5702: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5703: AND (p_deprn_rec.p_life_in_months IS NULL OR p_deprn_rec.p_life_in_months = OKL_API.G_MISS_NUM)
5704: -- SECHAWLA 28-MAY-04 3645574 : Added check for deprn rate
5705: AND (p_deprn_rec.p_deprn_rate_percent IS NULL OR p_deprn_rec.p_deprn_rate_percent = OKL_API.G_MISS_NUM) THEN
5706:
5707: -- SECHAWLA 28-MAY-04 3645574
5708: /*OKL_API.set_message(
5709: p_app_name => 'OKC',
5704: -- SECHAWLA 28-MAY-04 3645574 : Added check for deprn rate
5705: AND (p_deprn_rec.p_deprn_rate_percent IS NULL OR p_deprn_rec.p_deprn_rate_percent = OKL_API.G_MISS_NUM) THEN
5706:
5707: -- SECHAWLA 28-MAY-04 3645574
5708: /*OKL_API.set_message(
5709: p_app_name => 'OKC',
5710: p_msg_name => G_INVALID_VALUE,
5711: p_token1 => G_COL_NAME_TOKEN,
5712: p_token1_value => 'p_life_in_months');
5713: */
5714:
5715: -- SECHAWLA 28-MAY-04 3645574
5716: --Please provide Life In Months or Depreciation Rate.
5717: OKL_API.set_message( p_app_name => 'OKL',
5718: p_msg_name => 'OKL_AM_PROV_LIFE_OR_RATE');
5719:
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721:
5716: --Please provide Life In Months or Depreciation Rate.
5717: OKL_API.set_message( p_app_name => 'OKL',
5718: p_msg_name => 'OKL_AM_PROV_LIFE_OR_RATE');
5719:
5720: RAISE OKL_API.G_EXCEPTION_ERROR;
5721:
5722: END IF;
5723:
5724: -- RMUNJULU 06-May-2004
5722: END IF;
5723:
5724: -- RMUNJULU 06-May-2004
5725: -- Check if life_in_months/rate is passed but not deprn_method
5726: IF ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM )
5727: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5728: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5729: )
5730: AND (p_deprn_rec.p_dep_method IS NULL OR p_deprn_rec.p_dep_method = OKL_API.G_MISS_CHAR) THEN
5724: -- RMUNJULU 06-May-2004
5725: -- Check if life_in_months/rate is passed but not deprn_method
5726: IF ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM )
5727: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5728: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5729: )
5730: AND (p_deprn_rec.p_dep_method IS NULL OR p_deprn_rec.p_dep_method = OKL_API.G_MISS_CHAR) THEN
5731:
5732: OKL_API.set_message(
5726: IF ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM )
5727: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5728: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5729: )
5730: AND (p_deprn_rec.p_dep_method IS NULL OR p_deprn_rec.p_dep_method = OKL_API.G_MISS_CHAR) THEN
5731:
5732: OKL_API.set_message(
5733: p_app_name => 'OKC',
5734: --p_msg_name => G_INVALID_VALUE, -- SECHAWLA 28-MAY-04 3645574
5728: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5729: )
5730: AND (p_deprn_rec.p_dep_method IS NULL OR p_deprn_rec.p_dep_method = OKL_API.G_MISS_CHAR) THEN
5731:
5732: OKL_API.set_message(
5733: p_app_name => 'OKC',
5734: --p_msg_name => G_INVALID_VALUE, -- SECHAWLA 28-MAY-04 3645574
5735: p_msg_name => G_REQUIRED_VALUE, -- SECHAWLA 28-MAY-04 3645574
5736: p_token1 => G_COL_NAME_TOKEN,
5735: p_msg_name => G_REQUIRED_VALUE, -- SECHAWLA 28-MAY-04 3645574
5736: p_token1 => G_COL_NAME_TOKEN,
5737: p_token1_value => 'p_dep_method');
5738:
5739: RAISE OKL_API.G_EXCEPTION_ERROR;
5740:
5741: END IF;
5742:
5743: -- SECHAWLA 26-MAY-04 3645574 : all 3 should not be populated
5740:
5741: END IF;
5742:
5743: -- SECHAWLA 26-MAY-04 3645574 : all 3 should not be populated
5744: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR ) AND
5745: (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM ) AND
5746: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM ) THEN
5747: --A depreciation method can not have both Life In Months and Depreciation Rate. Please provide only one of these values.
5748: OKL_API.set_message(
5741: END IF;
5742:
5743: -- SECHAWLA 26-MAY-04 3645574 : all 3 should not be populated
5744: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR ) AND
5745: (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM ) AND
5746: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM ) THEN
5747: --A depreciation method can not have both Life In Months and Depreciation Rate. Please provide only one of these values.
5748: OKL_API.set_message(
5749: p_app_name => 'OKL',
5742:
5743: -- SECHAWLA 26-MAY-04 3645574 : all 3 should not be populated
5744: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR ) AND
5745: (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM ) AND
5746: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM ) THEN
5747: --A depreciation method can not have both Life In Months and Depreciation Rate. Please provide only one of these values.
5748: OKL_API.set_message(
5749: p_app_name => 'OKL',
5750: p_msg_name => 'OKL_AM_BOTH_LIFE_AND_RATE');
5744: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR ) AND
5745: (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM ) AND
5746: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM ) THEN
5747: --A depreciation method can not have both Life In Months and Depreciation Rate. Please provide only one of these values.
5748: OKL_API.set_message(
5749: p_app_name => 'OKL',
5750: p_msg_name => 'OKL_AM_BOTH_LIFE_AND_RATE');
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5747: --A depreciation method can not have both Life In Months and Depreciation Rate. Please provide only one of these values.
5748: OKL_API.set_message(
5749: p_app_name => 'OKL',
5750: p_msg_name => 'OKL_AM_BOTH_LIFE_AND_RATE');
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5753:
5754:
5755: -- RMUNJULU 06-May-2004
5753:
5754:
5755: -- RMUNJULU 06-May-2004
5756: -- when both deprn_method and life_in_months/rate passed
5757: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5758: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5759: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5760: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5761: ) THEN
5754:
5755: -- RMUNJULU 06-May-2004
5756: -- when both deprn_method and life_in_months/rate passed
5757: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5758: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5759: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5760: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5761: ) THEN
5762:
5756: -- when both deprn_method and life_in_months/rate passed
5757: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR )
5758: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5759: OR -- SECHAWLA 28-MAY-04 3645574 : added check for deprn rate
5760: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM )
5761: ) THEN
5762:
5763: IF p_deprn_rec.p_life_in_months IS NOT NULL THEN -- SECHAWLA 28-MAY-04 3645574 : added this IF condition
5764: -- Check dep method and life in months
5770:
5771: IF l_val IS NULL THEN
5772:
5773: -- Depreciation method DEPRECIATION_METHOD and life in months LIFE_IN_MONTHS is an invalid combination.
5774: OKL_API.set_message(
5775: p_app_name => 'OKL',
5776: p_msg_name => 'OKL_AM_DEPRN_INVALID_COMB',
5777: p_token1 => 'DEPRECIATION_METHOD',
5778: p_token1_value => p_deprn_rec.p_dep_method,
5778: p_token1_value => p_deprn_rec.p_dep_method,
5779: p_token2 => 'LIFE_IN_MONTHS',
5780: p_token2_value => p_deprn_rec.p_life_in_months);
5781:
5782: RAISE OKL_API.G_EXCEPTION_ERROR;
5783:
5784: END IF;
5785: ELSE -- SECHAWLA 28-MAY-04 3645574 : deprn rate is provided
5786:
5787: OPEN l_flatrates_csr(p_deprn_rec.p_dep_method, p_deprn_rec.p_deprn_rate_percent);
5788: FETCH l_flatrates_csr INTO l_dummy;
5789: IF l_flatrates_csr%NOTFOUND THEN
5790: -- This combination of Depreciation Method DEP_METHOD and Depreciation Rate DEP_RATE is invalid.
5791: OKL_API.set_message(
5792: p_app_name => 'OKL',
5793: p_msg_name => 'OKL_AM_INVALID_MTHD_RATE',
5794: p_token1 => 'DEP_METHOD',
5795: p_token1_value => p_deprn_rec.p_dep_method,
5795: p_token1_value => p_deprn_rec.p_dep_method,
5796: p_token2 => 'DEP_RATE',
5797: p_token2_value => p_deprn_rec.p_deprn_rate_percent);
5798:
5799: RAISE OKL_API.G_EXCEPTION_ERROR;
5800: END IF;
5801: CLOSE l_flatrates_csr;
5802:
5803: END IF;
5804: END IF;
5805:
5806: -- if line_id is supplied
5807: IF p_deprn_rec.p_tal_id IS NOT NULL
5808: AND p_deprn_rec.p_tal_id <> OKL_API.G_MISS_NUM THEN
5809:
5810: l_line_id := p_deprn_rec.p_tal_id;
5811:
5812: ELSE -- line id not supplied -- get from database
5822: lp_header_rec.id := p_deprn_rec.p_tas_id;
5823:
5824: -- if date trn occurred supplied
5825: IF p_deprn_rec.p_date_trns_occured IS NOT NULL
5826: AND p_deprn_rec.p_date_trns_occured <> OKL_API.G_MISS_DATE THEN
5827: lp_header_rec.date_trans_occurred := p_deprn_rec.p_date_trns_occured;
5828: ELSE -- date not supplied-- get from database
5829: lp_header_rec.date_trans_occurred := l_date_trn;
5830: END IF;
5833: lp_lines_rec.id := l_line_id;
5834:
5835: -- RMUNJULU 06-May-2004
5836: -- when both deprn_method and life_in_months/rate are supplied then set for update
5837: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR)
5838: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5839: OR -- SECHAWLA 28-MAY-04 3645574 : added deprn rate check
5840: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM)
5841: ) THEN
5834:
5835: -- RMUNJULU 06-May-2004
5836: -- when both deprn_method and life_in_months/rate are supplied then set for update
5837: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR)
5838: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5839: OR -- SECHAWLA 28-MAY-04 3645574 : added deprn rate check
5840: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM)
5841: ) THEN
5842:
5836: -- when both deprn_method and life_in_months/rate are supplied then set for update
5837: IF (p_deprn_rec.p_dep_method IS NOT NULL AND p_deprn_rec.p_dep_method <> OKL_API.G_MISS_CHAR)
5838: AND ( (p_deprn_rec.p_life_in_months IS NOT NULL AND p_deprn_rec.p_life_in_months <> OKL_API.G_MISS_NUM)
5839: OR -- SECHAWLA 28-MAY-04 3645574 : added deprn rate check
5840: (p_deprn_rec.p_deprn_rate_percent IS NOT NULL AND p_deprn_rec.p_deprn_rate_percent <> OKL_API.G_MISS_NUM)
5841: ) THEN
5842:
5843: lp_lines_rec.deprn_method := p_deprn_rec.p_dep_method;
5844:
5854: END IF;
5855:
5856: -- if salvage value supplied
5857: IF p_deprn_rec.p_salvage_value IS NOT NULL
5858: AND p_deprn_rec.p_salvage_value <> OKL_API.G_MISS_NUM THEN
5859: lp_lines_rec.salvage_value := p_deprn_rec.p_salvage_value;
5860: END IF;
5861:
5862: -- Update header and line trns
5861:
5862: -- Update header and line trns
5863: update_offlease_asset_trx(
5864: p_api_version => p_api_version,
5865: p_init_msg_list => OKL_API.G_FALSE,
5866: x_return_status => l_return_status,
5867: x_msg_count => x_msg_count,
5868: x_msg_data => x_msg_data,
5869: p_header_rec => lp_header_rec,
5868: x_msg_data => x_msg_data,
5869: p_header_rec => lp_header_rec,
5870: p_lines_rec => lp_lines_rec);
5871:
5872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5869: p_header_rec => lp_header_rec,
5870: p_lines_rec => lp_lines_rec);
5871:
5872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877:
5870: p_lines_rec => lp_lines_rec);
5871:
5872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877:
5878: x_return_status := l_return_status;
5871:
5872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877:
5878: x_return_status := l_return_status;
5879:
5876: END IF;
5877:
5878: x_return_status := l_return_status;
5879:
5880: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5881: EXCEPTION
5882: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5883: -- SECHAWLA 28-MAY-04 3645574 : close the new cursor
5884: IF l_flatrates_csr%ISOPEN THEN
5878: x_return_status := l_return_status;
5879:
5880: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5881: EXCEPTION
5882: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5883: -- SECHAWLA 28-MAY-04 3645574 : close the new cursor
5884: IF l_flatrates_csr%ISOPEN THEN
5885: CLOSE l_flatrates_csr;
5886: END IF;
5883: -- SECHAWLA 28-MAY-04 3645574 : close the new cursor
5884: IF l_flatrates_csr%ISOPEN THEN
5885: CLOSE l_flatrates_csr;
5886: END IF;
5887: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5888: (
5889: l_api_name,
5890: G_PKG_NAME,
5891: 'OKL_API.G_RET_STS_ERROR',
5887: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5888: (
5889: l_api_name,
5890: G_PKG_NAME,
5891: 'OKL_API.G_RET_STS_ERROR',
5892: x_msg_count,
5893: x_msg_data,
5894: '_PVT'
5895: );
5892: x_msg_count,
5893: x_msg_data,
5894: '_PVT'
5895: );
5896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5897:
5898: -- SECHAWLA 28-MAY-04 3645574 : close the new cursor
5899: IF l_flatrates_csr%ISOPEN THEN
5900: CLOSE l_flatrates_csr;
5899: IF l_flatrates_csr%ISOPEN THEN
5900: CLOSE l_flatrates_csr;
5901: END IF;
5902:
5903: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5904: (
5905: l_api_name,
5906: G_PKG_NAME,
5907: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5903: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5904: (
5905: l_api_name,
5906: G_PKG_NAME,
5907: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5908: x_msg_count,
5909: x_msg_data,
5910: '_PVT'
5911: );
5915: IF l_flatrates_csr%ISOPEN THEN
5916: CLOSE l_flatrates_csr;
5917: END IF;
5918:
5919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5920: (
5921: l_api_name,
5922: G_PKG_NAME,
5923: 'OTHERS',