[Home] [Help]
PACKAGE BODY: APPS.HZ_LOCATION_V2PUB_JW
Source
1 package body hz_location_v2pub_jw as
2 /* $Header: ARH2LOJB.pls 120.5 2005/10/07 16:41:11 baianand noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_location_1(p_init_msg_list VARCHAR2
23 , x_location_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 VARCHAR2 := null
29 , p1_a2 VARCHAR2 := null
30 , p1_a3 VARCHAR2 := null
31 , p1_a4 VARCHAR2 := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 VARCHAR2 := null
34 , p1_a7 VARCHAR2 := null
35 , p1_a8 VARCHAR2 := null
36 , p1_a9 VARCHAR2 := null
37 , p1_a10 VARCHAR2 := null
38 , p1_a11 VARCHAR2 := null
39 , p1_a12 VARCHAR2 := null
40 , p1_a13 VARCHAR2 := null
41 , p1_a14 VARCHAR2 := null
42 , p1_a15 VARCHAR2 := null
43 , p1_a16 VARCHAR2 := null
44 , p1_a17 VARCHAR2 := null
45 , p1_a18 VARCHAR2 := null
46 , p1_a19 VARCHAR2 := null
47 , p1_a20 VARCHAR2 := null
48 , p1_a21 VARCHAR2 := null
49 , p1_a22 VARCHAR2 := null
50 , p1_a23 VARCHAR2 := null
51 , p1_a24 VARCHAR2 := null
52 , p1_a25 VARCHAR2 := null
53 , p1_a26 VARCHAR2 := null
54 , p1_a27 DATE := null
55 , p1_a28 DATE := null
56 , p1_a29 VARCHAR2 := null
57 , p1_a30 VARCHAR2 := null
58 , p1_a31 VARCHAR2 := null
59 , p1_a32 VARCHAR2 := null
60 , p1_a33 VARCHAR2 := null
61 , p1_a34 NUMBER := null
62 , p1_a35 VARCHAR2 := null
63 , p1_a36 VARCHAR2 := null
64 , p1_a37 NUMBER := null
65 , p1_a38 VARCHAR2 := null
66 , p1_a39 VARCHAR2 := null
67 , p1_a40 VARCHAR2 := null
68 , p1_a41 VARCHAR2 := null
69 , p1_a42 VARCHAR2 := null
70 , p1_a43 VARCHAR2 := null
71 , p1_a44 VARCHAR2 := null
72 , p1_a45 VARCHAR2 := null
73 , p1_a46 VARCHAR2 := null
74 , p1_a47 VARCHAR2 := null
75 , p1_a48 VARCHAR2 := null
76 , p1_a49 VARCHAR2 := null
77 , p1_a50 VARCHAR2 := null
78 , p1_a51 VARCHAR2 := null
79 , p1_a52 VARCHAR2 := null
80 , p1_a53 VARCHAR2 := null
81 , p1_a54 VARCHAR2 := null
82 , p1_a55 VARCHAR2 := null
83 , p1_a56 VARCHAR2 := null
84 , p1_a57 VARCHAR2 := null
85 , p1_a58 VARCHAR2 := null
86 , p1_a59 VARCHAR2 := null
87 , p1_a60 NUMBER := null
88 , p1_a61 VARCHAR2 := null
89 , p1_a62 NUMBER := null
90 , p1_a63 VARCHAR2 := null
91 , p1_a64 VARCHAR2 := null
92 )
93 as
94 ddp_location_rec hz_location_v2pub.location_rec_type;
95 ddindx binary_integer; indx binary_integer;
96 begin
97
98 -- copy data to the local IN or IN-OUT args, if any
99
100 ddp_location_rec.location_id := rosetta_g_miss_num_map(p1_a0);
101 ddp_location_rec.orig_system_reference := p1_a1;
102 ddp_location_rec.orig_system := p1_a2;
103 ddp_location_rec.country := p1_a3;
104 ddp_location_rec.address1 := p1_a4;
105 ddp_location_rec.address2 := p1_a5;
106 ddp_location_rec.address3 := p1_a6;
107 ddp_location_rec.address4 := p1_a7;
108 ddp_location_rec.city := p1_a8;
109 ddp_location_rec.postal_code := p1_a9;
110 ddp_location_rec.state := p1_a10;
111 ddp_location_rec.province := p1_a11;
112 ddp_location_rec.county := p1_a12;
113 ddp_location_rec.address_key := p1_a13;
114 ddp_location_rec.address_style := p1_a14;
115 ddp_location_rec.validated_flag := p1_a15;
116 ddp_location_rec.address_lines_phonetic := p1_a16;
117 ddp_location_rec.po_box_number := p1_a17;
118 ddp_location_rec.house_number := p1_a18;
119 ddp_location_rec.street_suffix := p1_a19;
120 ddp_location_rec.street := p1_a20;
121 ddp_location_rec.street_number := p1_a21;
122 ddp_location_rec.floor := p1_a22;
123 ddp_location_rec.suite := p1_a23;
124 ddp_location_rec.postal_plus4_code := p1_a24;
125 ddp_location_rec.position := p1_a25;
126 ddp_location_rec.location_directions := p1_a26;
127 ddp_location_rec.address_effective_date := rosetta_g_miss_date_in_map(p1_a27);
128 ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p1_a28);
129 ddp_location_rec.clli_code := p1_a29;
130 ddp_location_rec.language := p1_a30;
131 ddp_location_rec.short_description := p1_a31;
132 ddp_location_rec.description := p1_a32;
133 ddp_location_rec.geometry_status_code := p1_a33;
134 ddp_location_rec.loc_hierarchy_id := rosetta_g_miss_num_map(p1_a34);
135 ddp_location_rec.sales_tax_geocode := p1_a35;
136 ddp_location_rec.sales_tax_inside_city_limits := p1_a36;
137 ddp_location_rec.fa_location_id := rosetta_g_miss_num_map(p1_a37);
138 ddp_location_rec.content_source_type := p1_a38;
139 ddp_location_rec.attribute_category := p1_a39;
140 ddp_location_rec.attribute1 := p1_a40;
141 ddp_location_rec.attribute2 := p1_a41;
142 ddp_location_rec.attribute3 := p1_a42;
143 ddp_location_rec.attribute4 := p1_a43;
144 ddp_location_rec.attribute5 := p1_a44;
145 ddp_location_rec.attribute6 := p1_a45;
146 ddp_location_rec.attribute7 := p1_a46;
147 ddp_location_rec.attribute8 := p1_a47;
148 ddp_location_rec.attribute9 := p1_a48;
149 ddp_location_rec.attribute10 := p1_a49;
150 ddp_location_rec.attribute11 := p1_a50;
151 ddp_location_rec.attribute12 := p1_a51;
152 ddp_location_rec.attribute13 := p1_a52;
153 ddp_location_rec.attribute14 := p1_a53;
154 ddp_location_rec.attribute15 := p1_a54;
155 ddp_location_rec.attribute16 := p1_a55;
156 ddp_location_rec.attribute17 := p1_a56;
157 ddp_location_rec.attribute18 := p1_a57;
158 ddp_location_rec.attribute19 := p1_a58;
159 ddp_location_rec.attribute20 := p1_a59;
160 ddp_location_rec.timezone_id := rosetta_g_miss_num_map(p1_a60);
161 ddp_location_rec.created_by_module := p1_a61;
162 ddp_location_rec.application_id := rosetta_g_miss_num_map(p1_a62);
163 ddp_location_rec.actual_content_source := p1_a63;
164 ddp_location_rec.delivery_point_code := p1_a64;
165
166
167
168
169
170 -- here's the delegated call to the old PL/SQL routine
171 hz_location_v2pub.create_location(p_init_msg_list,
172 ddp_location_rec,
173 x_location_id,
174 x_return_status,
175 x_msg_count,
176 x_msg_data);
177
178 -- copy data back from the local OUT or IN-OUT args, if any
179
180
181
182
183
184 end;
185
186 procedure create_location_2(p_init_msg_list VARCHAR2
187 , p_do_addr_val VARCHAR2
188 , x_location_id out nocopy NUMBER
189 , x_addr_val_status out nocopy VARCHAR2
190 , x_addr_warn_msg out nocopy VARCHAR2
191 , x_return_status out nocopy VARCHAR2
192 , x_msg_count out nocopy NUMBER
193 , x_msg_data out nocopy VARCHAR2
194 , p1_a0 NUMBER := null
195 , p1_a1 VARCHAR2 := null
196 , p1_a2 VARCHAR2 := null
197 , p1_a3 VARCHAR2 := null
198 , p1_a4 VARCHAR2 := null
199 , p1_a5 VARCHAR2 := null
200 , p1_a6 VARCHAR2 := null
201 , p1_a7 VARCHAR2 := null
202 , p1_a8 VARCHAR2 := null
203 , p1_a9 VARCHAR2 := null
204 , p1_a10 VARCHAR2 := null
205 , p1_a11 VARCHAR2 := null
206 , p1_a12 VARCHAR2 := null
207 , p1_a13 VARCHAR2 := null
208 , p1_a14 VARCHAR2 := null
209 , p1_a15 VARCHAR2 := null
210 , p1_a16 VARCHAR2 := null
211 , p1_a17 VARCHAR2 := null
212 , p1_a18 VARCHAR2 := null
213 , p1_a19 VARCHAR2 := null
214 , p1_a20 VARCHAR2 := null
215 , p1_a21 VARCHAR2 := null
216 , p1_a22 VARCHAR2 := null
217 , p1_a23 VARCHAR2 := null
218 , p1_a24 VARCHAR2 := null
219 , p1_a25 VARCHAR2 := null
220 , p1_a26 VARCHAR2 := null
221 , p1_a27 DATE := null
222 , p1_a28 DATE := null
223 , p1_a29 VARCHAR2 := null
224 , p1_a30 VARCHAR2 := null
225 , p1_a31 VARCHAR2 := null
226 , p1_a32 VARCHAR2 := null
227 , p1_a33 VARCHAR2 := null
228 , p1_a34 NUMBER := null
229 , p1_a35 VARCHAR2 := null
230 , p1_a36 VARCHAR2 := null
231 , p1_a37 NUMBER := null
232 , p1_a38 VARCHAR2 := null
233 , p1_a39 VARCHAR2 := null
234 , p1_a40 VARCHAR2 := null
235 , p1_a41 VARCHAR2 := null
236 , p1_a42 VARCHAR2 := null
237 , p1_a43 VARCHAR2 := null
238 , p1_a44 VARCHAR2 := null
239 , p1_a45 VARCHAR2 := null
240 , p1_a46 VARCHAR2 := null
241 , p1_a47 VARCHAR2 := null
242 , p1_a48 VARCHAR2 := null
243 , p1_a49 VARCHAR2 := null
244 , p1_a50 VARCHAR2 := null
245 , p1_a51 VARCHAR2 := null
246 , p1_a52 VARCHAR2 := null
247 , p1_a53 VARCHAR2 := null
248 , p1_a54 VARCHAR2 := null
249 , p1_a55 VARCHAR2 := null
250 , p1_a56 VARCHAR2 := null
251 , p1_a57 VARCHAR2 := null
252 , p1_a58 VARCHAR2 := null
253 , p1_a59 VARCHAR2 := null
254 , p1_a60 NUMBER := null
255 , p1_a61 VARCHAR2 := null
256 , p1_a62 NUMBER := null
257 , p1_a63 VARCHAR2 := null
258 , p1_a64 VARCHAR2 := null
259 )
260 as
261 ddp_location_rec hz_location_v2pub.location_rec_type;
262 ddindx binary_integer; indx binary_integer;
263 begin
264
265 -- copy data to the local IN or IN-OUT args, if any
266
267 ddp_location_rec.location_id := rosetta_g_miss_num_map(p1_a0);
268 ddp_location_rec.orig_system_reference := p1_a1;
269 ddp_location_rec.orig_system := p1_a2;
270 ddp_location_rec.country := p1_a3;
271 ddp_location_rec.address1 := p1_a4;
272 ddp_location_rec.address2 := p1_a5;
273 ddp_location_rec.address3 := p1_a6;
274 ddp_location_rec.address4 := p1_a7;
275 ddp_location_rec.city := p1_a8;
276 ddp_location_rec.postal_code := p1_a9;
277 ddp_location_rec.state := p1_a10;
278 ddp_location_rec.province := p1_a11;
279 ddp_location_rec.county := p1_a12;
280 ddp_location_rec.address_key := p1_a13;
281 ddp_location_rec.address_style := p1_a14;
282 ddp_location_rec.validated_flag := p1_a15;
283 ddp_location_rec.address_lines_phonetic := p1_a16;
284 ddp_location_rec.po_box_number := p1_a17;
285 ddp_location_rec.house_number := p1_a18;
286 ddp_location_rec.street_suffix := p1_a19;
287 ddp_location_rec.street := p1_a20;
288 ddp_location_rec.street_number := p1_a21;
289 ddp_location_rec.floor := p1_a22;
290 ddp_location_rec.suite := p1_a23;
291 ddp_location_rec.postal_plus4_code := p1_a24;
292 ddp_location_rec.position := p1_a25;
293 ddp_location_rec.location_directions := p1_a26;
294 ddp_location_rec.address_effective_date := rosetta_g_miss_date_in_map(p1_a27);
295 ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p1_a28);
296 ddp_location_rec.clli_code := p1_a29;
297 ddp_location_rec.language := p1_a30;
298 ddp_location_rec.short_description := p1_a31;
299 ddp_location_rec.description := p1_a32;
300 ddp_location_rec.geometry_status_code := p1_a33;
301 ddp_location_rec.loc_hierarchy_id := rosetta_g_miss_num_map(p1_a34);
302 ddp_location_rec.sales_tax_geocode := p1_a35;
303 ddp_location_rec.sales_tax_inside_city_limits := p1_a36;
304 ddp_location_rec.fa_location_id := rosetta_g_miss_num_map(p1_a37);
305 ddp_location_rec.content_source_type := p1_a38;
306 ddp_location_rec.attribute_category := p1_a39;
307 ddp_location_rec.attribute1 := p1_a40;
308 ddp_location_rec.attribute2 := p1_a41;
309 ddp_location_rec.attribute3 := p1_a42;
310 ddp_location_rec.attribute4 := p1_a43;
311 ddp_location_rec.attribute5 := p1_a44;
312 ddp_location_rec.attribute6 := p1_a45;
313 ddp_location_rec.attribute7 := p1_a46;
314 ddp_location_rec.attribute8 := p1_a47;
315 ddp_location_rec.attribute9 := p1_a48;
316 ddp_location_rec.attribute10 := p1_a49;
317 ddp_location_rec.attribute11 := p1_a50;
318 ddp_location_rec.attribute12 := p1_a51;
319 ddp_location_rec.attribute13 := p1_a52;
320 ddp_location_rec.attribute14 := p1_a53;
321 ddp_location_rec.attribute15 := p1_a54;
322 ddp_location_rec.attribute16 := p1_a55;
323 ddp_location_rec.attribute17 := p1_a56;
324 ddp_location_rec.attribute18 := p1_a57;
325 ddp_location_rec.attribute19 := p1_a58;
326 ddp_location_rec.attribute20 := p1_a59;
327 ddp_location_rec.timezone_id := rosetta_g_miss_num_map(p1_a60);
328 ddp_location_rec.created_by_module := p1_a61;
329 ddp_location_rec.application_id := rosetta_g_miss_num_map(p1_a62);
330 ddp_location_rec.actual_content_source := p1_a63;
331 ddp_location_rec.delivery_point_code := p1_a64;
332
333
334
335
336
337
338
339
340 -- here's the delegated call to the old PL/SQL routine
341 hz_location_v2pub.create_location(p_init_msg_list,
342 ddp_location_rec,
343 p_do_addr_val,
344 x_location_id,
345 x_addr_val_status,
346 x_addr_warn_msg,
347 x_return_status,
348 x_msg_count,
349 x_msg_data);
350
351 -- copy data back from the local OUT or IN-OUT args, if any
352
353
354
355
356
357
358
359
360 end;
361
362 procedure update_location_3(p_init_msg_list VARCHAR2
363 , p_object_version_number in out nocopy NUMBER
364 , x_return_status out nocopy VARCHAR2
365 , x_msg_count out nocopy NUMBER
366 , x_msg_data out nocopy VARCHAR2
367 , p1_a0 NUMBER := null
368 , p1_a1 VARCHAR2 := null
369 , p1_a2 VARCHAR2 := null
370 , p1_a3 VARCHAR2 := null
371 , p1_a4 VARCHAR2 := null
372 , p1_a5 VARCHAR2 := null
373 , p1_a6 VARCHAR2 := null
374 , p1_a7 VARCHAR2 := null
375 , p1_a8 VARCHAR2 := null
376 , p1_a9 VARCHAR2 := null
377 , p1_a10 VARCHAR2 := null
378 , p1_a11 VARCHAR2 := null
379 , p1_a12 VARCHAR2 := null
380 , p1_a13 VARCHAR2 := null
381 , p1_a14 VARCHAR2 := null
382 , p1_a15 VARCHAR2 := null
383 , p1_a16 VARCHAR2 := null
384 , p1_a17 VARCHAR2 := null
385 , p1_a18 VARCHAR2 := null
386 , p1_a19 VARCHAR2 := null
387 , p1_a20 VARCHAR2 := null
388 , p1_a21 VARCHAR2 := null
389 , p1_a22 VARCHAR2 := null
390 , p1_a23 VARCHAR2 := null
391 , p1_a24 VARCHAR2 := null
392 , p1_a25 VARCHAR2 := null
393 , p1_a26 VARCHAR2 := null
394 , p1_a27 DATE := null
395 , p1_a28 DATE := null
396 , p1_a29 VARCHAR2 := null
397 , p1_a30 VARCHAR2 := null
398 , p1_a31 VARCHAR2 := null
399 , p1_a32 VARCHAR2 := null
400 , p1_a33 VARCHAR2 := null
401 , p1_a34 NUMBER := null
402 , p1_a35 VARCHAR2 := null
403 , p1_a36 VARCHAR2 := null
404 , p1_a37 NUMBER := null
405 , p1_a38 VARCHAR2 := null
406 , p1_a39 VARCHAR2 := null
407 , p1_a40 VARCHAR2 := null
408 , p1_a41 VARCHAR2 := null
409 , p1_a42 VARCHAR2 := null
410 , p1_a43 VARCHAR2 := null
411 , p1_a44 VARCHAR2 := null
412 , p1_a45 VARCHAR2 := null
413 , p1_a46 VARCHAR2 := null
414 , p1_a47 VARCHAR2 := null
415 , p1_a48 VARCHAR2 := null
419 , p1_a52 VARCHAR2 := null
416 , p1_a49 VARCHAR2 := null
417 , p1_a50 VARCHAR2 := null
418 , p1_a51 VARCHAR2 := null
420 , p1_a53 VARCHAR2 := null
421 , p1_a54 VARCHAR2 := null
422 , p1_a55 VARCHAR2 := null
423 , p1_a56 VARCHAR2 := null
424 , p1_a57 VARCHAR2 := null
425 , p1_a58 VARCHAR2 := null
426 , p1_a59 VARCHAR2 := null
427 , p1_a60 NUMBER := null
428 , p1_a61 VARCHAR2 := null
429 , p1_a62 NUMBER := null
430 , p1_a63 VARCHAR2 := null
431 , p1_a64 VARCHAR2 := null
432 )
433 as
434 ddp_location_rec hz_location_v2pub.location_rec_type;
435 ddindx binary_integer; indx binary_integer;
436 begin
437
438 -- copy data to the local IN or IN-OUT args, if any
439
440 ddp_location_rec.location_id := rosetta_g_miss_num_map(p1_a0);
441 ddp_location_rec.orig_system_reference := p1_a1;
442 ddp_location_rec.orig_system := p1_a2;
443 ddp_location_rec.country := p1_a3;
444 ddp_location_rec.address1 := p1_a4;
445 ddp_location_rec.address2 := p1_a5;
446 ddp_location_rec.address3 := p1_a6;
447 ddp_location_rec.address4 := p1_a7;
448 ddp_location_rec.city := p1_a8;
449 ddp_location_rec.postal_code := p1_a9;
450 ddp_location_rec.state := p1_a10;
451 ddp_location_rec.province := p1_a11;
452 ddp_location_rec.county := p1_a12;
453 ddp_location_rec.address_key := p1_a13;
454 ddp_location_rec.address_style := p1_a14;
455 ddp_location_rec.validated_flag := p1_a15;
456 ddp_location_rec.address_lines_phonetic := p1_a16;
457 ddp_location_rec.po_box_number := p1_a17;
458 ddp_location_rec.house_number := p1_a18;
459 ddp_location_rec.street_suffix := p1_a19;
460 ddp_location_rec.street := p1_a20;
461 ddp_location_rec.street_number := p1_a21;
462 ddp_location_rec.floor := p1_a22;
463 ddp_location_rec.suite := p1_a23;
464 ddp_location_rec.postal_plus4_code := p1_a24;
465 ddp_location_rec.position := p1_a25;
466 ddp_location_rec.location_directions := p1_a26;
467 ddp_location_rec.address_effective_date := rosetta_g_miss_date_in_map(p1_a27);
468 ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p1_a28);
469 ddp_location_rec.clli_code := p1_a29;
470 ddp_location_rec.language := p1_a30;
471 ddp_location_rec.short_description := p1_a31;
472 ddp_location_rec.description := p1_a32;
473 ddp_location_rec.geometry_status_code := p1_a33;
474 ddp_location_rec.loc_hierarchy_id := rosetta_g_miss_num_map(p1_a34);
475 ddp_location_rec.sales_tax_geocode := p1_a35;
476 ddp_location_rec.sales_tax_inside_city_limits := p1_a36;
477 ddp_location_rec.fa_location_id := rosetta_g_miss_num_map(p1_a37);
478 ddp_location_rec.content_source_type := p1_a38;
479 ddp_location_rec.attribute_category := p1_a39;
480 ddp_location_rec.attribute1 := p1_a40;
481 ddp_location_rec.attribute2 := p1_a41;
482 ddp_location_rec.attribute3 := p1_a42;
483 ddp_location_rec.attribute4 := p1_a43;
484 ddp_location_rec.attribute5 := p1_a44;
485 ddp_location_rec.attribute6 := p1_a45;
486 ddp_location_rec.attribute7 := p1_a46;
487 ddp_location_rec.attribute8 := p1_a47;
488 ddp_location_rec.attribute9 := p1_a48;
489 ddp_location_rec.attribute10 := p1_a49;
490 ddp_location_rec.attribute11 := p1_a50;
491 ddp_location_rec.attribute12 := p1_a51;
492 ddp_location_rec.attribute13 := p1_a52;
493 ddp_location_rec.attribute14 := p1_a53;
494 ddp_location_rec.attribute15 := p1_a54;
495 ddp_location_rec.attribute16 := p1_a55;
496 ddp_location_rec.attribute17 := p1_a56;
497 ddp_location_rec.attribute18 := p1_a57;
498 ddp_location_rec.attribute19 := p1_a58;
499 ddp_location_rec.attribute20 := p1_a59;
500 ddp_location_rec.timezone_id := rosetta_g_miss_num_map(p1_a60);
501 ddp_location_rec.created_by_module := p1_a61;
502 ddp_location_rec.application_id := rosetta_g_miss_num_map(p1_a62);
503 ddp_location_rec.actual_content_source := p1_a63;
504 ddp_location_rec.delivery_point_code := p1_a64;
505
506
507
508
509
510 -- here's the delegated call to the old PL/SQL routine
511 hz_location_v2pub.update_location(p_init_msg_list,
512 ddp_location_rec,
513 p_object_version_number,
514 x_return_status,
515 x_msg_count,
516 x_msg_data);
517
518 -- copy data back from the local OUT or IN-OUT args, if any
519
520
521
522
523
524 end;
525
526 procedure update_location_4(p_init_msg_list VARCHAR2
527 , p_do_addr_val VARCHAR2
528 , p_object_version_number in out nocopy NUMBER
529 , x_addr_val_status out nocopy VARCHAR2
530 , x_addr_warn_msg out nocopy VARCHAR2
531 , x_return_status out nocopy VARCHAR2
532 , x_msg_count out nocopy NUMBER
533 , x_msg_data out nocopy VARCHAR2
534 , p1_a0 NUMBER := null
535 , p1_a1 VARCHAR2 := null
536 , p1_a2 VARCHAR2 := null
537 , p1_a3 VARCHAR2 := null
538 , p1_a4 VARCHAR2 := null
539 , p1_a5 VARCHAR2 := null
540 , p1_a6 VARCHAR2 := null
541 , p1_a7 VARCHAR2 := null
542 , p1_a8 VARCHAR2 := null
543 , p1_a9 VARCHAR2 := null
544 , p1_a10 VARCHAR2 := null
545 , p1_a11 VARCHAR2 := null
546 , p1_a12 VARCHAR2 := null
547 , p1_a13 VARCHAR2 := null
548 , p1_a14 VARCHAR2 := null
549 , p1_a15 VARCHAR2 := null
550 , p1_a16 VARCHAR2 := null
551 , p1_a17 VARCHAR2 := null
552 , p1_a18 VARCHAR2 := null
553 , p1_a19 VARCHAR2 := null
554 , p1_a20 VARCHAR2 := null
555 , p1_a21 VARCHAR2 := null
556 , p1_a22 VARCHAR2 := null
557 , p1_a23 VARCHAR2 := null
558 , p1_a24 VARCHAR2 := null
559 , p1_a25 VARCHAR2 := null
560 , p1_a26 VARCHAR2 := null
561 , p1_a27 DATE := null
562 , p1_a28 DATE := null
563 , p1_a29 VARCHAR2 := null
564 , p1_a30 VARCHAR2 := null
565 , p1_a31 VARCHAR2 := null
566 , p1_a32 VARCHAR2 := null
567 , p1_a33 VARCHAR2 := null
568 , p1_a34 NUMBER := null
569 , p1_a35 VARCHAR2 := null
570 , p1_a36 VARCHAR2 := null
571 , p1_a37 NUMBER := null
572 , p1_a38 VARCHAR2 := null
573 , p1_a39 VARCHAR2 := null
574 , p1_a40 VARCHAR2 := null
575 , p1_a41 VARCHAR2 := null
576 , p1_a42 VARCHAR2 := null
577 , p1_a43 VARCHAR2 := null
578 , p1_a44 VARCHAR2 := null
579 , p1_a45 VARCHAR2 := null
580 , p1_a46 VARCHAR2 := null
581 , p1_a47 VARCHAR2 := null
582 , p1_a48 VARCHAR2 := null
583 , p1_a49 VARCHAR2 := null
584 , p1_a50 VARCHAR2 := null
585 , p1_a51 VARCHAR2 := null
586 , p1_a52 VARCHAR2 := null
587 , p1_a53 VARCHAR2 := null
588 , p1_a54 VARCHAR2 := null
589 , p1_a55 VARCHAR2 := null
590 , p1_a56 VARCHAR2 := null
591 , p1_a57 VARCHAR2 := null
595 , p1_a61 VARCHAR2 := null
592 , p1_a58 VARCHAR2 := null
593 , p1_a59 VARCHAR2 := null
594 , p1_a60 NUMBER := null
596 , p1_a62 NUMBER := null
597 , p1_a63 VARCHAR2 := null
598 , p1_a64 VARCHAR2 := null
599 )
600 as
601 ddp_location_rec hz_location_v2pub.location_rec_type;
602 ddindx binary_integer; indx binary_integer;
603 begin
604
605 -- copy data to the local IN or IN-OUT args, if any
606
607 ddp_location_rec.location_id := rosetta_g_miss_num_map(p1_a0);
608 ddp_location_rec.orig_system_reference := p1_a1;
609 ddp_location_rec.orig_system := p1_a2;
610 ddp_location_rec.country := p1_a3;
611 ddp_location_rec.address1 := p1_a4;
612 ddp_location_rec.address2 := p1_a5;
613 ddp_location_rec.address3 := p1_a6;
614 ddp_location_rec.address4 := p1_a7;
615 ddp_location_rec.city := p1_a8;
616 ddp_location_rec.postal_code := p1_a9;
617 ddp_location_rec.state := p1_a10;
618 ddp_location_rec.province := p1_a11;
619 ddp_location_rec.county := p1_a12;
620 ddp_location_rec.address_key := p1_a13;
621 ddp_location_rec.address_style := p1_a14;
622 ddp_location_rec.validated_flag := p1_a15;
623 ddp_location_rec.address_lines_phonetic := p1_a16;
624 ddp_location_rec.po_box_number := p1_a17;
625 ddp_location_rec.house_number := p1_a18;
626 ddp_location_rec.street_suffix := p1_a19;
627 ddp_location_rec.street := p1_a20;
628 ddp_location_rec.street_number := p1_a21;
629 ddp_location_rec.floor := p1_a22;
630 ddp_location_rec.suite := p1_a23;
631 ddp_location_rec.postal_plus4_code := p1_a24;
632 ddp_location_rec.position := p1_a25;
633 ddp_location_rec.location_directions := p1_a26;
634 ddp_location_rec.address_effective_date := rosetta_g_miss_date_in_map(p1_a27);
635 ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p1_a28);
636 ddp_location_rec.clli_code := p1_a29;
637 ddp_location_rec.language := p1_a30;
638 ddp_location_rec.short_description := p1_a31;
639 ddp_location_rec.description := p1_a32;
640 ddp_location_rec.geometry_status_code := p1_a33;
641 ddp_location_rec.loc_hierarchy_id := rosetta_g_miss_num_map(p1_a34);
642 ddp_location_rec.sales_tax_geocode := p1_a35;
643 ddp_location_rec.sales_tax_inside_city_limits := p1_a36;
644 ddp_location_rec.fa_location_id := rosetta_g_miss_num_map(p1_a37);
645 ddp_location_rec.content_source_type := p1_a38;
646 ddp_location_rec.attribute_category := p1_a39;
647 ddp_location_rec.attribute1 := p1_a40;
648 ddp_location_rec.attribute2 := p1_a41;
649 ddp_location_rec.attribute3 := p1_a42;
650 ddp_location_rec.attribute4 := p1_a43;
651 ddp_location_rec.attribute5 := p1_a44;
652 ddp_location_rec.attribute6 := p1_a45;
653 ddp_location_rec.attribute7 := p1_a46;
654 ddp_location_rec.attribute8 := p1_a47;
655 ddp_location_rec.attribute9 := p1_a48;
656 ddp_location_rec.attribute10 := p1_a49;
657 ddp_location_rec.attribute11 := p1_a50;
658 ddp_location_rec.attribute12 := p1_a51;
659 ddp_location_rec.attribute13 := p1_a52;
660 ddp_location_rec.attribute14 := p1_a53;
661 ddp_location_rec.attribute15 := p1_a54;
662 ddp_location_rec.attribute16 := p1_a55;
663 ddp_location_rec.attribute17 := p1_a56;
664 ddp_location_rec.attribute18 := p1_a57;
665 ddp_location_rec.attribute19 := p1_a58;
666 ddp_location_rec.attribute20 := p1_a59;
667 ddp_location_rec.timezone_id := rosetta_g_miss_num_map(p1_a60);
668 ddp_location_rec.created_by_module := p1_a61;
669 ddp_location_rec.application_id := rosetta_g_miss_num_map(p1_a62);
670 ddp_location_rec.actual_content_source := p1_a63;
671 ddp_location_rec.delivery_point_code := p1_a64;
672
673
674
675
676
677
678
679
680 -- here's the delegated call to the old PL/SQL routine
681 hz_location_v2pub.update_location(p_init_msg_list,
682 ddp_location_rec,
683 p_do_addr_val,
684 p_object_version_number,
685 x_addr_val_status,
686 x_addr_warn_msg,
687 x_return_status,
688 x_msg_count,
689 x_msg_data);
690
691 -- copy data back from the local OUT or IN-OUT args, if any
692
693
694
695
696
697
698
699
700 end;
701
702 procedure get_location_rec_5(p_init_msg_list VARCHAR2
703 , p_location_id NUMBER
704 , p2_a0 out nocopy NUMBER
705 , p2_a1 out nocopy VARCHAR2
706 , p2_a2 out nocopy VARCHAR2
707 , p2_a3 out nocopy VARCHAR2
708 , p2_a4 out nocopy VARCHAR2
709 , p2_a5 out nocopy VARCHAR2
710 , p2_a6 out nocopy VARCHAR2
711 , p2_a7 out nocopy VARCHAR2
712 , p2_a8 out nocopy VARCHAR2
713 , p2_a9 out nocopy VARCHAR2
714 , p2_a10 out nocopy VARCHAR2
715 , p2_a11 out nocopy VARCHAR2
716 , p2_a12 out nocopy VARCHAR2
717 , p2_a13 out nocopy VARCHAR2
718 , p2_a14 out nocopy VARCHAR2
719 , p2_a15 out nocopy VARCHAR2
720 , p2_a16 out nocopy VARCHAR2
721 , p2_a17 out nocopy VARCHAR2
722 , p2_a18 out nocopy VARCHAR2
723 , p2_a19 out nocopy VARCHAR2
724 , p2_a20 out nocopy VARCHAR2
725 , p2_a21 out nocopy VARCHAR2
726 , p2_a22 out nocopy VARCHAR2
727 , p2_a23 out nocopy VARCHAR2
728 , p2_a24 out nocopy VARCHAR2
729 , p2_a25 out nocopy VARCHAR2
730 , p2_a26 out nocopy VARCHAR2
731 , p2_a27 out nocopy DATE
732 , p2_a28 out nocopy DATE
733 , p2_a29 out nocopy VARCHAR2
734 , p2_a30 out nocopy VARCHAR2
735 , p2_a31 out nocopy VARCHAR2
736 , p2_a32 out nocopy VARCHAR2
737 , p2_a33 out nocopy VARCHAR2
738 , p2_a34 out nocopy NUMBER
739 , p2_a35 out nocopy VARCHAR2
740 , p2_a36 out nocopy VARCHAR2
741 , p2_a37 out nocopy NUMBER
742 , p2_a38 out nocopy VARCHAR2
743 , p2_a39 out nocopy VARCHAR2
744 , p2_a40 out nocopy VARCHAR2
745 , p2_a41 out nocopy VARCHAR2
746 , p2_a42 out nocopy VARCHAR2
747 , p2_a43 out nocopy VARCHAR2
748 , p2_a44 out nocopy VARCHAR2
749 , p2_a45 out nocopy VARCHAR2
750 , p2_a46 out nocopy VARCHAR2
751 , p2_a47 out nocopy VARCHAR2
752 , p2_a48 out nocopy VARCHAR2
753 , p2_a49 out nocopy VARCHAR2
754 , p2_a50 out nocopy VARCHAR2
755 , p2_a51 out nocopy VARCHAR2
756 , p2_a52 out nocopy VARCHAR2
757 , p2_a53 out nocopy VARCHAR2
758 , p2_a54 out nocopy VARCHAR2
759 , p2_a55 out nocopy VARCHAR2
760 , p2_a56 out nocopy VARCHAR2
761 , p2_a57 out nocopy VARCHAR2
762 , p2_a58 out nocopy VARCHAR2
763 , p2_a59 out nocopy VARCHAR2
764 , p2_a60 out nocopy NUMBER
765 , p2_a61 out nocopy VARCHAR2
766 , p2_a62 out nocopy NUMBER
767 , p2_a63 out nocopy VARCHAR2
768 , p2_a64 out nocopy VARCHAR2
769 , x_return_status out nocopy VARCHAR2
770 , x_msg_count out nocopy NUMBER
771 , x_msg_data out nocopy VARCHAR2
772 )
773 as
774 ddx_location_rec hz_location_v2pub.location_rec_type;
775 ddindx binary_integer; indx binary_integer;
776 begin
777
778 -- copy data to the local IN or IN-OUT args, if any
779
780
781
782
783
784
785 -- here's the delegated call to the old PL/SQL routine
786 hz_location_v2pub.get_location_rec(p_init_msg_list,
787 p_location_id,
788 ddx_location_rec,
789 x_return_status,
790 x_msg_count,
791 x_msg_data);
792
793 -- copy data back from the local OUT or IN-OUT args, if any
794
795
796 p2_a0 := rosetta_g_miss_num_map(ddx_location_rec.location_id);
797 p2_a1 := ddx_location_rec.orig_system_reference;
798 p2_a2 := ddx_location_rec.orig_system;
799 p2_a3 := ddx_location_rec.country;
800 p2_a4 := ddx_location_rec.address1;
801 p2_a5 := ddx_location_rec.address2;
802 p2_a6 := ddx_location_rec.address3;
803 p2_a7 := ddx_location_rec.address4;
804 p2_a8 := ddx_location_rec.city;
805 p2_a9 := ddx_location_rec.postal_code;
806 p2_a10 := ddx_location_rec.state;
807 p2_a11 := ddx_location_rec.province;
808 p2_a12 := ddx_location_rec.county;
809 p2_a13 := ddx_location_rec.address_key;
810 p2_a14 := ddx_location_rec.address_style;
811 p2_a15 := ddx_location_rec.validated_flag;
812 p2_a16 := ddx_location_rec.address_lines_phonetic;
813 p2_a17 := ddx_location_rec.po_box_number;
814 p2_a18 := ddx_location_rec.house_number;
815 p2_a19 := ddx_location_rec.street_suffix;
816 p2_a20 := ddx_location_rec.street;
817 p2_a21 := ddx_location_rec.street_number;
818 p2_a22 := ddx_location_rec.floor;
819 p2_a23 := ddx_location_rec.suite;
820 p2_a24 := ddx_location_rec.postal_plus4_code;
821 p2_a25 := ddx_location_rec.position;
822 p2_a26 := ddx_location_rec.location_directions;
823 p2_a27 := ddx_location_rec.address_effective_date;
824 p2_a28 := ddx_location_rec.address_expiration_date;
825 p2_a29 := ddx_location_rec.clli_code;
826 p2_a30 := ddx_location_rec.language;
827 p2_a31 := ddx_location_rec.short_description;
828 p2_a32 := ddx_location_rec.description;
829 p2_a33 := ddx_location_rec.geometry_status_code;
830 p2_a34 := rosetta_g_miss_num_map(ddx_location_rec.loc_hierarchy_id);
831 p2_a35 := ddx_location_rec.sales_tax_geocode;
832 p2_a36 := ddx_location_rec.sales_tax_inside_city_limits;
833 p2_a37 := rosetta_g_miss_num_map(ddx_location_rec.fa_location_id);
834 p2_a38 := ddx_location_rec.content_source_type;
835 p2_a39 := ddx_location_rec.attribute_category;
836 p2_a40 := ddx_location_rec.attribute1;
837 p2_a41 := ddx_location_rec.attribute2;
838 p2_a42 := ddx_location_rec.attribute3;
839 p2_a43 := ddx_location_rec.attribute4;
840 p2_a44 := ddx_location_rec.attribute5;
841 p2_a45 := ddx_location_rec.attribute6;
842 p2_a46 := ddx_location_rec.attribute7;
843 p2_a47 := ddx_location_rec.attribute8;
844 p2_a48 := ddx_location_rec.attribute9;
845 p2_a49 := ddx_location_rec.attribute10;
846 p2_a50 := ddx_location_rec.attribute11;
847 p2_a51 := ddx_location_rec.attribute12;
848 p2_a52 := ddx_location_rec.attribute13;
849 p2_a53 := ddx_location_rec.attribute14;
850 p2_a54 := ddx_location_rec.attribute15;
851 p2_a55 := ddx_location_rec.attribute16;
852 p2_a56 := ddx_location_rec.attribute17;
853 p2_a57 := ddx_location_rec.attribute18;
854 p2_a58 := ddx_location_rec.attribute19;
855 p2_a59 := ddx_location_rec.attribute20;
856 p2_a60 := rosetta_g_miss_num_map(ddx_location_rec.timezone_id);
857 p2_a61 := ddx_location_rec.created_by_module;
858 p2_a62 := rosetta_g_miss_num_map(ddx_location_rec.application_id);
859 p2_a63 := ddx_location_rec.actual_content_source;
860 p2_a64 := ddx_location_rec.delivery_point_code;
861
862
863
864 end;
865
866 end hz_location_v2pub_jw;