PACKAGE BODY: APPS.FND_DATE_TZ

Source

1 PACKAGE BODY fnd_date_tz AS
2 /* $Header: AFDATTZB.pls 115.4 2003/10/28 16:03:56 psloan ship $ */
3 
4 PROCEDURE init_timezones_for_fnd_date IS
5   BEGIN
6     init_timezones_for_fnd_date(true);
7   END;
8 
9 
10 function is_9i_db return varchar2 is
11  cursor c1 is
12    select 'x'
13    from all_objects
14    where object_name = 'V$TIMEZONE_NAMES'
15      and owner = 'PUBLIC';
16  v_dummy varchar2(1);
17 
18   begin
19    open c1;
20    fetch c1 into v_dummy;
21    close c1;
22    if v_dummy = 'x' then
23      return 'Y';
24    else
25      return 'F';
26    end if;
27   end;
28 
29 procedure init_timezones_for_fnd_date(v_enabled boolean) is
30   begin
31     if v_enabled then
32       fnd_date.timezones_enabled := true;
33       fnd_date.server_timezone_code := fnd_timezones.get_server_timezone_code;
34       fnd_date.client_timezone_code := fnd_timezones.get_client_timezone_code;
35     else
36       fnd_date.timezones_enabled := false;
37       fnd_date.server_timezone_code := null;
38       fnd_date.client_timezone_code := null;
39     end if;
40   end;
41 
42 END fnd_date_tz;