1: PACKAGE BODY RG_DSS_DIM_SEGMENTS_PKG AS
2: /* $Header: rgiddsmb.pls 120.2 2002/11/14 02:58:11 djogg ship $ */
3: --
4: -- Name
5: -- RG_DSS_DIM_SEGMENTS_PKG
1: PACKAGE BODY RG_DSS_DIM_SEGMENTS_PKG AS
2: /* $Header: rgiddsmb.pls 120.2 2002/11/14 02:58:11 djogg ship $ */
3: --
4: -- Name
5: -- RG_DSS_DIM_SEGMENTS_PKG
6: -- Purpose
7: -- to include all server side procedures AND packages for table
8: -- rg_dss_DIM_SEGMENTS
9: -- Notes
4: -- Name
5: -- RG_DSS_DIM_SEGMENTS_PKG
6: -- Purpose
7: -- to include all server side procedures AND packages for table
8: -- rg_dss_DIM_SEGMENTS
9: -- Notes
10: --
11: -- History
12: -- 06/16/95 A Chen Created
30: INTO dummy
31: FROM dual
32: WHERE NOT EXISTS
33: (SELECT 1
34: FROM rg_dss_dim_segments
35: WHERE dimension_id = X_dimension_id
36: AND sequence = X_sequence
37: AND ((X_rowid IS NULL) OR (rowid <> X_rowid))
38: );
55: INTO dummy
56: FROM dual
57: WHERE NOT EXISTS
58: (SELECT 1
59: FROM rg_dss_dim_segments
60: WHERE dimension_id = X_dimension_id
61: AND application_column_name = X_application_column_name
62: AND ((X_rowid IS NULL) OR (rowid <> X_rowid))
63: );
75: num_of_dim_segs NUMBER;
76: BEGIN
77: SELECT count(sequence)
78: INTO num_of_dim_segs
79: FROM rg_dss_dim_segments
80: WHERE dimension_id = X_dimension_id;
81:
82: RETURN num_of_dim_segs;
83: END number_of_dim_segments;
116: X_attribute13 VARCHAR2,
117: X_attribute14 VARCHAR2,
118: X_attribute15 VARCHAR2
119: ) IS
120: CURSOR C IS SELECT rowid FROM rg_dss_dim_segments
121: WHERE dimension_id = X_dimension_id
122: AND sequence = X_sequence;
123: BEGIN
124: IF (X_Master_Dimension_Id IS NULL) THEN
135:
136: check_unique_sequence(X_rowid, X_dimension_id, X_sequence);
137: check_unique_segment(X_rowid, X_dimension_id, X_application_column_name);
138:
139: INSERT INTO rg_dss_dim_segments
140: (dimension_id ,
141: sequence ,
142: application_column_name ,
143: id_flex_code ,
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
248: SET dimension_id = X_dimension_id ,
249: sequence = X_sequence ,
250: application_column_name = X_application_column_name ,
251: id_flex_code = X_id_flex_code ,
307: X_attribute15 VARCHAR2
308: ) IS
309: CURSOR C IS
310: SELECT *
311: FROM rg_dss_dim_segments
312: WHERE rowid = X_rowid
313: FOR UPDATE OF sequence NOWAIT;
314: Recinfo C%ROWTYPE;
315: BEGIN
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
418: WHERE rowid = X_rowid;
419:
420: IF (SQL%NOTFOUND) THEN
421: RAISE NO_DATA_FOUND;
422: END IF;
423: END delete_row;
424:
425:
426: END RG_DSS_DIM_SEGMENTS_PKG;