32: FROM gcs_dimension_set_dims
33: WHERE dimension_set_id = p_dimension_set_id
34: ORDER BY column_name;
35: BEGIN
36: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
37: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
38: g_api || '.' || fn_name,
39: GCS_UTILITY_PKG.g_module_enter || fn_name ||
40: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
33: WHERE dimension_set_id = p_dimension_set_id
34: ORDER BY column_name;
35: BEGIN
36: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
37: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
38: g_api || '.' || fn_name,
39: GCS_UTILITY_PKG.g_module_enter || fn_name ||
40: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
41: END IF;
46: SAVEPOINT gcs_dms_line_assign_start;
47:
48: -- Initialization
49: g_fnd_user_id := fnd_global.user_id;
50: g_fnd_login_id := fnd_global.login_id;
51:
52: SELECT set_type_code
53: INTO l_dimension_set_type
54: FROM GCS_DIMENSION_SETS_B
109: IF (l_dimension_set_type = 'SOURCE_TARGET') THEN
110: CLOSE src_tgt_dims;
111: END IF;
112:
113: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
114: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
115: g_api || '.' || fn_name,
116: 'Dimension Set Id ' || to_char(p_dimension_set_id) || ': '
117: || to_char(l_num_of_dimensions) || ' dimension(s)');
110: CLOSE src_tgt_dims;
111: END IF;
112:
113: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
114: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
115: g_api || '.' || fn_name,
116: 'Dimension Set Id ' || to_char(p_dimension_set_id) || ': '
117: || to_char(l_num_of_dimensions) || ' dimension(s)');
118: END IF;
120: -- Delete existing assignments
121: DELETE FROM GCS_DIMENSION_SET_LINES
122: WHERE dimension_set_id = p_dimension_set_id;
123:
124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
125: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
126: g_api || '.' || fn_name,
127: 'Deleted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
128: END IF;
121: DELETE FROM GCS_DIMENSION_SET_LINES
122: WHERE dimension_set_id = p_dimension_set_id;
123:
124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
125: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
126: g_api || '.' || fn_name,
127: 'Deleted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
128: END IF;
129:
151: from_clause || '
152: WHERE ds.dimension_set_id = :dim_set_id' ||
153: where_clause;
154:
155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
157: g_api || '.' || fn_name,
158: stmt);
159: END IF;
152: WHERE ds.dimension_set_id = :dim_set_id' ||
153: where_clause;
154:
155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
157: g_api || '.' || fn_name,
158: stmt);
159: END IF;
160:
161: -- Insert new assignments
162: EXECUTE IMMEDIATE stmt USING p_dimension_set_id,
163: g_fnd_user_id,
164: g_fnd_user_id,
165: g_fnd_login_id,
166: p_dimension_set_id;
167:
168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
164: g_fnd_user_id,
165: g_fnd_login_id,
166: p_dimension_set_id;
167:
168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
170: g_api || '.' || fn_name,
171: 'Inserted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
172: END IF;
165: g_fnd_login_id,
166: p_dimension_set_id;
167:
168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
170: g_api || '.' || fn_name,
171: 'Inserted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
172: END IF;
173:
171: 'Inserted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
172: END IF;
173:
174: <
175: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
176: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
177: g_api || '.' || fn_name,
178: GCS_UTILITY_PKG.g_module_success || fn_name ||
179: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
172: END IF;
173:
174: <
175: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
176: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
177: g_api || '.' || fn_name,
178: GCS_UTILITY_PKG.g_module_success || fn_name ||
179: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
180: END IF;
182: fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
183:
184: EXCEPTION
185: WHEN OTHERS THEN
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
188: g_api || '.' || fn_name,
189: SUBSTR(SQLERRM, 1, 4000));
190: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
183:
184: EXCEPTION
185: WHEN OTHERS THEN
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
188: g_api || '.' || fn_name,
189: SUBSTR(SQLERRM, 1, 4000));
190: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
191: g_api || '.' || fn_name,
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
188: g_api || '.' || fn_name,
189: SUBSTR(SQLERRM, 1, 4000));
190: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
191: g_api || '.' || fn_name,
192: GCS_UTILITY_PKG.g_module_failure || fn_name ||
193: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
194: END IF;