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.HRDPP_CREATE_PERSON

Source


1 package body hrdpp_CREATE_PERSON as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/04 02:01:23
4  * Generated for API: HR_CONTACT_API.CREATE_PERSON
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_START_DATE in date
83 ,P_LAST_NAME in varchar2
84 ,P_SEX in varchar2
85 ,P_COMMENTS in varchar2 default null
86 ,P_DATE_EMPLOYEE_DATA_VERIFIED in date default null
87 ,P_DATE_OF_BIRTH in date default null
88 ,P_EMAIL_ADDRESS in varchar2 default null
89 ,P_EXPENSE_CHECK_SEND_TO_ADDRES in varchar2 default null
90 ,P_FIRST_NAME in varchar2 default null
91 ,P_KNOWN_AS in varchar2 default null
92 ,P_MARITAL_STATUS in varchar2 default null
93 ,P_MIDDLE_NAMES in varchar2 default null
94 ,P_NATIONALITY in varchar2 default null
95 ,P_NATIONAL_IDENTIFIER in varchar2 default null
96 ,P_PREVIOUS_LAST_NAME in varchar2 default null
97 ,P_REGISTERED_DISABLED_FLAG in varchar2 default null
98 ,P_TITLE in varchar2 default null
99 ,P_WORK_TELEPHONE in varchar2 default null
100 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
101 ,P_ATTRIBUTE1 in varchar2 default null
102 ,P_ATTRIBUTE2 in varchar2 default null
103 ,P_ATTRIBUTE3 in varchar2 default null
104 ,P_ATTRIBUTE4 in varchar2 default null
105 ,P_ATTRIBUTE5 in varchar2 default null
106 ,P_ATTRIBUTE6 in varchar2 default null
107 ,P_ATTRIBUTE7 in varchar2 default null
108 ,P_ATTRIBUTE8 in varchar2 default null
109 ,P_ATTRIBUTE9 in varchar2 default null
110 ,P_ATTRIBUTE10 in varchar2 default null
111 ,P_ATTRIBUTE11 in varchar2 default null
112 ,P_ATTRIBUTE12 in varchar2 default null
113 ,P_ATTRIBUTE13 in varchar2 default null
114 ,P_ATTRIBUTE14 in varchar2 default null
115 ,P_ATTRIBUTE15 in varchar2 default null
116 ,P_ATTRIBUTE16 in varchar2 default null
117 ,P_ATTRIBUTE17 in varchar2 default null
118 ,P_ATTRIBUTE18 in varchar2 default null
119 ,P_ATTRIBUTE19 in varchar2 default null
120 ,P_ATTRIBUTE20 in varchar2 default null
121 ,P_ATTRIBUTE21 in varchar2 default null
122 ,P_ATTRIBUTE22 in varchar2 default null
123 ,P_ATTRIBUTE23 in varchar2 default null
124 ,P_ATTRIBUTE24 in varchar2 default null
125 ,P_ATTRIBUTE25 in varchar2 default null
126 ,P_ATTRIBUTE26 in varchar2 default null
127 ,P_ATTRIBUTE27 in varchar2 default null
128 ,P_ATTRIBUTE28 in varchar2 default null
129 ,P_ATTRIBUTE29 in varchar2 default null
130 ,P_ATTRIBUTE30 in varchar2 default null
131 ,P_PER_INFORMATION_CATEGORY in varchar2 default null
132 ,P_PER_INFORMATION1 in varchar2 default null
133 ,P_PER_INFORMATION2 in varchar2 default null
134 ,P_PER_INFORMATION3 in varchar2 default null
135 ,P_PER_INFORMATION4 in varchar2 default null
136 ,P_PER_INFORMATION5 in varchar2 default null
137 ,P_PER_INFORMATION6 in varchar2 default null
138 ,P_PER_INFORMATION7 in varchar2 default null
139 ,P_PER_INFORMATION8 in varchar2 default null
140 ,P_PER_INFORMATION9 in varchar2 default null
141 ,P_PER_INFORMATION10 in varchar2 default null
142 ,P_PER_INFORMATION11 in varchar2 default null
143 ,P_PER_INFORMATION12 in varchar2 default null
144 ,P_PER_INFORMATION13 in varchar2 default null
145 ,P_PER_INFORMATION14 in varchar2 default null
146 ,P_PER_INFORMATION15 in varchar2 default null
147 ,P_PER_INFORMATION16 in varchar2 default null
148 ,P_PER_INFORMATION17 in varchar2 default null
149 ,P_PER_INFORMATION18 in varchar2 default null
150 ,P_PER_INFORMATION19 in varchar2 default null
151 ,P_PER_INFORMATION20 in varchar2 default null
152 ,P_PER_INFORMATION21 in varchar2 default null
153 ,P_PER_INFORMATION22 in varchar2 default null
154 ,P_PER_INFORMATION23 in varchar2 default null
155 ,P_PER_INFORMATION24 in varchar2 default null
156 ,P_PER_INFORMATION25 in varchar2 default null
157 ,P_PER_INFORMATION26 in varchar2 default null
158 ,P_PER_INFORMATION27 in varchar2 default null
159 ,P_PER_INFORMATION28 in varchar2 default null
160 ,P_PER_INFORMATION29 in varchar2 default null
161 ,P_PER_INFORMATION30 in varchar2 default null
162 ,P_CORRESPONDENCE_LANGUAGE in varchar2 default null
163 ,P_HONORS in varchar2 default null
164 ,P_ON_MILITARY_SERVICE in varchar2 default null
165 ,P_STUDENT_STATUS in varchar2 default null
166 ,P_USES_TOBACCO_FLAG in varchar2 default null
167 ,P_COORD_BEN_NO_CVG_FLAG in varchar2 default null
168 ,P_PRE_NAME_ADJUNCT in varchar2 default null
169 ,P_SUFFIX in varchar2 default null
170 ,P_TOWN_OF_BIRTH in varchar2 default null
171 ,P_REGION_OF_BIRTH in varchar2 default null
172 ,P_COUNTRY_OF_BIRTH in varchar2 default null
173 ,P_GLOBAL_PERSON_ID in varchar2 default null
174 ,P_PERSON_USER_KEY in varchar2
175 ,P_USER_PERSON_TYPE in varchar2 default null
176 ,P_LANGUAGE_CODE in varchar2 default null
177 ,P_VENDOR_NAME in varchar2 default null
178 ,P_BENEFIT_GROUP in varchar2 default null) is
179 blid number := p_data_pump_batch_line_id;
180 begin
181 if blid is not null then
182 delete from hr_pump_batch_lines where batch_line_id = blid;
183 delete from hr_pump_batch_exceptions
184 where source_type = 'BATCH_LINE' and source_id = blid;
185 end if;
186 insert into hr_pump_batch_lines
187 (batch_id
188 ,batch_line_id
189 ,business_group_name
190 ,api_module_id
191 ,line_status
192 ,user_sequence
193 ,link_value
194 ,pval001
195 ,pval002
196 ,pval003
197 ,pval004
198 ,pval005
199 ,pval006
200 ,pval007
201 ,pval008
202 ,pval009
203 ,pval010
204 ,pval011
205 ,pval012
206 ,pval013
207 ,pval014
208 ,pval015
209 ,pval016
210 ,pval017
211 ,pval018
212 ,pval019
213 ,pval020
214 ,pval021
215 ,pval022
216 ,pval023
217 ,pval024
218 ,pval025
219 ,pval026
220 ,pval027
221 ,pval028
222 ,pval029
223 ,pval030
224 ,pval031
225 ,pval032
226 ,pval033
227 ,pval034
228 ,pval035
229 ,pval036
230 ,pval037
231 ,pval038
232 ,pval039
233 ,pval040
234 ,pval041
235 ,pval042
236 ,pval043
237 ,pval044
238 ,pval045
239 ,pval046
240 ,pval047
241 ,pval048
242 ,pval049
243 ,pval050
244 ,pval051
245 ,pval052
246 ,pval053
247 ,pval054
248 ,pval055
249 ,pval056
250 ,pval057
251 ,pval058
252 ,pval059
253 ,pval060
254 ,pval061
255 ,pval062
256 ,pval063
257 ,pval064
258 ,pval065
259 ,pval066
260 ,pval067
261 ,pval068
262 ,pval069
263 ,pval070
264 ,pval071
265 ,pval072
266 ,pval073
267 ,pval074
268 ,pval075
269 ,pval076
270 ,pval077
271 ,pval078
272 ,pval079
273 ,pval080
274 ,pval081
275 ,pval082
276 ,pval083
277 ,pval084
278 ,pval085
279 ,pval086
280 ,pval087
281 ,pval088
282 ,pval089
283 ,pval090
284 ,pval091
285 ,pval092
286 ,pval093
287 ,pval101
288 ,pval102
289 ,pval103
290 ,pval104)
291 values
292 (p_batch_id
293 ,nvl(blid,hr_pump_batch_lines_s.nextval)
294 ,p_data_pump_business_grp_name
295 ,1351
296 ,'U'
297 ,p_user_sequence
298 ,p_link_value
299 ,dc(P_START_DATE)
300 ,P_LAST_NAME
301 ,P_SEX
302 ,P_COMMENTS
303 ,dc(P_DATE_EMPLOYEE_DATA_VERIFIED)
304 ,dc(P_DATE_OF_BIRTH)
305 ,P_EMAIL_ADDRESS
306 ,P_EXPENSE_CHECK_SEND_TO_ADDRES
307 ,P_FIRST_NAME
308 ,P_KNOWN_AS
309 ,P_MARITAL_STATUS
310 ,P_MIDDLE_NAMES
311 ,P_NATIONALITY
312 ,P_NATIONAL_IDENTIFIER
313 ,P_PREVIOUS_LAST_NAME
314 ,P_REGISTERED_DISABLED_FLAG
315 ,P_TITLE
316 ,P_WORK_TELEPHONE
317 ,P_ATTRIBUTE_CATEGORY
318 ,P_ATTRIBUTE1
319 ,P_ATTRIBUTE2
320 ,P_ATTRIBUTE3
321 ,P_ATTRIBUTE4
322 ,P_ATTRIBUTE5
323 ,P_ATTRIBUTE6
324 ,P_ATTRIBUTE7
325 ,P_ATTRIBUTE8
326 ,P_ATTRIBUTE9
327 ,P_ATTRIBUTE10
328 ,P_ATTRIBUTE11
329 ,P_ATTRIBUTE12
330 ,P_ATTRIBUTE13
331 ,P_ATTRIBUTE14
332 ,P_ATTRIBUTE15
333 ,P_ATTRIBUTE16
334 ,P_ATTRIBUTE17
335 ,P_ATTRIBUTE18
336 ,P_ATTRIBUTE19
337 ,P_ATTRIBUTE20
338 ,P_ATTRIBUTE21
339 ,P_ATTRIBUTE22
340 ,P_ATTRIBUTE23
341 ,P_ATTRIBUTE24
342 ,P_ATTRIBUTE25
343 ,P_ATTRIBUTE26
344 ,P_ATTRIBUTE27
345 ,P_ATTRIBUTE28
346 ,P_ATTRIBUTE29
347 ,P_ATTRIBUTE30
348 ,P_PER_INFORMATION_CATEGORY
349 ,P_PER_INFORMATION1
350 ,P_PER_INFORMATION2
351 ,P_PER_INFORMATION3
352 ,P_PER_INFORMATION4
353 ,P_PER_INFORMATION5
354 ,P_PER_INFORMATION6
355 ,P_PER_INFORMATION7
356 ,P_PER_INFORMATION8
357 ,P_PER_INFORMATION9
358 ,P_PER_INFORMATION10
359 ,P_PER_INFORMATION11
360 ,P_PER_INFORMATION12
361 ,P_PER_INFORMATION13
362 ,P_PER_INFORMATION14
363 ,P_PER_INFORMATION15
364 ,P_PER_INFORMATION16
365 ,P_PER_INFORMATION17
366 ,P_PER_INFORMATION18
367 ,P_PER_INFORMATION19
368 ,P_PER_INFORMATION20
369 ,P_PER_INFORMATION21
370 ,P_PER_INFORMATION22
371 ,P_PER_INFORMATION23
372 ,P_PER_INFORMATION24
373 ,P_PER_INFORMATION25
374 ,P_PER_INFORMATION26
375 ,P_PER_INFORMATION27
376 ,P_PER_INFORMATION28
377 ,P_PER_INFORMATION29
378 ,P_PER_INFORMATION30
379 ,P_CORRESPONDENCE_LANGUAGE
380 ,P_HONORS
381 ,P_ON_MILITARY_SERVICE
382 ,P_STUDENT_STATUS
383 ,P_USES_TOBACCO_FLAG
384 ,P_COORD_BEN_NO_CVG_FLAG
385 ,P_PRE_NAME_ADJUNCT
386 ,P_SUFFIX
387 ,P_TOWN_OF_BIRTH
388 ,P_REGION_OF_BIRTH
389 ,P_COUNTRY_OF_BIRTH
390 ,P_GLOBAL_PERSON_ID
391 ,P_PERSON_USER_KEY
392 ,P_USER_PERSON_TYPE
393 ,P_LANGUAGE_CODE
394 ,P_VENDOR_NAME
395 ,P_BENEFIT_GROUP);
396 end insert_batch_lines;
397 --
398 procedure call
399 (p_business_group_id in number,
400 p_batch_line_id     in number) is
401 cursor cr is
402 select l.rowid myrowid,
403 decode(l.pval001,cn,dn,d(l.pval001)) p1,
404 decode(l.pval002,cn,vn,l.pval002) p2,
405 decode(l.pval003,cn,vn,
406  hr_pump_get.gl(l.pval003,'SEX',dn,l.pval102)) p3,
407 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
408 l.pval004 d4,
409 decode(l.pval005,cn,dn,vn,dn,d(l.pval005)) p5,
410 l.pval005 d5,
411 decode(l.pval006,cn,dn,vn,dn,d(l.pval006)) p6,
412 l.pval006 d6,
413 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
414 l.pval007 d7,
415 decode(l.pval008,cn,vn,vn,vn,
416  hr_pump_get.gl(l.pval008,'HOME_OFFICE',dn,l.pval102)) p8,
417 l.pval008 d8,
418 decode(l.pval009,cn,vn,vn,vn,l.pval009) p9,
419 l.pval009 d9,
420 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
421 l.pval010 d10,
422 decode(l.pval011,cn,vn,vn,vn,
423  hr_pump_get.gl(l.pval011,'MAR_STATUS',dn,l.pval102)) p11,
424 l.pval011 d11,
425 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
426 l.pval012 d12,
427 decode(l.pval013,cn,vn,vn,vn,
428  hr_pump_get.gl(l.pval013,'NATIONALITY',dn,l.pval102)) p13,
429 l.pval013 d13,
430 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
431 l.pval014 d14,
432 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
433 l.pval015 d15,
434 decode(l.pval016,cn,vn,vn,vn,
435  hr_pump_get.gl(l.pval016,'REGISTERED_DISABLED',dn,l.pval102)) p16,
436 l.pval016 d16,
437 decode(l.pval017,cn,vn,vn,vn,
438  hr_pump_get.gl(l.pval017,'TITLE',dn,l.pval102)) p17,
439 l.pval017 d17,
440 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
441 l.pval018 d18,
442 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
443 l.pval019 d19,
444 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
445 l.pval020 d20,
446 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
447 l.pval021 d21,
448 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
449 l.pval022 d22,
450 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
451 l.pval023 d23,
452 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
453 l.pval024 d24,
454 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
455 l.pval025 d25,
456 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
457 l.pval026 d26,
458 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
459 l.pval027 d27,
460 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
461 l.pval028 d28,
462 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
463 l.pval029 d29,
464 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
465 l.pval030 d30,
466 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
467 l.pval031 d31,
468 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
469 l.pval032 d32,
470 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
471 l.pval033 d33,
472 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
473 l.pval034 d34,
474 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
475 l.pval035 d35,
476 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
477 l.pval036 d36,
478 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
479 l.pval037 d37,
480 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
481 l.pval038 d38,
482 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
483 l.pval039 d39,
484 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
485 l.pval040 d40,
486 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
487 l.pval041 d41,
488 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
489 l.pval042 d42,
490 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
491 l.pval043 d43,
492 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
493 l.pval044 d44,
494 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
495 l.pval045 d45,
496 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
497 l.pval046 d46,
498 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
499 l.pval047 d47,
500 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
501 l.pval048 d48,
502 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
503 l.pval049 d49,
504 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
505 l.pval050 d50,
506 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
507 l.pval051 d51,
508 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
509 l.pval052 d52,
510 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
511 l.pval053 d53,
512 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
513 l.pval054 d54,
514 decode(l.pval055,cn,vn,vn,vn,l.pval055) p55,
515 l.pval055 d55,
516 decode(l.pval056,cn,vn,vn,vn,l.pval056) p56,
517 l.pval056 d56,
518 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
522 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
519 l.pval057 d57,
520 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
521 l.pval058 d58,
523 l.pval059 d59,
524 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
525 l.pval060 d60,
526 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
527 l.pval061 d61,
528 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
529 l.pval062 d62,
530 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
531 l.pval063 d63,
532 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
533 l.pval064 d64,
534 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
535 l.pval065 d65,
536 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
537 l.pval066 d66,
538 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
539 l.pval067 d67,
540 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
541 l.pval068 d68,
542 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
543 l.pval069 d69,
544 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
545 l.pval070 d70,
546 decode(l.pval071,cn,vn,vn,vn,l.pval071) p71,
547 l.pval071 d71,
548 decode(l.pval072,cn,vn,vn,vn,l.pval072) p72,
549 l.pval072 d72,
550 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
551 l.pval073 d73,
552 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
553 l.pval074 d74,
554 decode(l.pval075,cn,vn,vn,vn,l.pval075) p75,
555 l.pval075 d75,
556 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
557 l.pval076 d76,
558 decode(l.pval077,cn,vn,vn,vn,l.pval077) p77,
559 l.pval077 d77,
560 decode(l.pval078,cn,vn,vn,vn,l.pval078) p78,
561 l.pval078 d78,
562 decode(l.pval079,cn,vn,vn,vn,l.pval079) p79,
563 l.pval079 d79,
564 decode(l.pval080,cn,vn,vn,vn,l.pval080) p80,
565 l.pval080 d80,
566 decode(l.pval081,cn,vn,vn,vn,l.pval081) p81,
567 l.pval081 d81,
568 decode(l.pval082,cn,vn,vn,vn,l.pval082) p82,
569 l.pval082 d82,
570 decode(l.pval083,cn,vn,vn,vn,l.pval083) p83,
571 l.pval083 d83,
572 decode(l.pval084,cn,vn,vn,vn,l.pval084) p84,
573 l.pval084 d84,
574 decode(l.pval085,cn,vn,vn,vn,l.pval085) p85,
575 l.pval085 d85,
576 decode(l.pval086,cn,vn,vn,vn,l.pval086) p86,
577 l.pval086 d86,
578 decode(l.pval087,cn,vn,vn,vn,l.pval087) p87,
579 l.pval087 d87,
580 decode(l.pval088,cn,vn,vn,vn,l.pval088) p88,
581 l.pval088 d88,
582 decode(l.pval089,cn,vn,vn,vn,l.pval089) p89,
583 l.pval089 d89,
584 decode(l.pval090,cn,vn,vn,vn,l.pval090) p90,
585 l.pval090 d90,
586 decode(l.pval091,cn,vn,vn,vn,l.pval091) p91,
587 l.pval091 d91,
588 decode(l.pval092,cn,vn,vn,vn,l.pval092) p92,
589 l.pval092 d92,
590 l.pval093 p93,
591 l.pval094 p94,
592 decode(l.pval095,cn,dn,d(l.pval095)) p95,
593 decode(l.pval096,cn,dn,d(l.pval096)) p96,
594 l.pval097 p97,
595 l.pval098 p98,
596 l.pval099 p99,
597 l.pval100 p100,
598 decode(l.pval101,cn,vn,vn,vn,l.pval101) p101,
599 l.pval101 d101,
600 decode(l.pval102,cn,vn,vn,vn,l.pval102) p102,
601 l.pval102 d102,
602 decode(l.pval103,cn,vn,vn,vn,l.pval103) p103,
603 l.pval103 d103,
604 decode(l.pval104,cn,vn,vn,vn,l.pval104) p104,
605 l.pval104 d104
606 from hr_pump_batch_lines l
607 where l.batch_line_id = p_batch_line_id;
608 --
609 c cr%rowtype;
610 l_validate boolean := false;
611 L_PERSON_ID number;
612 L_NAME_COMBINATION_WARNING boolean;
613 L_ORIG_HIRE_WARNING boolean;
614 L_PERSON_TYPE_ID number;
615 L_VENDOR_ID number;
616 L_BENEFIT_GROUP_ID number;
617 --
618 begin
619 hr_data_pump.entry('call');
620 open cr;
621 fetch cr into c;
622 if cr%notfound then
623 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
624 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
625 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
626 hr_utility.set_message_token('VALUE',p_batch_line_id);
627 hr_utility.raise_error;
628 end if;
629 --
630 if c.p101 is null or
631 c.p102 is null then
632 L_PERSON_TYPE_ID:=nn;
633 else
634 L_PERSON_TYPE_ID := 
635 hr_pump_get.get_person_type_id
639 end if;
636 (P_USER_PERSON_TYPE => c.p101
637 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
638 ,P_LANGUAGE_CODE => c.p102);
640 --
641 if c.p103 is null then
642 L_VENDOR_ID:=nn;
643 else
644 L_VENDOR_ID := 
645 hr_pump_get.get_vendor_id
646 (P_VENDOR_NAME => c.p103);
647 end if;
648 --
649 if c.p104 is null then
650 L_BENEFIT_GROUP_ID:=nn;
651 else
652 L_BENEFIT_GROUP_ID := 
653 hr_pump_get.get_benefit_group_id
654 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
655 ,P_BENEFIT_GROUP => c.p104);
656 end if;
657 --
658 hr_data_pump.api_trc_on;
659 HR_CONTACT_API.CREATE_PERSON
660 (p_validate => l_validate
661 ,P_START_DATE => c.p1
662 ,p_business_group_id => p_business_group_id
663 ,P_LAST_NAME => c.p2
664 ,P_SEX => c.p3
665 ,P_PERSON_TYPE_ID => L_PERSON_TYPE_ID
666 ,P_COMMENTS => c.p4
667 ,P_DATE_EMPLOYEE_DATA_VERIFIED => c.p5
668 ,P_DATE_OF_BIRTH => c.p6
669 ,P_EMAIL_ADDRESS => c.p7
670 ,P_EXPENSE_CHECK_SEND_TO_ADDRES => c.p8
671 ,P_FIRST_NAME => c.p9
672 ,P_KNOWN_AS => c.p10
673 ,P_MARITAL_STATUS => c.p11
674 ,P_MIDDLE_NAMES => c.p12
675 ,P_NATIONALITY => c.p13
676 ,P_NATIONAL_IDENTIFIER => c.p14
677 ,P_PREVIOUS_LAST_NAME => c.p15
678 ,P_REGISTERED_DISABLED_FLAG => c.p16
679 ,P_TITLE => c.p17
680 ,P_VENDOR_ID => L_VENDOR_ID
681 ,P_WORK_TELEPHONE => c.p18
682 ,P_ATTRIBUTE_CATEGORY => c.p19
683 ,P_ATTRIBUTE1 => c.p20
684 ,P_ATTRIBUTE2 => c.p21
685 ,P_ATTRIBUTE3 => c.p22
686 ,P_ATTRIBUTE4 => c.p23
687 ,P_ATTRIBUTE5 => c.p24
688 ,P_ATTRIBUTE6 => c.p25
689 ,P_ATTRIBUTE7 => c.p26
690 ,P_ATTRIBUTE8 => c.p27
691 ,P_ATTRIBUTE9 => c.p28
692 ,P_ATTRIBUTE10 => c.p29
693 ,P_ATTRIBUTE11 => c.p30
694 ,P_ATTRIBUTE12 => c.p31
695 ,P_ATTRIBUTE13 => c.p32
696 ,P_ATTRIBUTE14 => c.p33
697 ,P_ATTRIBUTE15 => c.p34
698 ,P_ATTRIBUTE16 => c.p35
699 ,P_ATTRIBUTE17 => c.p36
700 ,P_ATTRIBUTE18 => c.p37
701 ,P_ATTRIBUTE19 => c.p38
702 ,P_ATTRIBUTE20 => c.p39
703 ,P_ATTRIBUTE21 => c.p40
704 ,P_ATTRIBUTE22 => c.p41
705 ,P_ATTRIBUTE23 => c.p42
706 ,P_ATTRIBUTE24 => c.p43
707 ,P_ATTRIBUTE25 => c.p44
708 ,P_ATTRIBUTE26 => c.p45
709 ,P_ATTRIBUTE27 => c.p46
710 ,P_ATTRIBUTE28 => c.p47
711 ,P_ATTRIBUTE29 => c.p48
712 ,P_ATTRIBUTE30 => c.p49
713 ,P_PER_INFORMATION_CATEGORY => c.p50
714 ,P_PER_INFORMATION1 => c.p51
715 ,P_PER_INFORMATION2 => c.p52
716 ,P_PER_INFORMATION3 => c.p53
717 ,P_PER_INFORMATION4 => c.p54
718 ,P_PER_INFORMATION5 => c.p55
719 ,P_PER_INFORMATION6 => c.p56
720 ,P_PER_INFORMATION7 => c.p57
721 ,P_PER_INFORMATION8 => c.p58
722 ,P_PER_INFORMATION9 => c.p59
723 ,P_PER_INFORMATION10 => c.p60
724 ,P_PER_INFORMATION11 => c.p61
725 ,P_PER_INFORMATION12 => c.p62
726 ,P_PER_INFORMATION13 => c.p63
727 ,P_PER_INFORMATION14 => c.p64
728 ,P_PER_INFORMATION15 => c.p65
729 ,P_PER_INFORMATION16 => c.p66
730 ,P_PER_INFORMATION17 => c.p67
731 ,P_PER_INFORMATION18 => c.p68
732 ,P_PER_INFORMATION19 => c.p69
733 ,P_PER_INFORMATION20 => c.p70
734 ,P_PER_INFORMATION21 => c.p71
735 ,P_PER_INFORMATION22 => c.p72
736 ,P_PER_INFORMATION23 => c.p73
737 ,P_PER_INFORMATION24 => c.p74
738 ,P_PER_INFORMATION25 => c.p75
739 ,P_PER_INFORMATION26 => c.p76
740 ,P_PER_INFORMATION27 => c.p77
741 ,P_PER_INFORMATION28 => c.p78
742 ,P_PER_INFORMATION29 => c.p79
743 ,P_PER_INFORMATION30 => c.p80
744 ,P_CORRESPONDENCE_LANGUAGE => c.p81
745 ,P_HONORS => c.p82
746 ,P_BENEFIT_GROUP_ID => L_BENEFIT_GROUP_ID
747 ,P_ON_MILITARY_SERVICE => c.p83
748 ,P_STUDENT_STATUS => c.p84
749 ,P_USES_TOBACCO_FLAG => c.p85
750 ,P_COORD_BEN_NO_CVG_FLAG => c.p86
751 ,P_PRE_NAME_ADJUNCT => c.p87
752 ,P_SUFFIX => c.p88
753 ,P_TOWN_OF_BIRTH => c.p89
754 ,P_REGION_OF_BIRTH => c.p90
755 ,P_COUNTRY_OF_BIRTH => c.p91
756 ,P_GLOBAL_PERSON_ID => c.p92
757 ,P_PERSON_ID => L_PERSON_ID
758 ,P_OBJECT_VERSION_NUMBER => c.p94
759 ,P_EFFECTIVE_START_DATE => c.p95
760 ,P_EFFECTIVE_END_DATE => c.p96
761 ,P_FULL_NAME => c.p97
762 ,P_COMMENT_ID => c.p98
763 ,P_NAME_COMBINATION_WARNING => L_NAME_COMBINATION_WARNING
764 ,P_ORIG_HIRE_WARNING => L_ORIG_HIRE_WARNING);
765 hr_data_pump.api_trc_off;
766 --
767 iuk(p_batch_line_id,c.p93,L_PERSON_ID);
768 --
769 if L_NAME_COMBINATION_WARNING then
770 c.p99 := 'TRUE';
771 else
772 c.p99 := 'FALSE';
773 end if;
774 --
775 if L_ORIG_HIRE_WARNING then
776 c.p100 := 'TRUE';
777 else
778 c.p100 := 'FALSE';
779 end if;
780 --
781 update hr_pump_batch_lines l set
782 l.pval093 = decode(c.p93,null,cn,c.p93),
783 l.pval094 = decode(c.p94,null,cn,c.p94),
784 l.pval095 = decode(c.p95,null,cn,dc(c.p95)),
785 l.pval096 = decode(c.p96,null,cn,dc(c.p96)),
786 l.pval097 = decode(c.p97,null,cn,c.p97),
787 l.pval098 = decode(c.p98,null,cn,c.p98),
788 l.pval099 = decode(c.p99,null,cn,c.p99),
789 l.pval100 = decode(c.p100,null,cn,c.p100)
790 where l.rowid = c.myrowid;
791 --
792 close cr;
793 --
794 hr_data_pump.exit('call');
795 exception
796  when hr_multi_message.error_message_exist then
797    if cr%isopen then
798     close cr;
799    end if;
800    hr_pump_utils.set_multi_msg_error_flag(true);
801  when others then
802  if cr%isopen then
803   close cr;
804  end if;
805  raise;
806 end call;
807 end hrdpp_CREATE_PERSON;