[Home] [Help]
PACKAGE BODY: APPS.HRDPP_UPDATE_IN_CWK_ASG
Source
1 package body hrdpp_update_in_cwk_asg as
2 /*
3 * Generated by hr_pump_meta_mapper at: 2007/01/03 23:01:14
4 * Generated for API: hr_in_assignment_api.update_in_cwk_asg
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_EFFECTIVE_DATE in date
83 ,P_DATETRACK_UPDATE_MODE in varchar2
84 ,P_ASSIGNMENT_CATEGORY in varchar2 default null
85 ,P_ASSIGNMENT_NUMBER in varchar2 default null
86 ,P_CHANGE_REASON in varchar2 default null
87 ,P_COMMENTS in varchar2 default null
88 ,P_FREQUENCY in varchar2 default null
89 ,P_INTERNAL_ADDRESS_LINE in varchar2 default null
90 ,P_LABOUR_UNION_MEMBER_FLAG in varchar2 default null
91 ,P_MANAGER_FLAG in varchar2 default null
92 ,P_NORMAL_HOURS in number default null
93 ,I_NORMAL_HOURS in varchar2 default 'N'
94 ,P_PROJECT_TITLE in varchar2 default null
95 ,P_SOURCE_TYPE in varchar2 default null
96 ,P_TIME_NORMAL_FINISH in varchar2 default null
97 ,P_TIME_NORMAL_START in varchar2 default null
98 ,P_TITLE in varchar2 default null
99 ,P_VENDOR_ASSIGNMENT_NUMBER in varchar2 default null
100 ,P_VENDOR_EMPLOYEE_NUMBER in varchar2 default null
101 ,P_PROJECTED_ASSIGNMENT_END in date default null
102 ,I_PROJECTED_ASSIGNMENT_END in varchar2 default 'N'
103 ,P_CONCAT_SEGMENTS in varchar2 default null
104 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
105 ,P_ATTRIBUTE1 in varchar2 default null
106 ,P_ATTRIBUTE2 in varchar2 default null
107 ,P_ATTRIBUTE3 in varchar2 default null
108 ,P_ATTRIBUTE4 in varchar2 default null
109 ,P_ATTRIBUTE5 in varchar2 default null
110 ,P_ATTRIBUTE6 in varchar2 default null
111 ,P_ATTRIBUTE7 in varchar2 default null
112 ,P_ATTRIBUTE8 in varchar2 default null
113 ,P_ATTRIBUTE9 in varchar2 default null
114 ,P_ATTRIBUTE10 in varchar2 default null
115 ,P_ATTRIBUTE11 in varchar2 default null
116 ,P_ATTRIBUTE12 in varchar2 default null
117 ,P_ATTRIBUTE13 in varchar2 default null
118 ,P_ATTRIBUTE14 in varchar2 default null
119 ,P_ATTRIBUTE15 in varchar2 default null
120 ,P_ATTRIBUTE16 in varchar2 default null
121 ,P_ATTRIBUTE17 in varchar2 default null
122 ,P_ATTRIBUTE18 in varchar2 default null
123 ,P_ATTRIBUTE19 in varchar2 default null
124 ,P_ATTRIBUTE20 in varchar2 default null
125 ,P_ATTRIBUTE21 in varchar2 default null
126 ,P_ATTRIBUTE22 in varchar2 default null
127 ,P_ATTRIBUTE23 in varchar2 default null
128 ,P_ATTRIBUTE24 in varchar2 default null
129 ,P_ATTRIBUTE25 in varchar2 default null
130 ,P_ATTRIBUTE26 in varchar2 default null
131 ,P_ATTRIBUTE27 in varchar2 default null
132 ,P_ATTRIBUTE28 in varchar2 default null
133 ,P_ATTRIBUTE29 in varchar2 default null
134 ,P_ATTRIBUTE30 in varchar2 default null
135 ,P_ASSIGNMENT_USER_KEY in varchar2
136 ,P_DEFAULT_CODE_COMB_USER_KEY in varchar2 default null
137 ,P_ESTABLISHMENT_ORG_NAME in varchar2 default null
138 ,P_LANGUAGE_CODE in varchar2 default null
139 ,P_SET_OF_BOOKS_NAME in varchar2 default null
140 ,P_SUPERVISOR_USER_KEY in varchar2 default null
141 ,P_VENDOR_NAME in varchar2 default null
142 ,P_VENDOR_SITE_ID in number default null
143 ,I_VENDOR_SITE_ID in varchar2 default 'N'
144 ,P_PO_HEADER_ID in number default null
145 ,I_PO_HEADER_ID in varchar2 default 'N'
146 ,P_PO_LINE_ID in number default null
147 ,I_PO_LINE_ID in varchar2 default 'N'
148 ,P_USER_STATUS in varchar2 default null
149 ,P_SCL_CONTRACTOR_NAME in varchar2 default null
150 ,P_SVR_ASSIGNMENT_USER_KEY in varchar2 default null) is
151 blid number := p_data_pump_batch_line_id;
152 begin
153 if blid is not null then
154 delete from hr_pump_batch_lines where batch_line_id = blid;
155 delete from hr_pump_batch_exceptions
156 where source_type = 'BATCH_LINE' and source_id = blid;
157 end if;
158 insert into hr_pump_batch_lines
159 (batch_id
160 ,batch_line_id
161 ,business_group_name
162 ,api_module_id
163 ,line_status
164 ,user_sequence
165 ,link_value
166 ,pval001
167 ,pval002
168 ,pval003
169 ,pval004
170 ,pval005
171 ,pval006
172 ,pval007
173 ,pval008
174 ,pval009
175 ,pval010
176 ,pval011
177 ,pval012
178 ,pval013
179 ,pval014
180 ,pval015
181 ,pval016
182 ,pval017
183 ,pval018
184 ,pval019
185 ,pval020
186 ,pval021
187 ,pval022
188 ,pval023
189 ,pval024
190 ,pval025
191 ,pval026
192 ,pval027
193 ,pval028
194 ,pval029
195 ,pval030
196 ,pval031
197 ,pval032
198 ,pval033
199 ,pval034
200 ,pval035
201 ,pval036
202 ,pval037
203 ,pval038
204 ,pval039
205 ,pval040
206 ,pval041
207 ,pval042
208 ,pval043
209 ,pval044
210 ,pval045
211 ,pval046
212 ,pval047
213 ,pval048
214 ,pval049
215 ,pval050
216 ,pval051
217 ,pval061
218 ,pval062
219 ,pval063
220 ,pval064
221 ,pval065
222 ,pval066
223 ,pval067
224 ,pval068
225 ,pval069
226 ,pval070
227 ,pval071
228 ,pval072
229 ,pval073)
230 values
231 (p_batch_id
232 ,nvl(blid,hr_pump_batch_lines_s.nextval)
233 ,p_data_pump_business_grp_name
234 ,3216
235 ,'U'
236 ,p_user_sequence
237 ,p_link_value
238 ,dc(P_EFFECTIVE_DATE)
239 ,P_DATETRACK_UPDATE_MODE
240 ,P_ASSIGNMENT_CATEGORY
241 ,P_ASSIGNMENT_NUMBER
242 ,P_CHANGE_REASON
243 ,P_COMMENTS
244 ,P_FREQUENCY
245 ,P_INTERNAL_ADDRESS_LINE
246 ,P_LABOUR_UNION_MEMBER_FLAG
247 ,P_MANAGER_FLAG
248 ,nd(P_NORMAL_HOURS,I_NORMAL_HOURS)
249 ,P_PROJECT_TITLE
250 ,P_SOURCE_TYPE
251 ,P_TIME_NORMAL_FINISH
252 ,P_TIME_NORMAL_START
253 ,P_TITLE
254 ,P_VENDOR_ASSIGNMENT_NUMBER
255 ,P_VENDOR_EMPLOYEE_NUMBER
256 ,dd(P_PROJECTED_ASSIGNMENT_END,I_PROJECTED_ASSIGNMENT_END)
257 ,P_CONCAT_SEGMENTS
258 ,P_ATTRIBUTE_CATEGORY
259 ,P_ATTRIBUTE1
260 ,P_ATTRIBUTE2
261 ,P_ATTRIBUTE3
262 ,P_ATTRIBUTE4
263 ,P_ATTRIBUTE5
264 ,P_ATTRIBUTE6
265 ,P_ATTRIBUTE7
266 ,P_ATTRIBUTE8
267 ,P_ATTRIBUTE9
268 ,P_ATTRIBUTE10
269 ,P_ATTRIBUTE11
270 ,P_ATTRIBUTE12
271 ,P_ATTRIBUTE13
272 ,P_ATTRIBUTE14
273 ,P_ATTRIBUTE15
274 ,P_ATTRIBUTE16
275 ,P_ATTRIBUTE17
276 ,P_ATTRIBUTE18
277 ,P_ATTRIBUTE19
278 ,P_ATTRIBUTE20
279 ,P_ATTRIBUTE21
280 ,P_ATTRIBUTE22
281 ,P_ATTRIBUTE23
282 ,P_ATTRIBUTE24
283 ,P_ATTRIBUTE25
284 ,P_ATTRIBUTE26
285 ,P_ATTRIBUTE27
286 ,P_ATTRIBUTE28
287 ,P_ATTRIBUTE29
288 ,P_ATTRIBUTE30
289 ,P_ASSIGNMENT_USER_KEY
290 ,P_DEFAULT_CODE_COMB_USER_KEY
291 ,P_ESTABLISHMENT_ORG_NAME
292 ,P_LANGUAGE_CODE
293 ,P_SET_OF_BOOKS_NAME
294 ,P_SUPERVISOR_USER_KEY
295 ,P_VENDOR_NAME
296 ,nd(P_VENDOR_SITE_ID,I_VENDOR_SITE_ID)
297 ,nd(P_PO_HEADER_ID,I_PO_HEADER_ID)
298 ,nd(P_PO_LINE_ID,I_PO_LINE_ID)
299 ,P_USER_STATUS
300 ,P_SCL_CONTRACTOR_NAME
301 ,P_SVR_ASSIGNMENT_USER_KEY);
302 end insert_batch_lines;
303 --
304 procedure call
305 (p_business_group_id in number,
306 p_batch_line_id in number) is
307 cursor cr is
308 select l.rowid myrowid,
309 decode(l.pval001,cn,dn,d(l.pval001)) p1,
310 decode(l.pval002,cn,vn,l.pval002) p2,
311 decode(l.pval003,cn,vn,vn,vh,
312 hr_pump_get.gl(l.pval003,'CWK_ASG_CATEGORY',d(l.pval001),l.pval064)) p3,
313 l.pval003 d3,
314 decode(l.pval004,cn,vn,vn,vh,l.pval004) p4,
315 l.pval004 d4,
316 decode(l.pval005,cn,vn,vn,vh,
317 hr_pump_get.gl(l.pval005,'CWK_ASSIGN_REASON',d(l.pval001),l.pval064)) p5,
318 l.pval005 d5,
319 decode(l.pval006,cn,vn,vn,vh,l.pval006) p6,
320 l.pval006 d6,
321 decode(l.pval007,cn,vn,vn,vh,
322 hr_pump_get.gl(l.pval007,'FREQUENCY',d(l.pval001),l.pval064)) p7,
323 l.pval007 d7,
324 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
325 l.pval008 d8,
326 decode(l.pval009,cn,vn,vn,vh,
327 hr_pump_get.gl(l.pval009,'YES_NO',d(l.pval001),l.pval064)) p9,
328 l.pval009 d9,
329 decode(l.pval010,cn,vn,vn,vh,
330 hr_pump_get.gl(l.pval010,'YES_NO',d(l.pval001),l.pval064)) p10,
331 l.pval010 d10,
332 decode(l.pval011,cn,nn,vn,nh,n(l.pval011)) p11,
333 l.pval011 d11,
334 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
335 l.pval012 d12,
336 decode(l.pval013,cn,vn,vn,vh,
337 hr_pump_get.gl(l.pval013,'REC_TYPE',d(l.pval001),l.pval064)) p13,
338 l.pval013 d13,
339 decode(l.pval014,cn,vn,vn,vh,l.pval014) p14,
340 l.pval014 d14,
341 decode(l.pval015,cn,vn,vn,vh,l.pval015) p15,
342 l.pval015 d15,
343 decode(l.pval016,cn,vn,vn,vh,l.pval016) p16,
344 l.pval016 d16,
345 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
346 l.pval017 d17,
347 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
348 l.pval018 d18,
349 decode(l.pval019,cn,dn,vn,dh,d(l.pval019)) p19,
350 l.pval019 d19,
351 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
352 l.pval020 d20,
353 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
354 l.pval021 d21,
355 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
356 l.pval022 d22,
357 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
358 l.pval023 d23,
359 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
360 l.pval024 d24,
361 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
362 l.pval025 d25,
363 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
364 l.pval026 d26,
365 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
366 l.pval027 d27,
367 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
368 l.pval028 d28,
369 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
370 l.pval029 d29,
371 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
372 l.pval030 d30,
373 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
374 l.pval031 d31,
375 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
376 l.pval032 d32,
377 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
378 l.pval033 d33,
382 l.pval035 d35,
379 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
380 l.pval034 d34,
381 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
383 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
384 l.pval036 d36,
385 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
386 l.pval037 d37,
387 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
388 l.pval038 d38,
389 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
390 l.pval039 d39,
391 decode(l.pval040,cn,vn,vn,vh,l.pval040) p40,
392 l.pval040 d40,
393 decode(l.pval041,cn,vn,vn,vh,l.pval041) p41,
394 l.pval041 d41,
395 decode(l.pval042,cn,vn,vn,vh,l.pval042) p42,
396 l.pval042 d42,
397 decode(l.pval043,cn,vn,vn,vh,l.pval043) p43,
398 l.pval043 d43,
399 decode(l.pval044,cn,vn,vn,vh,l.pval044) p44,
400 l.pval044 d44,
401 decode(l.pval045,cn,vn,vn,vh,l.pval045) p45,
402 l.pval045 d45,
403 decode(l.pval046,cn,vn,vn,vh,l.pval046) p46,
404 l.pval046 d46,
405 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
406 l.pval047 d47,
407 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
408 l.pval048 d48,
409 decode(l.pval049,cn,vn,vn,vh,l.pval049) p49,
410 l.pval049 d49,
411 decode(l.pval050,cn,vn,vn,vh,l.pval050) p50,
412 l.pval050 d50,
413 decode(l.pval051,cn,vn,vn,vh,l.pval051) p51,
414 l.pval051 d51,
415 l.pval052 p52,
416 decode(l.pval053,cn,dn,d(l.pval053)) p53,
417 decode(l.pval054,cn,dn,d(l.pval054)) p54,
418 l.pval055 p55,
419 l.pval056 p56,
420 l.pval057 p57,
421 l.pval058 p58,
422 l.pval059 p59,
423 l.pval060 p60,
424 decode(l.pval061,cn,vn,l.pval061) p61,
425 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
426 l.pval062 d62,
427 decode(l.pval063,cn,vn,vn,vh,l.pval063) p63,
428 l.pval063 d63,
429 decode(l.pval064,cn,vn,vn,vh,l.pval064) p64,
430 l.pval064 d64,
431 decode(l.pval065,cn,vn,vn,vh,l.pval065) p65,
432 l.pval065 d65,
433 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
434 l.pval066 d66,
435 decode(l.pval067,cn,vn,vn,vh,l.pval067) p67,
436 l.pval067 d67,
437 decode(l.pval068,cn,nn,vn,nh,n(l.pval068)) p68,
438 l.pval068 d68,
439 decode(l.pval069,cn,nn,vn,nh,n(l.pval069)) p69,
440 l.pval069 d69,
441 decode(l.pval070,cn,nn,vn,nh,n(l.pval070)) p70,
442 l.pval070 d70,
443 decode(l.pval071,cn,vn,vn,vh,l.pval071) p71,
444 l.pval071 d71,
445 decode(l.pval072,cn,vn,vn,vh,l.pval072) p72,
446 l.pval072 d72,
447 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
448 l.pval073 d73
449 from hr_pump_batch_lines l
450 where l.batch_line_id = p_batch_line_id;
451 --
452 c cr%rowtype;
453 l_validate boolean := false;
454 L_ORG_NOW_NO_MANAGER_WARNING boolean;
455 L_NO_MANAGERS_WARNING boolean;
456 L_OTHER_MANAGER_WARNING boolean;
457 L_HOURLY_SALARIED_WARNING boolean;
458 L_ASSIGNMENT_ID number;
459 L_OBJECT_VERSION_NUMBER number;
460 L_DEFAULT_CODE_COMB_ID number;
461 L_ESTABLISHMENT_ID number;
462 L_SET_OF_BOOKS_ID number;
463 L_SUPERVISOR_ID number;
464 L_VENDOR_ID number;
465 L_VENDOR_SITE_ID number;
466 L_PO_HEADER_ID number;
467 L_PO_LINE_ID number;
468 L_ASSIGNMENT_STATUS_TYPE_ID number;
469 L_SCL_CONTRACTOR_NAME varchar2(2000);
470 L_SUPERVISOR_ASSIGNMENT_ID number;
471 --
472 begin
473 hr_data_pump.entry('call');
474 open cr;
475 fetch cr into c;
476 if cr%notfound then
477 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
478 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
479 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
480 hr_utility.set_message_token('VALUE',p_batch_line_id);
481 hr_utility.raise_error;
482 end if;
483 --
484 if c.p61 is null then
485 L_ASSIGNMENT_ID:=nn;
486 else
487 L_ASSIGNMENT_ID :=
488 hr_pump_get.get_assignment_id
489 (P_ASSIGNMENT_USER_KEY => c.p61);
490 end if;
491 --
492 if c.p61 is null or
493 c.p1 is null then
494 L_OBJECT_VERSION_NUMBER:=nn;
495 else
496 L_OBJECT_VERSION_NUMBER :=
497 hr_pump_get.GET_ASG_OVN
498 (P_ASSIGNMENT_USER_KEY => c.p61
499 ,P_EFFECTIVE_DATE => c.p1);
500 end if;
501 --
502 if c.d62=cn then
503 L_DEFAULT_CODE_COMB_ID:=nn;
504 elsif c.d62 is null then
505 L_DEFAULT_CODE_COMB_ID:=nh;
506 else
507 L_DEFAULT_CODE_COMB_ID :=
508 hr_pump_get.get_default_code_comb_id
509 (P_DEFAULT_CODE_COMB_USER_KEY => c.p62);
510 end if;
511 --
512 if c.d63=cn or
513 c.p1 is null or
514 c.d64=cn then
515 L_ESTABLISHMENT_ID:=nn;
516 elsif c.d63 is null or
517 c.d64 is null then
518 L_ESTABLISHMENT_ID:=nh;
519 else
520 L_ESTABLISHMENT_ID :=
521 hr_pump_get.GET_ESTABLISHMENT_ORG_ID
522 (P_ESTABLISHMENT_ORG_NAME => c.p63
523 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
524 ,P_EFFECTIVE_DATE => c.p1
525 ,P_LANGUAGE_CODE => c.p64);
526 end if;
527 --
528 if c.d65=cn then
529 L_SET_OF_BOOKS_ID:=nn;
530 elsif c.d65 is null then
531 L_SET_OF_BOOKS_ID:=nh;
532 else
533 L_SET_OF_BOOKS_ID :=
534 hr_pump_get.get_set_of_books_id
535 (P_SET_OF_BOOKS_NAME => c.p65);
536 end if;
537 --
538 if c.d66=cn then
539 L_SUPERVISOR_ID:=nn;
540 elsif c.d66 is null then
541 L_SUPERVISOR_ID:=nh;
542 else
543 L_SUPERVISOR_ID :=
544 hr_pump_get.get_supervisor_id
545 (P_SUPERVISOR_USER_KEY => c.p66);
546 end if;
547 --
548 if c.d67=cn then
549 L_VENDOR_ID:=nn;
550 elsif c.d67 is null then
551 L_VENDOR_ID:=nh;
552 else
553 L_VENDOR_ID :=
554 hr_pump_get.get_vendor_id
555 (P_VENDOR_NAME => c.p67);
556 end if;
557 --
558 if c.d68=cn then
559 L_VENDOR_SITE_ID:=nn;
560 elsif c.d68 is null then
561 L_VENDOR_SITE_ID:=nh;
562 else
566 end if;
563 L_VENDOR_SITE_ID :=
564 PER_IN_DATA_PUMP.get_vendor_site_id
565 (P_VENDOR_SITE_ID => c.p68);
567 --
568 if c.d69=cn then
569 L_PO_HEADER_ID:=nn;
570 elsif c.d69 is null then
571 L_PO_HEADER_ID:=nh;
572 else
573 L_PO_HEADER_ID :=
574 PER_IN_DATA_PUMP.get_po_header_id
575 (P_PO_HEADER_ID => c.p69);
576 end if;
577 --
578 if c.d70=cn then
579 L_PO_LINE_ID:=nn;
580 elsif c.d70 is null then
581 L_PO_LINE_ID:=nh;
582 else
583 L_PO_LINE_ID :=
584 PER_IN_DATA_PUMP.get_po_line_id
585 (P_PO_LINE_ID => c.p70);
586 end if;
587 --
588 if c.d71=cn or
589 c.d64=cn then
590 L_ASSIGNMENT_STATUS_TYPE_ID:=nn;
591 elsif c.d71 is null or
592 c.d64 is null then
593 L_ASSIGNMENT_STATUS_TYPE_ID:=nh;
594 else
595 L_ASSIGNMENT_STATUS_TYPE_ID :=
596 hr_pump_get.get_assignment_status_type_id
597 (P_USER_STATUS => c.p71
598 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
599 ,P_LANGUAGE_CODE => c.p64);
600 end if;
601 --
602 if c.d72=cn then
603 L_SCL_CONTRACTOR_NAME:=vn;
604 elsif c.d72 is null then
605 L_SCL_CONTRACTOR_NAME:=vh;
606 else
607 L_SCL_CONTRACTOR_NAME :=
608 PER_IN_DATA_PUMP.GET_SCL_CONTRACTOR_ID
609 (P_SCL_CONTRACTOR_NAME => c.p72);
610 end if;
611 --
612 if c.d73=cn then
613 L_SUPERVISOR_ASSIGNMENT_ID:=nn;
614 elsif c.d73 is null then
615 L_SUPERVISOR_ASSIGNMENT_ID:=nh;
616 else
617 L_SUPERVISOR_ASSIGNMENT_ID :=
618 hr_pump_get.get_supervisor_assignment_id
619 (P_SVR_ASSIGNMENT_USER_KEY => c.p73);
620 end if;
621 --
622 hr_data_pump.api_trc_on;
623 hr_in_assignment_api.update_in_cwk_asg
624 (p_validate => l_validate
625 ,P_EFFECTIVE_DATE => c.p1
626 ,P_DATETRACK_UPDATE_MODE => c.p2
627 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
628 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
629 ,P_ASSIGNMENT_CATEGORY => c.p3
630 ,P_ASSIGNMENT_NUMBER => c.p4
631 ,P_CHANGE_REASON => c.p5
632 ,P_COMMENTS => c.p6
633 ,P_DEFAULT_CODE_COMB_ID => L_DEFAULT_CODE_COMB_ID
634 ,P_ESTABLISHMENT_ID => L_ESTABLISHMENT_ID
635 ,P_FREQUENCY => c.p7
636 ,P_INTERNAL_ADDRESS_LINE => c.p8
637 ,P_LABOUR_UNION_MEMBER_FLAG => c.p9
638 ,P_MANAGER_FLAG => c.p10
639 ,P_NORMAL_HOURS => c.p11
640 ,P_PROJECT_TITLE => c.p12
641 ,P_SET_OF_BOOKS_ID => L_SET_OF_BOOKS_ID
642 ,P_SOURCE_TYPE => c.p13
643 ,P_SUPERVISOR_ID => L_SUPERVISOR_ID
644 ,P_TIME_NORMAL_FINISH => c.p14
645 ,P_TIME_NORMAL_START => c.p15
646 ,P_TITLE => c.p16
647 ,P_VENDOR_ASSIGNMENT_NUMBER => c.p17
648 ,P_VENDOR_EMPLOYEE_NUMBER => c.p18
649 ,P_VENDOR_ID => L_VENDOR_ID
650 ,P_VENDOR_SITE_ID => L_VENDOR_SITE_ID
651 ,P_PO_HEADER_ID => L_PO_HEADER_ID
652 ,P_PO_LINE_ID => L_PO_LINE_ID
653 ,P_PROJECTED_ASSIGNMENT_END => c.p19
654 ,P_ASSIGNMENT_STATUS_TYPE_ID => L_ASSIGNMENT_STATUS_TYPE_ID
655 ,P_CONCAT_SEGMENTS => c.p20
656 ,P_ATTRIBUTE_CATEGORY => c.p21
657 ,P_ATTRIBUTE1 => c.p22
658 ,P_ATTRIBUTE2 => c.p23
659 ,P_ATTRIBUTE3 => c.p24
660 ,P_ATTRIBUTE4 => c.p25
661 ,P_ATTRIBUTE5 => c.p26
662 ,P_ATTRIBUTE6 => c.p27
663 ,P_ATTRIBUTE7 => c.p28
664 ,P_ATTRIBUTE8 => c.p29
665 ,P_ATTRIBUTE9 => c.p30
666 ,P_ATTRIBUTE10 => c.p31
667 ,P_ATTRIBUTE11 => c.p32
668 ,P_ATTRIBUTE12 => c.p33
669 ,P_ATTRIBUTE13 => c.p34
670 ,P_ATTRIBUTE14 => c.p35
671 ,P_ATTRIBUTE15 => c.p36
672 ,P_ATTRIBUTE16 => c.p37
673 ,P_ATTRIBUTE17 => c.p38
674 ,P_ATTRIBUTE18 => c.p39
675 ,P_ATTRIBUTE19 => c.p40
676 ,P_ATTRIBUTE20 => c.p41
677 ,P_ATTRIBUTE21 => c.p42
678 ,P_ATTRIBUTE22 => c.p43
679 ,P_ATTRIBUTE23 => c.p44
680 ,P_ATTRIBUTE24 => c.p45
681 ,P_ATTRIBUTE25 => c.p46
682 ,P_ATTRIBUTE26 => c.p47
683 ,P_ATTRIBUTE27 => c.p48
684 ,P_ATTRIBUTE28 => c.p49
685 ,P_ATTRIBUTE29 => c.p50
686 ,P_ATTRIBUTE30 => c.p51
687 ,P_SCL_CONTRACTOR_NAME => L_SCL_CONTRACTOR_NAME
688 ,P_SUPERVISOR_ASSIGNMENT_ID => L_SUPERVISOR_ASSIGNMENT_ID
689 ,P_ORG_NOW_NO_MANAGER_WARNING => L_ORG_NOW_NO_MANAGER_WARNING
690 ,P_EFFECTIVE_START_DATE => c.p53
691 ,P_EFFECTIVE_END_DATE => c.p54
692 ,P_COMMENT_ID => c.p55
693 ,P_NO_MANAGERS_WARNING => L_NO_MANAGERS_WARNING
694 ,P_OTHER_MANAGER_WARNING => L_OTHER_MANAGER_WARNING
695 ,P_SOFT_CODING_KEYFLEX_ID => c.p58
696 ,P_CONCATENATED_SEGMENTS => c.p59
697 ,P_HOURLY_SALARIED_WARNING => L_HOURLY_SALARIED_WARNING);
698 hr_data_pump.api_trc_off;
699 --
700 if L_ORG_NOW_NO_MANAGER_WARNING then
701 c.p52 := 'TRUE';
702 else
703 c.p52 := 'FALSE';
704 end if;
705 --
706 if L_NO_MANAGERS_WARNING then
707 c.p56 := 'TRUE';
708 else
709 c.p56 := 'FALSE';
710 end if;
711 --
712 if L_OTHER_MANAGER_WARNING then
713 c.p57 := 'TRUE';
714 else
715 c.p57 := 'FALSE';
716 end if;
717 --
718 if L_HOURLY_SALARIED_WARNING then
719 c.p60 := 'TRUE';
720 else
721 c.p60 := 'FALSE';
722 end if;
723 --
724 update hr_pump_batch_lines l set
725 l.pval052 = decode(c.p52,null,cn,c.p52),
726 l.pval053 = decode(c.p53,null,cn,dc(c.p53)),
727 l.pval054 = decode(c.p54,null,cn,dc(c.p54)),
728 l.pval055 = decode(c.p55,null,cn,c.p55),
729 l.pval056 = decode(c.p56,null,cn,c.p56),
730 l.pval057 = decode(c.p57,null,cn,c.p57),
731 l.pval058 = decode(c.p58,null,cn,c.p58),
732 l.pval059 = decode(c.p59,null,cn,c.p59),
733 l.pval060 = decode(c.p60,null,cn,c.p60)
734 where l.rowid = c.myrowid;
735 --
736 close cr;
737 --
738 hr_data_pump.exit('call');
739 exception
740 when hr_multi_message.error_message_exist then
741 if cr%isopen then
742 close cr;
743 end if;
744 hr_pump_utils.set_multi_msg_error_flag(true);
745 when others then
746 if cr%isopen then
747 close cr;
748 end if;
749 raise;
750 end call;
751 end hrdpp_update_in_cwk_asg;