[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_SITE_V2PUB_JW
Source
1 package body hz_party_site_v2pub_jw as
2 /* $Header: ARH2PSJB.pls 120.6 2005/09/21 00:08:58 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_party_site_1(p_init_msg_list VARCHAR2
23 , x_party_site_id out nocopy NUMBER
24 , x_party_site_number out nocopy VARCHAR2
25 , x_return_status out nocopy VARCHAR2
26 , x_msg_count out nocopy NUMBER
27 , x_msg_data out nocopy VARCHAR2
28 , p1_a0 NUMBER := null
29 , p1_a1 NUMBER := null
30 , p1_a2 NUMBER := null
31 , p1_a3 VARCHAR2 := null
32 , p1_a4 VARCHAR2 := null
33 , p1_a5 VARCHAR2 := null
34 , p1_a6 VARCHAR2 := null
35 , p1_a7 VARCHAR2 := null
36 , p1_a8 VARCHAR2 := null
37 , p1_a9 VARCHAR2 := null
38 , p1_a10 VARCHAR2 := null
39 , p1_a11 VARCHAR2 := null
40 , p1_a12 VARCHAR2 := null
41 , p1_a13 VARCHAR2 := null
42 , p1_a14 VARCHAR2 := null
43 , p1_a15 VARCHAR2 := null
44 , p1_a16 VARCHAR2 := null
45 , p1_a17 VARCHAR2 := null
46 , p1_a18 VARCHAR2 := null
47 , p1_a19 VARCHAR2 := null
48 , p1_a20 VARCHAR2 := null
49 , p1_a21 VARCHAR2 := null
50 , p1_a22 VARCHAR2 := null
51 , p1_a23 VARCHAR2 := null
52 , p1_a24 VARCHAR2 := null
53 , p1_a25 VARCHAR2 := null
54 , p1_a26 VARCHAR2 := null
55 , p1_a27 VARCHAR2 := null
56 , p1_a28 VARCHAR2 := null
57 , p1_a29 VARCHAR2 := null
58 , p1_a30 VARCHAR2 := null
59 , p1_a31 VARCHAR2 := null
60 , p1_a32 VARCHAR2 := null
61 , p1_a33 VARCHAR2 := null
62 , p1_a34 NUMBER := null
63 , p1_a35 VARCHAR2 := null
64 , p1_a36 VARCHAR2 := null
65 )
66 as
67 ddp_party_site_rec hz_party_site_v2pub.party_site_rec_type;
68 ddindx binary_integer; indx binary_integer;
69 begin
70
71 -- copy data to the local IN or IN-OUT args, if any
72
73 ddp_party_site_rec.party_site_id := rosetta_g_miss_num_map(p1_a0);
74 ddp_party_site_rec.party_id := rosetta_g_miss_num_map(p1_a1);
75 ddp_party_site_rec.location_id := rosetta_g_miss_num_map(p1_a2);
76 ddp_party_site_rec.party_site_number := p1_a3;
77 ddp_party_site_rec.orig_system_reference := p1_a4;
78 ddp_party_site_rec.orig_system := p1_a5;
79 ddp_party_site_rec.mailstop := p1_a6;
80 ddp_party_site_rec.identifying_address_flag := p1_a7;
81 ddp_party_site_rec.status := p1_a8;
82 ddp_party_site_rec.party_site_name := p1_a9;
83 ddp_party_site_rec.attribute_category := p1_a10;
84 ddp_party_site_rec.attribute1 := p1_a11;
85 ddp_party_site_rec.attribute2 := p1_a12;
86 ddp_party_site_rec.attribute3 := p1_a13;
87 ddp_party_site_rec.attribute4 := p1_a14;
88 ddp_party_site_rec.attribute5 := p1_a15;
89 ddp_party_site_rec.attribute6 := p1_a16;
90 ddp_party_site_rec.attribute7 := p1_a17;
91 ddp_party_site_rec.attribute8 := p1_a18;
92 ddp_party_site_rec.attribute9 := p1_a19;
93 ddp_party_site_rec.attribute10 := p1_a20;
94 ddp_party_site_rec.attribute11 := p1_a21;
95 ddp_party_site_rec.attribute12 := p1_a22;
96 ddp_party_site_rec.attribute13 := p1_a23;
97 ddp_party_site_rec.attribute14 := p1_a24;
98 ddp_party_site_rec.attribute15 := p1_a25;
99 ddp_party_site_rec.attribute16 := p1_a26;
100 ddp_party_site_rec.attribute17 := p1_a27;
101 ddp_party_site_rec.attribute18 := p1_a28;
102 ddp_party_site_rec.attribute19 := p1_a29;
103 ddp_party_site_rec.attribute20 := p1_a30;
104 ddp_party_site_rec.language := p1_a31;
105 ddp_party_site_rec.addressee := p1_a32;
106 ddp_party_site_rec.created_by_module := p1_a33;
107 ddp_party_site_rec.application_id := rosetta_g_miss_num_map(p1_a34);
108 ddp_party_site_rec.global_location_number := p1_a35;
109 ddp_party_site_rec.duns_number_c := p1_a36;
110
111
112
113
114
115
116 -- here's the delegated call to the old PL/SQL routine
117 hz_party_site_v2pub.create_party_site(p_init_msg_list,
118 ddp_party_site_rec,
119 x_party_site_id,
120 x_party_site_number,
121 x_return_status,
122 x_msg_count,
123 x_msg_data);
124
125 -- copy data back from the local OUT or IN-OUT args, if any
126
127
128
129
130
131
132 end;
133
134 procedure update_party_site_2(p_init_msg_list VARCHAR2
135 , p_object_version_number in out nocopy NUMBER
136 , x_return_status out nocopy VARCHAR2
137 , x_msg_count out nocopy NUMBER
138 , x_msg_data out nocopy VARCHAR2
139 , p1_a0 NUMBER := null
140 , p1_a1 NUMBER := null
141 , p1_a2 NUMBER := null
142 , p1_a3 VARCHAR2 := null
143 , p1_a4 VARCHAR2 := null
144 , p1_a5 VARCHAR2 := null
145 , p1_a6 VARCHAR2 := null
146 , p1_a7 VARCHAR2 := null
147 , p1_a8 VARCHAR2 := null
148 , p1_a9 VARCHAR2 := null
149 , p1_a10 VARCHAR2 := null
150 , p1_a11 VARCHAR2 := null
151 , p1_a12 VARCHAR2 := null
152 , p1_a13 VARCHAR2 := null
153 , p1_a14 VARCHAR2 := null
154 , p1_a15 VARCHAR2 := null
155 , p1_a16 VARCHAR2 := null
156 , p1_a17 VARCHAR2 := null
157 , p1_a18 VARCHAR2 := null
158 , p1_a19 VARCHAR2 := null
159 , p1_a20 VARCHAR2 := null
160 , p1_a21 VARCHAR2 := null
161 , p1_a22 VARCHAR2 := null
162 , p1_a23 VARCHAR2 := null
163 , p1_a24 VARCHAR2 := null
164 , p1_a25 VARCHAR2 := null
165 , p1_a26 VARCHAR2 := null
166 , p1_a27 VARCHAR2 := null
167 , p1_a28 VARCHAR2 := null
168 , p1_a29 VARCHAR2 := null
169 , p1_a30 VARCHAR2 := null
170 , p1_a31 VARCHAR2 := null
171 , p1_a32 VARCHAR2 := null
172 , p1_a33 VARCHAR2 := null
173 , p1_a34 NUMBER := null
174 , p1_a35 VARCHAR2 := null
175 , p1_a36 VARCHAR2 := null
176 )
177 as
178 ddp_party_site_rec hz_party_site_v2pub.party_site_rec_type;
179 ddindx binary_integer; indx binary_integer;
180 begin
181
182 -- copy data to the local IN or IN-OUT args, if any
183
184 ddp_party_site_rec.party_site_id := rosetta_g_miss_num_map(p1_a0);
185 ddp_party_site_rec.party_id := rosetta_g_miss_num_map(p1_a1);
186 ddp_party_site_rec.location_id := rosetta_g_miss_num_map(p1_a2);
187 ddp_party_site_rec.party_site_number := p1_a3;
188 ddp_party_site_rec.orig_system_reference := p1_a4;
189 ddp_party_site_rec.orig_system := p1_a5;
190 ddp_party_site_rec.mailstop := p1_a6;
191 ddp_party_site_rec.identifying_address_flag := p1_a7;
192 ddp_party_site_rec.status := p1_a8;
193 ddp_party_site_rec.party_site_name := p1_a9;
194 ddp_party_site_rec.attribute_category := p1_a10;
195 ddp_party_site_rec.attribute1 := p1_a11;
196 ddp_party_site_rec.attribute2 := p1_a12;
197 ddp_party_site_rec.attribute3 := p1_a13;
198 ddp_party_site_rec.attribute4 := p1_a14;
199 ddp_party_site_rec.attribute5 := p1_a15;
200 ddp_party_site_rec.attribute6 := p1_a16;
201 ddp_party_site_rec.attribute7 := p1_a17;
202 ddp_party_site_rec.attribute8 := p1_a18;
203 ddp_party_site_rec.attribute9 := p1_a19;
204 ddp_party_site_rec.attribute10 := p1_a20;
205 ddp_party_site_rec.attribute11 := p1_a21;
206 ddp_party_site_rec.attribute12 := p1_a22;
207 ddp_party_site_rec.attribute13 := p1_a23;
208 ddp_party_site_rec.attribute14 := p1_a24;
209 ddp_party_site_rec.attribute15 := p1_a25;
210 ddp_party_site_rec.attribute16 := p1_a26;
211 ddp_party_site_rec.attribute17 := p1_a27;
212 ddp_party_site_rec.attribute18 := p1_a28;
213 ddp_party_site_rec.attribute19 := p1_a29;
214 ddp_party_site_rec.attribute20 := p1_a30;
215 ddp_party_site_rec.language := p1_a31;
216 ddp_party_site_rec.addressee := p1_a32;
217 ddp_party_site_rec.created_by_module := p1_a33;
218 ddp_party_site_rec.application_id := rosetta_g_miss_num_map(p1_a34);
219 ddp_party_site_rec.global_location_number := p1_a35;
220 ddp_party_site_rec.duns_number_c := p1_a36;
221
222
223
224
225
226 -- here's the delegated call to the old PL/SQL routine
227 hz_party_site_v2pub.update_party_site(p_init_msg_list,
228 ddp_party_site_rec,
229 p_object_version_number,
230 x_return_status,
231 x_msg_count,
232 x_msg_data);
233
234 -- copy data back from the local OUT or IN-OUT args, if any
235
236
237
238
239
240 end;
241
242 procedure create_party_site_use_3(p_init_msg_list VARCHAR2
243 , x_party_site_use_id out nocopy NUMBER
244 , x_return_status out nocopy VARCHAR2
245 , x_msg_count out nocopy NUMBER
246 , x_msg_data out nocopy VARCHAR2
247 , p1_a0 NUMBER := null
248 , p1_a1 VARCHAR2 := null
249 , p1_a2 VARCHAR2 := null
250 , p1_a3 NUMBER := null
251 , p1_a4 VARCHAR2 := null
252 , p1_a5 VARCHAR2 := null
253 , p1_a6 VARCHAR2 := null
254 , p1_a7 NUMBER := null
255 )
256 as
257 ddp_party_site_use_rec hz_party_site_v2pub.party_site_use_rec_type;
258 ddindx binary_integer; indx binary_integer;
259 begin
260
261 -- copy data to the local IN or IN-OUT args, if any
262
263 ddp_party_site_use_rec.party_site_use_id := rosetta_g_miss_num_map(p1_a0);
264 ddp_party_site_use_rec.comments := p1_a1;
265 ddp_party_site_use_rec.site_use_type := p1_a2;
266 ddp_party_site_use_rec.party_site_id := rosetta_g_miss_num_map(p1_a3);
267 ddp_party_site_use_rec.primary_per_type := p1_a4;
268 ddp_party_site_use_rec.status := p1_a5;
269 ddp_party_site_use_rec.created_by_module := p1_a6;
270 ddp_party_site_use_rec.application_id := rosetta_g_miss_num_map(p1_a7);
271
272
273
274
275
276 -- here's the delegated call to the old PL/SQL routine
277 hz_party_site_v2pub.create_party_site_use(p_init_msg_list,
278 ddp_party_site_use_rec,
279 x_party_site_use_id,
280 x_return_status,
281 x_msg_count,
282 x_msg_data);
283
284 -- copy data back from the local OUT or IN-OUT args, if any
285
286
287
288
289
290 end;
291
292 procedure update_party_site_use_4(p_init_msg_list VARCHAR2
293 , p_object_version_number in out nocopy NUMBER
294 , x_return_status out nocopy VARCHAR2
295 , x_msg_count out nocopy NUMBER
296 , x_msg_data out nocopy VARCHAR2
297 , p1_a0 NUMBER := null
298 , p1_a1 VARCHAR2 := null
299 , p1_a2 VARCHAR2 := null
300 , p1_a3 NUMBER := null
301 , p1_a4 VARCHAR2 := null
302 , p1_a5 VARCHAR2 := null
303 , p1_a6 VARCHAR2 := null
304 , p1_a7 NUMBER := null
305 )
306 as
307 ddp_party_site_use_rec hz_party_site_v2pub.party_site_use_rec_type;
308 ddindx binary_integer; indx binary_integer;
309 begin
310
311 -- copy data to the local IN or IN-OUT args, if any
312
313 ddp_party_site_use_rec.party_site_use_id := rosetta_g_miss_num_map(p1_a0);
314 ddp_party_site_use_rec.comments := p1_a1;
315 ddp_party_site_use_rec.site_use_type := p1_a2;
316 ddp_party_site_use_rec.party_site_id := rosetta_g_miss_num_map(p1_a3);
317 ddp_party_site_use_rec.primary_per_type := p1_a4;
318 ddp_party_site_use_rec.status := p1_a5;
319 ddp_party_site_use_rec.created_by_module := p1_a6;
320 ddp_party_site_use_rec.application_id := rosetta_g_miss_num_map(p1_a7);
321
322
323
324
325
326 -- here's the delegated call to the old PL/SQL routine
327 hz_party_site_v2pub.update_party_site_use(p_init_msg_list,
328 ddp_party_site_use_rec,
329 p_object_version_number,
330 x_return_status,
331 x_msg_count,
332 x_msg_data);
333
334 -- copy data back from the local OUT or IN-OUT args, if any
335
336
337
338
339
340 end;
341
342 procedure get_party_site_rec_5(p_init_msg_list VARCHAR2
343 , p_party_site_id NUMBER
344 , p2_a0 out nocopy NUMBER
345 , p2_a1 out nocopy NUMBER
346 , p2_a2 out nocopy NUMBER
347 , p2_a3 out nocopy VARCHAR2
348 , p2_a4 out nocopy VARCHAR2
349 , p2_a5 out nocopy VARCHAR2
350 , p2_a6 out nocopy VARCHAR2
351 , p2_a7 out nocopy VARCHAR2
352 , p2_a8 out nocopy VARCHAR2
353 , p2_a9 out nocopy VARCHAR2
354 , p2_a10 out nocopy VARCHAR2
355 , p2_a11 out nocopy VARCHAR2
356 , p2_a12 out nocopy VARCHAR2
357 , p2_a13 out nocopy VARCHAR2
358 , p2_a14 out nocopy VARCHAR2
359 , p2_a15 out nocopy VARCHAR2
360 , p2_a16 out nocopy VARCHAR2
361 , p2_a17 out nocopy VARCHAR2
362 , p2_a18 out nocopy VARCHAR2
363 , p2_a19 out nocopy VARCHAR2
364 , p2_a20 out nocopy VARCHAR2
365 , p2_a21 out nocopy VARCHAR2
366 , p2_a22 out nocopy VARCHAR2
367 , p2_a23 out nocopy VARCHAR2
368 , p2_a24 out nocopy VARCHAR2
369 , p2_a25 out nocopy VARCHAR2
370 , p2_a26 out nocopy VARCHAR2
371 , p2_a27 out nocopy VARCHAR2
372 , p2_a28 out nocopy VARCHAR2
373 , p2_a29 out nocopy VARCHAR2
374 , p2_a30 out nocopy VARCHAR2
375 , p2_a31 out nocopy VARCHAR2
376 , p2_a32 out nocopy VARCHAR2
377 , p2_a33 out nocopy VARCHAR2
378 , p2_a34 out nocopy NUMBER
379 , p2_a35 out nocopy VARCHAR2
380 , p2_a36 out nocopy VARCHAR2
381 , x_return_status out nocopy VARCHAR2
382 , x_msg_count out nocopy NUMBER
383 , x_msg_data out nocopy VARCHAR2
384 )
385 as
386 ddx_party_site_rec hz_party_site_v2pub.party_site_rec_type;
387 ddindx binary_integer; indx binary_integer;
388 begin
389
390 -- copy data to the local IN or IN-OUT args, if any
391
392
393
394
395
396
397 -- here's the delegated call to the old PL/SQL routine
398 hz_party_site_v2pub.get_party_site_rec(p_init_msg_list,
399 p_party_site_id,
400 ddx_party_site_rec,
401 x_return_status,
402 x_msg_count,
403 x_msg_data);
404
405 -- copy data back from the local OUT or IN-OUT args, if any
406
407
408 p2_a0 := rosetta_g_miss_num_map(ddx_party_site_rec.party_site_id);
409 p2_a1 := rosetta_g_miss_num_map(ddx_party_site_rec.party_id);
410 p2_a2 := rosetta_g_miss_num_map(ddx_party_site_rec.location_id);
411 p2_a3 := ddx_party_site_rec.party_site_number;
412 p2_a4 := ddx_party_site_rec.orig_system_reference;
413 p2_a5 := ddx_party_site_rec.orig_system;
414 p2_a6 := ddx_party_site_rec.mailstop;
415 p2_a7 := ddx_party_site_rec.identifying_address_flag;
416 p2_a8 := ddx_party_site_rec.status;
417 p2_a9 := ddx_party_site_rec.party_site_name;
418 p2_a10 := ddx_party_site_rec.attribute_category;
419 p2_a11 := ddx_party_site_rec.attribute1;
420 p2_a12 := ddx_party_site_rec.attribute2;
421 p2_a13 := ddx_party_site_rec.attribute3;
422 p2_a14 := ddx_party_site_rec.attribute4;
426 p2_a18 := ddx_party_site_rec.attribute8;
427 p2_a19 := ddx_party_site_rec.attribute9;
428 p2_a20 := ddx_party_site_rec.attribute10;
429 p2_a21 := ddx_party_site_rec.attribute11;
430 p2_a22 := ddx_party_site_rec.attribute12;
431 p2_a23 := ddx_party_site_rec.attribute13;
432 p2_a24 := ddx_party_site_rec.attribute14;
433 p2_a25 := ddx_party_site_rec.attribute15;
434 p2_a26 := ddx_party_site_rec.attribute16;
435 p2_a27 := ddx_party_site_rec.attribute17;
436 p2_a28 := ddx_party_site_rec.attribute18;
437 p2_a29 := ddx_party_site_rec.attribute19;
438 p2_a30 := ddx_party_site_rec.attribute20;
439 p2_a31 := ddx_party_site_rec.language;
440 p2_a32 := ddx_party_site_rec.addressee;
441 p2_a33 := ddx_party_site_rec.created_by_module;
442 p2_a34 := rosetta_g_miss_num_map(ddx_party_site_rec.application_id);
443 p2_a35 := ddx_party_site_rec.global_location_number;
444 p2_a36 := ddx_party_site_rec.duns_number_c;
445
446
447
448 end;
449
450 procedure get_party_site_use_rec_6(p_init_msg_list VARCHAR2
451 , p_party_site_use_id NUMBER
452 , p2_a0 out nocopy NUMBER
453 , p2_a1 out nocopy VARCHAR2
454 , p2_a2 out nocopy VARCHAR2
455 , p2_a3 out nocopy NUMBER
456 , p2_a4 out nocopy VARCHAR2
457 , p2_a5 out nocopy VARCHAR2
458 , p2_a6 out nocopy VARCHAR2
459 , p2_a7 out nocopy NUMBER
460 , x_return_status out nocopy VARCHAR2
461 , x_msg_count out nocopy NUMBER
462 , x_msg_data out nocopy VARCHAR2
463 )
464 as
465 ddx_party_site_use_rec hz_party_site_v2pub.party_site_use_rec_type;
466 ddindx binary_integer; indx binary_integer;
467 begin
468
469 -- copy data to the local IN or IN-OUT args, if any
470
471
472
473
474
475
476 -- here's the delegated call to the old PL/SQL routine
477 hz_party_site_v2pub.get_party_site_use_rec(p_init_msg_list,
478 p_party_site_use_id,
479 ddx_party_site_use_rec,
480 x_return_status,
481 x_msg_count,
482 x_msg_data);
483
484 -- copy data back from the local OUT or IN-OUT args, if any
485
486
487 p2_a0 := rosetta_g_miss_num_map(ddx_party_site_use_rec.party_site_use_id);
488 p2_a1 := ddx_party_site_use_rec.comments;
489 p2_a2 := ddx_party_site_use_rec.site_use_type;
490 p2_a3 := rosetta_g_miss_num_map(ddx_party_site_use_rec.party_site_id);
491 p2_a4 := ddx_party_site_use_rec.primary_per_type;
492 p2_a5 := ddx_party_site_use_rec.status;
493 p2_a6 := ddx_party_site_use_rec.created_by_module;
494 p2_a7 := rosetta_g_miss_num_map(ddx_party_site_use_rec.application_id);
495
496
497
498 end;
499
500 end hz_party_site_v2pub_jw;
425 p2_a17 := ddx_party_site_rec.attribute7;
423 p2_a15 := ddx_party_site_rec.attribute5;
424 p2_a16 := ddx_party_site_rec.attribute6;