[Home] [Help]
PACKAGE BODY: APPS.HRDPP_CREATE_EMPLOYEE
Source
1 package body hrdpp_create_employee as
2 /*
3 * Generated by hr_pump_meta_mapper at: 2007/01/04 02:01:13
4 * Generated for API: hr_employee_api.create_employee
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_HIRE_DATE in date
83 ,P_LAST_NAME in varchar2
84 ,P_SEX in varchar2
85 ,P_PER_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_EMPLOYEE_NUMBER in varchar2
90 ,P_EXPENSE_CHECK_SEND_TO_ADDRES in varchar2 default null
91 ,P_FIRST_NAME in varchar2 default null
92 ,P_KNOWN_AS in varchar2 default null
93 ,P_MARITAL_STATUS in varchar2 default null
94 ,P_MIDDLE_NAMES in varchar2 default null
95 ,P_NATIONALITY in varchar2 default null
96 ,P_NATIONAL_IDENTIFIER in varchar2 default null
97 ,P_PREVIOUS_LAST_NAME in varchar2 default null
98 ,P_REGISTERED_DISABLED_FLAG in varchar2 default null
99 ,P_TITLE in varchar2 default null
100 ,P_WORK_TELEPHONE in varchar2 default null
101 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
102 ,P_ATTRIBUTE1 in varchar2 default null
103 ,P_ATTRIBUTE2 in varchar2 default null
104 ,P_ATTRIBUTE3 in varchar2 default null
105 ,P_ATTRIBUTE4 in varchar2 default null
106 ,P_ATTRIBUTE5 in varchar2 default null
107 ,P_ATTRIBUTE6 in varchar2 default null
108 ,P_ATTRIBUTE7 in varchar2 default null
109 ,P_ATTRIBUTE8 in varchar2 default null
110 ,P_ATTRIBUTE9 in varchar2 default null
111 ,P_ATTRIBUTE10 in varchar2 default null
112 ,P_ATTRIBUTE11 in varchar2 default null
113 ,P_ATTRIBUTE12 in varchar2 default null
114 ,P_ATTRIBUTE13 in varchar2 default null
115 ,P_ATTRIBUTE14 in varchar2 default null
116 ,P_ATTRIBUTE15 in varchar2 default null
117 ,P_ATTRIBUTE16 in varchar2 default null
118 ,P_ATTRIBUTE17 in varchar2 default null
119 ,P_ATTRIBUTE18 in varchar2 default null
120 ,P_ATTRIBUTE19 in varchar2 default null
121 ,P_ATTRIBUTE20 in varchar2 default null
122 ,P_ATTRIBUTE21 in varchar2 default null
123 ,P_ATTRIBUTE22 in varchar2 default null
124 ,P_ATTRIBUTE23 in varchar2 default null
125 ,P_ATTRIBUTE24 in varchar2 default null
126 ,P_ATTRIBUTE25 in varchar2 default null
127 ,P_ATTRIBUTE26 in varchar2 default null
128 ,P_ATTRIBUTE27 in varchar2 default null
129 ,P_ATTRIBUTE28 in varchar2 default null
130 ,P_ATTRIBUTE29 in varchar2 default null
131 ,P_ATTRIBUTE30 in varchar2 default null
132 ,P_PER_INFORMATION_CATEGORY in varchar2 default null
133 ,P_PER_INFORMATION1 in varchar2 default null
134 ,P_PER_INFORMATION2 in varchar2 default null
135 ,P_PER_INFORMATION3 in varchar2 default null
136 ,P_PER_INFORMATION4 in varchar2 default null
137 ,P_PER_INFORMATION5 in varchar2 default null
138 ,P_PER_INFORMATION6 in varchar2 default null
139 ,P_PER_INFORMATION7 in varchar2 default null
140 ,P_PER_INFORMATION8 in varchar2 default null
141 ,P_PER_INFORMATION9 in varchar2 default null
142 ,P_PER_INFORMATION10 in varchar2 default null
143 ,P_PER_INFORMATION11 in varchar2 default null
144 ,P_PER_INFORMATION12 in varchar2 default null
145 ,P_PER_INFORMATION13 in varchar2 default null
146 ,P_PER_INFORMATION14 in varchar2 default null
147 ,P_PER_INFORMATION15 in varchar2 default null
148 ,P_PER_INFORMATION16 in varchar2 default null
149 ,P_PER_INFORMATION17 in varchar2 default null
150 ,P_PER_INFORMATION18 in varchar2 default null
151 ,P_PER_INFORMATION19 in varchar2 default null
152 ,P_PER_INFORMATION20 in varchar2 default null
153 ,P_PER_INFORMATION21 in varchar2 default null
154 ,P_PER_INFORMATION22 in varchar2 default null
155 ,P_PER_INFORMATION23 in varchar2 default null
156 ,P_PER_INFORMATION24 in varchar2 default null
157 ,P_PER_INFORMATION25 in varchar2 default null
158 ,P_PER_INFORMATION26 in varchar2 default null
159 ,P_PER_INFORMATION27 in varchar2 default null
160 ,P_PER_INFORMATION28 in varchar2 default null
161 ,P_PER_INFORMATION29 in varchar2 default null
162 ,P_PER_INFORMATION30 in varchar2 default null
163 ,P_DATE_OF_DEATH in date default null
164 ,P_BACKGROUND_CHECK_STATUS in varchar2 default null
165 ,P_BACKGROUND_DATE_CHECK in date default null
166 ,P_BLOOD_TYPE in varchar2 default null
167 ,P_FAST_PATH_EMPLOYEE in varchar2 default null
168 ,P_FTE_CAPACITY in number default null
169 ,P_HONORS in varchar2 default null
170 ,P_INTERNAL_LOCATION in varchar2 default null
171 ,P_LAST_MEDICAL_TEST_BY in varchar2 default null
172 ,P_LAST_MEDICAL_TEST_DATE in date default null
173 ,P_MAILSTOP in varchar2 default null
174 ,P_OFFICE_NUMBER in varchar2 default null
175 ,P_ON_MILITARY_SERVICE in varchar2 default null
176 ,P_PRE_NAME_ADJUNCT in varchar2 default null
177 ,P_REHIRE_RECOMMENDATION in varchar2 default null
178 ,P_PROJECTED_START_DATE in date default null
179 ,P_RESUME_EXISTS in varchar2 default null
180 ,P_RESUME_LAST_UPDATED in date default null
181 ,P_SECOND_PASSPORT_EXISTS in varchar2 default null
182 ,P_STUDENT_STATUS in varchar2 default null
183 ,P_WORK_SCHEDULE in varchar2 default null
184 ,P_SUFFIX in varchar2 default null
185 ,P_RECEIPT_OF_DEATH_CERT_DATE in date default null
186 ,P_COORD_BEN_MED_PLN_NO in varchar2 default null
187 ,P_COORD_BEN_NO_CVG_FLAG in varchar2 default null
188 ,P_COORD_BEN_MED_EXT_ER in varchar2 default null
189 ,P_COORD_BEN_MED_PL_NAME in varchar2 default null
190 ,P_COORD_BEN_MED_INSR_CRR_NAME in varchar2 default null
191 ,P_COORD_BEN_MED_INSR_CRR_IDENT in varchar2 default null
192 ,P_COORD_BEN_MED_CVG_STRT_DT in date default null
193 ,P_COORD_BEN_MED_CVG_END_DT in date default null
194 ,P_USES_TOBACCO_FLAG in varchar2 default null
195 ,P_DPDNT_ADOPTION_DATE in date default null
196 ,P_DPDNT_VLNTRY_SVCE_FLAG in varchar2 default null
197 ,P_ORIGINAL_DATE_OF_HIRE in date default null
198 ,P_ADJUSTED_SVC_DATE in date default null
199 ,P_TOWN_OF_BIRTH in varchar2 default null
200 ,P_REGION_OF_BIRTH in varchar2 default null
201 ,P_COUNTRY_OF_BIRTH in varchar2 default null
202 ,P_GLOBAL_PERSON_ID in varchar2 default null
203 ,P_PARTY_ID in number default null
204 ,P_PERSON_USER_KEY in varchar2
205 ,P_ASSIGNMENT_USER_KEY in varchar2
206 ,P_USER_PERSON_TYPE in varchar2 default null
207 ,P_LANGUAGE_CODE in varchar2 default null
208 ,P_VENDOR_NAME in varchar2 default null
209 ,P_CORRESPONDENCE_LANGUAGE in varchar2 default null
210 ,P_BENEFIT_GROUP in varchar2 default null) is
211 blid number := p_data_pump_batch_line_id;
212 begin
213 if blid is not null then
214 delete from hr_pump_batch_lines where batch_line_id = blid;
215 delete from hr_pump_batch_exceptions
216 where source_type = 'BATCH_LINE' and source_id = blid;
217 end if;
218 insert into hr_pump_batch_lines
219 (batch_id
220 ,batch_line_id
221 ,business_group_name
222 ,api_module_id
223 ,line_status
224 ,user_sequence
225 ,link_value
226 ,pval001
227 ,pval002
228 ,pval003
229 ,pval004
230 ,pval005
231 ,pval006
232 ,pval007
233 ,pval008
234 ,pval009
235 ,pval010
236 ,pval011
237 ,pval012
238 ,pval013
239 ,pval014
240 ,pval015
241 ,pval016
242 ,pval017
243 ,pval018
244 ,pval019
245 ,pval020
246 ,pval021
247 ,pval022
248 ,pval023
249 ,pval024
250 ,pval025
251 ,pval026
252 ,pval027
253 ,pval028
254 ,pval029
255 ,pval030
256 ,pval031
257 ,pval032
258 ,pval033
259 ,pval034
260 ,pval035
261 ,pval036
262 ,pval037
263 ,pval038
264 ,pval039
265 ,pval040
266 ,pval041
267 ,pval042
268 ,pval043
269 ,pval044
270 ,pval045
271 ,pval046
272 ,pval047
273 ,pval048
274 ,pval049
275 ,pval050
276 ,pval051
277 ,pval052
278 ,pval053
279 ,pval054
280 ,pval055
281 ,pval056
282 ,pval057
283 ,pval058
284 ,pval059
285 ,pval060
286 ,pval061
287 ,pval062
288 ,pval063
289 ,pval064
290 ,pval065
291 ,pval066
292 ,pval067
293 ,pval068
294 ,pval069
295 ,pval070
296 ,pval071
297 ,pval072
298 ,pval073
299 ,pval074
300 ,pval075
301 ,pval076
302 ,pval077
303 ,pval078
304 ,pval079
305 ,pval080
306 ,pval081
307 ,pval082
308 ,pval083
309 ,pval084
310 ,pval085
311 ,pval086
312 ,pval087
313 ,pval088
314 ,pval089
315 ,pval090
316 ,pval091
317 ,pval092
318 ,pval093
319 ,pval094
320 ,pval095
321 ,pval096
322 ,pval097
323 ,pval098
324 ,pval099
325 ,pval100
326 ,pval101
327 ,pval102
328 ,pval103
329 ,pval104
330 ,pval105
331 ,pval106
332 ,pval107
333 ,pval108
334 ,pval109
335 ,pval110
336 ,pval111
337 ,pval112
338 ,pval113
339 ,pval114
340 ,pval115
341 ,pval116
342 ,pval117
343 ,pval118
344 ,pval119
345 ,pval120
346 ,pval121
347 ,pval122
348 ,pval123
349 ,pval124
350 ,pval136
351 ,pval137
352 ,pval138
353 ,pval139
354 ,pval140)
355 values
356 (p_batch_id
357 ,nvl(blid,hr_pump_batch_lines_s.nextval)
358 ,p_data_pump_business_grp_name
359 ,1195
360 ,'U'
361 ,p_user_sequence
362 ,p_link_value
363 ,dc(P_HIRE_DATE)
364 ,P_LAST_NAME
365 ,P_SEX
366 ,P_PER_COMMENTS
367 ,dc(P_DATE_EMPLOYEE_DATA_VERIFIED)
368 ,dc(P_DATE_OF_BIRTH)
369 ,P_EMAIL_ADDRESS
370 ,P_EMPLOYEE_NUMBER
371 ,P_EXPENSE_CHECK_SEND_TO_ADDRES
372 ,P_FIRST_NAME
373 ,P_KNOWN_AS
374 ,P_MARITAL_STATUS
375 ,P_MIDDLE_NAMES
376 ,P_NATIONALITY
377 ,P_NATIONAL_IDENTIFIER
378 ,P_PREVIOUS_LAST_NAME
379 ,P_REGISTERED_DISABLED_FLAG
380 ,P_TITLE
381 ,P_WORK_TELEPHONE
382 ,P_ATTRIBUTE_CATEGORY
383 ,P_ATTRIBUTE1
384 ,P_ATTRIBUTE2
385 ,P_ATTRIBUTE3
386 ,P_ATTRIBUTE4
387 ,P_ATTRIBUTE5
388 ,P_ATTRIBUTE6
389 ,P_ATTRIBUTE7
390 ,P_ATTRIBUTE8
391 ,P_ATTRIBUTE9
392 ,P_ATTRIBUTE10
393 ,P_ATTRIBUTE11
394 ,P_ATTRIBUTE12
395 ,P_ATTRIBUTE13
396 ,P_ATTRIBUTE14
397 ,P_ATTRIBUTE15
398 ,P_ATTRIBUTE16
399 ,P_ATTRIBUTE17
400 ,P_ATTRIBUTE18
401 ,P_ATTRIBUTE19
402 ,P_ATTRIBUTE20
403 ,P_ATTRIBUTE21
404 ,P_ATTRIBUTE22
405 ,P_ATTRIBUTE23
406 ,P_ATTRIBUTE24
407 ,P_ATTRIBUTE25
408 ,P_ATTRIBUTE26
409 ,P_ATTRIBUTE27
410 ,P_ATTRIBUTE28
411 ,P_ATTRIBUTE29
412 ,P_ATTRIBUTE30
413 ,P_PER_INFORMATION_CATEGORY
414 ,P_PER_INFORMATION1
415 ,P_PER_INFORMATION2
416 ,P_PER_INFORMATION3
417 ,P_PER_INFORMATION4
418 ,P_PER_INFORMATION5
419 ,P_PER_INFORMATION6
420 ,P_PER_INFORMATION7
421 ,P_PER_INFORMATION8
422 ,P_PER_INFORMATION9
423 ,P_PER_INFORMATION10
424 ,P_PER_INFORMATION11
425 ,P_PER_INFORMATION12
426 ,P_PER_INFORMATION13
427 ,P_PER_INFORMATION14
428 ,P_PER_INFORMATION15
429 ,P_PER_INFORMATION16
430 ,P_PER_INFORMATION17
431 ,P_PER_INFORMATION18
432 ,P_PER_INFORMATION19
433 ,P_PER_INFORMATION20
434 ,P_PER_INFORMATION21
435 ,P_PER_INFORMATION22
436 ,P_PER_INFORMATION23
437 ,P_PER_INFORMATION24
438 ,P_PER_INFORMATION25
439 ,P_PER_INFORMATION26
440 ,P_PER_INFORMATION27
441 ,P_PER_INFORMATION28
442 ,P_PER_INFORMATION29
443 ,P_PER_INFORMATION30
444 ,dc(P_DATE_OF_DEATH)
445 ,P_BACKGROUND_CHECK_STATUS
446 ,dc(P_BACKGROUND_DATE_CHECK)
447 ,P_BLOOD_TYPE
448 ,P_FAST_PATH_EMPLOYEE
449 ,P_FTE_CAPACITY
450 ,P_HONORS
451 ,P_INTERNAL_LOCATION
452 ,P_LAST_MEDICAL_TEST_BY
453 ,dc(P_LAST_MEDICAL_TEST_DATE)
454 ,P_MAILSTOP
455 ,P_OFFICE_NUMBER
456 ,P_ON_MILITARY_SERVICE
457 ,P_PRE_NAME_ADJUNCT
458 ,P_REHIRE_RECOMMENDATION
459 ,dc(P_PROJECTED_START_DATE)
460 ,P_RESUME_EXISTS
461 ,dc(P_RESUME_LAST_UPDATED)
462 ,P_SECOND_PASSPORT_EXISTS
463 ,P_STUDENT_STATUS
464 ,P_WORK_SCHEDULE
465 ,P_SUFFIX
466 ,dc(P_RECEIPT_OF_DEATH_CERT_DATE)
467 ,P_COORD_BEN_MED_PLN_NO
468 ,P_COORD_BEN_NO_CVG_FLAG
469 ,P_COORD_BEN_MED_EXT_ER
470 ,P_COORD_BEN_MED_PL_NAME
471 ,P_COORD_BEN_MED_INSR_CRR_NAME
472 ,P_COORD_BEN_MED_INSR_CRR_IDENT
473 ,dc(P_COORD_BEN_MED_CVG_STRT_DT)
474 ,dc(P_COORD_BEN_MED_CVG_END_DT)
475 ,P_USES_TOBACCO_FLAG
476 ,dc(P_DPDNT_ADOPTION_DATE)
477 ,P_DPDNT_VLNTRY_SVCE_FLAG
478 ,dc(P_ORIGINAL_DATE_OF_HIRE)
479 ,dc(P_ADJUSTED_SVC_DATE)
480 ,P_TOWN_OF_BIRTH
481 ,P_REGION_OF_BIRTH
482 ,P_COUNTRY_OF_BIRTH
483 ,P_GLOBAL_PERSON_ID
484 ,P_PARTY_ID
485 ,P_PERSON_USER_KEY
486 ,P_ASSIGNMENT_USER_KEY
487 ,P_USER_PERSON_TYPE
488 ,P_LANGUAGE_CODE
489 ,P_VENDOR_NAME
490 ,P_CORRESPONDENCE_LANGUAGE
491 ,P_BENEFIT_GROUP);
492 end insert_batch_lines;
493 --
494 procedure call
495 (p_business_group_id in number,
496 p_batch_line_id in number) is
497 cursor cr is
498 select l.rowid myrowid,
499 decode(l.pval001,cn,dn,d(l.pval001)) p1,
500 decode(l.pval002,cn,vn,l.pval002) p2,
501 decode(l.pval003,cn,vn,
502 hr_pump_get.gl(l.pval003,'SEX',dn,l.pval137)) p3,
503 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
504 l.pval004 d4,
505 decode(l.pval005,cn,dn,vn,dn,d(l.pval005)) p5,
506 l.pval005 d5,
507 decode(l.pval006,cn,dn,vn,dn,d(l.pval006)) p6,
508 l.pval006 d6,
509 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
510 l.pval007 d7,
511 decode(l.pval008,cn,vn,l.pval008) p8,
512 decode(l.pval009,cn,vn,vn,vn,
513 hr_pump_get.gl(l.pval009,'HOME_OFFICE',dn,l.pval137)) p9,
514 l.pval009 d9,
515 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
516 l.pval010 d10,
517 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
518 l.pval011 d11,
519 decode(l.pval012,cn,vn,vn,vn,
520 hr_pump_get.gl(l.pval012,'MAR_STATUS',dn,l.pval137)) p12,
524 decode(l.pval014,cn,vn,vn,vn,
521 l.pval012 d12,
522 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
523 l.pval013 d13,
525 hr_pump_get.gl(l.pval014,'NATIONALITY',dn,l.pval137)) p14,
526 l.pval014 d14,
527 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
528 l.pval015 d15,
529 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
530 l.pval016 d16,
531 decode(l.pval017,cn,vn,vn,vn,
532 hr_pump_get.gl(l.pval017,'REGISTERED_DISABLED',dn,l.pval137)) p17,
533 l.pval017 d17,
534 decode(l.pval018,cn,vn,vn,vn,
535 hr_pump_get.gl(l.pval018,'TITLE',dn,l.pval137)) p18,
536 l.pval018 d18,
537 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
538 l.pval019 d19,
539 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
540 l.pval020 d20,
541 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
542 l.pval021 d21,
543 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
544 l.pval022 d22,
545 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
546 l.pval023 d23,
547 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
548 l.pval024 d24,
549 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
550 l.pval025 d25,
551 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
552 l.pval026 d26,
553 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
554 l.pval027 d27,
555 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
556 l.pval028 d28,
557 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
558 l.pval029 d29,
559 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
560 l.pval030 d30,
561 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
562 l.pval031 d31,
563 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
564 l.pval032 d32,
565 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
566 l.pval033 d33,
567 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
568 l.pval034 d34,
569 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
570 l.pval035 d35,
571 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
572 l.pval036 d36,
573 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
574 l.pval037 d37,
575 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
576 l.pval038 d38,
577 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
578 l.pval039 d39,
579 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
580 l.pval040 d40,
581 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
582 l.pval041 d41,
583 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
584 l.pval042 d42,
585 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
586 l.pval043 d43,
587 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
588 l.pval044 d44,
589 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
590 l.pval045 d45,
591 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
592 l.pval046 d46,
593 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
594 l.pval047 d47,
595 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
596 l.pval048 d48,
597 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
598 l.pval049 d49,
599 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
600 l.pval050 d50,
601 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
602 l.pval051 d51,
603 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
604 l.pval052 d52,
605 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
606 l.pval053 d53,
607 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
608 l.pval054 d54,
609 decode(l.pval055,cn,vn,vn,vn,l.pval055) p55,
610 l.pval055 d55,
611 decode(l.pval056,cn,vn,vn,vn,l.pval056) p56,
612 l.pval056 d56,
613 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
614 l.pval057 d57,
615 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
616 l.pval058 d58,
617 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
618 l.pval059 d59,
619 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
620 l.pval060 d60,
621 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
622 l.pval061 d61,
623 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
624 l.pval062 d62,
625 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
626 l.pval063 d63,
627 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
628 l.pval064 d64,
629 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
630 l.pval065 d65,
631 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
632 l.pval066 d66,
633 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
634 l.pval067 d67,
635 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
636 l.pval068 d68,
637 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
638 l.pval069 d69,
639 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
640 l.pval070 d70,
641 decode(l.pval071,cn,vn,vn,vn,l.pval071) p71,
642 l.pval071 d71,
643 decode(l.pval072,cn,vn,vn,vn,l.pval072) p72,
644 l.pval072 d72,
645 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
646 l.pval073 d73,
650 l.pval075 d75,
647 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
648 l.pval074 d74,
649 decode(l.pval075,cn,vn,vn,vn,l.pval075) p75,
651 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
652 l.pval076 d76,
653 decode(l.pval077,cn,vn,vn,vn,l.pval077) p77,
654 l.pval077 d77,
655 decode(l.pval078,cn,vn,vn,vn,l.pval078) p78,
656 l.pval078 d78,
657 decode(l.pval079,cn,vn,vn,vn,l.pval079) p79,
658 l.pval079 d79,
659 decode(l.pval080,cn,vn,vn,vn,l.pval080) p80,
660 l.pval080 d80,
661 decode(l.pval081,cn,vn,vn,vn,l.pval081) p81,
662 l.pval081 d81,
663 decode(l.pval082,cn,dn,vn,dn,d(l.pval082)) p82,
664 l.pval082 d82,
665 decode(l.pval083,cn,vn,vn,vn,
666 hr_pump_get.gl(l.pval083,'YES_NO',dn,l.pval137)) p83,
667 l.pval083 d83,
668 decode(l.pval084,cn,dn,vn,dn,d(l.pval084)) p84,
669 l.pval084 d84,
670 decode(l.pval085,cn,vn,vn,vn,
671 hr_pump_get.gl(l.pval085,'BLOOD_TYPE',dn,l.pval137)) p85,
672 l.pval085 d85,
673 decode(l.pval086,cn,vn,vn,vn,l.pval086) p86,
674 l.pval086 d86,
675 decode(l.pval087,cn,nn,vn,nn,n(l.pval087)) p87,
676 l.pval087 d87,
677 decode(l.pval088,cn,vn,vn,vn,l.pval088) p88,
678 l.pval088 d88,
679 decode(l.pval089,cn,vn,vn,vn,l.pval089) p89,
680 l.pval089 d89,
681 decode(l.pval090,cn,vn,vn,vn,l.pval090) p90,
682 l.pval090 d90,
683 decode(l.pval091,cn,dn,vn,dn,d(l.pval091)) p91,
684 l.pval091 d91,
685 decode(l.pval092,cn,vn,vn,vn,l.pval092) p92,
686 l.pval092 d92,
687 decode(l.pval093,cn,vn,vn,vn,l.pval093) p93,
688 l.pval093 d93,
689 decode(l.pval094,cn,vn,vn,vn,
690 hr_pump_get.gl(l.pval094,'YES_NO',dn,l.pval137)) p94,
691 l.pval094 d94,
692 decode(l.pval095,cn,vn,vn,vn,l.pval095) p95,
693 l.pval095 d95,
694 decode(l.pval096,cn,vn,vn,vn,l.pval096) p96,
695 l.pval096 d96,
696 decode(l.pval097,cn,dn,vn,dn,d(l.pval097)) p97,
697 l.pval097 d97,
698 decode(l.pval098,cn,vn,vn,vn,
699 hr_pump_get.gl(l.pval098,'YES_NO',dn,l.pval137)) p98,
700 l.pval098 d98,
701 decode(l.pval099,cn,dn,vn,dn,d(l.pval099)) p99,
702 l.pval099 d99,
703 decode(l.pval100,cn,vn,vn,vn,
704 hr_pump_get.gl(l.pval100,'YES_NO',dn,l.pval137)) p100,
705 l.pval100 d100,
706 decode(l.pval101,cn,vn,vn,vn,
707 hr_pump_get.gl(l.pval101,'STUDENT_STATUS',dn,l.pval137)) p101,
708 l.pval101 d101,
709 decode(l.pval102,cn,vn,vn,vn,
710 hr_pump_get.gl(l.pval102,'WORK_SCHEDULE',dn,l.pval137)) p102,
711 l.pval102 d102,
712 decode(l.pval103,cn,vn,vn,vn,l.pval103) p103,
713 l.pval103 d103,
714 decode(l.pval104,cn,dn,vn,dn,d(l.pval104)) p104,
715 l.pval104 d104,
716 decode(l.pval105,cn,vn,vn,vn,l.pval105) p105,
717 l.pval105 d105,
718 decode(l.pval106,cn,vn,vn,'N',
719 hr_pump_get.gl(l.pval106,'YES_NO',dn,l.pval137)) p106,
720 l.pval106 d106,
721 decode(l.pval107,cn,vn,vn,vn,l.pval107) p107,
722 l.pval107 d107,
723 decode(l.pval108,cn,vn,vn,vn,l.pval108) p108,
724 l.pval108 d108,
725 decode(l.pval109,cn,vn,vn,vn,l.pval109) p109,
726 l.pval109 d109,
727 decode(l.pval110,cn,vn,vn,vn,l.pval110) p110,
728 l.pval110 d110,
729 decode(l.pval111,cn,dn,vn,dn,d(l.pval111)) p111,
730 l.pval111 d111,
731 decode(l.pval112,cn,dn,vn,dn,d(l.pval112)) p112,
732 l.pval112 d112,
733 decode(l.pval113,cn,vn,vn,vn,
734 hr_pump_get.gl(l.pval113,'TOBACCO_USER',dn,l.pval137)) p113,
735 l.pval113 d113,
736 decode(l.pval114,cn,dn,vn,dn,d(l.pval114)) p114,
737 l.pval114 d114,
738 decode(l.pval115,cn,vn,vn,'N',
739 hr_pump_get.gl(l.pval115,'YES_NO',dn,l.pval137)) p115,
740 l.pval115 d115,
741 decode(l.pval116,cn,dn,vn,dn,d(l.pval116)) p116,
742 l.pval116 d116,
743 decode(l.pval117,cn,dn,vn,dn,d(l.pval117)) p117,
744 l.pval117 d117,
745 decode(l.pval118,cn,vn,vn,vn,l.pval118) p118,
746 l.pval118 d118,
747 decode(l.pval119,cn,vn,vn,vn,l.pval119) p119,
748 l.pval119 d119,
749 decode(l.pval120,cn,vn,vn,vn,l.pval120) p120,
750 l.pval120 d120,
751 decode(l.pval121,cn,vn,vn,vn,l.pval121) p121,
752 l.pval121 d121,
753 decode(l.pval122,cn,nn,vn,nn,n(l.pval122)) p122,
754 l.pval122 d122,
755 l.pval123 p123,
756 l.pval124 p124,
757 l.pval125 p125,
758 l.pval126 p126,
759 decode(l.pval127,cn,dn,d(l.pval127)) p127,
760 decode(l.pval128,cn,dn,d(l.pval128)) p128,
761 l.pval129 p129,
762 l.pval130 p130,
763 l.pval131 p131,
764 l.pval132 p132,
765 l.pval133 p133,
766 l.pval134 p134,
767 l.pval135 p135,
768 decode(l.pval136,cn,vn,vn,vn,l.pval136) p136,
769 l.pval136 d136,
770 decode(l.pval137,cn,vn,vn,vn,l.pval137) p137,
771 l.pval137 d137,
772 decode(l.pval138,cn,vn,vn,vn,l.pval138) p138,
773 l.pval138 d138,
774 decode(l.pval139,cn,vn,vn,vn,l.pval139) p139,
775 l.pval139 d139,
776 decode(l.pval140,cn,vn,vn,vn,l.pval140) p140,
777 l.pval140 d140
778 from hr_pump_batch_lines l
779 where l.batch_line_id = p_batch_line_id;
780 --
781 c cr%rowtype;
782 l_validate boolean := false;
783 L_PERSON_ID number;
784 L_ASSIGNMENT_ID number;
785 L_NAME_COMBINATION_WARNING boolean;
786 L_ASSIGN_PAYROLL_WARNING boolean;
787 L_ORIG_HIRE_WARNING boolean;
788 L_PERSON_TYPE_ID number;
789 L_VENDOR_ID number;
790 L_CORRESPONDENCE_LANGUAGE varchar2(2000);
791 L_BENEFIT_GROUP_ID number;
792 --
793 begin
794 hr_data_pump.entry('call');
795 open cr;
796 fetch cr into c;
797 if cr%notfound then
798 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
802 hr_utility.raise_error;
799 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
800 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
801 hr_utility.set_message_token('VALUE',p_batch_line_id);
803 end if;
804 --
805 if c.p136 is null or
806 c.p137 is null then
807 L_PERSON_TYPE_ID:=nn;
808 else
809 L_PERSON_TYPE_ID :=
810 hr_pump_get.get_person_type_id
811 (P_USER_PERSON_TYPE => c.p136
812 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
813 ,P_LANGUAGE_CODE => c.p137);
814 end if;
815 --
816 if c.p138 is null then
817 L_VENDOR_ID:=nn;
818 else
819 L_VENDOR_ID :=
820 hr_pump_get.get_vendor_id
821 (P_VENDOR_NAME => c.p138);
822 end if;
823 --
824 if c.p139 is null then
825 L_CORRESPONDENCE_LANGUAGE:=vn;
826 else
827 L_CORRESPONDENCE_LANGUAGE :=
828 hr_pump_get.GET_CORRESPONDENCE_LANGUAGE
829 (P_CORRESPONDENCE_LANGUAGE => c.p139);
830 end if;
831 --
832 if c.p140 is null then
833 L_BENEFIT_GROUP_ID:=nn;
834 else
835 L_BENEFIT_GROUP_ID :=
836 hr_pump_get.get_benefit_group_id
837 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
838 ,P_BENEFIT_GROUP => c.p140);
839 end if;
840 --
841 hr_data_pump.api_trc_on;
842 hr_employee_api.create_employee
843 (p_validate => l_validate
844 ,P_HIRE_DATE => c.p1
845 ,p_business_group_id => p_business_group_id
846 ,P_LAST_NAME => c.p2
847 ,P_SEX => c.p3
848 ,P_PERSON_TYPE_ID => L_PERSON_TYPE_ID
849 ,P_PER_COMMENTS => c.p4
850 ,P_DATE_EMPLOYEE_DATA_VERIFIED => c.p5
851 ,P_DATE_OF_BIRTH => c.p6
852 ,P_EMAIL_ADDRESS => c.p7
853 ,P_EMPLOYEE_NUMBER => c.p8
854 ,P_EXPENSE_CHECK_SEND_TO_ADDRES => c.p9
855 ,P_FIRST_NAME => c.p10
856 ,P_KNOWN_AS => c.p11
857 ,P_MARITAL_STATUS => c.p12
858 ,P_MIDDLE_NAMES => c.p13
859 ,P_NATIONALITY => c.p14
860 ,P_NATIONAL_IDENTIFIER => c.p15
861 ,P_PREVIOUS_LAST_NAME => c.p16
862 ,P_REGISTERED_DISABLED_FLAG => c.p17
863 ,P_TITLE => c.p18
864 ,P_VENDOR_ID => L_VENDOR_ID
865 ,P_WORK_TELEPHONE => c.p19
866 ,P_ATTRIBUTE_CATEGORY => c.p20
867 ,P_ATTRIBUTE1 => c.p21
868 ,P_ATTRIBUTE2 => c.p22
869 ,P_ATTRIBUTE3 => c.p23
870 ,P_ATTRIBUTE4 => c.p24
871 ,P_ATTRIBUTE5 => c.p25
872 ,P_ATTRIBUTE6 => c.p26
873 ,P_ATTRIBUTE7 => c.p27
874 ,P_ATTRIBUTE8 => c.p28
875 ,P_ATTRIBUTE9 => c.p29
876 ,P_ATTRIBUTE10 => c.p30
877 ,P_ATTRIBUTE11 => c.p31
878 ,P_ATTRIBUTE12 => c.p32
879 ,P_ATTRIBUTE13 => c.p33
880 ,P_ATTRIBUTE14 => c.p34
881 ,P_ATTRIBUTE15 => c.p35
882 ,P_ATTRIBUTE16 => c.p36
883 ,P_ATTRIBUTE17 => c.p37
884 ,P_ATTRIBUTE18 => c.p38
885 ,P_ATTRIBUTE19 => c.p39
886 ,P_ATTRIBUTE20 => c.p40
887 ,P_ATTRIBUTE21 => c.p41
888 ,P_ATTRIBUTE22 => c.p42
889 ,P_ATTRIBUTE23 => c.p43
890 ,P_ATTRIBUTE24 => c.p44
891 ,P_ATTRIBUTE25 => c.p45
892 ,P_ATTRIBUTE26 => c.p46
893 ,P_ATTRIBUTE27 => c.p47
894 ,P_ATTRIBUTE28 => c.p48
895 ,P_ATTRIBUTE29 => c.p49
896 ,P_ATTRIBUTE30 => c.p50
897 ,P_PER_INFORMATION_CATEGORY => c.p51
898 ,P_PER_INFORMATION1 => c.p52
899 ,P_PER_INFORMATION2 => c.p53
900 ,P_PER_INFORMATION3 => c.p54
901 ,P_PER_INFORMATION4 => c.p55
902 ,P_PER_INFORMATION5 => c.p56
903 ,P_PER_INFORMATION6 => c.p57
904 ,P_PER_INFORMATION7 => c.p58
905 ,P_PER_INFORMATION8 => c.p59
906 ,P_PER_INFORMATION9 => c.p60
907 ,P_PER_INFORMATION10 => c.p61
908 ,P_PER_INFORMATION11 => c.p62
909 ,P_PER_INFORMATION12 => c.p63
910 ,P_PER_INFORMATION13 => c.p64
911 ,P_PER_INFORMATION14 => c.p65
912 ,P_PER_INFORMATION15 => c.p66
913 ,P_PER_INFORMATION16 => c.p67
914 ,P_PER_INFORMATION17 => c.p68
915 ,P_PER_INFORMATION18 => c.p69
916 ,P_PER_INFORMATION19 => c.p70
917 ,P_PER_INFORMATION20 => c.p71
918 ,P_PER_INFORMATION21 => c.p72
919 ,P_PER_INFORMATION22 => c.p73
920 ,P_PER_INFORMATION23 => c.p74
921 ,P_PER_INFORMATION24 => c.p75
922 ,P_PER_INFORMATION25 => c.p76
923 ,P_PER_INFORMATION26 => c.p77
924 ,P_PER_INFORMATION27 => c.p78
925 ,P_PER_INFORMATION28 => c.p79
926 ,P_PER_INFORMATION29 => c.p80
927 ,P_PER_INFORMATION30 => c.p81
928 ,P_DATE_OF_DEATH => c.p82
929 ,P_BACKGROUND_CHECK_STATUS => c.p83
930 ,P_BACKGROUND_DATE_CHECK => c.p84
931 ,P_BLOOD_TYPE => c.p85
932 ,P_CORRESPONDENCE_LANGUAGE => L_CORRESPONDENCE_LANGUAGE
933 ,P_FAST_PATH_EMPLOYEE => c.p86
934 ,P_FTE_CAPACITY => c.p87
935 ,P_HONORS => c.p88
936 ,P_INTERNAL_LOCATION => c.p89
937 ,P_LAST_MEDICAL_TEST_BY => c.p90
938 ,P_LAST_MEDICAL_TEST_DATE => c.p91
939 ,P_MAILSTOP => c.p92
940 ,P_OFFICE_NUMBER => c.p93
941 ,P_ON_MILITARY_SERVICE => c.p94
942 ,P_PRE_NAME_ADJUNCT => c.p95
943 ,P_REHIRE_RECOMMENDATION => c.p96
944 ,P_PROJECTED_START_DATE => c.p97
945 ,P_RESUME_EXISTS => c.p98
946 ,P_RESUME_LAST_UPDATED => c.p99
947 ,P_SECOND_PASSPORT_EXISTS => c.p100
948 ,P_STUDENT_STATUS => c.p101
949 ,P_WORK_SCHEDULE => c.p102
950 ,P_SUFFIX => c.p103
951 ,P_BENEFIT_GROUP_ID => L_BENEFIT_GROUP_ID
952 ,P_RECEIPT_OF_DEATH_CERT_DATE => c.p104
953 ,P_COORD_BEN_MED_PLN_NO => c.p105
954 ,P_COORD_BEN_NO_CVG_FLAG => c.p106
955 ,P_COORD_BEN_MED_EXT_ER => c.p107
956 ,P_COORD_BEN_MED_PL_NAME => c.p108
957 ,P_COORD_BEN_MED_INSR_CRR_NAME => c.p109
958 ,P_COORD_BEN_MED_INSR_CRR_IDENT => c.p110
959 ,P_COORD_BEN_MED_CVG_STRT_DT => c.p111
960 ,P_COORD_BEN_MED_CVG_END_DT => c.p112
961 ,P_USES_TOBACCO_FLAG => c.p113
962 ,P_DPDNT_ADOPTION_DATE => c.p114
963 ,P_DPDNT_VLNTRY_SVCE_FLAG => c.p115
964 ,P_ORIGINAL_DATE_OF_HIRE => c.p116
965 ,P_ADJUSTED_SVC_DATE => c.p117
966 ,P_TOWN_OF_BIRTH => c.p118
967 ,P_REGION_OF_BIRTH => c.p119
968 ,P_COUNTRY_OF_BIRTH => c.p120
969 ,P_GLOBAL_PERSON_ID => c.p121
973 ,P_PER_OBJECT_VERSION_NUMBER => c.p125
970 ,P_PARTY_ID => c.p122
971 ,P_PERSON_ID => L_PERSON_ID
972 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
974 ,P_ASG_OBJECT_VERSION_NUMBER => c.p126
975 ,P_PER_EFFECTIVE_START_DATE => c.p127
976 ,P_PER_EFFECTIVE_END_DATE => c.p128
977 ,P_FULL_NAME => c.p129
978 ,P_PER_COMMENT_ID => c.p130
979 ,P_ASSIGNMENT_SEQUENCE => c.p131
980 ,P_ASSIGNMENT_NUMBER => c.p132
981 ,P_NAME_COMBINATION_WARNING => L_NAME_COMBINATION_WARNING
982 ,P_ASSIGN_PAYROLL_WARNING => L_ASSIGN_PAYROLL_WARNING
983 ,P_ORIG_HIRE_WARNING => L_ORIG_HIRE_WARNING);
984 hr_data_pump.api_trc_off;
985 --
986 iuk(p_batch_line_id,c.p123,L_PERSON_ID);
987 --
988 iuk(p_batch_line_id,c.p124,L_ASSIGNMENT_ID);
989 --
990 if L_NAME_COMBINATION_WARNING then
991 c.p133 := 'TRUE';
992 else
993 c.p133 := 'FALSE';
994 end if;
995 --
996 if L_ASSIGN_PAYROLL_WARNING then
997 c.p134 := 'TRUE';
998 else
999 c.p134 := 'FALSE';
1000 end if;
1001 --
1002 if L_ORIG_HIRE_WARNING then
1003 c.p135 := 'TRUE';
1004 else
1005 c.p135 := 'FALSE';
1006 end if;
1007 --
1008 update hr_pump_batch_lines l set
1009 l.pval008 = decode(c.p8,null,cn,c.p8),
1010 l.pval123 = decode(c.p123,null,cn,c.p123),
1011 l.pval124 = decode(c.p124,null,cn,c.p124),
1012 l.pval125 = decode(c.p125,null,cn,c.p125),
1013 l.pval126 = decode(c.p126,null,cn,c.p126),
1014 l.pval127 = decode(c.p127,null,cn,dc(c.p127)),
1015 l.pval128 = decode(c.p128,null,cn,dc(c.p128)),
1016 l.pval129 = decode(c.p129,null,cn,c.p129),
1017 l.pval130 = decode(c.p130,null,cn,c.p130),
1018 l.pval131 = decode(c.p131,null,cn,c.p131),
1019 l.pval132 = decode(c.p132,null,cn,c.p132),
1020 l.pval133 = decode(c.p133,null,cn,c.p133),
1021 l.pval134 = decode(c.p134,null,cn,c.p134),
1022 l.pval135 = decode(c.p135,null,cn,c.p135)
1023 where l.rowid = c.myrowid;
1024 --
1025 close cr;
1026 --
1027 hr_data_pump.exit('call');
1028 exception
1029 when hr_multi_message.error_message_exist then
1030 if cr%isopen then
1031 close cr;
1032 end if;
1033 hr_pump_utils.set_multi_msg_error_flag(true);
1034 when others then
1035 if cr%isopen then
1036 close cr;
1037 end if;
1038 raise;
1039 end call;
1040 end hrdpp_create_employee;