236: end;
237:
238: procedure POPULATE_MLS_LEXICALS is
239: statement varchar2(1000);
240: SESSION_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
241: BASE_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
242:
243: begin
244:
237:
238: procedure POPULATE_MLS_LEXICALS is
239: statement varchar2(1000);
240: SESSION_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
241: BASE_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
242:
243: begin
244:
245: select substr(userenv('LANGUAGE'),1,instr(userenv('LANGUAGE'),'_')-1)
247: from dual;
248:
249: select nls_language
250: into BASE_LANGUAGE
251: from fnd_languages
252: where installed_flag = 'B';
253:
254: p_language_where := 'and nvl(poh.language,' || '''' ||
255: BASE_LANGUAGE || ''') = ' || '''' ||