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_UPDATE_LOCATION

Source


1 package body hrdpp_UPDATE_LOCATION as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/03 23:01:44
4  * Generated for API: HR_LOCATION_API.UPDATE_LOCATION
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_LANGUAGE_CODE in varchar2
84 ,P_LOCATION_CODE in varchar2
85 ,P_DESCRIPTION in varchar2 default null
86 ,P_TIMEZONE_CODE in varchar2 default null
87 ,P_TP_HEADER_ID in number default null
88 ,I_TP_HEADER_ID in varchar2 default 'N'
89 ,P_ECE_TP_LOCATION_CODE in varchar2 default null
90 ,P_ADDRESS_LINE_1 in varchar2 default null
91 ,P_ADDRESS_LINE_2 in varchar2 default null
92 ,P_ADDRESS_LINE_3 in varchar2 default null
93 ,P_BILL_TO_SITE_FLAG in varchar2 default null
94 ,P_COUNTRY in varchar2 default null
95 ,P_IN_ORGANIZATION_FLAG in varchar2 default null
96 ,P_INACTIVE_DATE in date default null
97 ,I_INACTIVE_DATE in varchar2 default 'N'
98 ,P_OPERATING_UNIT_ID in number default null
99 ,I_OPERATING_UNIT_ID in varchar2 default 'N'
100 ,P_INVENTORY_ORGANIZATION_ID in number default null
101 ,I_INVENTORY_ORGANIZATION_ID in varchar2 default 'N'
102 ,P_OFFICE_SITE_FLAG in varchar2 default null
103 ,P_POSTAL_CODE in varchar2 default null
104 ,P_RECEIVING_SITE_FLAG in varchar2 default null
105 ,P_REGION_1 in varchar2 default null
106 ,P_REGION_2 in varchar2 default null
107 ,P_REGION_3 in varchar2 default null
108 ,P_SHIP_TO_SITE_FLAG in varchar2 default null
109 ,P_STYLE in varchar2 default null
110 ,P_TAX_NAME in varchar2 default null
111 ,P_TELEPHONE_NUMBER_1 in varchar2 default null
112 ,P_TELEPHONE_NUMBER_2 in varchar2 default null
113 ,P_TELEPHONE_NUMBER_3 in varchar2 default null
114 ,P_TOWN_OR_CITY in varchar2 default null
115 ,P_LOC_INFORMATION13 in varchar2 default null
116 ,P_LOC_INFORMATION14 in varchar2 default null
117 ,P_LOC_INFORMATION15 in varchar2 default null
118 ,P_LOC_INFORMATION16 in varchar2 default null
119 ,P_LOC_INFORMATION17 in varchar2 default null
120 ,P_LOC_INFORMATION18 in varchar2 default null
121 ,P_LOC_INFORMATION19 in varchar2 default null
122 ,P_LOC_INFORMATION20 in varchar2 default null
123 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
124 ,P_ATTRIBUTE1 in varchar2 default null
125 ,P_ATTRIBUTE2 in varchar2 default null
126 ,P_ATTRIBUTE3 in varchar2 default null
127 ,P_ATTRIBUTE4 in varchar2 default null
128 ,P_ATTRIBUTE5 in varchar2 default null
129 ,P_ATTRIBUTE6 in varchar2 default null
130 ,P_ATTRIBUTE7 in varchar2 default null
131 ,P_ATTRIBUTE8 in varchar2 default null
132 ,P_ATTRIBUTE9 in varchar2 default null
133 ,P_ATTRIBUTE10 in varchar2 default null
134 ,P_ATTRIBUTE11 in varchar2 default null
135 ,P_ATTRIBUTE12 in varchar2 default null
136 ,P_ATTRIBUTE13 in varchar2 default null
137 ,P_ATTRIBUTE14 in varchar2 default null
138 ,P_ATTRIBUTE15 in varchar2 default null
139 ,P_ATTRIBUTE16 in varchar2 default null
140 ,P_ATTRIBUTE17 in varchar2 default null
141 ,P_ATTRIBUTE18 in varchar2 default null
142 ,P_ATTRIBUTE19 in varchar2 default null
143 ,P_ATTRIBUTE20 in varchar2 default null
144 ,P_GLOBAL_ATTRIBUTE_CATEGORY in varchar2 default null
145 ,P_GLOBAL_ATTRIBUTE1 in varchar2 default null
146 ,P_GLOBAL_ATTRIBUTE2 in varchar2 default null
147 ,P_GLOBAL_ATTRIBUTE3 in varchar2 default null
148 ,P_GLOBAL_ATTRIBUTE4 in varchar2 default null
149 ,P_GLOBAL_ATTRIBUTE5 in varchar2 default null
150 ,P_GLOBAL_ATTRIBUTE6 in varchar2 default null
151 ,P_GLOBAL_ATTRIBUTE7 in varchar2 default null
152 ,P_GLOBAL_ATTRIBUTE8 in varchar2 default null
153 ,P_GLOBAL_ATTRIBUTE9 in varchar2 default null
154 ,P_GLOBAL_ATTRIBUTE10 in varchar2 default null
155 ,P_GLOBAL_ATTRIBUTE11 in varchar2 default null
156 ,P_GLOBAL_ATTRIBUTE12 in varchar2 default null
157 ,P_GLOBAL_ATTRIBUTE13 in varchar2 default null
158 ,P_GLOBAL_ATTRIBUTE14 in varchar2 default null
159 ,P_GLOBAL_ATTRIBUTE15 in varchar2 default null
160 ,P_GLOBAL_ATTRIBUTE16 in varchar2 default null
161 ,P_GLOBAL_ATTRIBUTE17 in varchar2 default null
162 ,P_GLOBAL_ATTRIBUTE18 in varchar2 default null
163 ,P_GLOBAL_ATTRIBUTE19 in varchar2 default null
164 ,P_GLOBAL_ATTRIBUTE20 in varchar2 default null
165 ,P_DESIGNATED_RECEIVER_NAME in varchar2 default null
166 ,P_SHIP_TO_LOCATION_CODE in varchar2 default null) is
167 blid number := p_data_pump_batch_line_id;
168 begin
169 if blid is not null then
170 delete from hr_pump_batch_lines where batch_line_id = blid;
171 delete from hr_pump_batch_exceptions
172 where source_type = 'BATCH_LINE' and source_id = blid;
173 end if;
174 insert into hr_pump_batch_lines
175 (batch_id
176 ,batch_line_id
177 ,business_group_name
178 ,api_module_id
179 ,line_status
180 ,user_sequence
181 ,link_value
182 ,pval001
183 ,pval002
184 ,pval003
185 ,pval004
186 ,pval005
187 ,pval006
188 ,pval007
189 ,pval008
190 ,pval009
191 ,pval010
192 ,pval011
193 ,pval012
194 ,pval013
195 ,pval014
196 ,pval015
197 ,pval016
198 ,pval017
199 ,pval018
200 ,pval019
201 ,pval020
202 ,pval021
203 ,pval022
204 ,pval023
205 ,pval024
206 ,pval025
207 ,pval026
208 ,pval027
209 ,pval028
210 ,pval029
211 ,pval030
212 ,pval031
213 ,pval032
214 ,pval033
215 ,pval034
216 ,pval035
217 ,pval036
218 ,pval037
219 ,pval038
220 ,pval039
221 ,pval040
222 ,pval041
223 ,pval042
224 ,pval043
225 ,pval044
226 ,pval045
227 ,pval046
228 ,pval047
229 ,pval048
230 ,pval049
231 ,pval050
232 ,pval051
233 ,pval052
234 ,pval053
235 ,pval054
236 ,pval055
237 ,pval056
238 ,pval057
239 ,pval058
240 ,pval059
241 ,pval060
242 ,pval061
243 ,pval062
244 ,pval063
245 ,pval064
246 ,pval065
247 ,pval066
248 ,pval067
249 ,pval068
250 ,pval069
251 ,pval070
252 ,pval071
253 ,pval072
254 ,pval073
255 ,pval074
256 ,pval075
257 ,pval076
258 ,pval077
259 ,pval078
260 ,pval079
261 ,pval080
262 ,pval081)
263 values
264 (p_batch_id
265 ,nvl(blid,hr_pump_batch_lines_s.nextval)
266 ,p_data_pump_business_grp_name
267 ,1267
268 ,'U'
269 ,p_user_sequence
270 ,p_link_value
271 ,dc(P_EFFECTIVE_DATE)
272 ,P_LANGUAGE_CODE
273 ,P_LOCATION_CODE
274 ,P_DESCRIPTION
275 ,P_TIMEZONE_CODE
276 ,nd(P_TP_HEADER_ID,I_TP_HEADER_ID)
277 ,P_ECE_TP_LOCATION_CODE
278 ,P_ADDRESS_LINE_1
279 ,P_ADDRESS_LINE_2
280 ,P_ADDRESS_LINE_3
281 ,P_BILL_TO_SITE_FLAG
282 ,P_COUNTRY
283 ,P_IN_ORGANIZATION_FLAG
284 ,dd(P_INACTIVE_DATE,I_INACTIVE_DATE)
285 ,nd(P_OPERATING_UNIT_ID,I_OPERATING_UNIT_ID)
286 ,nd(P_INVENTORY_ORGANIZATION_ID,I_INVENTORY_ORGANIZATION_ID)
287 ,P_OFFICE_SITE_FLAG
288 ,P_POSTAL_CODE
289 ,P_RECEIVING_SITE_FLAG
290 ,P_REGION_1
291 ,P_REGION_2
292 ,P_REGION_3
293 ,P_SHIP_TO_SITE_FLAG
294 ,P_STYLE
295 ,P_TAX_NAME
296 ,P_TELEPHONE_NUMBER_1
297 ,P_TELEPHONE_NUMBER_2
298 ,P_TELEPHONE_NUMBER_3
299 ,P_TOWN_OR_CITY
300 ,P_LOC_INFORMATION13
301 ,P_LOC_INFORMATION14
302 ,P_LOC_INFORMATION15
303 ,P_LOC_INFORMATION16
304 ,P_LOC_INFORMATION17
305 ,P_LOC_INFORMATION18
306 ,P_LOC_INFORMATION19
307 ,P_LOC_INFORMATION20
308 ,P_ATTRIBUTE_CATEGORY
309 ,P_ATTRIBUTE1
310 ,P_ATTRIBUTE2
311 ,P_ATTRIBUTE3
312 ,P_ATTRIBUTE4
313 ,P_ATTRIBUTE5
314 ,P_ATTRIBUTE6
315 ,P_ATTRIBUTE7
316 ,P_ATTRIBUTE8
317 ,P_ATTRIBUTE9
318 ,P_ATTRIBUTE10
319 ,P_ATTRIBUTE11
320 ,P_ATTRIBUTE12
321 ,P_ATTRIBUTE13
322 ,P_ATTRIBUTE14
323 ,P_ATTRIBUTE15
324 ,P_ATTRIBUTE16
325 ,P_ATTRIBUTE17
326 ,P_ATTRIBUTE18
327 ,P_ATTRIBUTE19
328 ,P_ATTRIBUTE20
329 ,P_GLOBAL_ATTRIBUTE_CATEGORY
330 ,P_GLOBAL_ATTRIBUTE1
331 ,P_GLOBAL_ATTRIBUTE2
332 ,P_GLOBAL_ATTRIBUTE3
333 ,P_GLOBAL_ATTRIBUTE4
334 ,P_GLOBAL_ATTRIBUTE5
335 ,P_GLOBAL_ATTRIBUTE6
336 ,P_GLOBAL_ATTRIBUTE7
337 ,P_GLOBAL_ATTRIBUTE8
338 ,P_GLOBAL_ATTRIBUTE9
339 ,P_GLOBAL_ATTRIBUTE10
340 ,P_GLOBAL_ATTRIBUTE11
341 ,P_GLOBAL_ATTRIBUTE12
342 ,P_GLOBAL_ATTRIBUTE13
343 ,P_GLOBAL_ATTRIBUTE14
344 ,P_GLOBAL_ATTRIBUTE15
345 ,P_GLOBAL_ATTRIBUTE16
346 ,P_GLOBAL_ATTRIBUTE17
347 ,P_GLOBAL_ATTRIBUTE18
348 ,P_GLOBAL_ATTRIBUTE19
349 ,P_GLOBAL_ATTRIBUTE20
350 ,P_DESIGNATED_RECEIVER_NAME
351 ,P_SHIP_TO_LOCATION_CODE);
352 end insert_batch_lines;
353 --
354 procedure call
355 (p_business_group_id in number,
356 p_batch_line_id     in number) is
357 cursor cr is
358 select l.rowid myrowid,
359 decode(l.pval001,cn,dn,d(l.pval001)) p1,
360 decode(l.pval002,cn,vn,l.pval002) p2,
361 decode(l.pval003,cn,vn,l.pval003) p3,
362 decode(l.pval004,cn,vn,vn,vh,l.pval004) p4,
363 l.pval004 d4,
364 decode(l.pval005,cn,vn,vn,vh,l.pval005) p5,
365 l.pval005 d5,
366 decode(l.pval006,cn,nn,vn,nh,n(l.pval006)) p6,
367 l.pval006 d6,
368 decode(l.pval007,cn,vn,vn,vh,l.pval007) p7,
369 l.pval007 d7,
370 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
371 l.pval008 d8,
372 decode(l.pval009,cn,vn,vn,vh,l.pval009) p9,
373 l.pval009 d9,
374 decode(l.pval010,cn,vn,vn,vh,l.pval010) p10,
375 l.pval010 d10,
376 decode(l.pval011,cn,vn,vn,vh,l.pval011) p11,
377 l.pval011 d11,
378 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
379 l.pval012 d12,
380 decode(l.pval013,cn,vn,vn,vh,l.pval013) p13,
381 l.pval013 d13,
382 decode(l.pval014,cn,dn,vn,dh,d(l.pval014)) p14,
383 l.pval014 d14,
384 decode(l.pval015,cn,nn,vn,nh,n(l.pval015)) p15,
385 l.pval015 d15,
386 decode(l.pval016,cn,nn,vn,nh,n(l.pval016)) p16,
387 l.pval016 d16,
388 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
389 l.pval017 d17,
390 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
391 l.pval018 d18,
392 decode(l.pval019,cn,vn,vn,vh,l.pval019) p19,
393 l.pval019 d19,
394 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
395 l.pval020 d20,
396 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
397 l.pval021 d21,
398 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
399 l.pval022 d22,
400 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
401 l.pval023 d23,
402 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
403 l.pval024 d24,
404 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
405 l.pval025 d25,
406 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
407 l.pval026 d26,
408 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
409 l.pval027 d27,
410 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
411 l.pval028 d28,
412 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
413 l.pval029 d29,
414 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
415 l.pval030 d30,
416 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
417 l.pval031 d31,
418 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
419 l.pval032 d32,
420 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
421 l.pval033 d33,
422 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
423 l.pval034 d34,
424 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
425 l.pval035 d35,
426 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
427 l.pval036 d36,
431 l.pval038 d38,
428 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
429 l.pval037 d37,
430 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
432 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
433 l.pval039 d39,
434 decode(l.pval040,cn,vn,vn,vh,l.pval040) p40,
435 l.pval040 d40,
436 decode(l.pval041,cn,vn,vn,vh,l.pval041) p41,
437 l.pval041 d41,
438 decode(l.pval042,cn,vn,vn,vh,l.pval042) p42,
439 l.pval042 d42,
440 decode(l.pval043,cn,vn,vn,vh,l.pval043) p43,
441 l.pval043 d43,
442 decode(l.pval044,cn,vn,vn,vh,l.pval044) p44,
443 l.pval044 d44,
444 decode(l.pval045,cn,vn,vn,vh,l.pval045) p45,
445 l.pval045 d45,
446 decode(l.pval046,cn,vn,vn,vh,l.pval046) p46,
447 l.pval046 d46,
448 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
449 l.pval047 d47,
450 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
451 l.pval048 d48,
452 decode(l.pval049,cn,vn,vn,vh,l.pval049) p49,
453 l.pval049 d49,
454 decode(l.pval050,cn,vn,vn,vh,l.pval050) p50,
455 l.pval050 d50,
456 decode(l.pval051,cn,vn,vn,vh,l.pval051) p51,
457 l.pval051 d51,
458 decode(l.pval052,cn,vn,vn,vh,l.pval052) p52,
459 l.pval052 d52,
460 decode(l.pval053,cn,vn,vn,vh,l.pval053) p53,
461 l.pval053 d53,
462 decode(l.pval054,cn,vn,vn,vh,l.pval054) p54,
463 l.pval054 d54,
464 decode(l.pval055,cn,vn,vn,vh,l.pval055) p55,
465 l.pval055 d55,
466 decode(l.pval056,cn,vn,vn,vh,l.pval056) p56,
467 l.pval056 d56,
468 decode(l.pval057,cn,vn,vn,vh,l.pval057) p57,
469 l.pval057 d57,
470 decode(l.pval058,cn,vn,vn,vh,l.pval058) p58,
471 l.pval058 d58,
472 decode(l.pval059,cn,vn,vn,vh,l.pval059) p59,
473 l.pval059 d59,
474 decode(l.pval060,cn,vn,vn,vh,l.pval060) p60,
475 l.pval060 d60,
476 decode(l.pval061,cn,vn,vn,vh,l.pval061) p61,
477 l.pval061 d61,
478 decode(l.pval062,cn,vn,vn,vh,l.pval062) p62,
479 l.pval062 d62,
480 decode(l.pval063,cn,vn,vn,vh,l.pval063) p63,
481 l.pval063 d63,
482 decode(l.pval064,cn,vn,vn,vh,l.pval064) p64,
483 l.pval064 d64,
484 decode(l.pval065,cn,vn,vn,vh,l.pval065) p65,
485 l.pval065 d65,
486 decode(l.pval066,cn,vn,vn,vh,l.pval066) p66,
487 l.pval066 d66,
488 decode(l.pval067,cn,vn,vn,vh,l.pval067) p67,
489 l.pval067 d67,
490 decode(l.pval068,cn,vn,vn,vh,l.pval068) p68,
491 l.pval068 d68,
492 decode(l.pval069,cn,vn,vn,vh,l.pval069) p69,
493 l.pval069 d69,
494 decode(l.pval070,cn,vn,vn,vh,l.pval070) p70,
495 l.pval070 d70,
496 decode(l.pval071,cn,vn,vn,vh,l.pval071) p71,
497 l.pval071 d71,
498 decode(l.pval072,cn,vn,vn,vh,l.pval072) p72,
499 l.pval072 d72,
500 decode(l.pval073,cn,vn,vn,vh,l.pval073) p73,
501 l.pval073 d73,
502 decode(l.pval074,cn,vn,vn,vh,l.pval074) p74,
503 l.pval074 d74,
504 decode(l.pval075,cn,vn,vn,vh,l.pval075) p75,
505 l.pval075 d75,
506 decode(l.pval076,cn,vn,vn,vh,l.pval076) p76,
507 l.pval076 d76,
508 decode(l.pval077,cn,vn,vn,vh,l.pval077) p77,
509 l.pval077 d77,
510 decode(l.pval078,cn,vn,vn,vh,l.pval078) p78,
511 l.pval078 d78,
512 decode(l.pval079,cn,vn,vn,vh,l.pval079) p79,
513 l.pval079 d79,
514 decode(l.pval080,cn,vn,vn,vh,l.pval080) p80,
515 l.pval080 d80,
516 decode(l.pval081,cn,vn,vn,vh,l.pval081) p81,
517 l.pval081 d81
518 from hr_pump_batch_lines l
519 where l.batch_line_id = p_batch_line_id;
520 --
521 c cr%rowtype;
522 l_validate boolean := false;
523 L_LOCATION_ID number;
524 L_DESIGNATED_RECEIVER_ID number;
525 L_SHIP_TO_LOCATION_ID number;
526 L_OBJECT_VERSION_NUMBER number;
527 --
528 begin
529 hr_data_pump.entry('call');
530 open cr;
531 fetch cr into c;
532 if cr%notfound then
533 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
534 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
535 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
536 hr_utility.set_message_token('VALUE',p_batch_line_id);
537 hr_utility.raise_error;
538 end if;
539 --
540 if c.p3 is null or
541 c.p2 is null then
542 L_LOCATION_ID:=nn;
543 else
544 L_LOCATION_ID := 
545 hr_pump_get.GET_LOCATION_ID
546 (P_LOCATION_CODE => c.p3
547 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
548 ,P_LANGUAGE_CODE => c.p2);
549 end if;
550 --
551 if c.d80=cn or
552 c.p1 is null then
553 L_DESIGNATED_RECEIVER_ID:=nn;
554 elsif c.d80 is null then 
555 L_DESIGNATED_RECEIVER_ID:=nh;
556 else
557 L_DESIGNATED_RECEIVER_ID := 
558 hr_pump_get.get_designated_receiver_id
559 (P_DESIGNATED_RECEIVER_NAME => c.p80
560 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
561 ,P_EFFECTIVE_DATE => c.p1);
562 end if;
563 --
564 if c.d81=cn or
565 c.p2 is null then
566 L_SHIP_TO_LOCATION_ID:=nn;
567 elsif c.d81 is null then 
568 L_SHIP_TO_LOCATION_ID:=nh;
569 else
570 L_SHIP_TO_LOCATION_ID := 
571 hr_pump_get.get_ship_to_location_id
572 (P_SHIP_TO_LOCATION_CODE => c.p81
573 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
574 ,P_LANGUAGE_CODE => c.p2);
575 end if;
576 --
577 if c.p3 is null then
578 L_OBJECT_VERSION_NUMBER:=nn;
579 else
580 L_OBJECT_VERSION_NUMBER := 
581 hr_pump_get.GET_LOC_OVN
582 (P_LOCATION_CODE => c.p3);
583 end if;
584 --
585 hr_data_pump.api_trc_on;
586 HR_LOCATION_API.UPDATE_LOCATION
587 (p_validate => l_validate
588 ,P_EFFECTIVE_DATE => c.p1
589 ,P_LANGUAGE_CODE => c.p2
590 ,P_LOCATION_ID => L_LOCATION_ID
594 ,P_TP_HEADER_ID => c.p6
591 ,P_LOCATION_CODE => c.p3
592 ,P_DESCRIPTION => c.p4
593 ,P_TIMEZONE_CODE => c.p5
595 ,P_ECE_TP_LOCATION_CODE => c.p7
596 ,P_ADDRESS_LINE_1 => c.p8
597 ,P_ADDRESS_LINE_2 => c.p9
598 ,P_ADDRESS_LINE_3 => c.p10
599 ,P_BILL_TO_SITE_FLAG => c.p11
600 ,P_COUNTRY => c.p12
601 ,P_DESIGNATED_RECEIVER_ID => L_DESIGNATED_RECEIVER_ID
602 ,P_IN_ORGANIZATION_FLAG => c.p13
603 ,P_INACTIVE_DATE => c.p14
604 ,P_OPERATING_UNIT_ID => c.p15
605 ,P_INVENTORY_ORGANIZATION_ID => c.p16
606 ,P_OFFICE_SITE_FLAG => c.p17
607 ,P_POSTAL_CODE => c.p18
608 ,P_RECEIVING_SITE_FLAG => c.p19
609 ,P_REGION_1 => c.p20
610 ,P_REGION_2 => c.p21
611 ,P_REGION_3 => c.p22
612 ,P_SHIP_TO_LOCATION_ID => L_SHIP_TO_LOCATION_ID
613 ,P_SHIP_TO_SITE_FLAG => c.p23
614 ,P_STYLE => c.p24
615 ,P_TAX_NAME => c.p25
616 ,P_TELEPHONE_NUMBER_1 => c.p26
617 ,P_TELEPHONE_NUMBER_2 => c.p27
618 ,P_TELEPHONE_NUMBER_3 => c.p28
619 ,P_TOWN_OR_CITY => c.p29
620 ,P_LOC_INFORMATION13 => c.p30
621 ,P_LOC_INFORMATION14 => c.p31
622 ,P_LOC_INFORMATION15 => c.p32
623 ,P_LOC_INFORMATION16 => c.p33
624 ,P_LOC_INFORMATION17 => c.p34
625 ,P_LOC_INFORMATION18 => c.p35
626 ,P_LOC_INFORMATION19 => c.p36
627 ,P_LOC_INFORMATION20 => c.p37
628 ,P_ATTRIBUTE_CATEGORY => c.p38
629 ,P_ATTRIBUTE1 => c.p39
630 ,P_ATTRIBUTE2 => c.p40
631 ,P_ATTRIBUTE3 => c.p41
632 ,P_ATTRIBUTE4 => c.p42
633 ,P_ATTRIBUTE5 => c.p43
634 ,P_ATTRIBUTE6 => c.p44
635 ,P_ATTRIBUTE7 => c.p45
636 ,P_ATTRIBUTE8 => c.p46
637 ,P_ATTRIBUTE9 => c.p47
638 ,P_ATTRIBUTE10 => c.p48
639 ,P_ATTRIBUTE11 => c.p49
640 ,P_ATTRIBUTE12 => c.p50
641 ,P_ATTRIBUTE13 => c.p51
642 ,P_ATTRIBUTE14 => c.p52
643 ,P_ATTRIBUTE15 => c.p53
644 ,P_ATTRIBUTE16 => c.p54
645 ,P_ATTRIBUTE17 => c.p55
646 ,P_ATTRIBUTE18 => c.p56
647 ,P_ATTRIBUTE19 => c.p57
648 ,P_ATTRIBUTE20 => c.p58
649 ,P_GLOBAL_ATTRIBUTE_CATEGORY => c.p59
650 ,P_GLOBAL_ATTRIBUTE1 => c.p60
651 ,P_GLOBAL_ATTRIBUTE2 => c.p61
652 ,P_GLOBAL_ATTRIBUTE3 => c.p62
653 ,P_GLOBAL_ATTRIBUTE4 => c.p63
654 ,P_GLOBAL_ATTRIBUTE5 => c.p64
655 ,P_GLOBAL_ATTRIBUTE6 => c.p65
656 ,P_GLOBAL_ATTRIBUTE7 => c.p66
657 ,P_GLOBAL_ATTRIBUTE8 => c.p67
658 ,P_GLOBAL_ATTRIBUTE9 => c.p68
659 ,P_GLOBAL_ATTRIBUTE10 => c.p69
660 ,P_GLOBAL_ATTRIBUTE11 => c.p70
661 ,P_GLOBAL_ATTRIBUTE12 => c.p71
662 ,P_GLOBAL_ATTRIBUTE13 => c.p72
663 ,P_GLOBAL_ATTRIBUTE14 => c.p73
664 ,P_GLOBAL_ATTRIBUTE15 => c.p74
665 ,P_GLOBAL_ATTRIBUTE16 => c.p75
666 ,P_GLOBAL_ATTRIBUTE17 => c.p76
667 ,P_GLOBAL_ATTRIBUTE18 => c.p77
668 ,P_GLOBAL_ATTRIBUTE19 => c.p78
669 ,P_GLOBAL_ATTRIBUTE20 => c.p79
670 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER);
671 hr_data_pump.api_trc_off;
672 
673 --
674 
675 --
676 close cr;
677 --
678 hr_data_pump.exit('call');
679 exception
680  when hr_multi_message.error_message_exist then
681    if cr%isopen then
682     close cr;
683    end if;
684    hr_pump_utils.set_multi_msg_error_flag(true);
685  when others then
686  if cr%isopen then
687   close cr;
688  end if;
689  raise;
690 end call;
691 end hrdpp_UPDATE_LOCATION;