[Home] [Help]
PACKAGE BODY: APPS.IRC_REGISTER_EX_EMP_WF
Source
1 package body IRC_REGISTER_EX_EMP_WF as
2 /* $Header: irexempr.pkb 120.2 2005/11/23 01:01:58 gjaggava noship $ */
3 --Package Variables
4 --
5 g_package varchar2(33) := 'irc_register_ex_emp_wf.';
6 --
7 -- -------------------------------------------------------------------------
8 -- |------------------------< self_register_user_save >------------------|
9 -- -------------------------------------------------------------------------
10 --
11 procedure self_register_user_save
12 (itemtype in varchar2,
13 itemkey in varchar2,
14 actid in number,
15 funcmode in varchar2,
16 resultout out nocopy varchar2) is
17 l_current_email_address varchar2(255);
18 l_responsibility_id number;
19 l_resp_appl_id number;
20 l_security_group_id number;
21 l_first_name varchar2(255);
22 l_last_name varchar2(255);
23 l_middle_names varchar2(255);
24 l_previous_last_name varchar2(255);
25 l_employee_number varchar2(255);
26 l_national_identifier varchar2(255);
27 l_date_of_birth date;
28 l_email_address varchar2(255);
29 l_home_phone_number varchar2(255);
30 l_work_phone_number varchar2(255);
31 l_address_line_1 varchar2(255);
32 l_manager_last_name varchar2(255);
33 l_allow_access varchar2(255);
34 l_language varchar2(255);
35 l_user_name varchar2(255);
36 l_proc varchar2(72) := g_package||'self_register_user_save';
37 begin
38 hr_utility.set_location(' Entering: '||l_proc, 10);
39 if (funcmode='RUN') then
40 hr_utility.set_location(l_proc,20);
41
42 l_current_email_address:=wf_engine.getItemAttrText
43 (itemtype => itemtype,
44 itemkey => itemkey,
45 aname => 'CURRENT_EMAIL_ADDRESS');
46 l_responsibility_id:=wf_engine.getItemAttrNumber
47 (itemtype => itemtype,
48 itemkey => itemkey,
49 aname => 'RESPONSIBILITY_ID');
50 l_resp_appl_id:=wf_engine.getItemAttrNumber
51 (itemtype => itemtype,
52 itemkey => itemkey,
53 aname => 'RESP_APPL_ID');
54 l_security_group_id:=wf_engine.getItemAttrNumber
55 (itemtype => itemtype,
56 itemkey => itemkey,
57 aname => 'SECURITY_GROUP_ID');
58 l_first_name:=wf_engine.getItemAttrText
59 (itemtype => itemtype,
60 itemkey => itemkey,
61 aname => 'FIRST_NAME');
62 l_last_name:=wf_engine.getItemAttrText
63 (itemtype => itemtype,
64 itemkey => itemkey,
65 aname => 'LAST_NAME');
66 l_middle_names:=wf_engine.getItemAttrText
67 (itemtype => itemtype,
68 itemkey => itemkey,
69 aname => 'MIDDLE_NAMES');
70 l_previous_last_name:=wf_engine.getItemAttrText
71 (itemtype => itemtype,
72 itemkey => itemkey,
73 aname => 'PREVIOUS_LAST_NAME');
74 l_employee_number:=wf_engine.getItemAttrText
75 (itemtype => itemtype,
76 itemkey => itemkey,
77 aname => 'EMPLOYEE_NUMBER');
78 l_national_identifier:=wf_engine.getItemAttrText
79 (itemtype => itemtype,
80 itemkey => itemkey,
81 aname => 'NATIONAL_IDENTIFIER');
82 l_date_of_birth:=wf_engine.getItemAttrDate
83 (itemtype => itemtype,
84 itemkey => itemkey,
85 aname => 'DATE_OF_BIRTH');
86 l_email_address:=wf_engine.getItemAttrText
87 (itemtype => itemtype,
88 itemkey => itemkey,
89 aname => 'EMAIL_ADDRESS');
90 l_home_phone_number:=wf_engine.getItemAttrText
91 (itemtype => itemtype,
92 itemkey => itemkey,
93 aname => 'HOME_PHONE_NUMBER');
94 l_work_phone_number:=wf_engine.getItemAttrText
95 (itemtype => itemtype,
96 itemkey => itemkey,
97 aname => 'WORK_PHONE_NUMBER');
98 l_address_line_1:=wf_engine.getItemAttrText
99 (itemtype => itemtype,
100 itemkey => itemkey,
101 aname => 'ADDRESS_LINE_1');
102 l_manager_last_name:=wf_engine.getItemAttrText
103 (itemtype => itemtype,
104 itemkey => itemkey,
105 aname => 'MANAGER_LAST_NAME');
106 l_allow_access:=wf_engine.getItemAttrText
107 (itemtype => itemtype,
108 itemkey => itemkey,
109 aname => 'ALLOW_ACCESS');
110 l_language:=wf_engine.getItemAttrText
111 (itemtype => itemtype,
112 itemkey => itemkey,
113 aname => 'LANGUAGE');
114 l_user_name:=wf_engine.getItemAttrText
115 (itemtype => itemtype,
116 itemkey => itemkey,
117 aname => 'USER_NAME');
118
119 hr_utility.set_location(l_proc,30);
120
121 IRC_PARTY_API.SELF_REGISTER_USER
122 (p_current_email_address => l_current_email_address
123 ,p_responsibility_id => l_responsibility_id
124 ,p_resp_appl_id => l_resp_appl_id
125 ,p_security_group_id => l_security_group_id
126 ,p_first_name => l_first_name
127 ,p_last_name => l_last_name
128 ,p_middle_names => l_middle_names
129 ,p_previous_last_name => l_previous_last_name
130 ,p_employee_number => l_employee_number
131 ,p_national_identifier => l_national_identifier
132 ,p_date_of_birth => l_date_of_birth
133 ,p_email_address => l_email_address
134 ,p_home_phone_number => l_home_phone_number
135 ,p_work_phone_number => l_work_phone_number
136 ,p_address_line_1 => l_address_line_1
137 ,p_manager_last_name => l_manager_last_name
138 ,p_allow_access => l_allow_access
139 ,p_language => l_language
140 ,p_user_name => l_user_name
141 );
142 resultout:='COMPLETE';
143 hr_utility.set_location('Leaving: '||l_proc,40);
144
145 return;
146 end if;
147 exception
148 when others then
149 hr_utility.set_location(l_proc,50);
150
151 wf_core.context('IRC_REGISTER_EX_EMP_WF'
152 ,'SELF_REGISTER_USER_SAVE'
153 ,itemtype
154 ,itemkey
155 ,to_char(actid)
156 ,funcmode);
157
158 raise;
159 end self_register_user_save;
160
161 procedure self_register_user_init
162 (p_current_email_address IN varchar2
163 ,p_responsibility_id IN number
164 ,p_resp_appl_id IN number
165 ,p_security_group_id IN number
166 ,p_first_name IN varchar2 default null
167 ,p_last_name IN varchar2 default null
168 ,p_middle_names IN varchar2 default null
169 ,p_previous_last_name IN varchar2 default null
170 ,p_employee_number IN varchar2 default null
171 ,p_national_identifier IN varchar2 default null
172 ,p_date_of_birth IN date default null
173 ,p_email_address IN varchar2 default null
174 ,p_home_phone_number IN varchar2 default null
175 ,p_work_phone_number IN varchar2 default null
176 ,p_address_line_1 IN varchar2 default null
177 ,p_manager_last_name IN varchar2 default null
178 ,p_allow_access IN varchar2 default 'N'
179 ,p_language IN varchar2 default null
180 ,p_user_name IN varchar2 default null
181 ) is
182 l_proc varchar2(72) := g_package||'self_register_user_init';
183 itemtype varchar2(30):='IRC_REG';
184 itemkey varchar2(30);
185 begin
186 hr_utility.set_location(' Entering: '||l_proc, 10);
187 --
188 select irc_wf_s.nextval
189 into itemkey
190 from dual;
191 --
192 wf_engine.CreateProcess (itemtype => itemtype,
193 itemkey => itemkey,
194 process => 'REG_REQUEST' );
195
196 hr_utility.set_location(l_proc,20);
197
198 wf_engine.setItemAttrText
199 (itemtype => itemtype,
200 itemkey => itemkey,
201 aname => 'CURRENT_EMAIL_ADDRESS',
202 avalue => p_current_email_address);
203 wf_engine.setItemAttrNumber
204 (itemtype => itemtype,
205 itemkey => itemkey,
206 aname => 'RESPONSIBILITY_ID',
207 avalue => p_responsibility_id);
208 wf_engine.setItemAttrNumber
209 (itemtype => itemtype,
210 itemkey => itemkey,
211 aname => 'RESP_APPL_ID',
212 avalue => p_resp_appl_id);
213 wf_engine.setItemAttrNumber
214 (itemtype => itemtype,
215 itemkey => itemkey,
216 aname => 'SECURITY_GROUP_ID',
217 avalue => p_security_group_id);
218 wf_engine.setItemAttrText
219 (itemtype => itemtype,
220 itemkey => itemkey,
221 aname => 'FIRST_NAME',
222 avalue => p_first_name);
223 wf_engine.setItemAttrText
224 (itemtype => itemtype,
225 itemkey => itemkey,
226 aname => 'LAST_NAME',
227 avalue => p_last_name);
228 wf_engine.setItemAttrText
229 (itemtype => itemtype,
230 itemkey => itemkey,
231 aname => 'MIDDLE_NAMES',
232 avalue => p_middle_names);
233 wf_engine.setItemAttrText
234 (itemtype => itemtype,
235 itemkey => itemkey,
236 aname => 'PREVIOUS_LAST_NAME',
237 avalue => p_previous_last_name);
238 wf_engine.setItemAttrText
239 (itemtype => itemtype,
240 itemkey => itemkey,
241 aname => 'EMPLOYEE_NUMBER',
242 avalue => p_employee_number);
243 wf_engine.setItemAttrText
244 (itemtype => itemtype,
245 itemkey => itemkey,
246 aname => 'NATIONAL_IDENTIFIER',
247 avalue => p_national_identifier);
248 wf_engine.setItemAttrDate
249 (itemtype => itemtype,
250 itemkey => itemkey,
251 aname => 'DATE_OF_BIRTH',
252 avalue => p_date_of_birth);
253 wf_engine.setItemAttrText
254 (itemtype => itemtype,
255 itemkey => itemkey,
256 aname => 'EMAIL_ADDRESS',
257 avalue => p_email_address);
258 wf_engine.setItemAttrText
259 (itemtype => itemtype,
260 itemkey => itemkey,
261 aname => 'HOME_PHONE_NUMBER',
262 avalue => p_home_phone_number);
263 wf_engine.setItemAttrText
264 (itemtype => itemtype,
265 itemkey => itemkey,
266 aname => 'WORK_PHONE_NUMBER',
267 avalue => p_work_phone_number);
268 wf_engine.setItemAttrText
269 (itemtype => itemtype,
270 itemkey => itemkey,
271 aname => 'ADDRESS_LINE_1',
272 avalue => p_address_line_1);
273 wf_engine.setItemAttrText
274 (itemtype => itemtype,
275 itemkey => itemkey,
276 aname => 'MANAGER_LAST_NAME',
277 avalue => p_manager_last_name);
278 wf_engine.setItemAttrText
279 (itemtype => itemtype,
280 itemkey => itemkey,
281 aname => 'ALLOW_ACCESS',
282 avalue => p_allow_access);
283 wf_engine.setItemAttrText
284 (itemtype => itemtype,
285 itemkey => itemkey,
286 aname => 'LANGUAGE',
287 avalue => p_language);
288 wf_engine.setItemAttrText
289 (itemtype => itemtype,
290 itemkey => itemkey,
291 aname => 'USER_NAME',
292 avalue => p_user_name);
293 hr_utility.set_location(l_proc,30);
294
295 wf_engine.StartProcess (itemtype => itemtype,
296 itemkey => itemkey );
297 hr_utility.set_location('Leaving: '||l_proc,40);
298 exception
299 when others then
300 wf_core.context('IRC_REGISTER_EX_EMP_WF'
301 ,'SELF_REGISTER_USER_INIT'
302 ,itemtype
303 ,itemkey);
304
305 raise;
306
307 end self_register_user_init;
308 end irc_register_ex_emp_wf;