2061: -- Private
2062: -- Called by user_synch when user_name is changed
2063: procedure UpdateUserNameChildren(old_name in varchar2,
2064: new_name in varchar2) is
2065: colnames fnd_dictionary_pkg.NameArrayTyp;
2066: colold fnd_dictionary_pkg.NameArrayTyp;
2067: colnew fnd_dictionary_pkg.NameArrayTyp;
2068: l_api_name CONSTANT varchar2(30) := 'UpdateUsernameChildren';
2069: tmpbuf varchar2(240);
2062: -- Called by user_synch when user_name is changed
2063: procedure UpdateUserNameChildren(old_name in varchar2,
2064: new_name in varchar2) is
2065: colnames fnd_dictionary_pkg.NameArrayTyp;
2066: colold fnd_dictionary_pkg.NameArrayTyp;
2067: colnew fnd_dictionary_pkg.NameArrayTyp;
2068: l_api_name CONSTANT varchar2(30) := 'UpdateUsernameChildren';
2069: tmpbuf varchar2(240);
2070: reason varchar2(2000);
2063: procedure UpdateUserNameChildren(old_name in varchar2,
2064: new_name in varchar2) is
2065: colnames fnd_dictionary_pkg.NameArrayTyp;
2066: colold fnd_dictionary_pkg.NameArrayTyp;
2067: colnew fnd_dictionary_pkg.NameArrayTyp;
2068: l_api_name CONSTANT varchar2(30) := 'UpdateUsernameChildren';
2069: tmpbuf varchar2(240);
2070: reason varchar2(2000);
2071: ret boolean;
2077: colold(1) := '';
2078: colnew(0) := new_name;
2079: colnew(1) := '';
2080:
2081: tmpbuf := 'Start calling fnd_dictionary_pkg.updatepkcolumns('||
2082: old_name||','||new_name||')';
2083: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2084: fnd_log.string(FND_LOG.LEVEL_STATEMENT, C_LOG_HEAD || l_api_name || '.',
2085: tmpbuf);
2083: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2084: fnd_log.string(FND_LOG.LEVEL_STATEMENT, C_LOG_HEAD || l_api_name || '.',
2085: tmpbuf);
2086: end if;
2087: ret := fnd_dictionary_pkg.updatepkcolumns('FND', 'FND_USER', colnames, colold,
2088: colnew);
2089: tmpbuf := 'Finished fnd_dictionary_pkg.updatepkcolumns';
2090: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2091: fnd_log.string(FND_LOG.LEVEL_STATEMENT, C_LOG_HEAD || l_api_name || '.',
2085: tmpbuf);
2086: end if;
2087: ret := fnd_dictionary_pkg.updatepkcolumns('FND', 'FND_USER', colnames, colold,
2088: colnew);
2089: tmpbuf := 'Finished fnd_dictionary_pkg.updatepkcolumns';
2090: if (fnd_log.LEVEL_STATEMENT >= fnd_log.g_current_runtime_level) then
2091: fnd_log.string(FND_LOG.LEVEL_STATEMENT, C_LOG_HEAD || l_api_name || '.',
2092: tmpbuf);
2093: end if;