1 PACKAGE BODY fnd_timezones AS
2 /* $Header: AFTZONEB.pls 115.3 2002/03/01 11:32:40 pkm ship $ */
3 function get_code(tz_id in number) return varchar2 is
4 cursor c1 is
5 select timezone_code
6 from fnd_timezones_b
7 where upgrade_tz_id = tz_id;
8 v_tz_code varchar2(50);
9 begin
10 if tz_id is not null then
11 open c1;
12 fetch c1 into v_tz_code;
13 close c1;
14 end if;
15 return v_tz_code;
16 end;
17
18
19 function get_name(tz_code in varchar2) return varchar2 is
20 cursor c1 is
21 select name
22 from fnd_timezones_vl
23 where timezone_code = tz_code;
24
25 v_tz_name varchar2(80);
26 begin
27 if tz_code is not null then
28 open c1;
29 fetch c1 into v_tz_name;
30 close c1;
31 end if;
32 return v_tz_name;
33 end;
34
35 function get_server_timezone_code return varchar2 is
36 begin
37 return get_code(fnd_profile.VALUE ('SERVER_TIMEZONE_ID'));
38 end;
39
40 function get_client_timezone_code return varchar2 is
41 begin
42 return get_code(fnd_profile.VALUE ('CLIENT_TIMEZONE_ID'));
43 end;
44
45 function get_timezone_enabled_flag return varchar2 is
46 begin
47 return nvl(fnd_profile.VALUE ('ENABLE_TIMEZONE_CONVERSIONS'),'N');
48 end;
49
50 FUNCTION timezones_enabled RETURN VARCHAR2
51 IS
52 return_flag VARCHAR2 (1) := 'N';
53 BEGIN
54 return_flag := 'N';
55 IF get_timezone_enabled_flag = 'Y'
56 and get_server_timezone_code IS not NULL
57 and get_client_timezone_code IS not NULL THEN
58 return_flag := 'Y';
59 END IF;
60
61 RETURN return_flag;
62 END timezones_enabled;
63
64 END fnd_timezones;