1 PACKAGE BODY IGI_GEN AS
2 --- $Header: igigccab.pls 120.7.12010000.2 2008/08/04 13:01:52 sasukuma ship $
3
4 /*
5 ## The function is_req_installed is modified to handle
6 ## both MOAC and thru normal profile option.
7 */
8
9 FUNCTION is_req_installed (p_option_name VARCHAR2,
10 p_org_id NUMBER)
11 RETURN VARCHAR2
12 IS
13
14 CURSOR Get_installed_option
15 is
16 SELECT status_flag
17 FROM igi_gcc_inst_options_all -- Use _ALL table instead of view
18 WHERE option_name = upper(p_option_name)
19 AND org_id = p_org_id;
20
21 --Two queries seperated for Bug3855184:Start
22 CURSOR Get_gl_fa_installed_option
23 is
24 SELECT status_flag
25 FROM igi_gcc_gl_fa_inst_ops
26 WHERE option_name = upper(p_option_name) ;
27 --Two queries seperated for Bug3855184:End
28
29 v_installed_flag varchar2(1);
30
31 BEGIN
32
33 OPEN get_installed_option ;
34 FETCH get_installed_option into v_installed_flag;
35 IF Get_installed_option%NOTFOUND THEN --Bug3855184
36 OPEN Get_gl_fa_installed_option; --Bug3855184
37 FETCH get_gl_fa_installed_option into v_installed_flag; --Bug3855184
38 CLOSE Get_gl_fa_installed_option; --Bug3855184
39 END IF; --Bug3855184
40 CLOSE get_installed_option ;
41
42 IF v_installed_flag = 'Y' THEN
43 RETURN 'Y';
44 ELSE
45 RETURN 'N';
46 END IF;
47
48 EXCEPTION
49 WHEN OTHERS THEN
50 RETURN 'N';
51 END is_req_installed;
52
53 FUNCTION is_req_installed (p_option_name VARCHAR2) RETURN BOOLEAN
54 is
55 -- Bug 3974541 agovil
56 -- CURSOR Get_installed_option (p_org_id NUMBER)
57 CURSOR Get_installed_option
58 is
59 SELECT status_flag
60 FROM igi_gcc_installed_options
61 WHERE option_name = upper(p_option_name);
62 -- AND org_id = p_org_id
63
64 --Two queries seperated for Bug3855184:Start
65 CURSOR Get_gl_fa_installed_option IS
66 SELECT status_flag
67 FROM IGI_gcc_gl_fa_inst_ops
68 WHERE option_name = upper(p_option_name) ;
69 --Two queries seperated for Bug3855184:End
70
71 v_installed_flag varchar2(1);
72 -- l_org_id number;
73
74 BEGIN
75
76 /*
77 ## As the client_info is removed from the view due to
78 ## MOAC changes we have to explicitly set the org id
79 ## from the profile option.
80 */
81
82 -- l_org_id := fnd_profile.value('ORG_ID');
83
84 -- OPEN get_installed_option (l_org_id);
85 OPEN get_installed_option ;
86 FETCH get_installed_option into v_installed_flag;
87 if get_installed_option%NOTFOUND then --Bug3855184
88 OPEN GET_GL_FA_INSTALLED_OPTION; --Bug3855184
89 FETCH get_gl_fa_installed_option into v_installed_flag; --Bug3855184
90 CLOSE Get_gl_fa_installed_option; --Bug3855184
91 end if; --Bug3855184
92 CLOSE get_installed_option ;
93
94
95 IF v_installed_flag = 'Y' THEN
96 RETURN TRUE;
97 ELSE
98 RETURN FALSE;
99 END IF;
100
101 EXCEPTION
102 WHEN OTHERS THEN
103 RETURN FALSE;
104 END is_req_installed;
105
106 /* ===================================================================
107 This Procedure is used to record debug information
108 =================================================================== */
109
110 PROCEDURE DEBUG
111 ( p_module IN VARCHAR2
112 , p_module_variable IN VARCHAR2
113 , p_variable_value IN VARCHAR2
114 , P_message IN VARCHAR2
115 )
116 is
117 begin
118
119 NULL;
120
121 /* *******************************************************
122 UNCOMMENT OUT NOCOPY THIS LINE ONCE THE TABLE IS DEFINED
123 ********************************************************
124 insert into IGI_debug_all ( MODULE
125 , MODULE_VARIABLE
126 , VARIABLE_VALUE
127 , MODULE_MESSAGE
128 , DEBUG_SEQUENCE)
129 select p_module
130 , p_module_variable
131 , p_variable_value
132 , P_message
133 , IGI_debug_s.nextval
134 from dual;
135 commit;
136
137 ********************************************************* */
138 EXCEPTION
139 when others then null;
140 end;
141
142 /* ===================================================================
143 This Procedure returns entries STATUS_FLAG and ERROR_NUM from
144 IGI_INSTALLED_OPTIONS for a given OPTION_NAME
145 ===================================================================
146 */
147
148 PROCEDURE get_option_status
149 ( p_option_name IN VARCHAR2
150 , p_status_flag OUT NOCOPY VARCHAR2
151 , p_error_num OUT NOCOPY NUMBER
152 )
153 IS
154
155 CURSOR stat_check IS
156 (SELECT status_flag
157 FROM IGI_gcc_installed_options
158 WHERE option_name = upper(p_option_name ));
159
160 --Two queries seperated for Bug3855184:Start
161 CURSOR gl_fa_stat_check IS
162 (SELECT status_flag
163 FROM IGI_gcc_gl_fa_inst_ops
164 WHERE option_name = upper(p_option_name )) ;
165 --Two queries seperated for Bug3855184:End
166
167 BEGIN
168 p_error_num := 0;
169 p_status_flag := 'N';
170
171 OPEN stat_check ;
172 FETCH stat_check into p_status_flag;
173 IF stat_check%NOTFOUND then --Bug3855184
174 OPEN gl_fa_stat_check; --Bug3855184
175 FETCH gl_fa_stat_check into p_status_flag; --Bug3855184
176 CLOSE gl_fa_stat_check; --Bug3855184
177 END IF; --Bug3855184
178 CLOSE stat_check;
179
180 EXCEPTION
181 WHEN NO_DATA_FOUND THEN p_status_flag := 'N';
182 p_error_num := 1 ;
183 WHEN TOO_MANY_ROWS THEN p_status_flag := 'N';
184 p_error_num := 1 ;
185 WHEN OTHERS THEN p_status_flag := 'N';
186 p_error_num := 1 ;
187 END; -- Of get_option_status
188
189
190
191
192 FUNCTION GET_LOOKUP_MEANING (l_lookup_type VARCHAR2
193 ) RETURN VARCHAR2 IS
194
195 l_return_meaning VARCHAR2(240);
196 BEGIN
197
198 SELECT meaning into l_return_meaning
199 from IGI_LOOKUPS
200 WHERE LOOKUP_TYPE = l_lookup_type;
201
202 return (l_return_meaning);
203 EXCEPTION
204 WHEN OTHERS THEN
205 return (l_lookup_type);
206 END; -- Of GET_LOOKUP_MEANING
207
208
209
210 PROCEDURE IGI_EFC_CHECK_OPTIONS
211 (p_sob NUMBER
212 ,p_efc1 IN OUT NOCOPY VARCHAR2
213 ) IS
214 -- 29-MAR-00 EGARRETT
215 -- Removed the payment_funds_check_flag as it no longer exists
216 -- in table (part of EFC II).
217 CURSOR c_get_efc_options IS
218 SELECT mult_funding_budgets_flag
219 FROM psa_efc_options
220 WHERE set_of_books_id = p_sob;
221
222 x_mfb VARCHAR2(1);
223
224 BEGIN
225 OPEN c_get_efc_options;
226 FETCH c_get_efc_options INTO x_mfb;
227 IF c_get_efc_options%NOTFOUND THEN
228 RAISE NO_DATA_FOUND;
229 END IF;
230 IF c_get_efc_options%ISOPEN THEN
231 CLOSE c_get_efc_options;
232 END IF;
233
234 p_efc1 := x_mfb;
235
236 EXCEPTION
237 WHEN NO_DATA_FOUND THEN
238 IF c_get_efc_options%ISOPEN THEN
239 CLOSE c_get_efc_options;
240 END IF;
241 p_efc1 := 'N';
242
243 --null;
244
245 WHEN OTHERS THEN
246 fnd_message.set_name('IGI','IGI_EFC_CHECK_OPTIONS');
247 app_exception.raise_exception;
248 END;
249
250 --M Thompson 23-Dec-1998 Add HUL functions START
251
252 FUNCTION get_ap_sob_id RETURN NUMBER IS
253 sErrMsg VARCHAR2(2000);
254 p_sob_id NUMBER;
255 BEGIN
256 SELECT set_of_books_id
257 INTO p_sob_id
258 FROM ap_system_parameters;
259 RETURN (p_sob_id);
260 EXCEPTION
261 WHEN OTHERS THEN sErrMsg := SQLERRM;
262 raise_application_error(-20000, sErrMsg);
263
264 END;
265
266 FUNCTION get_ar_sob_id RETURN NUMBER IS
267 sErrMsg VARCHAR2(2000);
268 p_sob_id NUMBER;
269 BEGIN
270 SELECT set_of_books_id
271 INTO p_sob_id
272 FROM ar_system_parameters;
273 RETURN (p_sob_id);
274 EXCEPTION
275 WHEN OTHERS THEN sErrMsg := SQLERRM;
276 raise_application_error(-20000, sErrMsg);
277 END;
278
279
280 FUNCTION get_po_sob_id RETURN NUMBER IS
281 sErrMsg VARCHAR2(2000);
282 p_sob_id NUMBER;
283 BEGIN
284 SELECT set_of_books_id
285 INTO p_sob_id
286 FROM financials_system_parameters;
287 RETURN (p_sob_id);
288 EXCEPTION
289 WHEN OTHERS THEN sErrMsg := SQLERRM;
290 raise_application_error(-20000, sErrMsg);
291 END;
292
293 --M Thompson 23-Dec-1998 Add HUL functions END
294
295
296 Function Get_Igi_Prompt(p_lookup_code in Varchar2) Return Varchar2 Is
297 Cursor Igi_Prompt Is
298 Select meaning
299 from igi_lookups
300 Where lookup_type = 'IGI_PROMPTS'
301 and lookup_code = p_lookup_code;
302 l_prompt varchar2(80);
303 Begin
304 Open Igi_Prompt;
305 Fetch igi_Prompt into l_prompt;
306 Close Igi_Prompt;
307 return l_prompt;
308 Exception
309 When Others Then
310 Close Igi_Prompt;
311 return l_prompt;
312 End Get_Igi_Prompt;
313
314
315 --Function added for MOAC returns responsibility the user has signed into
316 Function get_igi_window_title return varchar2 is
317
318 BEGIN
319 return null;
320 END get_igi_window_title;
321
322 /* ============================================================== */
323 END;