73: FETCH C INTO Recinfo;
74: if (C%NOTFOUND) then
75: CLOSE C;
76: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
77: APP_EXCEPTION.Raise_Exception;
78: end if;
79: CLOSE C;
80: if (
81: (Recinfo.control_rule_id = X_Control_Rule_id)
91: ) then
92: return;
93: else
94: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
95: APP_EXCEPTION.Raise_Exception;
96: end if;
97: END Lock_Row;
98:
99: PROCEDURE Update_Row(X_Rowid IN VARCHAR2,