1 package body FND_DISCONNECTED as
2 /* $Header: AFSCDCNB.pls 115.0.1150.1 1999/12/22 19:44:28 pkm ship $ */
3
4 x_disconnected_mode boolean := FALSE;
5
6 function GET_DISCONNECTED return boolean is
7 begin
8 return(x_disconnected_mode);
9 end GET_DISCONNECTED;
10
11 function DISCONNECTED_PARAM return boolean is
12 profile_val varchar2(240);
13 begin
14 begin
15 select V.PROFILE_OPTION_VALUE
16 into profile_val
17 from FND_PROFILE_OPTIONS P, FND_PROFILE_OPTION_VALUES V
18 where P.PROFILE_OPTION_NAME = 'DISCONNECTED_DATABASE'
19 and P.APPLICATION_ID = 0
20 and P.PROFILE_OPTION_ID = V.PROFILE_OPTION_ID
21 and P.APPLICATION_ID = V.APPLICATION_ID
22 and V.LEVEL_ID = 10001;
23 exception
24 when no_data_found then
25 profile_val := 'N';
26 end;
27
28 if (profile_val = 'Y') then
29 x_disconnected_mode := TRUE;
30 end if;
31
32 return(x_disconnected_mode);
33 end DISCONNECTED_PARAM;
34
35 end FND_DISCONNECTED;