PACKAGE BODY: APPS.FV_INSTALL

Source

1 PACKAGE BODY fv_install AS
2 --   $Header: FVXINSTB.pls 120.6.12000000.1 2007/01/18 13:48:12 appldev ship $
3 
4   g_module_name            VARCHAR2(100);
5 
6 
7   FUNCTION enabled RETURN BOOLEAN
8   IS
9     l_error_desc  VARCHAR2(1024);
10     l_location    VARCHAR2(400);
11     l_module_name VARCHAR2(200);
12     l_fv_enabled  VARCHAR2(1);
13   BEGIN
14     l_module_name := g_module_name || 'enabled';
15 
16     -- Fetch the profile value
17     l_fv_enabled := NVL(fnd_profile.value('FV_ENABLED'), 'N');
18 
19     IF (l_fv_enabled = 'N') THEN
20        RETURN FALSE;
21     ELSE
22        RETURN TRUE;
23     END IF;
24   EXCEPTION
25     WHEN OTHERS THEN
26       l_error_desc := SQLERRM;
27       l_location   := l_module_name||'.final_exception';
28       fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
29       fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_error_desc) ;
30   END;
31 
32   FUNCTION enabled
33   (
34     x_org_id NUMBER
35   ) RETURN BOOLEAN
36   IS
37   BEGIN
38     RETURN enabled;
39   END enabled;
40 
41   FUNCTION enabled_yn return varchar2 is
42 	  begin
43 	     	if (fv_install.enabled) then
44 	        		return 'Y';
45 	     	else
46 	        		return 'N';
47 	     	end if;
48 	  end enabled_yn;
49 
50 BEGIN
51   g_module_name            := 'fv.plsql.FV_INSTALL.';
52 END fv_install;