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.');
24:
25: SELECT flex_value_set_id
26: INTO l_flex_value_set_id
27: FROM fnd_flex_value_sets
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:
115: EXCEPTION
116: WHEN OTHERS THEN
117: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
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;
123:
124: PROCEDURE recurse_hierarchy( p_hierarchy_id IN NUMBER,
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:
203: PROCEDURE create_entity_value_set_hier( x_errbuf OUT NOCOPY VARCHAR2,
204: x_retcode OUT NOCOPY VARCHAR2,
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.');
221:
222: SELECT ghb.hierarchy_id,
223: ghb.top_entity_id,
224: feb.entity_display_code
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:
246: recurse_hierarchy( l_hierarchy_id,
247: l_top_entity_id,
248: p_eff_date,
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:
269: EXCEPTION
270: WHEN OTHERS THEN
271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
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;
277:
278: END GCS_VALUE_SET_PKG;