1 PACKAGE BODY JTF_AUTH_PRINCIPALS_B_UPDATE as
2 /* $Header: jtfusersyncb.pls 120.1.12010000.1 2009/06/17 12:14:39 jmuralid noship $*/
3 function sync_uname(p_subscription_guid in raw,p_event in out NOCOPY WF_EVENT_T) return varchar2 is
4
5 l_param_list WF_PARAMETER_LIST_T;
6 old_user_name JTF_AUTH_PRINCIPALS_B.PRINCIPAL_NAME%TYPE;
7 l_event_name VARCHAR2(2000);
8 l_event_key JTF_AUTH_PRINCIPALS_B.PRINCIPAL_NAME%TYPE;
9 l_exists varchar2(1);
10 l_user_name FND_USER.USER_NAME%TYPE;
11
12 begin
13
14 l_event_name := p_event.getEventName();
15 l_event_key := p_event.GetEventKey();
16 l_param_list := p_event.getparameterlist();
17
18
19 if l_param_list is not null then
20 for i in l_param_list.FIRST..l_param_list.LAST loop
21 if (l_param_list(i).getName() = 'OLD_USERNAME') then
22 old_user_name := l_param_list(i).getValue();
23 end if;
24 end loop;
25 end if;
26
27 if old_user_name is null then
28 WF_EVENT.setErrorInfo(p_event,'ERROR');
29 FND_MESSAGE.SET_NAME('JTF','JTF_SYNCH_NULL_NAME');
30 app_exception.RAISE_EXCEPTION;
31 end if;
32
33
34 begin
35 select 'Y' into l_exists from JTF_AUTH_PRINCIPALS_B
36 where principal_name = old_user_name;
37
38 exception when no_data_found then
39 l_exists := 'N';
40 return 'SUCCESS';
41 end;
42
43 begin
44 update JTF_AUTH_PRINCIPALS_B
45 set principal_name = l_event_key
46 where principal_name = old_user_name;
47
48 return 'SUCCESS';
49 end;
50
51 end sync_uname;
52
53 end JTF_AUTH_PRINCIPALS_B_UPDATE;