PACKAGE BODY: APPS.HRDPP_CREATE_LOCATION

Source

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