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_RU_PERSON

Source


1 package body hrdpp_CREATE_RU_PERSON as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:41
4  * Generated for API: HR_RU_CONTACT_API.CREATE_RU_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
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_INN 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
128 ,P_ATTRIBUTE28 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
129 ,P_ATTRIBUTE29 in varchar2 default null
130 ,P_ATTRIBUTE30 in varchar2 default null
131 ,P_PLACE_OF_BIRTH in varchar2 default null
132 ,P_REFERENCES in varchar2 default null
133 ,P_LOCAL_COEFFICIENT in varchar2 default null
134 ,P_CITIZENSHIP in varchar2 default null
135 ,P_MILITARY_DOC in varchar2 default null
136 ,P_RESERVE_CATEGORY in varchar2 default null
137 ,P_MILITARY_RANK in varchar2 default null
138 ,P_MILITARY_PROFILE in varchar2 default null
139 ,P_MILITARY_REG_CODE in varchar2 default null
140 ,P_MIL_SRVC_READINESS_CATEGORY in varchar2 default null
141 ,P_MILITARY_COMMISSARIAT in varchar2 default null
142 ,P_QUITTING_MARK in varchar2 default null
143 ,P_MILITARY_UNIT_NUMBER in varchar2 default null
144 ,P_MILITARY_REG_TYPE in varchar2 default null
145 ,P_MILITARY_REG_DETAILS in varchar2 default null
146 ,P_PENSION_FUND_NUMBER in varchar2 default null
147 ,P_HONORS in varchar2 default null
148 ,P_ON_MILITARY_SERVICE in varchar2 default null
149 ,P_STUDENT_STATUS in varchar2 default null
150 ,P_USES_TOBACCO_FLAG in varchar2 default null
151 ,P_COORD_BEN_NO_CVG_FLAG in varchar2 default null
152 ,P_GENITIVE_LAST_NAME in varchar2 default null
153 ,P_SUFFIX in varchar2 default null
154 ,P_TOWN_OF_BIRTH in varchar2 default null
155 ,P_REGION_OF_BIRTH in varchar2 default null
156 ,P_COUNTRY_OF_BIRTH in varchar2 default null
157 ,P_GLOBAL_PERSON_ID in varchar2 default null
158 ,P_PERSON_USER_KEY in varchar2
159 ,P_USER_PERSON_TYPE in varchar2 default null
160 ,P_LANGUAGE_CODE in varchar2 default null
161 ,P_VENDOR_NAME in varchar2 default null
162 ,P_CORRESPONDENCE_LANGUAGE in varchar2 default null
163 ,P_BENEFIT_GROUP in varchar2 default null) is
164 blid number := p_data_pump_batch_line_id;
165 begin
166 if blid is not null then
167 delete from hr_pump_batch_lines where batch_line_id = blid;
168 delete from hr_pump_batch_exceptions
169 where source_type = 'BATCH_LINE' and source_id = blid;
170 end if;
171 insert into hr_pump_batch_lines
172 (batch_id
173 ,batch_line_id
174 ,business_group_name
175 ,api_module_id
176 ,line_status
177 ,user_sequence
178 ,link_value
179 ,pval001
180 ,pval002
181 ,pval003
182 ,pval004
183 ,pval005
184 ,pval006
185 ,pval007
186 ,pval008
187 ,pval009
188 ,pval010
189 ,pval011
190 ,pval012
191 ,pval013
192 ,pval014
193 ,pval015
194 ,pval016
195 ,pval017
196 ,pval018
197 ,pval019
198 ,pval020
199 ,pval021
200 ,pval022
201 ,pval023
202 ,pval024
203 ,pval025
204 ,pval026
205 ,pval027
206 ,pval028
207 ,pval029
208 ,pval030
209 ,pval031
210 ,pval032
211 ,pval033
212 ,pval034
213 ,pval035
214 ,pval036
215 ,pval037
216 ,pval038
217 ,pval039
218 ,pval040
219 ,pval041
220 ,pval042
221 ,pval043
222 ,pval044
223 ,pval045
224 ,pval046
225 ,pval047
226 ,pval048
227 ,pval049
228 ,pval050
229 ,pval051
230 ,pval052
231 ,pval053
232 ,pval054
233 ,pval055
234 ,pval056
235 ,pval057
236 ,pval058
237 ,pval059
238 ,pval060
239 ,pval061
240 ,pval062
241 ,pval063
242 ,pval064
243 ,pval065
244 ,pval066
245 ,pval067
246 ,pval068
247 ,pval069
248 ,pval070
249 ,pval071
250 ,pval072
251 ,pval073
252 ,pval074
253 ,pval075
254 ,pval076
255 ,pval077
256 ,pval085
257 ,pval086
258 ,pval087
259 ,pval088
260 ,pval089)
261 values
262 (p_batch_id
263 ,nvl(blid,hr_pump_batch_lines_s.nextval)
264 ,p_data_pump_business_grp_name
265 ,3872
266 ,'U'
270 ,P_LAST_NAME
267 ,p_user_sequence
268 ,p_link_value
269 ,dc(P_START_DATE)
271 ,P_SEX
272 ,P_COMMENTS
273 ,dc(P_DATE_EMPLOYEE_DATA_VERIFIED)
274 ,dc(P_DATE_OF_BIRTH)
275 ,P_EMAIL_ADDRESS
276 ,P_EXPENSE_CHECK_SEND_TO_ADDRES
277 ,P_FIRST_NAME
278 ,P_KNOWN_AS
279 ,P_MARITAL_STATUS
280 ,P_MIDDLE_NAMES
281 ,P_NATIONALITY
282 ,P_INN
283 ,P_PREVIOUS_LAST_NAME
284 ,P_REGISTERED_DISABLED_FLAG
285 ,P_TITLE
286 ,P_WORK_TELEPHONE
287 ,P_ATTRIBUTE_CATEGORY
288 ,P_ATTRIBUTE1
289 ,P_ATTRIBUTE2
290 ,P_ATTRIBUTE3
291 ,P_ATTRIBUTE4
292 ,P_ATTRIBUTE5
293 ,P_ATTRIBUTE6
294 ,P_ATTRIBUTE7
295 ,P_ATTRIBUTE8
296 ,P_ATTRIBUTE9
297 ,P_ATTRIBUTE10
298 ,P_ATTRIBUTE11
299 ,P_ATTRIBUTE12
300 ,P_ATTRIBUTE13
301 ,P_ATTRIBUTE14
302 ,P_ATTRIBUTE15
303 ,P_ATTRIBUTE16
304 ,P_ATTRIBUTE17
305 ,P_ATTRIBUTE18
306 ,P_ATTRIBUTE19
307 ,P_ATTRIBUTE20
308 ,P_ATTRIBUTE21
309 ,P_ATTRIBUTE22
310 ,P_ATTRIBUTE23
311 ,P_ATTRIBUTE24
312 ,P_ATTRIBUTE25
313 ,P_ATTRIBUTE26
314 ,P_ATTRIBUTE27
315 ,P_ATTRIBUTE28
316 ,P_ATTRIBUTE29
317 ,P_ATTRIBUTE30
318 ,P_PLACE_OF_BIRTH
319 ,P_REFERENCES
320 ,P_LOCAL_COEFFICIENT
321 ,P_CITIZENSHIP
322 ,P_MILITARY_DOC
323 ,P_RESERVE_CATEGORY
324 ,P_MILITARY_RANK
325 ,P_MILITARY_PROFILE
326 ,P_MILITARY_REG_CODE
327 ,P_MIL_SRVC_READINESS_CATEGORY
328 ,P_MILITARY_COMMISSARIAT
329 ,P_QUITTING_MARK
330 ,P_MILITARY_UNIT_NUMBER
331 ,P_MILITARY_REG_TYPE
332 ,P_MILITARY_REG_DETAILS
333 ,P_PENSION_FUND_NUMBER
334 ,P_HONORS
335 ,P_ON_MILITARY_SERVICE
336 ,P_STUDENT_STATUS
337 ,P_USES_TOBACCO_FLAG
338 ,P_COORD_BEN_NO_CVG_FLAG
339 ,P_GENITIVE_LAST_NAME
340 ,P_SUFFIX
341 ,P_TOWN_OF_BIRTH
342 ,P_REGION_OF_BIRTH
343 ,P_COUNTRY_OF_BIRTH
344 ,P_GLOBAL_PERSON_ID
345 ,P_PERSON_USER_KEY
346 ,P_USER_PERSON_TYPE
347 ,P_LANGUAGE_CODE
348 ,P_VENDOR_NAME
349 ,P_CORRESPONDENCE_LANGUAGE
350 ,P_BENEFIT_GROUP);
351 end insert_batch_lines;
352 --
353 procedure call
354 (p_business_group_id in number,
355 p_batch_line_id     in number) is
356 cursor cr is
357 select l.rowid myrowid,
358 decode(l.pval001,cn,dn,d(l.pval001)) p1,
359 decode(l.pval002,cn,vn,l.pval002) p2,
360 decode(l.pval003,cn,vn,
361  hr_pump_get.gl(l.pval003,'SEX',d(l.pval001),l.pval086)) p3,
362 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
363 l.pval004 d4,
364 decode(l.pval005,cn,dn,vn,dn,d(l.pval005)) p5,
365 l.pval005 d5,
366 decode(l.pval006,cn,dn,vn,dn,d(l.pval006)) p6,
367 l.pval006 d6,
368 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
369 l.pval007 d7,
370 decode(l.pval008,cn,vn,vn,vn,
371  hr_pump_get.gl(l.pval008,'HOME_OFFICE',d(l.pval001),l.pval086)) p8,
372 l.pval008 d8,
373 decode(l.pval009,cn,vn,l.pval009) p9,
374 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
375 l.pval010 d10,
376 decode(l.pval011,cn,vn,vn,vn,
377  hr_pump_get.gl(l.pval011,'MAR_STATUS',d(l.pval001),l.pval086)) p11,
378 l.pval011 d11,
379 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
380 l.pval012 d12,
381 decode(l.pval013,cn,vn,vn,vn,
382  hr_pump_get.gl(l.pval013,'NATIONALITY',d(l.pval001),l.pval086)) p13,
383 l.pval013 d13,
384 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
385 l.pval014 d14,
386 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
387 l.pval015 d15,
388 decode(l.pval016,cn,vn,vn,vn,
389  hr_pump_get.gl(l.pval016,'YES_NO',d(l.pval001),l.pval086)) p16,
390 l.pval016 d16,
391 decode(l.pval017,cn,vn,vn,vn,
392  hr_pump_get.gl(l.pval017,'TITLE',d(l.pval001),l.pval086)) p17,
393 l.pval017 d17,
394 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
395 l.pval018 d18,
396 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
397 l.pval019 d19,
398 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
399 l.pval020 d20,
400 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
401 l.pval021 d21,
402 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
403 l.pval022 d22,
404 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
405 l.pval023 d23,
406 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
407 l.pval024 d24,
408 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
409 l.pval025 d25,
410 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
411 l.pval026 d26,
412 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
413 l.pval027 d27,
414 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
415 l.pval028 d28,
419 l.pval030 d30,
416 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
417 l.pval029 d29,
418 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
420 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
421 l.pval031 d31,
422 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
423 l.pval032 d32,
424 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
425 l.pval033 d33,
426 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
427 l.pval034 d34,
428 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
429 l.pval035 d35,
430 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
431 l.pval036 d36,
432 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
433 l.pval037 d37,
434 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
435 l.pval038 d38,
436 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
437 l.pval039 d39,
438 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
439 l.pval040 d40,
440 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
441 l.pval041 d41,
442 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
443 l.pval042 d42,
444 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
445 l.pval043 d43,
446 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
447 l.pval044 d44,
448 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
449 l.pval045 d45,
450 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
451 l.pval046 d46,
452 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
453 l.pval047 d47,
454 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
455 l.pval048 d48,
456 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
457 l.pval049 d49,
458 decode(l.pval050,cn,vn,vn,vn,
459  hr_pump_get.gl(l.pval050,'RU_OKATO',d(l.pval001),l.pval086)) p50,
460 l.pval050 d50,
461 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
462 l.pval051 d51,
463 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
464 l.pval052 d52,
465 decode(l.pval053,cn,vn,vn,vn,
466  hr_pump_get.gl(l.pval053,'RU_CITIZENSHIP',d(l.pval001),l.pval086)) p53,
467 l.pval053 d53,
468 decode(l.pval054,cn,vn,vn,vn,
469  hr_pump_get.gl(l.pval054,'RU_MILITARY_DOC_TYPE',d(l.pval001),l.pval086)) p54,
470 l.pval054 d54,
471 decode(l.pval055,cn,vn,vn,vn,
472  hr_pump_get.gl(l.pval055,'RU_RESERVE_CATEGORY',d(l.pval001),l.pval086)) p55,
473 l.pval055 d55,
474 decode(l.pval056,cn,vn,vn,vn,
475  hr_pump_get.gl(l.pval056,'RU_MILITARY_RANK',d(l.pval001),l.pval086)) p56,
476 l.pval056 d56,
477 decode(l.pval057,cn,vn,vn,vn,
478  hr_pump_get.gl(l.pval057,'RU_MILITARY_PROFILE',d(l.pval001),l.pval086)) p57,
479 l.pval057 d57,
480 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
481 l.pval058 d58,
482 decode(l.pval059,cn,vn,vn,vn,
483  hr_pump_get.gl(l.pval059,'RU_MILITARY_SERVICE_READINESS_CATEGORY',d(l.pval001),l.pval086)) p59,
484 l.pval059 d59,
485 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
486 l.pval060 d60,
487 decode(l.pval061,cn,vn,vn,vn,
488  hr_pump_get.gl(l.pval061,'RU_QUITTING_MARK',d(l.pval001),l.pval086)) p61,
489 l.pval061 d61,
490 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
491 l.pval062 d62,
492 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
493 l.pval063 d63,
494 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
495 l.pval064 d64,
496 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
497 l.pval065 d65,
498 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
499 l.pval066 d66,
500 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
501 l.pval067 d67,
502 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
503 l.pval068 d68,
504 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
505 l.pval069 d69,
506 decode(l.pval070,cn,vn,vn,'N',
507  hr_pump_get.gl(l.pval070,'YES_NO',d(l.pval001),l.pval086)) p70,
508 l.pval070 d70,
509 decode(l.pval071,cn,vn,vn,vn,l.pval071) p71,
510 l.pval071 d71,
511 decode(l.pval072,cn,vn,vn,vn,l.pval072) p72,
512 l.pval072 d72,
513 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
514 l.pval073 d73,
515 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
516 l.pval074 d74,
517 decode(l.pval075,cn,vn,vn,vn,l.pval075) p75,
518 l.pval075 d75,
519 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
520 l.pval076 d76,
521 l.pval077 p77,
522 l.pval078 p78,
523 decode(l.pval079,cn,dn,d(l.pval079)) p79,
524 decode(l.pval080,cn,dn,d(l.pval080)) p80,
525 l.pval081 p81,
526 l.pval082 p82,
527 l.pval083 p83,
528 l.pval084 p84,
529 decode(l.pval085,cn,vn,vn,vn,l.pval085) p85,
530 l.pval085 d85,
531 decode(l.pval086,cn,vn,vn,vn,l.pval086) p86,
532 l.pval086 d86,
533 decode(l.pval087,cn,vn,vn,vn,l.pval087) p87,
534 l.pval087 d87,
535 decode(l.pval088,cn,vn,vn,vn,l.pval088) p88,
536 l.pval088 d88,
537 decode(l.pval089,cn,vn,vn,vn,l.pval089) p89,
538 l.pval089 d89
539 from hr_pump_batch_lines l
540 where l.batch_line_id = p_batch_line_id;
541 --
542 c cr%rowtype;
543 l_validate boolean := false;
544 L_PERSON_ID number;
545 L_NAME_COMBINATION_WARNING boolean;
546 L_ORIG_HIRE_WARNING boolean;
547 L_PERSON_TYPE_ID number;
548 L_VENDOR_ID number;
549 L_CORRESPONDENCE_LANGUAGE varchar2(2000);
550 L_BENEFIT_GROUP_ID number;
551 --
552 begin
553 hr_data_pump.entry('call');
554 open cr;
555 fetch cr into c;
556 if cr%notfound then
557 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
558 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
559 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
560 hr_utility.set_message_token('VALUE',p_batch_line_id);
561 hr_utility.raise_error;
562 end if;
563 --
564 if c.p85 is null or
565 c.p86 is null then
566 L_PERSON_TYPE_ID:=nn;
567 else
568 L_PERSON_TYPE_ID := 
569 hr_pump_get.get_person_type_id
570 (P_USER_PERSON_TYPE => c.p85
571 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
572 ,P_LANGUAGE_CODE => c.p86);
573 end if;
574 --
575 if c.p87 is null then
576 L_VENDOR_ID:=nn;
577 else
581 end if;
578 L_VENDOR_ID := 
579 hr_pump_get.get_vendor_id
580 (P_VENDOR_NAME => c.p87);
582 --
583 if c.p88 is null then
584 L_CORRESPONDENCE_LANGUAGE:=vn;
585 else
586 L_CORRESPONDENCE_LANGUAGE := 
587 hr_pump_get.GET_CORRESPONDENCE_LANGUAGE
588 (P_CORRESPONDENCE_LANGUAGE => c.p88);
589 end if;
590 --
591 if c.p89 is null then
592 L_BENEFIT_GROUP_ID:=nn;
593 else
594 L_BENEFIT_GROUP_ID := 
595 hr_pump_get.get_benefit_group_id
596 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
597 ,P_BENEFIT_GROUP => c.p89);
598 end if;
599 --
600 hr_data_pump.api_trc_on;
601 HR_RU_CONTACT_API.CREATE_RU_PERSON
602 (p_validate => l_validate
603 ,P_START_DATE => c.p1
604 ,p_business_group_id => p_business_group_id
605 ,P_LAST_NAME => c.p2
606 ,P_SEX => c.p3
607 ,P_PERSON_TYPE_ID => L_PERSON_TYPE_ID
608 ,P_COMMENTS => c.p4
609 ,P_DATE_EMPLOYEE_DATA_VERIFIED => c.p5
610 ,P_DATE_OF_BIRTH => c.p6
611 ,P_EMAIL_ADDRESS => c.p7
612 ,P_EXPENSE_CHECK_SEND_TO_ADDRES => c.p8
613 ,P_FIRST_NAME => c.p9
614 ,P_KNOWN_AS => c.p10
615 ,P_MARITAL_STATUS => c.p11
616 ,P_MIDDLE_NAMES => c.p12
617 ,P_NATIONALITY => c.p13
618 ,P_INN => c.p14
619 ,P_PREVIOUS_LAST_NAME => c.p15
620 ,P_REGISTERED_DISABLED_FLAG => c.p16
621 ,P_TITLE => c.p17
622 ,P_VENDOR_ID => L_VENDOR_ID
623 ,P_WORK_TELEPHONE => c.p18
624 ,P_ATTRIBUTE_CATEGORY => c.p19
625 ,P_ATTRIBUTE1 => c.p20
626 ,P_ATTRIBUTE2 => c.p21
627 ,P_ATTRIBUTE3 => c.p22
628 ,P_ATTRIBUTE4 => c.p23
629 ,P_ATTRIBUTE5 => c.p24
630 ,P_ATTRIBUTE6 => c.p25
631 ,P_ATTRIBUTE7 => c.p26
632 ,P_ATTRIBUTE8 => c.p27
633 ,P_ATTRIBUTE9 => c.p28
634 ,P_ATTRIBUTE10 => c.p29
635 ,P_ATTRIBUTE11 => c.p30
636 ,P_ATTRIBUTE12 => c.p31
637 ,P_ATTRIBUTE13 => c.p32
638 ,P_ATTRIBUTE14 => c.p33
639 ,P_ATTRIBUTE15 => c.p34
640 ,P_ATTRIBUTE16 => c.p35
641 ,P_ATTRIBUTE17 => c.p36
642 ,P_ATTRIBUTE18 => c.p37
643 ,P_ATTRIBUTE19 => c.p38
644 ,P_ATTRIBUTE20 => c.p39
645 ,P_ATTRIBUTE21 => c.p40
646 ,P_ATTRIBUTE22 => c.p41
647 ,P_ATTRIBUTE23 => c.p42
648 ,P_ATTRIBUTE24 => c.p43
649 ,P_ATTRIBUTE25 => c.p44
650 ,P_ATTRIBUTE26 => c.p45
651 ,P_ATTRIBUTE27 => c.p46
652 ,P_ATTRIBUTE28 => c.p47
653 ,P_ATTRIBUTE29 => c.p48
654 ,P_ATTRIBUTE30 => c.p49
655 ,P_PLACE_OF_BIRTH => c.p50
656 ,P_REFERENCES => c.p51
657 ,P_LOCAL_COEFFICIENT => c.p52
658 ,P_CITIZENSHIP => c.p53
659 ,P_MILITARY_DOC => c.p54
660 ,P_RESERVE_CATEGORY => c.p55
661 ,P_MILITARY_RANK => c.p56
662 ,P_MILITARY_PROFILE => c.p57
663 ,P_MILITARY_REG_CODE => c.p58
664 ,P_MIL_SRVC_READINESS_CATEGORY => c.p59
665 ,P_MILITARY_COMMISSARIAT => c.p60
666 ,P_QUITTING_MARK => c.p61
667 ,P_MILITARY_UNIT_NUMBER => c.p62
668 ,P_MILITARY_REG_TYPE => c.p63
669 ,P_MILITARY_REG_DETAILS => c.p64
670 ,P_PENSION_FUND_NUMBER => c.p65
671 ,P_CORRESPONDENCE_LANGUAGE => L_CORRESPONDENCE_LANGUAGE
672 ,P_HONORS => c.p66
673 ,P_BENEFIT_GROUP_ID => L_BENEFIT_GROUP_ID
674 ,P_ON_MILITARY_SERVICE => c.p67
675 ,P_STUDENT_STATUS => c.p68
676 ,P_USES_TOBACCO_FLAG => c.p69
677 ,P_COORD_BEN_NO_CVG_FLAG => c.p70
678 ,P_GENITIVE_LAST_NAME => c.p71
679 ,P_SUFFIX => c.p72
680 ,P_TOWN_OF_BIRTH => c.p73
681 ,P_REGION_OF_BIRTH => c.p74
682 ,P_COUNTRY_OF_BIRTH => c.p75
683 ,P_GLOBAL_PERSON_ID => c.p76
684 ,P_PERSON_ID => L_PERSON_ID
685 ,P_OBJECT_VERSION_NUMBER => c.p78
686 ,P_EFFECTIVE_START_DATE => c.p79
687 ,P_EFFECTIVE_END_DATE => c.p80
688 ,P_FULL_NAME => c.p81
689 ,P_COMMENT_ID => c.p82
690 ,P_NAME_COMBINATION_WARNING => L_NAME_COMBINATION_WARNING
691 ,P_ORIG_HIRE_WARNING => L_ORIG_HIRE_WARNING);
692 hr_data_pump.api_trc_off;
693 --
694 iuk(p_batch_line_id,c.p77,L_PERSON_ID);
695 --
696 if L_NAME_COMBINATION_WARNING then
697 c.p83 := 'TRUE';
698 else
699 c.p83 := 'FALSE';
700 end if;
701 --
702 if L_ORIG_HIRE_WARNING then
703 c.p84 := 'TRUE';
704 else
705 c.p84 := 'FALSE';
706 end if;
707 --
708 update hr_pump_batch_lines l set
709 l.pval077 = decode(c.p77,null,cn,c.p77),
710 l.pval078 = decode(c.p78,null,cn,c.p78),
711 l.pval079 = decode(c.p79,null,cn,dc(c.p79)),
712 l.pval080 = decode(c.p80,null,cn,dc(c.p80)),
713 l.pval081 = decode(c.p81,null,cn,c.p81),
714 l.pval082 = decode(c.p82,null,cn,c.p82),
715 l.pval083 = decode(c.p83,null,cn,c.p83),
716 l.pval084 = decode(c.p84,null,cn,c.p84)
717 where l.rowid = c.myrowid;
718 --
719 close cr;
720 --
721 hr_data_pump.exit('call');
722 exception
723  when hr_multi_message.error_message_exist then
724    if cr%isopen then
725     close cr;
726    end if;
727    hr_pump_utils.set_multi_msg_error_flag(true);
728  when others then
729  if cr%isopen then
730   close cr;
731  end if;
732  raise;
733 end call;
734 end hrdpp_CREATE_RU_PERSON;