[Home] [Help]
133: OPEN C;
134: FETCH C INTO Recinfo;
135: IF (C%NOTFOUND) THEN
136: CLOSE C;
137: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
138: APP_EXCEPTION.Raise_Exception;
139: END IF;
140: CLOSE C;
141:
146: )
147: THEN
148: RETURN;
149: ELSE
150: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
151: APP_EXCEPTION.Raise_Exception;
152: END IF;
153:
154: END Lock_Row;