38: );
39:
40: EXCEPTION
41: WHEN NO_DATA_FOUND THEN
42: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
43: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEQUENCE', TRUE);
44: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
45: APP_EXCEPTION.raise_exception;
46: END check_unique_sequence;
39:
40: EXCEPTION
41: WHEN NO_DATA_FOUND THEN
42: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
43: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEQUENCE', TRUE);
44: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
45: APP_EXCEPTION.raise_exception;
46: END check_unique_sequence;
47:
40: EXCEPTION
41: WHEN NO_DATA_FOUND THEN
42: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
43: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEQUENCE', TRUE);
44: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
45: APP_EXCEPTION.raise_exception;
46: END check_unique_sequence;
47:
48:
63: );
64:
65: EXCEPTION
66: WHEN NO_DATA_FOUND THEN
67: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
68: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEGMENT', TRUE);
69: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
70: APP_EXCEPTION.raise_exception;
71: END check_unique_segment;
64:
65: EXCEPTION
66: WHEN NO_DATA_FOUND THEN
67: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
68: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEGMENT', TRUE);
69: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
70: APP_EXCEPTION.raise_exception;
71: END check_unique_segment;
72:
65: EXCEPTION
66: WHEN NO_DATA_FOUND THEN
67: FND_MESSAGE.set_name('RG', 'RG_FORMS_OBJECT_EXISTS_FOR');
68: FND_MESSAGE.set_token('OBJECT1', 'RG_DSS_SEGMENT', TRUE);
69: FND_MESSAGE.set_token('OBJECT2', 'RG_DSS_DIMENSION', TRUE);
70: APP_EXCEPTION.raise_exception;
71: END check_unique_segment;
72:
73:
127: X_dimension_id := X_Master_Dimension_Id;
128:
129: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
130: -- can't modify a dimension that is used in a frozen system
131: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
132: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
133: APP_EXCEPTION.raise_exception;
134: END IF;
135:
128:
129: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
130: -- can't modify a dimension that is used in a frozen system
131: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
132: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
133: APP_EXCEPTION.raise_exception;
134: END IF;
135:
136: check_unique_sequence(X_rowid, X_dimension_id, X_sequence);
238: ) IS
239: BEGIN
240: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
241: -- can't modify a dimension that is used in a frozen system
242: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
243: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
244: APP_EXCEPTION.raise_exception;
245: END IF;
246:
239: BEGIN
240: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
241: -- can't modify a dimension that is used in a frozen system
242: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
243: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
244: APP_EXCEPTION.raise_exception;
245: END IF;
246:
247: UPDATE rg_dss_dim_segments
316: OPEN C;
317: FETCH C INTO Recinfo;
318: IF (C%NOTFOUND) THEN
319: CLOSE C;
320: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
321: APP_EXCEPTION.RAISE_EXCEPTION;
322: END IF;
323: CLOSE C;
324:
397: AND (X_attribute15 IS NULL)))
398: ) THEN
399: RETURN;
400: ELSE
401: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
402: APP_EXCEPTION.RAISE_EXCEPTION;
403: END IF;
404: END lock_row;
405:
408: X_Dimension_Id NUMBER) IS
409: BEGIN
410: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
411: -- can't modify a dimension that is used in a frozen system
412: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
413: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
414: APP_EXCEPTION.raise_exception;
415: END IF;
416:
409: BEGIN
410: IF (RG_DSS_DIMENSIONS_PKG.used_in_frozen_system(X_Dimension_Id) = 1) THEN
411: -- can't modify a dimension that is used in a frozen system
412: FND_MESSAGE.set_name('RG', 'RG_DSS_FROZEN_SYSTEM');
413: FND_MESSAGE.set_token('OBJECT', 'RG_DSS_DIMENSION', TRUE);
414: APP_EXCEPTION.raise_exception;
415: END IF;
416:
417: DELETE FROM rg_dss_dim_segments