1 PACKAGE BODY PA_STARTUP AS
2 /* $Header: PARSTUPB.pls 115.5 2002/03/12 00:44:16 pkm ship $ */
3
4 -- ----------------------------------------------------------------------------
5 -- PUBLIC PROCEDURE
6 -- Initialize
7 -- PURPOSE
8 -- This procedure should be called as part of initialization
9 -- Note: 1. p_calling_application parameter is always required
10 -- 2. This procedure would not initialize the error stack
11 -- nor would set the error stack as this is an
12 -- Initialization procedure.
13 -- 3. The input parameters for this procedure correspond
14 -- to the Global Variables specified in this package
15 -- Unless specified:
16 -- p_debug_level --> For Enabling Debug
17 -- HISTORY
18 -- 19-Jul-2000 nchouhan Created
19 -- ----------------------------------------------------------------------------
20 procedure Initialize (
21 p_calling_application IN VARCHAR2,
22 p_calling_module IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
23 p_check_id_flag IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
24 p_check_role_security_flag IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
25 p_check_resource_Security_flag IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
26 p_debug_level IN NUMBER DEFAULT FND_API.G_MISS_NUM
27 ) IS
28 l_calling_module PA_STARTUP.G_Calling_Module%TYPE;
29 l_check_id_flag PA_STARTUP.G_Check_ID_Flag%TYPE;
30 l_check_role_security_flag PA_STARTUP.G_Check_Role_Security_Flag%TYPE;
31 l_check_resource_security_flag PA_STARTUP.G_Check_Resource_Security_Flag%TYPE;
32 l_debug_level PA_DEBUG.debug_level%TYPE;
33
34 BEGIN
35 -- Set global variable for calling application as this is a required
36 -- parameter required for this procedure.
37 PA_STARTUP.G_Calling_Application := p_calling_application;
38
39 l_calling_module := p_calling_module;
40 l_check_id_flag := p_check_id_flag;
41 l_check_role_security_flag := p_check_role_security_flag;
42 l_check_resource_security_flag := p_check_resource_security_flag;
43 l_debug_level := p_debug_level;
44
45 IF PA_STARTUP.G_Calling_Application = 'SELF_SERVICE' THEN
46 -- Calling Application is Self Service
47
48 -- Set Check ID Flag if not passed
49 IF l_check_id_flag = FND_API.G_MISS_CHAR THEN
50 l_check_id_flag := 'N';
51 END IF;
52
53 -- Set Check project role security Flag if not passed
54 IF l_check_role_security_flag = FND_API.G_MISS_CHAR THEN
55 l_check_role_security_flag := 'N';
56 END IF;
57
58 -- Set Check resource security Flag if not passed
59 IF l_check_resource_security_flag = FND_API.G_MISS_CHAR THEN
60 l_check_resource_security_flag := 'N';
61 END IF;
62
63 -- Set Check ID Flag if not passed
64 IF l_check_id_flag = FND_API.G_MISS_CHAR THEN
65 l_check_id_flag := 'N';
66 END IF;
67
68 ELSIF PA_STARTUP.G_Calling_Application = 'FORMS' THEN
69 -- Calling Application is Oracle Forms
70 null;
71
72 ELSIF PA_STARTUP.G_Calling_application = 'REPORTS' THEN
73 -- Calling Application is Oracle Reports
74 null;
75
76 ELSIF PA_STARTUP.G_Calling_Application = 'PLSQL' THEN
77 -- Calling Application is PLSQL
78 null;
79
80 ELSE
81 null;
82
83 END IF;
84
85 -- set global variables if input parameter passed or if value changed in the
86 -- above logic. If no input parameter passed or value changed then the Global
87 -- variable gets defaulted to its default value
88 IF l_calling_module <> FND_API.G_MISS_CHAR THEN
89 PA_STARTUP.G_Calling_Module := l_calling_module;
90 END IF;
91
92 IF l_check_id_flag <> FND_API.G_MISS_CHAR THEN
93 PA_STARTUP.G_Check_ID_Flag := l_check_id_flag;
94 END IF;
95
96 IF l_check_role_security_flag <> FND_API.G_MISS_CHAR THEN
97 PA_STARTUP.G_Check_Role_Security_Flag := l_check_role_security_flag;
98 END IF;
99
100 IF l_check_resource_security_flag <> FND_API.G_MISS_CHAR THEN
101 PA_STARTUP.G_Check_Resource_Security_Flag := l_check_resource_security_flag;
102 END IF;
103
104 IF l_debug_level <> FND_API.G_MISS_NUM THEN
105 pa_debug.enable_debug(l_debug_level);
106 END IF;
107
108 EXCEPTION
109 WHEN OTHERS THEN
110 Raise;
111
112 END Initialize;
113
114 END PA_STARTUP ;