112: ) then
113: return;
114: else
115: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
116: APP_EXCEPTION.RAISE_EXCEPTION;
117: end if;
118: END Lock_Row;
119:
120: PROCEDURE Update_Row(X_Rowid VARCHAR2,
233:
234: IF (DUPS1%FOUND) THEN
235: CLOSE DUPS1;
236: fnd_message.set_name('SQLGL','GL_ONE_RULE_FOR_PARENT_SEG');
237: app_exception.raise_exception;
238: END IF;
239:
240: CLOSE DUPS1;
241:
244: FETCH DUPS2 into ROWS2;
245: IF ( DUPS2%FOUND ) THEN
246: CLOSE DUPS2;
247: fnd_message.set_name('SQLGL','GL_ONE_RULE_FOR_PARENT_SEG');
248: app_exception.raise_exception;
249: END IF;
250: CLOSE DUPS2;
251: END IF;
252:
255: FETCH DUPS3 into ROWS3;
256: IF ( DUPS3%FOUND ) THEN
257: CLOSE DUPS3;
258: fnd_message.set_name('SQLGL','GL_NO_PARENT_ROLLUP_DUPLICATES');
259: app_exception.raise_exception;
260: END IF;
261: CLOSE DUPS3;
262: END IF;
263:
277: IF (V_TYPE%NOTFOUND) THEN
278: CLOSE V_TYPE;
279: fnd_message.set_name('SQLGL','GL_INVALID_VALUE_SET_ID');
280: fnd_message.set_token('VSID',to_char(X_To_Value_Set_Id));
281: app_exception.raise_exception;
282: END IF;
283: CLOSE V_TYPE;
284: END Get_Validation_Type;
285: