73: OPEN C;
74: FETCH C INTO Recinfo;
75: if (C%NOTFOUND) then
76: CLOSE C;
77: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
78: APP_EXCEPTION.Raise_Exception;
79: end if;
80: CLOSE C;
81: if (
85: AND (Recinfo.transaction_type = X_Transaction_Type)
86: AND (Recinfo.date_effective = X_Date_Effective)) then
87: return;
88: else
89: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
90: APP_EXCEPTION.Raise_Exception;
91: end if;
92: END Lock_Row;
93: