17: AND variable_id = X_Variable_Id
18: AND ((X_Rowid IS NULL) OR (rowid <> X_Rowid));
19:
20: -- name already exists for a different system: ERROR
21: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
22: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_VARIABLE', TRUE);
23: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_SYSTEM', TRUE);
24: APP_EXCEPTION.raise_exception;
25:
18: AND ((X_Rowid IS NULL) OR (rowid <> X_Rowid));
19:
20: -- name already exists for a different system: ERROR
21: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
22: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_VARIABLE', TRUE);
23: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_SYSTEM', TRUE);
24: APP_EXCEPTION.raise_exception;
25:
26: EXCEPTION
19:
20: -- name already exists for a different system: ERROR
21: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
22: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_VARIABLE', TRUE);
23: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_SYSTEM', TRUE);
24: APP_EXCEPTION.raise_exception;
25:
26: EXCEPTION
27: WHEN NO_DATA_FOUND THEN
171: OPEN C;
172: FETCH C INTO Recinfo;
173: IF (C%NOTFOUND) THEN
174: CLOSE C;
175: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
176: APP_EXCEPTION.RAISE_EXCEPTION;
177: END IF;
178: CLOSE C;
179:
237: AND (X_Attribute15 IS NULL)))
238: ) THEN
239: RETURN;
240: ELSE
241: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
242: APP_EXCEPTION.RAISE_EXCEPTION;
243: END IF;
244: END lock_row;
245: