15: l_flex_value_set_id NUMBER(10);
16:
17: BEGIN
18:
19: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
20: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set.begin', '<
21: END IF;
22:
23: fnd_file.put_line(fnd_file.log, 'Creating Entity Value Set for ICM Integration.');
16:
17: BEGIN
18:
19: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
20: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set.begin', '<
22:
23: fnd_file.put_line(fnd_file.log, 'Creating Entity Value Set for ICM Integration.');
24:
106: fnd_global.login_id);
107:
108: COMMIT;
109:
110: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
111: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set.end', '<
112: END IF;
113: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set creation for ICM Integration.');
114:
107:
108: COMMIT;
109:
110: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
111: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set.end', '<
113: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set creation for ICM Integration.');
114:
115: EXCEPTION
113: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set creation for ICM Integration.');
114:
115: EXCEPTION
116: WHEN OTHERS THEN
117: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
118: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_entity_value_set.error', SQLERRM);
119: END IF;
120: fnd_file.put_line(fnd_file.log, SUBSTR(SQLERRM,1,200));
121:
114:
115: EXCEPTION
116: WHEN OTHERS THEN
117: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
118: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_entity_value_set.error', SQLERRM);
119: END IF;
120: fnd_file.put_line(fnd_file.log, SUBSTR(SQLERRM,1,200));
121:
122: END create_entity_value_set;
193:
194: END LOOP;
195: EXCEPTION
196: WHEN OTHERS THEN
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
198: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_value_set_hierarchy.recurse_error', 'Value Set Id:'||p_flex_value_set_id||' Hierarchy Id:'||p_hierarchy_id ||' Entity Id:'|| p_entity_id ||'-'||SQLERRM);
199: END IF;
200: fnd_file.put_line(fnd_file.log, 'Recurse error '||SUBSTR(SQLERRM,1,200));
201: END recurse_hierarchy;
194: END LOOP;
195: EXCEPTION
196: WHEN OTHERS THEN
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
198: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_value_set_hierarchy.recurse_error', 'Value Set Id:'||p_flex_value_set_id||' Hierarchy Id:'||p_hierarchy_id ||' Entity Id:'|| p_entity_id ||'-'||SQLERRM);
199: END IF;
200: fnd_file.put_line(fnd_file.log, 'Recurse error '||SUBSTR(SQLERRM,1,200));
201: END recurse_hierarchy;
202:
212: l_flex_value_set_id NUMBER(10);
213: l_request_id NUMBER(15);
214: BEGIN
215:
216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.begin', '<
218: END IF;
219:
220: fnd_file.put_line(fnd_file.log, 'Creating Entity Value Set Hierarchy for ICM Integration.');
213: l_request_id NUMBER(15);
214: BEGIN
215:
216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.begin', '<
219:
220: fnd_file.put_line(fnd_file.log, 'Creating Entity Value Set Hierarchy for ICM Integration.');
221:
237:
238: DELETE fnd_flex_value_norm_hierarchy
239: WHERE flex_value_set_id = l_flex_value_set_id;
240:
241: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
242: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.recurse_hierarchy', '<
243: END IF;
244: fnd_file.put_line(fnd_file.log, 'Start Recursive Entity Value Set Hierarchy creation for ICM Integration.');
245:
238: DELETE fnd_flex_value_norm_hierarchy
239: WHERE flex_value_set_id = l_flex_value_set_id;
240:
241: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
242: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.recurse_hierarchy', '<
244: fnd_file.put_line(fnd_file.log, 'Start Recursive Entity Value Set Hierarchy creation for ICM Integration.');
245:
246: recurse_hierarchy( l_hierarchy_id,
260:
261:
262: GCS_ICM_INTG_PROF_PKG.launch_fin_stmt_import;
263:
264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.end', '<
266: END IF;
267: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set Hierarchy creation for ICM Integration.');
268:
261:
262: GCS_ICM_INTG_PROF_PKG.launch_fin_stmt_import;
263:
264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.create_entity_value_set_hier.end', '<
267: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set Hierarchy creation for ICM Integration.');
268:
269: EXCEPTION
267: fnd_file.put_line(fnd_file.log, 'End of Entity Value Set Hierarchy creation for ICM Integration.');
268:
269: EXCEPTION
270: WHEN OTHERS THEN
271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
272: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_entity_value_set_hier.error', SQLERRM);
273: END IF;
274: fnd_file.put_line(fnd_file.log, SUBSTR(SQLERRM,1,200));
275:
268:
269: EXCEPTION
270: WHEN OTHERS THEN
271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
272: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_api || '.create_entity_value_set_hier.error', SQLERRM);
273: END IF;
274: fnd_file.put_line(fnd_file.log, SUBSTR(SQLERRM,1,200));
275:
276: END create_entity_value_set_hier;