[Home] [Help]
PACKAGE BODY: APPS.IBE_ADDRESS_V2PVT_W
Source
1 package body ibe_address_v2pvt_w as
2 /* $Header: IBEVAWB.pls 115.0 2003/08/21 04:32:04 adwu 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure create_address(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p3_a0 NUMBER
17 , p3_a1 VARCHAR2
18 , p3_a2 VARCHAR2
19 , p3_a3 VARCHAR2
20 , p3_a4 VARCHAR2
21 , p3_a5 VARCHAR2
22 , p3_a6 VARCHAR2
23 , p3_a7 VARCHAR2
24 , p3_a8 VARCHAR2
25 , p3_a9 VARCHAR2
26 , p3_a10 VARCHAR2
27 , p3_a11 VARCHAR2
28 , p3_a12 VARCHAR2
29 , p3_a13 VARCHAR2
30 , p3_a14 VARCHAR2
31 , p3_a15 VARCHAR2
32 , p3_a16 VARCHAR2
33 , p3_a17 VARCHAR2
34 , p3_a18 VARCHAR2
35 , p3_a19 VARCHAR2
36 , p3_a20 VARCHAR2
37 , p3_a21 VARCHAR2
38 , p3_a22 VARCHAR2
39 , p3_a23 VARCHAR2
40 , p3_a24 VARCHAR2
41 , p3_a25 VARCHAR2
42 , p3_a26 DATE
43 , p3_a27 DATE
44 , p3_a28 VARCHAR2
45 , p3_a29 VARCHAR2
46 , p3_a30 VARCHAR2
47 , p3_a31 VARCHAR2
48 , p3_a32 NUMBER
49 , p3_a33 VARCHAR2
50 , p3_a34 VARCHAR2
51 , p3_a35 NUMBER
52 , p3_a36 VARCHAR2
53 , p3_a37 VARCHAR2
54 , p3_a38 VARCHAR2
55 , p3_a39 VARCHAR2
56 , p3_a40 VARCHAR2
57 , p3_a41 VARCHAR2
58 , p3_a42 VARCHAR2
59 , p3_a43 VARCHAR2
60 , p3_a44 VARCHAR2
61 , p3_a45 VARCHAR2
62 , p3_a46 VARCHAR2
63 , p3_a47 VARCHAR2
64 , p3_a48 VARCHAR2
65 , p3_a49 VARCHAR2
66 , p3_a50 VARCHAR2
67 , p3_a51 VARCHAR2
68 , p3_a52 VARCHAR2
69 , p3_a53 VARCHAR2
70 , p3_a54 VARCHAR2
71 , p3_a55 VARCHAR2
72 , p3_a56 VARCHAR2
73 , p3_a57 VARCHAR2
74 , p3_a58 NUMBER
75 , p3_a59 VARCHAR2
76 , p3_a60 NUMBER
77 , p3_a61 VARCHAR2
78 , p4_a0 NUMBER
79 , p4_a1 NUMBER
80 , p4_a2 NUMBER
81 , p4_a3 VARCHAR2
82 , p4_a4 VARCHAR2
83 , p4_a5 VARCHAR2
84 , p4_a6 VARCHAR2
85 , p4_a7 VARCHAR2
86 , p4_a8 VARCHAR2
87 , p4_a9 VARCHAR2
88 , p4_a10 VARCHAR2
89 , p4_a11 VARCHAR2
90 , p4_a12 VARCHAR2
91 , p4_a13 VARCHAR2
92 , p4_a14 VARCHAR2
93 , p4_a15 VARCHAR2
94 , p4_a16 VARCHAR2
95 , p4_a17 VARCHAR2
96 , p4_a18 VARCHAR2
97 , p4_a19 VARCHAR2
98 , p4_a20 VARCHAR2
99 , p4_a21 VARCHAR2
100 , p4_a22 VARCHAR2
101 , p4_a23 VARCHAR2
102 , p4_a24 VARCHAR2
103 , p4_a25 VARCHAR2
104 , p4_a26 VARCHAR2
105 , p4_a27 VARCHAR2
106 , p4_a28 VARCHAR2
107 , p4_a29 VARCHAR2
108 , p4_a30 VARCHAR2
109 , p4_a31 VARCHAR2
110 , p4_a32 VARCHAR2
111 , p4_a33 NUMBER
112 , p_primary_billto VARCHAR2
113 , p_primary_shipto VARCHAR2
114 , p_billto VARCHAR2
115 , p_shipto VARCHAR2
116 , p_default_primary VARCHAR2
117 , x_return_status out nocopy VARCHAR2
118 , x_msg_count out nocopy NUMBER
119 , x_msg_data out nocopy VARCHAR2
120 , x_location_id out nocopy NUMBER
121 , x_party_site_id out nocopy NUMBER
122 )
123
124 as
125 ddp_location hz_location_v2pub.location_rec_type;
126 ddp_party_site hz_party_site_v2pub.party_site_rec_type;
127 ddindx binary_integer; indx binary_integer;
128 begin
129
130 -- copy data to the local IN or IN-OUT args, if any
131
132
133
134 ddp_location.location_id := p3_a0;
135 ddp_location.orig_system_reference := p3_a1;
136 ddp_location.country := p3_a2;
137 ddp_location.address1 := p3_a3;
138 ddp_location.address2 := p3_a4;
139 ddp_location.address3 := p3_a5;
140 ddp_location.address4 := p3_a6;
141 ddp_location.city := p3_a7;
142 ddp_location.postal_code := p3_a8;
143 ddp_location.state := p3_a9;
144 ddp_location.province := p3_a10;
145 ddp_location.county := p3_a11;
146 ddp_location.address_key := p3_a12;
147 ddp_location.address_style := p3_a13;
148 ddp_location.validated_flag := p3_a14;
149 ddp_location.address_lines_phonetic := p3_a15;
150 ddp_location.po_box_number := p3_a16;
151 ddp_location.house_number := p3_a17;
152 ddp_location.street_suffix := p3_a18;
153 ddp_location.street := p3_a19;
154 ddp_location.street_number := p3_a20;
155 ddp_location.floor := p3_a21;
156 ddp_location.suite := p3_a22;
157 ddp_location.postal_plus4_code := p3_a23;
158 ddp_location.position := p3_a24;
159 ddp_location.location_directions := p3_a25;
160 ddp_location.address_effective_date := rosetta_g_miss_date_in_map(p3_a26);
161 ddp_location.address_expiration_date := rosetta_g_miss_date_in_map(p3_a27);
162 ddp_location.clli_code := p3_a28;
163 ddp_location.language := p3_a29;
164 ddp_location.short_description := p3_a30;
165 ddp_location.description := p3_a31;
166 ddp_location.loc_hierarchy_id := p3_a32;
167 ddp_location.sales_tax_geocode := p3_a33;
168 ddp_location.sales_tax_inside_city_limits := p3_a34;
169 ddp_location.fa_location_id := p3_a35;
170 ddp_location.content_source_type := p3_a36;
171 ddp_location.attribute_category := p3_a37;
172 ddp_location.attribute1 := p3_a38;
173 ddp_location.attribute2 := p3_a39;
174 ddp_location.attribute3 := p3_a40;
175 ddp_location.attribute4 := p3_a41;
176 ddp_location.attribute5 := p3_a42;
177 ddp_location.attribute6 := p3_a43;
178 ddp_location.attribute7 := p3_a44;
179 ddp_location.attribute8 := p3_a45;
180 ddp_location.attribute9 := p3_a46;
181 ddp_location.attribute10 := p3_a47;
182 ddp_location.attribute11 := p3_a48;
183 ddp_location.attribute12 := p3_a49;
184 ddp_location.attribute13 := p3_a50;
185 ddp_location.attribute14 := p3_a51;
186 ddp_location.attribute15 := p3_a52;
187 ddp_location.attribute16 := p3_a53;
188 ddp_location.attribute17 := p3_a54;
189 ddp_location.attribute18 := p3_a55;
190 ddp_location.attribute19 := p3_a56;
191 ddp_location.attribute20 := p3_a57;
192 ddp_location.timezone_id := p3_a58;
193 ddp_location.created_by_module := p3_a59;
194 ddp_location.application_id := p3_a60;
195 ddp_location.actual_content_source := p3_a61;
196
197 ddp_party_site.party_site_id := p4_a0;
198 ddp_party_site.party_id := p4_a1;
199 ddp_party_site.location_id := p4_a2;
200 ddp_party_site.party_site_number := p4_a3;
201 ddp_party_site.orig_system_reference := p4_a4;
202 ddp_party_site.mailstop := p4_a5;
203 ddp_party_site.identifying_address_flag := p4_a6;
204 ddp_party_site.status := p4_a7;
205 ddp_party_site.party_site_name := p4_a8;
206 ddp_party_site.attribute_category := p4_a9;
207 ddp_party_site.attribute1 := p4_a10;
208 ddp_party_site.attribute2 := p4_a11;
209 ddp_party_site.attribute3 := p4_a12;
210 ddp_party_site.attribute4 := p4_a13;
211 ddp_party_site.attribute5 := p4_a14;
212 ddp_party_site.attribute6 := p4_a15;
213 ddp_party_site.attribute7 := p4_a16;
214 ddp_party_site.attribute8 := p4_a17;
215 ddp_party_site.attribute9 := p4_a18;
216 ddp_party_site.attribute10 := p4_a19;
217 ddp_party_site.attribute11 := p4_a20;
218 ddp_party_site.attribute12 := p4_a21;
219 ddp_party_site.attribute13 := p4_a22;
220 ddp_party_site.attribute14 := p4_a23;
221 ddp_party_site.attribute15 := p4_a24;
222 ddp_party_site.attribute16 := p4_a25;
223 ddp_party_site.attribute17 := p4_a26;
224 ddp_party_site.attribute18 := p4_a27;
225 ddp_party_site.attribute19 := p4_a28;
226 ddp_party_site.attribute20 := p4_a29;
227 ddp_party_site.language := p4_a30;
228 ddp_party_site.addressee := p4_a31;
229 ddp_party_site.created_by_module := p4_a32;
230 ddp_party_site.application_id := p4_a33;
231
232
233
234
235
236
237
238
239
240
241
242 -- here's the delegated call to the old PL/SQL routine
243 ibe_address_v2pvt.create_address(p_api_version,
244 p_init_msg_list,
245 p_commit,
246 ddp_location,
247 ddp_party_site,
248 p_primary_billto,
249 p_primary_shipto,
250 p_billto,
251 p_shipto,
252 p_default_primary,
253 x_return_status,
254 x_msg_count,
255 x_msg_data,
256 x_location_id,
257 x_party_site_id);
258
259 -- copy data back from the local variables to OUT or IN-OUT args, if any
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274 end;
275
276 procedure update_address(p_api_version NUMBER
277 , p_init_msg_list VARCHAR2
278 , p_commit VARCHAR2
279 , p_party_site_id NUMBER
280 , p_ps_object_version_number NUMBER
281 , p_bill_object_version_number NUMBER
282 , p_ship_object_version_number NUMBER
283 , p7_a0 NUMBER
284 , p7_a1 VARCHAR2
285 , p7_a2 VARCHAR2
286 , p7_a3 VARCHAR2
287 , p7_a4 VARCHAR2
288 , p7_a5 VARCHAR2
289 , p7_a6 VARCHAR2
290 , p7_a7 VARCHAR2
291 , p7_a8 VARCHAR2
292 , p7_a9 VARCHAR2
293 , p7_a10 VARCHAR2
294 , p7_a11 VARCHAR2
295 , p7_a12 VARCHAR2
296 , p7_a13 VARCHAR2
297 , p7_a14 VARCHAR2
298 , p7_a15 VARCHAR2
299 , p7_a16 VARCHAR2
300 , p7_a17 VARCHAR2
301 , p7_a18 VARCHAR2
302 , p7_a19 VARCHAR2
303 , p7_a20 VARCHAR2
304 , p7_a21 VARCHAR2
305 , p7_a22 VARCHAR2
306 , p7_a23 VARCHAR2
307 , p7_a24 VARCHAR2
308 , p7_a25 VARCHAR2
309 , p7_a26 DATE
310 , p7_a27 DATE
311 , p7_a28 VARCHAR2
312 , p7_a29 VARCHAR2
313 , p7_a30 VARCHAR2
314 , p7_a31 VARCHAR2
315 , p7_a32 NUMBER
316 , p7_a33 VARCHAR2
317 , p7_a34 VARCHAR2
318 , p7_a35 NUMBER
319 , p7_a36 VARCHAR2
320 , p7_a37 VARCHAR2
321 , p7_a38 VARCHAR2
322 , p7_a39 VARCHAR2
323 , p7_a40 VARCHAR2
324 , p7_a41 VARCHAR2
325 , p7_a42 VARCHAR2
326 , p7_a43 VARCHAR2
327 , p7_a44 VARCHAR2
328 , p7_a45 VARCHAR2
329 , p7_a46 VARCHAR2
330 , p7_a47 VARCHAR2
331 , p7_a48 VARCHAR2
332 , p7_a49 VARCHAR2
333 , p7_a50 VARCHAR2
334 , p7_a51 VARCHAR2
335 , p7_a52 VARCHAR2
336 , p7_a53 VARCHAR2
337 , p7_a54 VARCHAR2
338 , p7_a55 VARCHAR2
339 , p7_a56 VARCHAR2
340 , p7_a57 VARCHAR2
341 , p7_a58 NUMBER
342 , p7_a59 VARCHAR2
343 , p7_a60 NUMBER
344 , p7_a61 VARCHAR2
345 , p8_a0 NUMBER
346 , p8_a1 NUMBER
347 , p8_a2 NUMBER
348 , p8_a3 VARCHAR2
349 , p8_a4 VARCHAR2
350 , p8_a5 VARCHAR2
351 , p8_a6 VARCHAR2
352 , p8_a7 VARCHAR2
353 , p8_a8 VARCHAR2
354 , p8_a9 VARCHAR2
355 , p8_a10 VARCHAR2
356 , p8_a11 VARCHAR2
357 , p8_a12 VARCHAR2
358 , p8_a13 VARCHAR2
359 , p8_a14 VARCHAR2
360 , p8_a15 VARCHAR2
361 , p8_a16 VARCHAR2
362 , p8_a17 VARCHAR2
363 , p8_a18 VARCHAR2
364 , p8_a19 VARCHAR2
365 , p8_a20 VARCHAR2
366 , p8_a21 VARCHAR2
367 , p8_a22 VARCHAR2
368 , p8_a23 VARCHAR2
369 , p8_a24 VARCHAR2
370 , p8_a25 VARCHAR2
371 , p8_a26 VARCHAR2
372 , p8_a27 VARCHAR2
373 , p8_a28 VARCHAR2
374 , p8_a29 VARCHAR2
375 , p8_a30 VARCHAR2
376 , p8_a31 VARCHAR2
377 , p8_a32 VARCHAR2
378 , p8_a33 NUMBER
379 , p_primary_billto VARCHAR2
380 , p_primary_shipto VARCHAR2
381 , p_billto VARCHAR2
382 , p_shipto VARCHAR2
383 , x_return_status out nocopy VARCHAR2
384 , x_msg_count out nocopy NUMBER
385 , x_msg_data out nocopy VARCHAR2
386 , x_location_id out nocopy NUMBER
387 , x_party_site_id out nocopy NUMBER
388 )
389
390 as
391 ddp_location hz_location_v2pub.location_rec_type;
392 ddp_party_site hz_party_site_v2pub.party_site_rec_type;
393 ddindx binary_integer; indx binary_integer;
394 begin
395
396 -- copy data to the local IN or IN-OUT args, if any
397
398
399
400
401
402
403
404 ddp_location.location_id := p7_a0;
405 ddp_location.orig_system_reference := p7_a1;
406 ddp_location.country := p7_a2;
407 ddp_location.address1 := p7_a3;
408 ddp_location.address2 := p7_a4;
409 ddp_location.address3 := p7_a5;
410 ddp_location.address4 := p7_a6;
411 ddp_location.city := p7_a7;
412 ddp_location.postal_code := p7_a8;
413 ddp_location.state := p7_a9;
414 ddp_location.province := p7_a10;
415 ddp_location.county := p7_a11;
416 ddp_location.address_key := p7_a12;
417 ddp_location.address_style := p7_a13;
418 ddp_location.validated_flag := p7_a14;
419 ddp_location.address_lines_phonetic := p7_a15;
420 ddp_location.po_box_number := p7_a16;
421 ddp_location.house_number := p7_a17;
422 ddp_location.street_suffix := p7_a18;
423 ddp_location.street := p7_a19;
424 ddp_location.street_number := p7_a20;
425 ddp_location.floor := p7_a21;
426 ddp_location.suite := p7_a22;
427 ddp_location.postal_plus4_code := p7_a23;
428 ddp_location.position := p7_a24;
429 ddp_location.location_directions := p7_a25;
430 ddp_location.address_effective_date := rosetta_g_miss_date_in_map(p7_a26);
431 ddp_location.address_expiration_date := rosetta_g_miss_date_in_map(p7_a27);
432 ddp_location.clli_code := p7_a28;
433 ddp_location.language := p7_a29;
434 ddp_location.short_description := p7_a30;
435 ddp_location.description := p7_a31;
436 ddp_location.loc_hierarchy_id := p7_a32;
437 ddp_location.sales_tax_geocode := p7_a33;
438 ddp_location.sales_tax_inside_city_limits := p7_a34;
439 ddp_location.fa_location_id := p7_a35;
440 ddp_location.content_source_type := p7_a36;
441 ddp_location.attribute_category := p7_a37;
442 ddp_location.attribute1 := p7_a38;
443 ddp_location.attribute2 := p7_a39;
447 ddp_location.attribute6 := p7_a43;
444 ddp_location.attribute3 := p7_a40;
445 ddp_location.attribute4 := p7_a41;
446 ddp_location.attribute5 := p7_a42;
448 ddp_location.attribute7 := p7_a44;
449 ddp_location.attribute8 := p7_a45;
450 ddp_location.attribute9 := p7_a46;
451 ddp_location.attribute10 := p7_a47;
452 ddp_location.attribute11 := p7_a48;
453 ddp_location.attribute12 := p7_a49;
454 ddp_location.attribute13 := p7_a50;
455 ddp_location.attribute14 := p7_a51;
456 ddp_location.attribute15 := p7_a52;
457 ddp_location.attribute16 := p7_a53;
458 ddp_location.attribute17 := p7_a54;
459 ddp_location.attribute18 := p7_a55;
460 ddp_location.attribute19 := p7_a56;
461 ddp_location.attribute20 := p7_a57;
462 ddp_location.timezone_id := p7_a58;
463 ddp_location.created_by_module := p7_a59;
464 ddp_location.application_id := p7_a60;
465 ddp_location.actual_content_source := p7_a61;
466
467 ddp_party_site.party_site_id := p8_a0;
468 ddp_party_site.party_id := p8_a1;
469 ddp_party_site.location_id := p8_a2;
470 ddp_party_site.party_site_number := p8_a3;
471 ddp_party_site.orig_system_reference := p8_a4;
472 ddp_party_site.mailstop := p8_a5;
473 ddp_party_site.identifying_address_flag := p8_a6;
474 ddp_party_site.status := p8_a7;
475 ddp_party_site.party_site_name := p8_a8;
476 ddp_party_site.attribute_category := p8_a9;
477 ddp_party_site.attribute1 := p8_a10;
478 ddp_party_site.attribute2 := p8_a11;
479 ddp_party_site.attribute3 := p8_a12;
480 ddp_party_site.attribute4 := p8_a13;
481 ddp_party_site.attribute5 := p8_a14;
482 ddp_party_site.attribute6 := p8_a15;
483 ddp_party_site.attribute7 := p8_a16;
484 ddp_party_site.attribute8 := p8_a17;
485 ddp_party_site.attribute9 := p8_a18;
486 ddp_party_site.attribute10 := p8_a19;
487 ddp_party_site.attribute11 := p8_a20;
488 ddp_party_site.attribute12 := p8_a21;
489 ddp_party_site.attribute13 := p8_a22;
490 ddp_party_site.attribute14 := p8_a23;
491 ddp_party_site.attribute15 := p8_a24;
492 ddp_party_site.attribute16 := p8_a25;
493 ddp_party_site.attribute17 := p8_a26;
494 ddp_party_site.attribute18 := p8_a27;
495 ddp_party_site.attribute19 := p8_a28;
496 ddp_party_site.attribute20 := p8_a29;
497 ddp_party_site.language := p8_a30;
498 ddp_party_site.addressee := p8_a31;
499 ddp_party_site.created_by_module := p8_a32;
500 ddp_party_site.application_id := p8_a33;
501
502
503
504
505
506
507
508
509
510
511 -- here's the delegated call to the old PL/SQL routine
512 ibe_address_v2pvt.update_address(p_api_version,
513 p_init_msg_list,
514 p_commit,
515 p_party_site_id,
516 p_ps_object_version_number,
517 p_bill_object_version_number,
518 p_ship_object_version_number,
519 ddp_location,
520 ddp_party_site,
521 p_primary_billto,
522 p_primary_shipto,
523 p_billto,
524 p_shipto,
525 x_return_status,
526 x_msg_count,
527 x_msg_data,
528 x_location_id,
529 x_party_site_id);
530
531 -- copy data back from the local variables to OUT or IN-OUT args, if any
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549 end;
550
551 end ibe_address_v2pvt_w;