427: OPEN C;
428: FETCH C INTO Recinfo;
429: IF (C%NOTFOUND) THEN
430: CLOSE C;
431: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
432: APP_EXCEPTION.Raise_Exception;
433: END IF;
434: CLOSE C;
435:
440: AND (X_OBJECT_VERSION_NUMBER IS NULL)))
441: ) THEN
442: return;
443: ELSE
444: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
445: APP_EXCEPTION.Raise_Exception;
446: END IF;
447: END Lock_Row;
448:
632: WHERE TERM_ID = X_TERM_ID;
633:
634: EXCEPTION
635: WHEN NO_DATA_FOUND THEN
636: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_NO_RECORD' );
637: FND_MESSAGE.SET_TOKEN( 'RECORD', 'loan_terms_rec');
638: FND_MESSAGE.SET_TOKEN( 'VALUE', TO_CHAR( X_TERM_ID ) );
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
633:
634: EXCEPTION
635: WHEN NO_DATA_FOUND THEN
636: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_NO_RECORD' );
637: FND_MESSAGE.SET_TOKEN( 'RECORD', 'loan_terms_rec');
638: FND_MESSAGE.SET_TOKEN( 'VALUE', TO_CHAR( X_TERM_ID ) );
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
641:
634: EXCEPTION
635: WHEN NO_DATA_FOUND THEN
636: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_NO_RECORD' );
637: FND_MESSAGE.SET_TOKEN( 'RECORD', 'loan_terms_rec');
638: FND_MESSAGE.SET_TOKEN( 'VALUE', TO_CHAR( X_TERM_ID ) );
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
641:
642: END Select_Row;