308: FETCH C INTO Recinfo;
309: if (C%NOTFOUND) then
310: CLOSE C;
311: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
312: APP_EXCEPTION.Raise_Exception;
313: end if;
314: CLOSE C;
315: if (
316:
403: ) then
404: return;
405: else
406: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
407: APP_EXCEPTION.Raise_Exception;
408: end if;
409: END Lock_Row;
410:
411:
574: FETCH C INTO Recinfo;
575: if (C%NOTFOUND) then
576: CLOSE C;
577: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
578: APP_EXCEPTION.Raise_Exception;
579: end if;
580: CLOSE C;
581: if (
582: (Recinfo.agreement_id = X_Agreement_Id)
682: ) then
683: return;
684: else
685: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
686: APP_EXCEPTION.Raise_Exception;
687: end if;
688: END Lock_Row_SPF;
689:
690: PROCEDURE Update_Row_SPF(