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_IN_LOCATION

Source


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