37: CLOSE get_new_id;
38: RETURN (new_id);
39: ELSE
40: CLOSE get_new_id;
41: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
42: fnd_message.set_token('SEQUENCE', 'GL_ACCESS_SETS_S');
43: app_exception.raise_exception;
44: END IF;
45:
38: RETURN (new_id);
39: ELSE
40: CLOSE get_new_id;
41: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
42: fnd_message.set_token('SEQUENCE', 'GL_ACCESS_SETS_S');
43: app_exception.raise_exception;
44: END IF;
45:
46: EXCEPTION
46: EXCEPTION
47: WHEN app_exceptions.application_exception THEN
48: RAISE;
49: WHEN OTHERS THEN
50: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
51: fnd_message.set_token('PROCEDURE', 'gl_access_sets_pkg.get_unique_id');
52: RAISE;
53: END get_unique_id;
54:
47: WHEN app_exceptions.application_exception THEN
48: RAISE;
49: WHEN OTHERS THEN
50: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
51: fnd_message.set_token('PROCEDURE', 'gl_access_sets_pkg.get_unique_id');
52: RAISE;
53: END get_unique_id;
54:
55: FUNCTION has_details_in_db (X_Access_Set_Id NUMBER) RETURN BOOLEAN IS
156:
157: IF get_vs_id%NOTFOUND THEN
158: CLOSE get_vs_id;
159: IF (X_Segment_Type = 'GL_BALANCING') THEN
160: FND_MESSAGE.SET_NAME('SQLGL', 'GL_LEDGER_ERR_GETTING_BAL_SEG');
161:
162: ELSIF (X_Segment_Type = 'GL_MANAGEMENT') THEN
163: -- Check if the management segment is specified for the COA
164: OPEN check_mgt_seg;
165: FETCH check_mgt_seg INTO dummy;
166:
167: IF check_mgt_seg%NOTFOUND THEN
168: -- The COA does not have a management segment.
169: FND_MESSAGE.SET_NAME('SQLGL', 'GL_ACCESS_COA_NO_MGT_SEG');
170: ELSE
171: FND_MESSAGE.SET_NAME('SQLGL', 'GL_LEDGER_ERR_GETTING_MGT_SEG');
172: END IF;
173:
167: IF check_mgt_seg%NOTFOUND THEN
168: -- The COA does not have a management segment.
169: FND_MESSAGE.SET_NAME('SQLGL', 'GL_ACCESS_COA_NO_MGT_SEG');
170: ELSE
171: FND_MESSAGE.SET_NAME('SQLGL', 'GL_LEDGER_ERR_GETTING_MGT_SEG');
172: END IF;
173:
174: CLOSE check_mgt_seg;
175:
183: EXCEPTION
184: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
185: RAISE;
186: WHEN OTHERS THEN
187: FND_MESSAGE.SET_NAME('SQLGL', 'GL_UNHANDLED_EXCEPTION');
188: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'gl_access_sets_pkg.get_value_set_id');
189: RAISE;
190: END get_value_set_id;
191:
184: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
185: RAISE;
186: WHEN OTHERS THEN
187: FND_MESSAGE.SET_NAME('SQLGL', 'GL_UNHANDLED_EXCEPTION');
188: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'gl_access_sets_pkg.get_value_set_id');
189: RAISE;
190: END get_value_set_id;
191:
192: PROCEDURE select_columns(X_access_set_id NUMBER,
501: OPEN C;
502: FETCH C INTO Recinfo;
503: if (C%NOTFOUND) then
504: CLOSE C;
505: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
506: app_exception.raise_exception;
507: end if;
508: CLOSE C;
509:
606: AND (X_Attribute15 IS NULL)))
607: ) then
608: return;
609: else
610: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
611: app_exception.raise_exception;
612: end if;
613:
614: END Lock_Row;