88: BEGIN
89: l_loan_id := p_loan_header_rec.loan_id;
90: l_loan_number := p_loan_header_rec.loan_number;
91:
92: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
93: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_create_loan procedure');
94: END IF;
95:
96: -- if primary key value is passed, check for uniqueness.
89: l_loan_id := p_loan_header_rec.loan_id;
90: l_loan_number := p_loan_header_rec.loan_number;
91:
92: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
93: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_create_loan procedure');
94: END IF;
95:
96: -- if primary key value is passed, check for uniqueness.
97: IF l_loan_id IS NOT NULL AND
226: open c_subsidy_rate(p_loan_header_rec.loan_id);
227: fetch c_subsidy_rate into l_subsidy_rate;
228: close c_subsidy_rate;
229:
230: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: l_subsidy_rate ' || l_subsidy_rate);
232: END IF;
233:
234: IF (l_subsidy_rate IS NOT NULL) THEN
227: fetch c_subsidy_rate into l_subsidy_rate;
228: close c_subsidy_rate;
229:
230: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: l_subsidy_rate ' || l_subsidy_rate);
232: END IF;
233:
234: IF (l_subsidy_rate IS NOT NULL) THEN
235: p_loan_header_rec.SUBSIDY_RATE := l_subsidy_rate;
235: p_loan_header_rec.SUBSIDY_RATE := l_subsidy_rate;
236: END IF;
237: END IF;
238:
239: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: Before call to LNS_LOAN_HEADER_ALL_PKG.Insert_Row');
241: END IF;
242:
243: -- call table-handler.
236: END IF;
237: END IF;
238:
239: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: Before call to LNS_LOAN_HEADER_ALL_PKG.Insert_Row');
241: END IF;
242:
243: -- call table-handler.
244: LNS_LOAN_HEADER_ALL_PKG.Insert_Row (
348:
349: x_loan_id := p_loan_header_rec.loan_id;
350: x_loan_number := p_loan_header_rec.loan_number;
351:
352: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: After call to LNS_LOAN_HEADER_ALL_PKG.Insert_Row');
354: END IF;
355:
356: END do_create_loan;
349: x_loan_id := p_loan_header_rec.loan_id;
350: x_loan_number := p_loan_header_rec.loan_number;
351:
352: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_loan procedure: After call to LNS_LOAN_HEADER_ALL_PKG.Insert_Row');
354: END IF;
355:
356: END do_create_loan;
357:
394: ldup_rowid ROWID;
395:
396: BEGIN
397:
398: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_update_loan procedure');
400: END IF;
401:
402: -- check whether record has been updated by another user. If not, lock it.
395:
396: BEGIN
397:
398: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_update_loan procedure');
400: END IF;
401:
402: -- check whether record has been updated by another user. If not, lock it.
403: BEGIN
449: IF (p_loan_header_rec.loan_status='DELETED' OR p_loan_header_rec.loan_status='REJECTED') THEN
450: p_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
451: END IF;
452:
453: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
454: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Before call to LNS_LOAN_HEADER_ALL_PKG.Update_Row');
455: END IF;
456:
457: --Call to table-handler
450: p_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
451: END IF;
452:
453: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
454: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Before call to LNS_LOAN_HEADER_ALL_PKG.Update_Row');
455: END IF;
456:
457: --Call to table-handler
458: LNS_LOAN_HEADER_ALL_PKG.Update_Row (
559: X_DISABLE_INT_ACCRUAL_FLAG => p_loan_header_rec.DISABLE_INT_ACCRUAL_FLAG,
560: X_BILL_ON_APPR_AMOUNT_FLAG => p_loan_header_rec.BILL_ON_APPR_AMOUNT_FLAG
561: );
562:
563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: After call to LNS_LOAN_HEADER_ALL_PKG.Update_Row for loan_id: '|| p_loan_header_rec.loan_id);
565: END IF;
566:
567: IF (p_loan_header_rec.loan_status in ('DELETED','REJECTED','PAIDOFF')) THEN
560: X_BILL_ON_APPR_AMOUNT_FLAG => p_loan_header_rec.BILL_ON_APPR_AMOUNT_FLAG
561: );
562:
563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: After call to LNS_LOAN_HEADER_ALL_PKG.Update_Row for loan_id: '|| p_loan_header_rec.loan_id);
565: END IF;
566:
567: IF (p_loan_header_rec.loan_status in ('DELETED','REJECTED','PAIDOFF')) THEN
568:
565: END IF;
566:
567: IF (p_loan_header_rec.loan_status in ('DELETED','REJECTED','PAIDOFF')) THEN
568:
569: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
570: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
572: END IF;
573:
566:
567: IF (p_loan_header_rec.loan_status in ('DELETED','REJECTED','PAIDOFF')) THEN
568:
569: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
570: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
572: END IF;
573:
574: --Release all the collateral held against this loan
567: IF (p_loan_header_rec.loan_status in ('DELETED','REJECTED','PAIDOFF')) THEN
568:
569: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
570: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
572: END IF;
573:
574: --Release all the collateral held against this loan
575: LNS_LOAN_COLLATERAL_PUB.Release_Collaterals(p_loan_header_rec.loan_id);
573:
574: --Release all the collateral held against this loan
575: LNS_LOAN_COLLATERAL_PUB.Release_Collaterals(p_loan_header_rec.loan_id);
576:
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
580: END IF;
581:
574: --Release all the collateral held against this loan
575: LNS_LOAN_COLLATERAL_PUB.Release_Collaterals(p_loan_header_rec.loan_id);
576:
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
580: END IF;
581:
582: END IF;
575: LNS_LOAN_COLLATERAL_PUB.Release_Collaterals(p_loan_header_rec.loan_id);
576:
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_loan procedure: Loan Status code is '|| p_loan_header_rec.loan_status);
579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_LOAN_COLLATERAL_PUB.Release_Collaterals for loan_id: '||p_loan_header_rec.loan_id);
580: END IF;
581:
582: END IF;
583:
640: if (l_init_msg_list is null) then
641: l_init_msg_list := FND_API.G_FALSE;
642: end if;
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
645: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Create_Loan procedure');
646: END IF;
647:
648: -- standard start of API savepoint
641: l_init_msg_list := FND_API.G_FALSE;
642: end if;
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
645: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Create_Loan procedure');
646: END IF;
647:
648: -- standard start of API savepoint
649: SAVEPOINT create_loan;
655:
656: -- initialize API return status to success.
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658:
659: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_Loan procedure: Before call to do_create_loan proc');
661: END IF;
662:
663: -- call to business logic.
656: -- initialize API return status to success.
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658:
659: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_Loan procedure: Before call to do_create_loan proc');
661: END IF;
662:
663: -- call to business logic.
664: do_create_loan(
689:
690: end if;
691: */
692:
693: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
694: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_Loan procedure: After call to do_create_loan proc');
695: END IF;
696:
697: EXCEPTION
690: end if;
691: */
692:
693: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
694: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_Loan procedure: After call to do_create_loan proc');
695: END IF;
696:
697: EXCEPTION
698: WHEN FND_API.G_EXC_ERROR THEN
721: p_encoded => FND_API.G_FALSE,
722: p_count => x_msg_count,
723: p_data => x_msg_data);
724:
725: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
726: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Create_Loan procedure');
727: END IF;
728:
729: END create_loan;
722: p_count => x_msg_count,
723: p_data => x_msg_data);
724:
725: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
726: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Create_Loan procedure');
727: END IF;
728:
729: END create_loan;
730:
777: if (l_init_msg_list is null) then
778: l_init_msg_list := FND_API.G_FALSE;
779: end if;
780:
781: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_Loan procedure');
783: END IF;
784:
785: -- standard start of API savepoint
778: l_init_msg_list := FND_API.G_FALSE;
779: end if;
780:
781: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_Loan procedure');
783: END IF;
784:
785: -- standard start of API savepoint
786: SAVEPOINT update_loan;
809: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
814: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_Loan procedure: Before call to do_update_loan proc');
815: END IF;
816:
817: -- call to business logic.
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: END IF;
812:
813: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
814: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_Loan procedure: Before call to do_update_loan proc');
815: END IF;
816:
817: -- call to business logic.
818: do_update_loan(
820: p_object_version_number,
821: x_return_status
822: );
823:
824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
825: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_Loan procedure: After call to do_update_loan proc');
826: END IF;
827:
828: --if the loan description has changed and credit request created
821: x_return_status
822: );
823:
824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
825: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_Loan procedure: After call to do_update_loan proc');
826: END IF;
827:
828: --if the loan description has changed and credit request created
829: --for this loan participants, update the credit request with the
863: p_encoded => FND_API.G_FALSE,
864: p_count => x_msg_count,
865: p_data => x_msg_data);
866:
867: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
868: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_Loan procedure');
869: END IF;
870:
871: END update_loan;
864: p_count => x_msg_count,
865: p_data => x_msg_data);
866:
867: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
868: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_Loan procedure');
869: END IF;
870:
871: END update_loan;
872:
917: if (l_init_msg_list is null) then
918: l_init_msg_list := FND_API.G_FALSE;
919: end if;
920:
921: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
922: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Validate_Loan procedure');
923: END IF;
924:
925: -- initialize message list if l_init_msg_list is set to TRUE.
918: l_init_msg_list := FND_API.G_FALSE;
919: end if;
920:
921: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
922: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Validate_Loan procedure');
923: END IF;
924:
925: -- initialize message list if l_init_msg_list is set to TRUE.
926: IF FND_API.to_Boolean(l_init_msg_list) THEN
940: x_msg_count => x_msg_count,
941: x_msg_data => x_msg_data );
942: */
943:
944: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
945: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Validate_Loan procedure');
946: END IF;
947:
948: END validate_loan;
941: x_msg_data => x_msg_data );
942: */
943:
944: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
945: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Validate_Loan procedure');
946: END IF;
947:
948: END validate_loan;
949: