696: END IF;
697:
698: ELSIF (l_approval_action_rec.action_type = 'SUBMIT_FOR_CNCL') THEN
699: IF (l_loan_class_code = 'DIRECT') THEN
700: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
701:
702: LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE(P_API_VERSION => 1.0
703: ,P_INIT_MSG_LIST => FND_API.G_TRUE
704: ,P_COMMIT => FND_API.G_FALSE
698: ELSIF (l_approval_action_rec.action_type = 'SUBMIT_FOR_CNCL') THEN
699: IF (l_loan_class_code = 'DIRECT') THEN
700: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
701:
702: LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE(P_API_VERSION => 1.0
703: ,P_INIT_MSG_LIST => FND_API.G_TRUE
704: ,P_COMMIT => FND_API.G_FALSE
705: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
706: ,P_LOAN_ID => l_loan_header_rec.loan_id
707: ,X_RETURN_STATUS => x_return_status
708: ,X_MSG_COUNT => x_msg_count
709: ,X_MSG_DATA => x_msg_data);
710:
711: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
715: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
710:
711: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
715: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718: ELSE
711: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE');
712:
713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
714: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE failed with status ' || x_return_status);
715: l_last_api_called := 'LNS_FUNDING_PUB.CANCEL_DISB_SCHEDULE';
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718: ELSE
719: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_INVALID_STATUS');
757:
758: -- approval action type = 'APPROVE'
759: ELSIF l_status = 'PENDING_CANCELLATION' THEN
760:
761: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
762:
763: LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB(P_API_VERSION => 1.0
764: ,P_INIT_MSG_LIST => FND_API.G_TRUE
765: ,P_COMMIT => FND_API.G_FALSE
759: ELSIF l_status = 'PENDING_CANCELLATION' THEN
760:
761: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
762:
763: LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB(P_API_VERSION => 1.0
764: ,P_INIT_MSG_LIST => FND_API.G_TRUE
765: ,P_COMMIT => FND_API.G_FALSE
766: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
767: ,P_LOAN_ID => l_loan_header_rec.loan_id
768: ,X_RETURN_STATUS => x_return_status
769: ,X_MSG_COUNT => x_msg_count
770: ,X_MSG_DATA => x_msg_data);
771:
772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
773:
774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
775: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
776: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
771:
772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
773:
774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
775: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
776: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779:
772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB');
773:
774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
775: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB failed with status ' || x_return_status);
776: l_last_api_called := 'LNS_FUNDING_PUB.APPROVE_CANCEL_REM_DISB';
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779:
780: -- approval action type = 'APPROVE'
892: IF ( l_status = 'PENDING' OR (l_status = 'INCOMPLETE' AND l_loan_needs_approval = 'N') ) THEN
893: l_loan_header_rec.loan_status := 'REJECTED';
894: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
895: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
896: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
897:
898: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
899: ,P_INIT_MSG_LIST => FND_API.G_TRUE
900: ,P_COMMIT => FND_API.G_FALSE
894: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
895: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
896: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
897:
898: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
899: ,P_INIT_MSG_LIST => FND_API.G_TRUE
900: ,P_COMMIT => FND_API.G_FALSE
901: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
902: ,P_LOAN_ID => l_loan_header_rec.loan_id
903: ,X_RETURN_STATUS => x_return_status
904: ,X_MSG_COUNT => x_msg_count
905: ,X_MSG_DATA => x_msg_data);
906:
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
908:
909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
911: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
906:
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
908:
909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
911: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914: ELSIF (l_status = 'ACTIVE' and l_secondary_status = 'PENDING_CONVERSION') THEN
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
908:
909: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
911: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914: ELSIF (l_status = 'ACTIVE' and l_secondary_status = 'PENDING_CONVERSION') THEN
915: -- getting loan previous status
992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
993:
994:
995: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
996: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
997:
998: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
999: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1000: ,P_COMMIT => FND_API.G_FALSE
994:
995: ELSIF (l_status = 'PENDING_CANCELLATION') THEN
996: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
997:
998: LNS_FUNDING_PUB.REJECT_CANCEL_DISB(P_API_VERSION => 1.0
999: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1000: ,P_COMMIT => FND_API.G_FALSE
1001: ,P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL
1002: ,P_LOAN_ID => l_loan_header_rec.loan_id
1003: ,X_RETURN_STATUS => x_return_status
1004: ,X_MSG_COUNT => x_msg_count
1005: ,X_MSG_DATA => x_msg_data);
1006:
1007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
1008:
1009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
1011: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
1006:
1007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
1008:
1009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
1011: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AFTER call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB');
1008:
1009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Call to LNS_FUNDING_PUB.REJECT_CANCEL_DISB failed with status ' || x_return_status);
1011: l_last_api_called := 'LNS_FUNDING_PUB.REJECT_CANCEL_DISB';
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1015: --Loan Status change is already handled in the above procedure call. no need to update loan header again