203: FETCH c INTO Recinfo;
204: If (c%NOTFOUND) then
205: CLOSE c;
206: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
207: APP_EXCEPTION.RAISE_EXCEPTION;
208: END IF;
209: CLOSE C;
210: IF (
211: ( Recinfo.program_partner_types_id = px_program_partner_types_id)
236: ) THEN
237: RETURN;
238: ELSE
239: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
240: APP_EXCEPTION.RAISE_EXCEPTION;
241: END IF;
242:
243: END Lock_Row;
244: