612: END IF;
613:
614: ELSIF (l_approval_action_rec.action_type = 'SUBMIT_FOR_CNCL') THEN
615: IF (l_loan_class_code = 'DIRECT') THEN
616: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
617:
618: LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE(P_API_VERSION => 1.0
619: ,P_INIT_MSG_LIST => FND_API.G_TRUE
620: ,P_COMMIT => FND_API.G_FALSE
614: ELSIF (l_approval_action_rec.action_type = 'SUBMIT_FOR_CNCL') THEN
615: IF (l_loan_class_code = 'DIRECT') THEN
616: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
617:
618: LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE(P_API_VERSION => 1.0
619: ,P_INIT_MSG_LIST => FND_API.G_TRUE
620: ,P_COMMIT => FND_API.G_FALSE
621: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
622: ,P_LOAN_ID => l_loan_header_rec.loan_id
623: ,X_RETURN_STATUS => x_return_status
624: ,X_MSG_COUNT => x_msg_count
625: ,X_MSG_DATA => x_msg_data);
626:
627: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
631: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
626:
627: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
631: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
632: RAISE FND_API.G_EXC_ERROR;
633: END IF;
634: ELSE
627: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
631: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
632: RAISE FND_API.G_EXC_ERROR;
633: END IF;
634: ELSE
635: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_INVALID_STATUS');
669: end if;
670:
671: -- approval action type = 'APPROVE'
672: ELSIF l_status = 'PENDING_CANCELLATION' THEN
673: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
674:
675: LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB(P_API_VERSION => 1.0
676: ,P_INIT_MSG_LIST => FND_API.G_TRUE
677: ,P_COMMIT => FND_API.G_FALSE
671: -- approval action type = 'APPROVE'
672: ELSIF l_status = 'PENDING_CANCELLATION' THEN
673: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
674:
675: LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB(P_API_VERSION => 1.0
676: ,P_INIT_MSG_LIST => FND_API.G_TRUE
677: ,P_COMMIT => FND_API.G_FALSE
678: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
679: ,P_LOAN_ID => l_loan_header_rec.loan_id
680: ,X_RETURN_STATUS => x_return_status
681: ,X_MSG_COUNT => x_msg_count
682: ,X_MSG_DATA => x_msg_data);
683:
684: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
685:
686: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
687: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
688: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
683:
684: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
685:
686: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
687: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
688: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
689: RAISE FND_API.G_EXC_ERROR;
690: END IF;
691:
684: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
685:
686: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
687: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
688: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
689: RAISE FND_API.G_EXC_ERROR;
690: END IF;
691:
692: -- approval action type = 'APPROVE'
800: IF ( l_status = 'PENDING' OR (l_status = 'INCOMPLETE' AND l_loan_needs_approval = 'N') ) THEN
801: l_loan_header_rec.loan_status := 'REJECTED';
802: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
803: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
804: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
805:
806: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
807: ,P_INIT_MSG_LIST => FND_API.G_TRUE
808: ,P_COMMIT => FND_API.G_FALSE
802: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
803: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
804: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
805:
806: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
807: ,P_INIT_MSG_LIST => FND_API.G_TRUE
808: ,P_COMMIT => FND_API.G_FALSE
809: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
810: ,P_LOAN_ID => l_loan_header_rec.loan_id
811: ,X_RETURN_STATUS => x_return_status
812: ,X_MSG_COUNT => x_msg_count
813: ,X_MSG_DATA => x_msg_data);
814:
815: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
816:
817: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
819: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
814:
815: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
816:
817: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
819: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
820: RAISE FND_API.G_EXC_ERROR;
821: END IF;
822: ELSIF (l_status = 'ACTIVE' and l_secondary_status = 'PENDING_CONVERSION') THEN
815: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
816:
817: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
818: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
819: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
820: RAISE FND_API.G_EXC_ERROR;
821: END IF;
822: ELSIF (l_status = 'ACTIVE' and l_secondary_status = 'PENDING_CONVERSION') THEN
823: -- getting loan previous status
838: null;
839: ELSIF l_status = 'PENDING' THEN
840: l_loan_header_rec.loan_status := 'INCOMPLETE';
841: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
842: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
843:
844: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
845: ,P_INIT_MSG_LIST => FND_API.G_TRUE
846: ,P_COMMIT => FND_API.G_FALSE
840: l_loan_header_rec.loan_status := 'INCOMPLETE';
841: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
842: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
843:
844: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
845: ,P_INIT_MSG_LIST => FND_API.G_TRUE
846: ,P_COMMIT => FND_API.G_FALSE
847: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
848: ,P_LOAN_ID => l_loan_header_rec.loan_id
849: ,X_RETURN_STATUS => x_return_status
850: ,X_MSG_COUNT => x_msg_count
851: ,X_MSG_DATA => x_msg_data);
852:
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
854:
855: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
857: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
852:
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
854:
855: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
857: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
858: RAISE FND_API.G_EXC_ERROR;
859: END IF;
860:
853: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
854:
855: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
856: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
857: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
858: RAISE FND_API.G_EXC_ERROR;
859: END IF;
860:
861: --Loan Status change is already handled in the above procedure call. no need to update loan header again