eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HR_SSO_UTL

Source


1 package body hr_sso_utl as
2 /* $Header: hrssoutl.pkb 120.2 2006/03/08 00:29:34 avarri noship $ */
3 
4 -- Logging code data
5 g_module         CONSTANT VARCHAR2(80) :=
6                                          'per.pl_sql.hr_sso_utl';
7 
8 FUNCTION get_sso_schema
9         RETURN VARCHAR2 IS
10 
11 l_procedure VARCHAR2(31) := 'get_sso_schema';
12 l_retval    VARCHAR2(2000);
13 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
14 --
15 BEGIN
16 --
17 
18 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
19   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
20                   MODULE    => l_module,
21                   MESSAGE   => 'Entering ' || l_procedure);
22 END IF;
23 
24 EXECUTE IMMEDIATE
25             'select ' ||
26             'wwctx_api.get_sso_schema'
27             || ' from dual'
28   INTO l_retval;
29 
30 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
31   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
32                   MODULE    => l_module,
33                   MESSAGE   => 'Exiting ' || l_procedure);
34 END IF;
35 
36 RETURN(l_retval);
37 
38 --
39 END get_sso_schema;
40 --
41 
42 
43 FUNCTION get_sso_query_path
44         (
45   p_url      IN VARCHAR2,
46   p_schema   IN VARCHAR2 DEFAULT get_sso_schema
47   )
48         RETURN VARCHAR2 IS
49 
50 l_procedure VARCHAR2(31) := 'get_sso_query_path';
51 l_retval    VARCHAR2(2000);
52 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
53 --
54 BEGIN
55 --
56 
57 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
58   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
59                   MODULE    => l_module,
60                   MESSAGE   => 'Entering ' || l_procedure);
61 END IF;
62 
63 EXECUTE IMMEDIATE
64             'select wwctx_api.get_sso_query_path(:p_url,:p_schema) from dual'
65   INTO l_retval using p_url,p_schema;
66 
67 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
68   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
69                   MODULE    => l_module,
70                   MESSAGE   => 'Exiting ' || l_procedure);
71 END IF;
72 
73 RETURN(l_retval);
74 
75 --
76 END get_sso_query_path;
77 --
78 
79 FUNCTION encrypt_ps_password
80         (
81   p_password IN VARCHAR2
82   )
83         RETURN VARCHAR2 IS
84 
85 l_procedure VARCHAR2(31) := 'encrypt_ps_password';
86 l_retval    VARCHAR2(2000);
87 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
88 --
89 BEGIN
90 --
91 
92 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
93   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
94                   MODULE    => l_module,
95                   MESSAGE   => 'Entering ' || l_procedure);
96 END IF;
97 
98 EXECUTE IMMEDIATE
99             'select wwsso_utl.encrypt_ps_password(:p_password) from dual'
100   INTO l_retval using p_password;
101 
102 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
103   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
104                   MODULE    => l_module,
105                   MESSAGE   => 'Exiting ' || l_procedure);
106 END IF;
107 
108 RETURN(l_retval);
109 
110 --
111 END encrypt_ps_password;
112 --
113 
114 FUNCTION decrypt_ps_password
115         (
116   p_password IN VARCHAR2
117   )
118         RETURN VARCHAR2 IS
119 
120 l_procedure VARCHAR2(31) := 'decrypt_ps_password';
121 l_retval    VARCHAR2(2000);
122 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
123 --
124 BEGIN
125 --
126 
127 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
128   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
129                   MODULE    => l_module,
130                   MESSAGE   => 'Entering ' || l_procedure);
131 END IF;
132 
133 EXECUTE IMMEDIATE
134             'select wwsso_utl.decrypt_ps_password(:p_password) from dual'
135   INTO l_retval using p_password;
136 
137 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
138   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
139                   MODULE    => l_module,
140                   MESSAGE   => 'Exiting ' || l_procedure);
141 END IF;
142 
143 RETURN(l_retval);
144 
145 --
146 END decrypt_ps_password;
147 --
148 
149 FUNCTION encrypt_ps_username
150         (
151   p_username IN VARCHAR2
152   )
153         RETURN VARCHAR2 IS
154 
155 l_procedure VARCHAR2(31) := 'encrypt_ps_username';
156 l_retval    VARCHAR2(2000);
157 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
158 --
159 BEGIN
160 --
161 
162 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
163   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
164                   MODULE    => l_module,
165                   MESSAGE   => 'Entering ' || l_procedure);
166 END IF;
167 
168 EXECUTE IMMEDIATE
169             'select wwsso_utl.encrypt_ps_username(:p_username) from dual'
170   INTO l_retval using p_username;
171 
172 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
173   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
174                   MODULE    => l_module,
175                   MESSAGE   => 'Exiting ' || l_procedure);
176 END IF;
177 
178 RETURN(l_retval);
179 
180 --
181 END encrypt_ps_username;
182 --
183 
184 FUNCTION decrypt_ps_username
185         (
186   p_username IN VARCHAR2
187   )
188         RETURN VARCHAR2 IS
189 
190 l_procedure VARCHAR2(31) := 'decrypt_ps_username';
191 l_retval    VARCHAR2(2000);
192 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
193 --
194 BEGIN
195 --
196 
197 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
198   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
199                   MODULE    => l_module,
200                   MESSAGE   => 'Entering ' || l_procedure);
201 END IF;
202 
203 EXECUTE IMMEDIATE
204             'select wwsso_utl.decrypt_ps_username(:p_username) from dual'
205   INTO l_retval using p_username;
206 
207 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
208   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
209                   MODULE    => l_module,
210                   MESSAGE   => 'Exiting ' || l_procedure);
211 END IF;
212 
213 RETURN(l_retval);
214 
215 --
216 END decrypt_ps_username;
217 --
218 
219 FUNCTION get_user
220         RETURN VARCHAR2 IS
221 
222 l_procedure VARCHAR2(31) := 'get_user';
223 l_retval    VARCHAR2(2000);
224 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
225 --
226 BEGIN
227 --
228 
229 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
230   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
231                   MODULE    => l_module,
232                   MESSAGE   => 'Entering ' || l_procedure);
233 END IF;
234 
235 EXECUTE IMMEDIATE
236             'select ' ||
237             'wwctx_api.get_user'
238             || ' from dual'
239   INTO l_retval;
240 
241 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
242   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
243                   MODULE    => l_module,
244                   MESSAGE   => 'Exiting ' || l_procedure);
245 END IF;
246 
247 RETURN(l_retval);
248 
249 --
250 END get_user;
251 --
252 
253 PROCEDURE pstore_add_application
254   (
255   P_APPNAME    IN  VARCHAR2,
256   P_APPTYPE    IN  VARCHAR2,
257   P_APPURL     IN  VARCHAR2,
258   P_LOGOUT_URL IN  VARCHAR2,
259   P_USERFLD    IN  VARCHAR2,
260   P_PWDFLD     IN  VARCHAR2,
261   P_AUTHUSED   IN  VARCHAR2,
262   P_FNAME1     IN  VARCHAR2 DEFAULT NULL,
263   P_FVAL1      IN  VARCHAR2 DEFAULT NULL,
264   P_FNAME2     IN  VARCHAR2 DEFAULT NULL,
265   P_FVAL2      IN  VARCHAR2 DEFAULT NULL,
266   P_FNAME3     IN  VARCHAR2 DEFAULT NULL,
267   P_FVAL3      IN  VARCHAR2 DEFAULT NULL,
268   P_FNAME4     IN  VARCHAR2 DEFAULT NULL,
269   P_FVAL4      IN  VARCHAR2 DEFAULT NULL,
270   P_FNAME5     IN  VARCHAR2 DEFAULT NULL,
271   P_FVAL5      IN  VARCHAR2 DEFAULT NULL,
272   P_FNAME6     IN  VARCHAR2 DEFAULT NULL,
273   P_FVAL6      IN  VARCHAR2 DEFAULT NULL,
274   P_FNAME7     IN  VARCHAR2 DEFAULT NULL,
275   P_FVAL7      IN  VARCHAR2 DEFAULT NULL,
276   P_FNAME8     IN  VARCHAR2 DEFAULT NULL,
277   P_FVAL8      IN  VARCHAR2 DEFAULT NULL,
278   P_FNAME9     IN  VARCHAR2 DEFAULT NULL,
279   P_FVAL9      IN  VARCHAR2 DEFAULT NULL,
280   P_APPID      OUT NOCOPY VARCHAR2
281   ) IS
282 
283 l_procedure VARCHAR2(31) := 'pstore_add_application';
284 l_retval    VARCHAR2(2000);
285 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
286 --
287 BEGIN
288 --
289 
290 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
291   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
292                   MODULE    => l_module,
293                   MESSAGE   => 'Entering ' || l_procedure);
294 END IF;
295 
296 EXECUTE IMMEDIATE
297   'begin WWSSO_PSTORE_EX.pstore_add_application(' ||
298   ':P_APPNAME, :P_APPTYPE, :P_APPURL, :P_LOGOUT_URL, ' ||
299   ':P_USERFLD, :P_PWDFLD, :P_AUTHUSED, ' ||
300   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
301   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
302   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
303   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
304   ':P_FNAME9, :P_FVAL9, ' ||
305   ':P_APPID' ||
306   '); end;'
307   USING
308     IN P_APPNAME, IN P_APPTYPE,
309     IN P_APPURL, IN P_LOGOUT_URL,
310     IN P_USERFLD, IN P_PWDFLD,
311     IN P_AUTHUSED,
312     IN P_FNAME1,  IN P_FVAL1,
313     IN P_FNAME2,  IN P_FVAL2,
314     IN P_FNAME3,  IN P_FVAL3,
315     IN P_FNAME4,  IN P_FVAL4,
316     IN P_FNAME5,  IN P_FVAL5,
317     IN P_FNAME6,  IN P_FVAL6,
318     IN P_FNAME7,  IN P_FVAL7,
319     IN P_FNAME8,  IN P_FVAL8,
320     IN P_FNAME9,  IN P_FVAL9,
321     OUT P_APPID;
322 
323 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
324   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
325                   MODULE    => l_module,
326                   MESSAGE   => 'Exiting ' || l_procedure);
327 END IF;
328 
329 --
330 END pstore_add_application;
331 --
332 
333 PROCEDURE pstore_modify_app_info
334   (
335   P_APPID      IN  VARCHAR2,
336   P_APP_NAME   IN  VARCHAR2,
337   P_APPTYPE    IN  VARCHAR2,
338   P_APPURL     IN  VARCHAR2,
339   P_LOGOUT_URL IN  VARCHAR2,
340   P_USERFIELD  IN  VARCHAR2,
341   P_PWDFIELD   IN  VARCHAR2,
342   P_AUTHNEEDED IN  VARCHAR2,
343   P_FNAME1     IN  VARCHAR2 DEFAULT NULL,
344   P_FVAL1      IN  VARCHAR2 DEFAULT NULL,
345   P_FNAME2     IN  VARCHAR2 DEFAULT NULL,
346   P_FVAL2      IN  VARCHAR2 DEFAULT NULL,
347   P_FNAME3     IN  VARCHAR2 DEFAULT NULL,
348   P_FVAL3      IN  VARCHAR2 DEFAULT NULL,
349   P_FNAME4     IN  VARCHAR2 DEFAULT NULL,
350   P_FVAL4      IN  VARCHAR2 DEFAULT NULL,
351   P_FNAME5     IN  VARCHAR2 DEFAULT NULL,
352   P_FVAL5      IN  VARCHAR2 DEFAULT NULL,
353   P_FNAME6     IN  VARCHAR2 DEFAULT NULL,
354   P_FVAL6      IN  VARCHAR2 DEFAULT NULL,
355   P_FNAME7     IN  VARCHAR2 DEFAULT NULL,
356   P_FVAL7      IN  VARCHAR2 DEFAULT NULL,
357   P_FNAME8     IN  VARCHAR2 DEFAULT NULL,
358   P_FVAL8      IN  VARCHAR2 DEFAULT NULL,
359   P_FNAME9     IN  VARCHAR2 DEFAULT NULL,
360   P_FVAL9      IN  VARCHAR2 DEFAULT NULL
361   ) IS
362 
363 l_procedure VARCHAR2(31) := 'pstore_modify_app_info';
364 l_retval VARCHAR2(2000);
365 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
366 --
367 BEGIN
368 --
369 
370 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
371   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
372                   MODULE    => l_module,
373                   MESSAGE   => 'Entering ' || l_procedure);
374 END IF;
375 
376 EXECUTE IMMEDIATE
377   'begin WWSSO_PSTORE_EX.pstore_modify_app_info(' ||
378   ':P_APPID, :P_APP_NAME, :P_APPTYPE, :P_APPURL, :P_LOGOUT_URL, ' ||
379   ':P_USERFIELD, :P_PWDFIELD, :P_AUTHNEEDED, ' ||
380   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
381   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
382   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
383   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
384   ':P_FNAME9, :P_FVAL9 ' ||
385   '); end;'
386   USING
387     IN P_APPID, IN P_APP_NAME,
388     IN P_APPTYPE, IN P_APPURL,
389     IN P_LOGOUT_URL, IN P_USERFIELD,
390     IN P_PWDFIELD, IN P_AUTHNEEDED,
391     IN P_FNAME1,  IN P_FVAL1,
392     IN P_FNAME2,  IN P_FVAL2,
393     IN P_FNAME3,  IN P_FVAL3,
394     IN P_FNAME4,  IN P_FVAL4,
395     IN P_FNAME5,  IN P_FVAL5,
396     IN P_FNAME6,  IN P_FVAL6,
397     IN P_FNAME7,  IN P_FVAL7,
398     IN P_FNAME8,  IN P_FVAL8,
399     IN P_FNAME9,  IN P_FVAL9;
400 
401 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
402   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
403                   MODULE    => l_module,
404                   MESSAGE   => 'Exiting ' || l_procedure);
405 END IF;
406 
407 --
408 END pstore_modify_app_info;
409 --
410 
411 PROCEDURE pstore_get_app_info
412   (
413   P_APPID      IN   VARCHAR2,
414   P_APP_NAME   OUT NOCOPY VARCHAR2,
415   P_APPTYPE    OUT NOCOPY VARCHAR2,
416   P_APPURL     OUT NOCOPY VARCHAR2,
417   P_LOGOUT_URL OUT NOCOPY VARCHAR2,
418   P_USERFIELD  OUT NOCOPY VARCHAR2,
419   P_PWDFIELD   OUT NOCOPY VARCHAR2,
420   P_AUTHNEEDED OUT NOCOPY VARCHAR2,
421   P_FNAME1     OUT NOCOPY VARCHAR2,
422   P_FVAL1      OUT NOCOPY VARCHAR2,
423   P_FNAME2     OUT NOCOPY VARCHAR2,
424   P_FVAL2      OUT NOCOPY VARCHAR2,
425   P_FNAME3     OUT NOCOPY VARCHAR2,
426   P_FVAL3      OUT NOCOPY VARCHAR2,
427   P_FNAME4     OUT NOCOPY VARCHAR2,
428   P_FVAL4      OUT NOCOPY VARCHAR2,
429   P_FNAME5     OUT NOCOPY VARCHAR2,
430   P_FVAL5      OUT NOCOPY VARCHAR2,
431   P_FNAME6     OUT NOCOPY VARCHAR2,
432   P_FVAL6      OUT NOCOPY VARCHAR2,
433   P_FNAME7     OUT NOCOPY VARCHAR2,
434   P_FVAL7      OUT NOCOPY VARCHAR2,
435   P_FNAME8     OUT NOCOPY VARCHAR2,
436   P_FVAL8      OUT NOCOPY VARCHAR2,
437   P_FNAME9     OUT NOCOPY VARCHAR2,
438   P_FVAL9      OUT NOCOPY VARCHAR2
439   ) IS
440 
441 l_procedure VARCHAR2(31) := 'pstore_get_app_info';
442 l_retval    VARCHAR2(2000);
443 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
444 --
445 BEGIN
446 --
447 
448 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
449   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
450                   MODULE    => l_module,
451                   MESSAGE   => 'Entering ' || l_procedure);
452 END IF;
453 
454 EXECUTE IMMEDIATE
455   'begin WWSSO_PSTORE_EX.pstore_get_app_info(' ||
456   ':P_APPID, :P_APP_NAME, :P_APPTYPE, :P_APPURL, :P_LOGOUT_URL, ' ||
457   ':P_USERFIELD, :P_PWDFIELD, :P_AUTHNEEDED, ' ||
458   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
459   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
460   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
461   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
462   ':P_FNAME9, :P_FVAL9 ' ||
463   '); end;'
464   USING
465     IN P_APPID, OUT P_APP_NAME,
466     OUT P_APPTYPE, OUT P_APPURL,
467     OUT P_LOGOUT_URL, OUT P_USERFIELD,
471     OUT P_FNAME3,  OUT P_FVAL3,
468     OUT P_PWDFIELD, OUT P_AUTHNEEDED,
469     OUT P_FNAME1,  OUT P_FVAL1,
470     OUT P_FNAME2,  OUT P_FVAL2,
472     OUT P_FNAME4,  OUT P_FVAL4,
473     OUT P_FNAME5,  OUT P_FVAL5,
474     OUT P_FNAME6,  OUT P_FVAL6,
475     OUT P_FNAME7,  OUT P_FVAL7,
476     OUT P_FNAME8,  OUT P_FVAL8,
477     OUT P_FNAME9,  OUT P_FVAL9;
478 
479 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
480   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
481                   MODULE    => l_module,
482                   MESSAGE   => 'Exiting ' || l_procedure);
483 END IF;
484 
485 --
486 END pstore_get_app_info;
487 --
488 
489 PROCEDURE pstore_add_userinfo
490   (
491   P_APP_ID     IN  VARCHAR2,
492   P_SSOUSER    IN  VARCHAR2,
493   P_APP_USER   IN  VARCHAR2,
494   P_APP_PWD    IN  VARCHAR2,
495   P_FNAME1     IN  VARCHAR2 DEFAULT NULL,
496   P_FVAL1      IN  VARCHAR2 DEFAULT NULL,
497   P_FNAME2     IN  VARCHAR2 DEFAULT NULL,
498   P_FVAL2      IN  VARCHAR2 DEFAULT NULL,
499   P_FNAME3     IN  VARCHAR2 DEFAULT NULL,
500   P_FVAL3      IN  VARCHAR2 DEFAULT NULL,
501   P_FNAME4     IN  VARCHAR2 DEFAULT NULL,
502   P_FVAL4      IN  VARCHAR2 DEFAULT NULL,
503   P_FNAME5     IN  VARCHAR2 DEFAULT NULL,
504   P_FVAL5      IN  VARCHAR2 DEFAULT NULL,
505   P_FNAME6     IN  VARCHAR2 DEFAULT NULL,
506   P_FVAL6      IN  VARCHAR2 DEFAULT NULL,
507   P_FNAME7     IN  VARCHAR2 DEFAULT NULL,
508   P_FVAL7      IN  VARCHAR2 DEFAULT NULL,
509   P_FNAME8     IN  VARCHAR2 DEFAULT NULL,
510   P_FVAL8      IN  VARCHAR2 DEFAULT NULL,
511   P_FNAME9     IN  VARCHAR2 DEFAULT NULL,
512   P_FVAL9      IN  VARCHAR2 DEFAULT NULL,
513   P_USER_PREFS IN  VARCHAR2
514   ) IS
515 
516 l_procedure VARCHAR2(31) := 'pstore_add_userinfo';
517 l_retval    VARCHAR2(2000);
518 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
519 --
520 BEGIN
521 --
522 
523 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
524   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
525                   MODULE    => l_module,
526                   MESSAGE   => 'Entering ' || l_procedure);
527 END IF;
528 
529 EXECUTE IMMEDIATE
530     'declare l_usertype sso_user_type;'||
531     'l_err number;'||
532     'begin '||
533      'wwsso_ls_private.get_default_user_config(l_usertype);'||
534      'l_usertype.ssousername := :1;'||
535      'l_usertype.ssorole := :2;'||
536      'wwsso_ls_private.ls_create_user(l_usertype, l_err);'||
537      ' commit; '||
538      ' exception when wwsso_ls_private.dup_username_exception '||
539      ' then null; '||
540      ' when others then null;'||
541     'end;'
542     using
543     IN P_SSOUSER, IN 'USER';
544 
545 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
546   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
547                   MODULE    => l_module,
548                   MESSAGE   => 'After config done ');
549 END IF;
550 
551 
552 EXECUTE IMMEDIATE
553   'begin WWSSO_PSTORE_EX.pstore_add_userinfo(' ||
554   ':P_APP_ID, :P_SSOUSER, :P_APP_USER, :P_APP_PWD, ' ||
555   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
556   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
557   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
558   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
559   ':P_FNAME9, :P_FVAL9, ' ||
560   ':P_USER_PREFS' ||
561   '); end;'
562   USING
563     IN P_APP_ID, IN P_SSOUSER,
564     IN P_APP_USER, IN P_APP_PWD,
565     IN P_FNAME1,  IN P_FVAL1,
566     IN P_FNAME2,  IN P_FVAL2,
567     IN P_FNAME3,  IN P_FVAL3,
568     IN P_FNAME4,  IN P_FVAL4,
569     IN P_FNAME5,  IN P_FVAL5,
570     IN P_FNAME6,  IN P_FVAL6,
571     IN P_FNAME7,  IN P_FVAL7,
572     IN P_FNAME8,  IN P_FVAL8,
573     IN P_FNAME9,  IN P_FVAL9,
574     IN P_USER_PREFS;
575 
576 
577 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
578   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
579                   MODULE    => l_module,
580                   MESSAGE   => 'Exiting ' || l_procedure);
581 END IF;
582 
583 --
584 END pstore_add_userinfo;
585 --
586 
587 PROCEDURE pstore_modify_userinfo
588   (
589   P_APP_ID     IN  VARCHAR2,
590   P_SSOUSER    IN  VARCHAR2,
591   P_APP_USER   IN  VARCHAR2,
592   P_APP_PWD    IN  VARCHAR2,
593   P_FNAME1     IN  VARCHAR2 DEFAULT NULL,
594   P_FVAL1      IN  VARCHAR2 DEFAULT NULL,
595   P_FNAME2     IN  VARCHAR2 DEFAULT NULL,
596   P_FVAL2      IN  VARCHAR2 DEFAULT NULL,
597   P_FNAME3     IN  VARCHAR2 DEFAULT NULL,
598   P_FVAL3      IN  VARCHAR2 DEFAULT NULL,
599   P_FNAME4     IN  VARCHAR2 DEFAULT NULL,
600   P_FVAL4      IN  VARCHAR2 DEFAULT NULL,
601   P_FNAME5     IN  VARCHAR2 DEFAULT NULL,
602   P_FVAL5      IN  VARCHAR2 DEFAULT NULL,
603   P_FNAME6     IN  VARCHAR2 DEFAULT NULL,
604   P_FVAL6      IN  VARCHAR2 DEFAULT NULL,
605   P_FNAME7     IN  VARCHAR2 DEFAULT NULL,
606   P_FVAL7      IN  VARCHAR2 DEFAULT NULL,
607   P_FNAME8     IN  VARCHAR2 DEFAULT NULL,
608   P_FVAL8      IN  VARCHAR2 DEFAULT NULL,
609   P_FNAME9     IN  VARCHAR2 DEFAULT NULL,
613 
610   P_FVAL9      IN  VARCHAR2 DEFAULT NULL,
611   P_USER_PREFS IN  VARCHAR2
612   ) IS
614 l_procedure VARCHAR2(31) := 'pstore_modify_userinfo';
615 l_retval    VARCHAR2(2000);
616 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
617 
618 --
619 BEGIN
620 --
621 
622 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
624                   MODULE    => l_module,
625                   MESSAGE   => 'Entering ' || l_procedure);
626 END IF;
627 
628 EXECUTE IMMEDIATE
629   'begin WWSSO_PSTORE_EX.pstore_modify_userinfo(' ||
630   ':P_APP_ID, :P_SSOUSER, :P_APP_USER, :P_APP_PWD, ' ||
631   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
632   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
633   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
634   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
635   ':P_FNAME9, :P_FVAL9, ' ||
636   ':P_USER_PREFS' ||
637   '); end;'
638   USING
639     IN P_APP_ID, IN P_SSOUSER,
640     IN P_APP_USER, IN P_APP_PWD,
641     IN P_FNAME1,  IN P_FVAL1,
642     IN P_FNAME2,  IN P_FVAL2,
643     IN P_FNAME3,  IN P_FVAL3,
644     IN P_FNAME4,  IN P_FVAL4,
645     IN P_FNAME5,  IN P_FVAL5,
646     IN P_FNAME6,  IN P_FVAL6,
647     IN P_FNAME7,  IN P_FVAL7,
648     IN P_FNAME8,  IN P_FVAL8,
649     IN P_FNAME9,  IN P_FVAL9,
650     IN P_USER_PREFS;
651 
652 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
653   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
654                   MODULE    => l_module,
655                   MESSAGE   => 'Exiting ' || l_procedure);
656 END IF;
657 
658 --
659 END pstore_modify_userinfo;
660 --
661 
662 PROCEDURE pstore_get_userinfo
663   (
664   P_APP_ID     IN  VARCHAR2,
665   P_SSOUSER    IN  VARCHAR2,
666   P_APP_USER   OUT NOCOPY VARCHAR2,
667   P_APP_PWD    OUT NOCOPY VARCHAR2,
668   P_FNAME1     OUT NOCOPY VARCHAR2,
669   P_FVAL1      OUT NOCOPY VARCHAR2,
670   P_FNAME2     OUT NOCOPY VARCHAR2,
671   P_FVAL2      OUT NOCOPY VARCHAR2,
672   P_FNAME3     OUT NOCOPY VARCHAR2,
673   P_FVAL3      OUT NOCOPY VARCHAR2,
674   P_FNAME4     OUT NOCOPY VARCHAR2,
675   P_FVAL4      OUT NOCOPY VARCHAR2,
676   P_FNAME5     OUT NOCOPY VARCHAR2,
677   P_FVAL5      OUT NOCOPY VARCHAR2,
678   P_FNAME6     OUT NOCOPY VARCHAR2,
679   P_FVAL6      OUT NOCOPY VARCHAR2,
680   P_FNAME7     OUT NOCOPY VARCHAR2,
681   P_FVAL7      OUT NOCOPY VARCHAR2,
682   P_FNAME8     OUT NOCOPY VARCHAR2,
683   P_FVAL8      OUT NOCOPY VARCHAR2,
684   P_FNAME9     OUT NOCOPY VARCHAR2,
685   P_FVAL9      OUT NOCOPY VARCHAR2,
686   P_USER_PREFS OUT NOCOPY VARCHAR2
687    ) IS
688 
689 l_procedure VARCHAR2(31) := 'pstore_get_userinfo';
690 l_retval    VARCHAR2(2000);
691 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
692 --
693 BEGIN
694 --
695 
696 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
697   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
698                   MODULE    => l_module,
699                   MESSAGE   => 'Entering ' || l_procedure);
700 END IF;
701 
702 EXECUTE IMMEDIATE
703   'begin WWSSO_PSTORE_EX.pstore_get_userinfo(' ||
704   ':P_APP_ID, :P_SSOUSER, :P_APP_USER, :P_APP_PWD, ' ||
705   ':P_FNAME1, :P_FVAL1, :P_FNAME2, :P_FVAL2, ' ||
706   ':P_FNAME3, :P_FVAL3, :P_FNAME4, :P_FVAL4, ' ||
707   ':P_FNAME5, :P_FVAL5, :P_FNAME6, :P_FVAL6, ' ||
708   ':P_FNAME7, :P_FVAL7, :P_FNAME8, :P_FVAL8, ' ||
709   ':P_FNAME9, :P_FVAL9, ' ||
710   ':P_USER_PREFS' ||
711   '); end;'
712   USING
713     IN P_APP_ID, IN P_SSOUSER,
714     OUT P_APP_USER, OUT P_APP_PWD,
715     OUT P_FNAME1,  OUT P_FVAL1,
716     OUT P_FNAME2,  OUT P_FVAL2,
717     OUT P_FNAME3,  OUT P_FVAL3,
718     OUT P_FNAME4,  OUT P_FVAL4,
719     OUT P_FNAME5,  OUT P_FVAL5,
720     OUT P_FNAME6,  OUT P_FVAL6,
721     OUT P_FNAME7,  OUT P_FVAL7,
722     OUT P_FNAME8,  OUT P_FVAL8,
723     OUT P_FNAME9,  OUT P_FVAL9,
724     OUT P_USER_PREFS;
725 
726 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
727   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
728                   MODULE    => l_module,
729                   MESSAGE   => 'Exiting ' || l_procedure);
730 END IF;
731 
732 --
733 END pstore_get_userinfo;
734 --
735 
736 PROCEDURE delete_application(
737   p_appid IN  VARCHAR2
738 , p_error OUT NOCOPY NUMBER
739 )
740 IS
741 
742 l_procedure VARCHAR2(31) := 'delete_application';
743 l_error     VARCHAR2(2000);
744 l_module    VARCHAR2(80) := g_module || '.' || l_procedure;
745 
746 --
747 BEGIN
748 --
749 
750 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
751   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
752                   MODULE    => l_module,
753                   MESSAGE   => 'Entering ' || l_procedure);
754 END IF;
755 
756 EXECUTE IMMEDIATE
757   'begin WWSSO_PSTORE_EX.delete_application(' ||
758   ':p_appid, :p_error ' ||
759   '); end;'
760   USING
761     IN p_appid,
762     OUT p_error;
763 
764 
765 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766   FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
767                   MODULE    => l_module,
768                   MESSAGE   => 'Exiting ' || l_procedure);
769 END IF;
770 
771 
772 --
773 END delete_application;
774 
775 END hr_sso_utl;
776