PACKAGE BODY: APPS.FND_DISCONNECTED

Source

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;