1 PACKAGE BODY PON_LANGUAGE_PKG as
2 /*$Header: PONLANGB.pls 120.0 2005/06/01 18:29:25 appldev noship $ */
3
4 PROCEDURE retrieve_enabled_languages (
5 x_languages OUT NOCOPY refCurTyp
6 , x_status OUT NOCOPY VARCHAR2
7 , x_exception_msg OUT NOCOPY VARCHAR2
8 )
9 IS
10 BEGIN
11 OPEN x_languages FOR
12 select language_code
13 from fnd_languages
14 where installed_flag in ('I','B')
15 order by language_code;
16 x_status := 'S';
17 EXCEPTION
18 WHEN OTHERS THEN
19 x_status := 'E';
20 END retrieve_enabled_languages;
21
22 END PON_LANGUAGE_PKG;