34: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_GLOBAL_VS_COMBO_UTIL_PKG';
35:
36: f_set_status BOOLEAN;
37:
38: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
35:
36: f_set_status BOOLEAN;
37:
38: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
43: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
36: f_set_status BOOLEAN;
37:
38: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
43: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
44:
37:
38: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
43: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
44:
45: c_object_version CONSTANT NUMBER := 1;
38: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
43: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
44:
45: c_object_version CONSTANT NUMBER := 1;
46:
39: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
40: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
41: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
42: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
43: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
44:
45: c_object_version CONSTANT NUMBER := 1;
46:
47:
92: x_return_status OUT NOCOPY VARCHAR2,
93: x_msg_count OUT NOCOPY NUMBER,
94: x_msg_data OUT NOCOPY VARCHAR2) IS
95:
96: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
97: 'fem.plsql.fem_global_vs_combo_util_pkg.refresh_ledger_vs_maps';
98: C_API_NAME CONSTANT VARCHAR2(30) := 'Refresh Ledger Value Set Maps';
99:
100: e_unexp EXCEPTION;
160: -- Standard Start of API savepoint
161: SAVEPOINT refresh_ledger_maps_pub;
162:
163:
164: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
165: FEM_ENGINES_PKG.TECH_MESSAGE(
166: p_severity => FND_LOG.level_procedure,
167: p_module => C_MODULE,
168: p_msg_text => 'Begin Procedure');
162:
163:
164: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
165: FEM_ENGINES_PKG.TECH_MESSAGE(
166: p_severity => FND_LOG.level_procedure,
167: p_module => C_MODULE,
168: p_msg_text => 'Begin Procedure');
169: END IF;
170:
177: p_api_version,
178: C_API_NAME,
179: G_PKG_NAME)
180: THEN
181: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
182: FEM_ENGINES_PKG.TECH_MESSAGE(
183: p_severity => FND_LOG.level_statement,
184: p_module => C_MODULE,
185: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
179: G_PKG_NAME)
180: THEN
181: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
182: FEM_ENGINES_PKG.TECH_MESSAGE(
183: p_severity => FND_LOG.level_statement,
184: p_module => C_MODULE,
185: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
186: ||'passed in version ('||p_api_version||')');
187: END IF;
394:
395:
396: x_return_status := c_success;
397:
398: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
399: FEM_ENGINES_PKG.TECH_MESSAGE(
400: p_severity => FND_LOG.level_procedure,
401: p_module => C_MODULE,
402: p_msg_text => 'End Procedure');
396: x_return_status := c_success;
397:
398: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
399: FEM_ENGINES_PKG.TECH_MESSAGE(
400: p_severity => FND_LOG.level_procedure,
401: p_module => C_MODULE,
402: p_msg_text => 'End Procedure');
403: END IF;
404:
408:
409:
410: EXCEPTION
411: WHEN e_global THEN
412: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
413: FEM_ENGINES_PKG.TECH_MESSAGE(
414: p_severity => FND_LOG.level_statement,
415: p_module => C_MODULE,
416: p_msg_text => 'Global Value Set Combo ID does not exist '||p_global_vs_combo_id);
410: EXCEPTION
411: WHEN e_global THEN
412: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
413: FEM_ENGINES_PKG.TECH_MESSAGE(
414: p_severity => FND_LOG.level_statement,
415: p_module => C_MODULE,
416: p_msg_text => 'Global Value Set Combo ID does not exist '||p_global_vs_combo_id);
417: END IF;
418: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
421: ROLLBACK TO refresh_ledger_maps_pub;
422: x_return_status := c_error;
423:
424: WHEN e_attribute THEN
425: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
426: FEM_ENGINES_PKG.TECH_MESSAGE(
427: p_severity => FND_LOG.level_statement,
428: p_module => C_MODULE,
429: p_msg_text => 'GLOBAL_VS_COMBO attribute metadata does not exist or is not valid');
423:
424: WHEN e_attribute THEN
425: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
426: FEM_ENGINES_PKG.TECH_MESSAGE(
427: p_severity => FND_LOG.level_statement,
428: p_module => C_MODULE,
429: p_msg_text => 'GLOBAL_VS_COMBO attribute metadata does not exist or is not valid');
430: END IF;
431: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
434: ROLLBACK TO refresh_ledger_maps_pub;
435: x_return_status := c_error;
436:
437: WHEN e_version THEN
438: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
439: FEM_ENGINES_PKG.TECH_MESSAGE(
440: p_severity => FND_LOG.level_statement,
441: p_module => C_MODULE,
442: p_msg_text => 'GLOBAL_VS_COMBO attribute version metadata does not exist or is not valid');
436:
437: WHEN e_version THEN
438: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
439: FEM_ENGINES_PKG.TECH_MESSAGE(
440: p_severity => FND_LOG.level_statement,
441: p_module => C_MODULE,
442: p_msg_text => 'GLOBAL_VS_COMBO attribute version metadata does not exist or is not valid');
443: END IF;
444: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
448: x_return_status := c_error;
449:
450:
451: WHEN others THEN
452: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: FEM_ENGINES_PKG.TECH_MESSAGE(
454: p_severity => FND_LOG.level_statement,
455: p_module => C_MODULE,
456: p_msg_text => 'Unexpected error.');
450:
451: WHEN others THEN
452: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: FEM_ENGINES_PKG.TECH_MESSAGE(
454: p_severity => FND_LOG.level_statement,
455: p_module => C_MODULE,
456: p_msg_text => 'Unexpected error.');
457: FEM_ENGINES_PKG.TECH_MESSAGE(
458: p_severity => FND_LOG.level_statement,
454: p_severity => FND_LOG.level_statement,
455: p_module => C_MODULE,
456: p_msg_text => 'Unexpected error.');
457: FEM_ENGINES_PKG.TECH_MESSAGE(
458: p_severity => FND_LOG.level_statement,
459: p_module => C_MODULE,
460: p_msg_text => SQLERRM);
461: END IF;
462: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,