DBA Data[Home] [Help]

PACKAGE BODY: APPS.HRDPP_UPDATE_CN_PERSON

Source


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