[Home] [Help]
PACKAGE BODY: APPS.AMS_ACTPARTNER_PVT_W
Source
1 PACKAGE BODY AMS_ACTPARTNER_PVT_W as
2 /* $Header: amswapnb.pls 120.1 2005/08/04 05:57:53 appldev ship $ */
3 procedure create_act_partner(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , x_return_status out nocopy VARCHAR2
8 , x_msg_count out nocopy NUMBER
9 , x_msg_data out nocopy VARCHAR2
10 , p7_a0 NUMBER
11 , p7_a1 DATE
12 , p7_a2 NUMBER
13 , p7_a3 DATE
14 , p7_a4 NUMBER
15 , p7_a5 NUMBER
16 , p7_a6 NUMBER
17 , p7_a7 NUMBER
18 , p7_a8 VARCHAR2
19 , p7_a9 NUMBER
20 , p7_a10 VARCHAR2
21 , p7_a11 VARCHAR2
22 , p7_a12 VARCHAR2
23 , p7_a13 VARCHAR2
24 , p7_a14 NUMBER
25 , p7_a15 NUMBER
26 , p7_a16 NUMBER
27 , p7_a17 VARCHAR2
28 , p7_a18 VARCHAR2
29 , p7_a19 VARCHAR2
30 , p7_a20 VARCHAR2
31 , p7_a21 VARCHAR2
32 , p7_a22 VARCHAR2
33 , p7_a23 VARCHAR2
34 , p7_a24 VARCHAR2
35 , p7_a25 VARCHAR2
36 , p7_a26 VARCHAR2
37 , p7_a27 VARCHAR2
38 , p7_a28 VARCHAR2
39 , p7_a29 VARCHAR2
40 , p7_a30 VARCHAR2
41 , p7_a31 VARCHAR2
42 , x_act_partner_id out nocopy NUMBER
43 )
44
45 as
46 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
47 ddindx binary_integer; indx binary_integer;
48 begin
49
50 -- copy data to the local IN or IN-OUT args, if any
51
52
53
54
55
56
57
58 ddp_act_partner_rec.activity_partner_id := p7_a0;
59 ddp_act_partner_rec.last_update_date := p7_a1;
60 ddp_act_partner_rec.last_updated_by := p7_a2;
61 ddp_act_partner_rec.creation_date := p7_a3;
62 ddp_act_partner_rec.created_by := p7_a4;
63 ddp_act_partner_rec.last_update_login := p7_a5;
64 ddp_act_partner_rec.object_version_number := p7_a6;
65 ddp_act_partner_rec.act_partner_used_by_id := p7_a7;
66 ddp_act_partner_rec.arc_act_partner_used_by := p7_a8;
67 ddp_act_partner_rec.partner_id := p7_a9;
68 ddp_act_partner_rec.partner_type := p7_a10;
69 ddp_act_partner_rec.description := p7_a11;
70 ddp_act_partner_rec.attribute_category := p7_a12;
71 ddp_act_partner_rec.primary_flag := p7_a13;
72 ddp_act_partner_rec.preferred_vad_id := p7_a14;
73 ddp_act_partner_rec.partner_address_id := p7_a15;
74 ddp_act_partner_rec.primary_contact_id := p7_a16;
75 ddp_act_partner_rec.attribute1 := p7_a17;
76 ddp_act_partner_rec.attribute2 := p7_a18;
77 ddp_act_partner_rec.attribute3 := p7_a19;
78 ddp_act_partner_rec.attribute4 := p7_a20;
79 ddp_act_partner_rec.attribute5 := p7_a21;
80 ddp_act_partner_rec.attribute6 := p7_a22;
81 ddp_act_partner_rec.attribute7 := p7_a23;
82 ddp_act_partner_rec.attribute8 := p7_a24;
83 ddp_act_partner_rec.attribute9 := p7_a25;
84 ddp_act_partner_rec.attribute10 := p7_a26;
85 ddp_act_partner_rec.attribute11 := p7_a27;
86 ddp_act_partner_rec.attribute12 := p7_a28;
87 ddp_act_partner_rec.attribute13 := p7_a29;
88 ddp_act_partner_rec.attribute14 := p7_a30;
89 ddp_act_partner_rec.attribute15 := p7_a31;
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 ams_actpartner_pvt.create_act_partner(p_api_version,
94 p_init_msg_list,
95 p_commit,
96 p_validation_level,
97 x_return_status,
98 x_msg_count,
99 x_msg_data,
100 ddp_act_partner_rec,
101 x_act_partner_id);
102
103 -- copy data back from the local variables to OUT or IN-OUT args, if any
104
105
106
107
108
109
110
111
112 end;
113
114 procedure update_act_partner(p_api_version NUMBER
115 , p_init_msg_list VARCHAR2
116 , p_commit VARCHAR2
117 , p_validation_level NUMBER
118 , x_return_status out nocopy VARCHAR2
119 , x_msg_count out nocopy NUMBER
120 , x_msg_data out nocopy VARCHAR2
121 , p7_a0 NUMBER
122 , p7_a1 DATE
123 , p7_a2 NUMBER
124 , p7_a3 DATE
125 , p7_a4 NUMBER
126 , p7_a5 NUMBER
127 , p7_a6 NUMBER
128 , p7_a7 NUMBER
129 , p7_a8 VARCHAR2
130 , p7_a9 NUMBER
131 , p7_a10 VARCHAR2
132 , p7_a11 VARCHAR2
133 , p7_a12 VARCHAR2
134 , p7_a13 VARCHAR2
135 , p7_a14 NUMBER
136 , p7_a15 NUMBER
137 , p7_a16 NUMBER
138 , p7_a17 VARCHAR2
139 , p7_a18 VARCHAR2
140 , p7_a19 VARCHAR2
141 , p7_a20 VARCHAR2
142 , p7_a21 VARCHAR2
143 , p7_a22 VARCHAR2
144 , p7_a23 VARCHAR2
145 , p7_a24 VARCHAR2
146 , p7_a25 VARCHAR2
147 , p7_a26 VARCHAR2
148 , p7_a27 VARCHAR2
149 , p7_a28 VARCHAR2
150 , p7_a29 VARCHAR2
151 , p7_a30 VARCHAR2
152 , p7_a31 VARCHAR2
153 )
154
155 as
156 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
157 ddindx binary_integer; indx binary_integer;
158 begin
159
160 -- copy data to the local IN or IN-OUT args, if any
161
162
163
164
165
166
167
168 ddp_act_partner_rec.activity_partner_id := p7_a0;
169 ddp_act_partner_rec.last_update_date := p7_a1;
170 ddp_act_partner_rec.last_updated_by := p7_a2;
171 ddp_act_partner_rec.creation_date := p7_a3;
172 ddp_act_partner_rec.created_by := p7_a4;
173 ddp_act_partner_rec.last_update_login := p7_a5;
174 ddp_act_partner_rec.object_version_number := p7_a6;
175 ddp_act_partner_rec.act_partner_used_by_id := p7_a7;
176 ddp_act_partner_rec.arc_act_partner_used_by := p7_a8;
177 ddp_act_partner_rec.partner_id := p7_a9;
178 ddp_act_partner_rec.partner_type := p7_a10;
179 ddp_act_partner_rec.description := p7_a11;
180 ddp_act_partner_rec.attribute_category := p7_a12;
181 ddp_act_partner_rec.primary_flag := p7_a13;
182 ddp_act_partner_rec.preferred_vad_id := p7_a14;
183 ddp_act_partner_rec.partner_address_id := p7_a15;
184 ddp_act_partner_rec.primary_contact_id := p7_a16;
185 ddp_act_partner_rec.attribute1 := p7_a17;
186 ddp_act_partner_rec.attribute2 := p7_a18;
187 ddp_act_partner_rec.attribute3 := p7_a19;
188 ddp_act_partner_rec.attribute4 := p7_a20;
189 ddp_act_partner_rec.attribute5 := p7_a21;
190 ddp_act_partner_rec.attribute6 := p7_a22;
191 ddp_act_partner_rec.attribute7 := p7_a23;
192 ddp_act_partner_rec.attribute8 := p7_a24;
193 ddp_act_partner_rec.attribute9 := p7_a25;
194 ddp_act_partner_rec.attribute10 := p7_a26;
195 ddp_act_partner_rec.attribute11 := p7_a27;
196 ddp_act_partner_rec.attribute12 := p7_a28;
197 ddp_act_partner_rec.attribute13 := p7_a29;
198 ddp_act_partner_rec.attribute14 := p7_a30;
199 ddp_act_partner_rec.attribute15 := p7_a31;
200
201 -- here's the delegated call to the old PL/SQL routine
202 ams_actpartner_pvt.update_act_partner(p_api_version,
203 p_init_msg_list,
204 p_commit,
205 p_validation_level,
206 x_return_status,
207 x_msg_count,
208 x_msg_data,
209 ddp_act_partner_rec);
210
211 -- copy data back from the local variables to OUT or IN-OUT args, if any
212
213
214
215
216
217
218
219 end;
220
221 procedure validate_act_partner(p_api_version NUMBER
222 , p_init_msg_list VARCHAR2
223 , p_validation_level NUMBER
224 , x_return_status out nocopy VARCHAR2
225 , x_msg_count out nocopy NUMBER
226 , x_msg_data out nocopy VARCHAR2
227 , p6_a0 NUMBER
228 , p6_a1 DATE
229 , p6_a2 NUMBER
230 , p6_a3 DATE
231 , p6_a4 NUMBER
232 , p6_a5 NUMBER
233 , p6_a6 NUMBER
234 , p6_a7 NUMBER
235 , p6_a8 VARCHAR2
236 , p6_a9 NUMBER
237 , p6_a10 VARCHAR2
238 , p6_a11 VARCHAR2
239 , p6_a12 VARCHAR2
240 , p6_a13 VARCHAR2
241 , p6_a14 NUMBER
242 , p6_a15 NUMBER
243 , p6_a16 NUMBER
244 , p6_a17 VARCHAR2
245 , p6_a18 VARCHAR2
246 , p6_a19 VARCHAR2
247 , p6_a20 VARCHAR2
248 , p6_a21 VARCHAR2
249 , p6_a22 VARCHAR2
250 , p6_a23 VARCHAR2
251 , p6_a24 VARCHAR2
252 , p6_a25 VARCHAR2
253 , p6_a26 VARCHAR2
254 , p6_a27 VARCHAR2
255 , p6_a28 VARCHAR2
256 , p6_a29 VARCHAR2
257 , p6_a30 VARCHAR2
258 , p6_a31 VARCHAR2
259 )
260
261 as
262 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268
269
270
271
272
273 ddp_act_partner_rec.activity_partner_id := p6_a0;
274 ddp_act_partner_rec.last_update_date := p6_a1;
275 ddp_act_partner_rec.last_updated_by := p6_a2;
276 ddp_act_partner_rec.creation_date := p6_a3;
277 ddp_act_partner_rec.created_by := p6_a4;
278 ddp_act_partner_rec.last_update_login := p6_a5;
279 ddp_act_partner_rec.object_version_number := p6_a6;
280 ddp_act_partner_rec.act_partner_used_by_id := p6_a7;
281 ddp_act_partner_rec.arc_act_partner_used_by := p6_a8;
282 ddp_act_partner_rec.partner_id := p6_a9;
283 ddp_act_partner_rec.partner_type := p6_a10;
284 ddp_act_partner_rec.description := p6_a11;
285 ddp_act_partner_rec.attribute_category := p6_a12;
286 ddp_act_partner_rec.primary_flag := p6_a13;
287 ddp_act_partner_rec.preferred_vad_id := p6_a14;
288 ddp_act_partner_rec.partner_address_id := p6_a15;
289 ddp_act_partner_rec.primary_contact_id := p6_a16;
290 ddp_act_partner_rec.attribute1 := p6_a17;
291 ddp_act_partner_rec.attribute2 := p6_a18;
292 ddp_act_partner_rec.attribute3 := p6_a19;
293 ddp_act_partner_rec.attribute4 := p6_a20;
294 ddp_act_partner_rec.attribute5 := p6_a21;
295 ddp_act_partner_rec.attribute6 := p6_a22;
296 ddp_act_partner_rec.attribute7 := p6_a23;
297 ddp_act_partner_rec.attribute8 := p6_a24;
298 ddp_act_partner_rec.attribute9 := p6_a25;
299 ddp_act_partner_rec.attribute10 := p6_a26;
300 ddp_act_partner_rec.attribute11 := p6_a27;
301 ddp_act_partner_rec.attribute12 := p6_a28;
302 ddp_act_partner_rec.attribute13 := p6_a29;
303 ddp_act_partner_rec.attribute14 := p6_a30;
304 ddp_act_partner_rec.attribute15 := p6_a31;
305
306 -- here's the delegated call to the old PL/SQL routine
307 ams_actpartner_pvt.validate_act_partner(p_api_version,
308 p_init_msg_list,
309 p_validation_level,
310 x_return_status,
311 x_msg_count,
312 x_msg_data,
313 ddp_act_partner_rec);
314
315 -- copy data back from the local variables to OUT or IN-OUT args, if any
316
317
318
319
320
321
322 end;
323
324 procedure check_act_partner_items(p0_a0 NUMBER
325 , p0_a1 DATE
326 , p0_a2 NUMBER
327 , p0_a3 DATE
328 , p0_a4 NUMBER
329 , p0_a5 NUMBER
330 , p0_a6 NUMBER
331 , p0_a7 NUMBER
332 , p0_a8 VARCHAR2
333 , p0_a9 NUMBER
334 , p0_a10 VARCHAR2
335 , p0_a11 VARCHAR2
336 , p0_a12 VARCHAR2
337 , p0_a13 VARCHAR2
338 , p0_a14 NUMBER
339 , p0_a15 NUMBER
340 , p0_a16 NUMBER
341 , p0_a17 VARCHAR2
342 , p0_a18 VARCHAR2
343 , p0_a19 VARCHAR2
344 , p0_a20 VARCHAR2
345 , p0_a21 VARCHAR2
346 , p0_a22 VARCHAR2
347 , p0_a23 VARCHAR2
348 , p0_a24 VARCHAR2
349 , p0_a25 VARCHAR2
350 , p0_a26 VARCHAR2
351 , p0_a27 VARCHAR2
352 , p0_a28 VARCHAR2
353 , p0_a29 VARCHAR2
354 , p0_a30 VARCHAR2
355 , p0_a31 VARCHAR2
356 , p_validation_mode VARCHAR2
357 , x_return_status out nocopy VARCHAR2
358 )
359
360 as
361 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
362 ddindx binary_integer; indx binary_integer;
363 begin
364
365 -- copy data to the local IN or IN-OUT args, if any
366 ddp_act_partner_rec.activity_partner_id := p0_a0;
367 ddp_act_partner_rec.last_update_date := p0_a1;
368 ddp_act_partner_rec.last_updated_by := p0_a2;
369 ddp_act_partner_rec.creation_date := p0_a3;
370 ddp_act_partner_rec.created_by := p0_a4;
371 ddp_act_partner_rec.last_update_login := p0_a5;
372 ddp_act_partner_rec.object_version_number := p0_a6;
373 ddp_act_partner_rec.act_partner_used_by_id := p0_a7;
374 ddp_act_partner_rec.arc_act_partner_used_by := p0_a8;
375 ddp_act_partner_rec.partner_id := p0_a9;
376 ddp_act_partner_rec.partner_type := p0_a10;
377 ddp_act_partner_rec.description := p0_a11;
378 ddp_act_partner_rec.attribute_category := p0_a12;
379 ddp_act_partner_rec.primary_flag := p0_a13;
380 ddp_act_partner_rec.preferred_vad_id := p0_a14;
381 ddp_act_partner_rec.partner_address_id := p0_a15;
382 ddp_act_partner_rec.primary_contact_id := p0_a16;
383 ddp_act_partner_rec.attribute1 := p0_a17;
384 ddp_act_partner_rec.attribute2 := p0_a18;
385 ddp_act_partner_rec.attribute3 := p0_a19;
386 ddp_act_partner_rec.attribute4 := p0_a20;
387 ddp_act_partner_rec.attribute5 := p0_a21;
388 ddp_act_partner_rec.attribute6 := p0_a22;
389 ddp_act_partner_rec.attribute7 := p0_a23;
390 ddp_act_partner_rec.attribute8 := p0_a24;
391 ddp_act_partner_rec.attribute9 := p0_a25;
392 ddp_act_partner_rec.attribute10 := p0_a26;
393 ddp_act_partner_rec.attribute11 := p0_a27;
394 ddp_act_partner_rec.attribute12 := p0_a28;
395 ddp_act_partner_rec.attribute13 := p0_a29;
396 ddp_act_partner_rec.attribute14 := p0_a30;
397 ddp_act_partner_rec.attribute15 := p0_a31;
398
399
400
401 -- here's the delegated call to the old PL/SQL routine
402 ams_actpartner_pvt.check_act_partner_items(ddp_act_partner_rec,
403 p_validation_mode,
404 x_return_status);
405
406 -- copy data back from the local variables to OUT or IN-OUT args, if any
407
408
409 end;
410
411 procedure check_act_partner_record(p0_a0 NUMBER
412 , p0_a1 DATE
413 , p0_a2 NUMBER
414 , p0_a3 DATE
415 , p0_a4 NUMBER
416 , p0_a5 NUMBER
417 , p0_a6 NUMBER
418 , p0_a7 NUMBER
419 , p0_a8 VARCHAR2
420 , p0_a9 NUMBER
421 , p0_a10 VARCHAR2
422 , p0_a11 VARCHAR2
423 , p0_a12 VARCHAR2
424 , p0_a13 VARCHAR2
425 , p0_a14 NUMBER
426 , p0_a15 NUMBER
427 , p0_a16 NUMBER
428 , p0_a17 VARCHAR2
429 , p0_a18 VARCHAR2
430 , p0_a19 VARCHAR2
431 , p0_a20 VARCHAR2
432 , p0_a21 VARCHAR2
433 , p0_a22 VARCHAR2
434 , p0_a23 VARCHAR2
435 , p0_a24 VARCHAR2
436 , p0_a25 VARCHAR2
437 , p0_a26 VARCHAR2
438 , p0_a27 VARCHAR2
439 , p0_a28 VARCHAR2
440 , p0_a29 VARCHAR2
444 , p1_a1 DATE
441 , p0_a30 VARCHAR2
442 , p0_a31 VARCHAR2
443 , p1_a0 NUMBER
445 , p1_a2 NUMBER
446 , p1_a3 DATE
447 , p1_a4 NUMBER
448 , p1_a5 NUMBER
449 , p1_a6 NUMBER
450 , p1_a7 NUMBER
451 , p1_a8 VARCHAR2
452 , p1_a9 NUMBER
453 , p1_a10 VARCHAR2
454 , p1_a11 VARCHAR2
455 , p1_a12 VARCHAR2
456 , p1_a13 VARCHAR2
457 , p1_a14 NUMBER
458 , p1_a15 NUMBER
459 , p1_a16 NUMBER
460 , p1_a17 VARCHAR2
461 , p1_a18 VARCHAR2
462 , p1_a19 VARCHAR2
463 , p1_a20 VARCHAR2
464 , p1_a21 VARCHAR2
465 , p1_a22 VARCHAR2
466 , p1_a23 VARCHAR2
467 , p1_a24 VARCHAR2
468 , p1_a25 VARCHAR2
469 , p1_a26 VARCHAR2
470 , p1_a27 VARCHAR2
471 , p1_a28 VARCHAR2
472 , p1_a29 VARCHAR2
473 , p1_a30 VARCHAR2
474 , p1_a31 VARCHAR2
475 , x_return_status out nocopy VARCHAR2
476 )
477
478 as
479 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
480 ddp_complete_rec ams_actpartner_pvt.act_partner_rec_type;
481 ddindx binary_integer; indx binary_integer;
482 begin
483
484 -- copy data to the local IN or IN-OUT args, if any
485 ddp_act_partner_rec.activity_partner_id := p0_a0;
486 ddp_act_partner_rec.last_update_date := p0_a1;
487 ddp_act_partner_rec.last_updated_by := p0_a2;
488 ddp_act_partner_rec.creation_date := p0_a3;
489 ddp_act_partner_rec.created_by := p0_a4;
490 ddp_act_partner_rec.last_update_login := p0_a5;
491 ddp_act_partner_rec.object_version_number := p0_a6;
492 ddp_act_partner_rec.act_partner_used_by_id := p0_a7;
493 ddp_act_partner_rec.arc_act_partner_used_by := p0_a8;
494 ddp_act_partner_rec.partner_id := p0_a9;
495 ddp_act_partner_rec.partner_type := p0_a10;
496 ddp_act_partner_rec.description := p0_a11;
497 ddp_act_partner_rec.attribute_category := p0_a12;
498 ddp_act_partner_rec.primary_flag := p0_a13;
499 ddp_act_partner_rec.preferred_vad_id := p0_a14;
500 ddp_act_partner_rec.partner_address_id := p0_a15;
501 ddp_act_partner_rec.primary_contact_id := p0_a16;
502 ddp_act_partner_rec.attribute1 := p0_a17;
503 ddp_act_partner_rec.attribute2 := p0_a18;
504 ddp_act_partner_rec.attribute3 := p0_a19;
505 ddp_act_partner_rec.attribute4 := p0_a20;
506 ddp_act_partner_rec.attribute5 := p0_a21;
507 ddp_act_partner_rec.attribute6 := p0_a22;
508 ddp_act_partner_rec.attribute7 := p0_a23;
509 ddp_act_partner_rec.attribute8 := p0_a24;
510 ddp_act_partner_rec.attribute9 := p0_a25;
511 ddp_act_partner_rec.attribute10 := p0_a26;
512 ddp_act_partner_rec.attribute11 := p0_a27;
513 ddp_act_partner_rec.attribute12 := p0_a28;
514 ddp_act_partner_rec.attribute13 := p0_a29;
515 ddp_act_partner_rec.attribute14 := p0_a30;
516 ddp_act_partner_rec.attribute15 := p0_a31;
517
518 ddp_complete_rec.activity_partner_id := p1_a0;
519 ddp_complete_rec.last_update_date := p1_a1;
520 ddp_complete_rec.last_updated_by := p1_a2;
521 ddp_complete_rec.creation_date := p1_a3;
522 ddp_complete_rec.created_by := p1_a4;
523 ddp_complete_rec.last_update_login := p1_a5;
524 ddp_complete_rec.object_version_number := p1_a6;
525 ddp_complete_rec.act_partner_used_by_id := p1_a7;
526 ddp_complete_rec.arc_act_partner_used_by := p1_a8;
527 ddp_complete_rec.partner_id := p1_a9;
528 ddp_complete_rec.partner_type := p1_a10;
529 ddp_complete_rec.description := p1_a11;
530 ddp_complete_rec.attribute_category := p1_a12;
531 ddp_complete_rec.primary_flag := p1_a13;
532 ddp_complete_rec.preferred_vad_id := p1_a14;
533 ddp_complete_rec.partner_address_id := p1_a15;
534 ddp_complete_rec.primary_contact_id := p1_a16;
535 ddp_complete_rec.attribute1 := p1_a17;
536 ddp_complete_rec.attribute2 := p1_a18;
537 ddp_complete_rec.attribute3 := p1_a19;
538 ddp_complete_rec.attribute4 := p1_a20;
539 ddp_complete_rec.attribute5 := p1_a21;
540 ddp_complete_rec.attribute6 := p1_a22;
541 ddp_complete_rec.attribute7 := p1_a23;
542 ddp_complete_rec.attribute8 := p1_a24;
543 ddp_complete_rec.attribute9 := p1_a25;
544 ddp_complete_rec.attribute10 := p1_a26;
545 ddp_complete_rec.attribute11 := p1_a27;
546 ddp_complete_rec.attribute12 := p1_a28;
547 ddp_complete_rec.attribute13 := p1_a29;
548 ddp_complete_rec.attribute14 := p1_a30;
549 ddp_complete_rec.attribute15 := p1_a31;
550
551
552 -- here's the delegated call to the old PL/SQL routine
553 ams_actpartner_pvt.check_act_partner_record(ddp_act_partner_rec,
554 ddp_complete_rec,
555 x_return_status);
556
557 -- copy data back from the local variables to OUT or IN-OUT args, if any
558
559
560 end;
561
562 procedure init_act_partner_rec(p0_a0 out nocopy NUMBER
563 , p0_a1 out nocopy DATE
564 , p0_a2 out nocopy NUMBER
565 , p0_a3 out nocopy DATE
566 , p0_a4 out nocopy NUMBER
567 , p0_a5 out nocopy NUMBER
568 , p0_a6 out nocopy NUMBER
569 , p0_a7 out nocopy NUMBER
570 , p0_a8 out nocopy VARCHAR2
571 , p0_a9 out nocopy NUMBER
572 , p0_a10 out nocopy VARCHAR2
573 , p0_a11 out nocopy VARCHAR2
574 , p0_a12 out nocopy VARCHAR2
578 , p0_a16 out nocopy NUMBER
575 , p0_a13 out nocopy VARCHAR2
576 , p0_a14 out nocopy NUMBER
577 , p0_a15 out nocopy NUMBER
579 , p0_a17 out nocopy VARCHAR2
580 , p0_a18 out nocopy VARCHAR2
581 , p0_a19 out nocopy VARCHAR2
582 , p0_a20 out nocopy VARCHAR2
583 , p0_a21 out nocopy VARCHAR2
584 , p0_a22 out nocopy VARCHAR2
585 , p0_a23 out nocopy VARCHAR2
586 , p0_a24 out nocopy VARCHAR2
587 , p0_a25 out nocopy VARCHAR2
588 , p0_a26 out nocopy VARCHAR2
589 , p0_a27 out nocopy VARCHAR2
590 , p0_a28 out nocopy VARCHAR2
591 , p0_a29 out nocopy VARCHAR2
592 , p0_a30 out nocopy VARCHAR2
593 , p0_a31 out nocopy VARCHAR2
594 )
595
596 as
597 ddx_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
598 ddindx binary_integer; indx binary_integer;
599 begin
600
601 -- copy data to the local IN or IN-OUT args, if any
602
603 -- here's the delegated call to the old PL/SQL routine
604 ams_actpartner_pvt.init_act_partner_rec(ddx_act_partner_rec);
605
606 -- copy data back from the local variables to OUT or IN-OUT args, if any
607 p0_a0 := ddx_act_partner_rec.activity_partner_id;
608 p0_a1 := ddx_act_partner_rec.last_update_date;
609 p0_a2 := ddx_act_partner_rec.last_updated_by;
610 p0_a3 := ddx_act_partner_rec.creation_date;
611 p0_a4 := ddx_act_partner_rec.created_by;
612 p0_a5 := ddx_act_partner_rec.last_update_login;
613 p0_a6 := ddx_act_partner_rec.object_version_number;
614 p0_a7 := ddx_act_partner_rec.act_partner_used_by_id;
615 p0_a8 := ddx_act_partner_rec.arc_act_partner_used_by;
616 p0_a9 := ddx_act_partner_rec.partner_id;
617 p0_a10 := ddx_act_partner_rec.partner_type;
618 p0_a11 := ddx_act_partner_rec.description;
619 p0_a12 := ddx_act_partner_rec.attribute_category;
620 p0_a13 := ddx_act_partner_rec.primary_flag;
621 p0_a14 := ddx_act_partner_rec.preferred_vad_id;
622 p0_a15 := ddx_act_partner_rec.partner_address_id;
623 p0_a16 := ddx_act_partner_rec.primary_contact_id;
624 p0_a17 := ddx_act_partner_rec.attribute1;
625 p0_a18 := ddx_act_partner_rec.attribute2;
626 p0_a19 := ddx_act_partner_rec.attribute3;
627 p0_a20 := ddx_act_partner_rec.attribute4;
628 p0_a21 := ddx_act_partner_rec.attribute5;
629 p0_a22 := ddx_act_partner_rec.attribute6;
630 p0_a23 := ddx_act_partner_rec.attribute7;
631 p0_a24 := ddx_act_partner_rec.attribute8;
632 p0_a25 := ddx_act_partner_rec.attribute9;
633 p0_a26 := ddx_act_partner_rec.attribute10;
634 p0_a27 := ddx_act_partner_rec.attribute11;
635 p0_a28 := ddx_act_partner_rec.attribute12;
636 p0_a29 := ddx_act_partner_rec.attribute13;
637 p0_a30 := ddx_act_partner_rec.attribute14;
638 p0_a31 := ddx_act_partner_rec.attribute15;
639 end;
640
641 procedure complete_act_partner_rec(p0_a0 NUMBER
642 , p0_a1 DATE
643 , p0_a2 NUMBER
644 , p0_a3 DATE
645 , p0_a4 NUMBER
646 , p0_a5 NUMBER
647 , p0_a6 NUMBER
648 , p0_a7 NUMBER
649 , p0_a8 VARCHAR2
650 , p0_a9 NUMBER
651 , p0_a10 VARCHAR2
652 , p0_a11 VARCHAR2
653 , p0_a12 VARCHAR2
654 , p0_a13 VARCHAR2
655 , p0_a14 NUMBER
656 , p0_a15 NUMBER
657 , p0_a16 NUMBER
658 , p0_a17 VARCHAR2
659 , p0_a18 VARCHAR2
660 , p0_a19 VARCHAR2
661 , p0_a20 VARCHAR2
662 , p0_a21 VARCHAR2
663 , p0_a22 VARCHAR2
664 , p0_a23 VARCHAR2
665 , p0_a24 VARCHAR2
666 , p0_a25 VARCHAR2
667 , p0_a26 VARCHAR2
668 , p0_a27 VARCHAR2
669 , p0_a28 VARCHAR2
670 , p0_a29 VARCHAR2
671 , p0_a30 VARCHAR2
672 , p0_a31 VARCHAR2
673 , p1_a0 out nocopy NUMBER
674 , p1_a1 out nocopy DATE
675 , p1_a2 out nocopy NUMBER
676 , p1_a3 out nocopy DATE
677 , p1_a4 out nocopy NUMBER
678 , p1_a5 out nocopy NUMBER
679 , p1_a6 out nocopy NUMBER
680 , p1_a7 out nocopy NUMBER
681 , p1_a8 out nocopy VARCHAR2
682 , p1_a9 out nocopy NUMBER
683 , p1_a10 out nocopy VARCHAR2
684 , p1_a11 out nocopy VARCHAR2
685 , p1_a12 out nocopy VARCHAR2
686 , p1_a13 out nocopy VARCHAR2
687 , p1_a14 out nocopy NUMBER
688 , p1_a15 out nocopy NUMBER
689 , p1_a16 out nocopy NUMBER
690 , p1_a17 out nocopy VARCHAR2
691 , p1_a18 out nocopy VARCHAR2
692 , p1_a19 out nocopy VARCHAR2
693 , p1_a20 out nocopy VARCHAR2
694 , p1_a21 out nocopy VARCHAR2
695 , p1_a22 out nocopy VARCHAR2
696 , p1_a23 out nocopy VARCHAR2
697 , p1_a24 out nocopy VARCHAR2
698 , p1_a25 out nocopy VARCHAR2
699 , p1_a26 out nocopy VARCHAR2
700 , p1_a27 out nocopy VARCHAR2
701 , p1_a28 out nocopy VARCHAR2
702 , p1_a29 out nocopy VARCHAR2
703 , p1_a30 out nocopy VARCHAR2
704 , p1_a31 out nocopy VARCHAR2
705 )
706
707 as
708 ddp_act_partner_rec ams_actpartner_pvt.act_partner_rec_type;
709 ddx_complete_rec ams_actpartner_pvt.act_partner_rec_type;
710 ddindx binary_integer; indx binary_integer;
711 begin
712
713 -- copy data to the local IN or IN-OUT args, if any
714 ddp_act_partner_rec.activity_partner_id := p0_a0;
718 ddp_act_partner_rec.created_by := p0_a4;
715 ddp_act_partner_rec.last_update_date := p0_a1;
716 ddp_act_partner_rec.last_updated_by := p0_a2;
717 ddp_act_partner_rec.creation_date := p0_a3;
719 ddp_act_partner_rec.last_update_login := p0_a5;
720 ddp_act_partner_rec.object_version_number := p0_a6;
721 ddp_act_partner_rec.act_partner_used_by_id := p0_a7;
722 ddp_act_partner_rec.arc_act_partner_used_by := p0_a8;
723 ddp_act_partner_rec.partner_id := p0_a9;
724 ddp_act_partner_rec.partner_type := p0_a10;
725 ddp_act_partner_rec.description := p0_a11;
726 ddp_act_partner_rec.attribute_category := p0_a12;
727 ddp_act_partner_rec.primary_flag := p0_a13;
728 ddp_act_partner_rec.preferred_vad_id := p0_a14;
729 ddp_act_partner_rec.partner_address_id := p0_a15;
730 ddp_act_partner_rec.primary_contact_id := p0_a16;
731 ddp_act_partner_rec.attribute1 := p0_a17;
732 ddp_act_partner_rec.attribute2 := p0_a18;
733 ddp_act_partner_rec.attribute3 := p0_a19;
734 ddp_act_partner_rec.attribute4 := p0_a20;
735 ddp_act_partner_rec.attribute5 := p0_a21;
736 ddp_act_partner_rec.attribute6 := p0_a22;
737 ddp_act_partner_rec.attribute7 := p0_a23;
738 ddp_act_partner_rec.attribute8 := p0_a24;
739 ddp_act_partner_rec.attribute9 := p0_a25;
740 ddp_act_partner_rec.attribute10 := p0_a26;
741 ddp_act_partner_rec.attribute11 := p0_a27;
742 ddp_act_partner_rec.attribute12 := p0_a28;
743 ddp_act_partner_rec.attribute13 := p0_a29;
744 ddp_act_partner_rec.attribute14 := p0_a30;
745 ddp_act_partner_rec.attribute15 := p0_a31;
746
747
748 -- here's the delegated call to the old PL/SQL routine
749 ams_actpartner_pvt.complete_act_partner_rec(ddp_act_partner_rec,
750 ddx_complete_rec);
751
752 -- copy data back from the local variables to OUT or IN-OUT args, if any
753
754 p1_a0 := ddx_complete_rec.activity_partner_id;
755 p1_a1 := ddx_complete_rec.last_update_date;
756 p1_a2 := ddx_complete_rec.last_updated_by;
757 p1_a3 := ddx_complete_rec.creation_date;
758 p1_a4 := ddx_complete_rec.created_by;
759 p1_a5 := ddx_complete_rec.last_update_login;
760 p1_a6 := ddx_complete_rec.object_version_number;
761 p1_a7 := ddx_complete_rec.act_partner_used_by_id;
762 p1_a8 := ddx_complete_rec.arc_act_partner_used_by;
763 p1_a9 := ddx_complete_rec.partner_id;
764 p1_a10 := ddx_complete_rec.partner_type;
765 p1_a11 := ddx_complete_rec.description;
766 p1_a12 := ddx_complete_rec.attribute_category;
767 p1_a13 := ddx_complete_rec.primary_flag;
768 p1_a14 := ddx_complete_rec.preferred_vad_id;
769 p1_a15 := ddx_complete_rec.partner_address_id;
770 p1_a16 := ddx_complete_rec.primary_contact_id;
771 p1_a17 := ddx_complete_rec.attribute1;
772 p1_a18 := ddx_complete_rec.attribute2;
773 p1_a19 := ddx_complete_rec.attribute3;
774 p1_a20 := ddx_complete_rec.attribute4;
775 p1_a21 := ddx_complete_rec.attribute5;
776 p1_a22 := ddx_complete_rec.attribute6;
777 p1_a23 := ddx_complete_rec.attribute7;
778 p1_a24 := ddx_complete_rec.attribute8;
779 p1_a25 := ddx_complete_rec.attribute9;
780 p1_a26 := ddx_complete_rec.attribute10;
781 p1_a27 := ddx_complete_rec.attribute11;
782 p1_a28 := ddx_complete_rec.attribute12;
783 p1_a29 := ddx_complete_rec.attribute13;
784 p1_a30 := ddx_complete_rec.attribute14;
785 p1_a31 := ddx_complete_rec.attribute15;
786 end;
787
788 end ams_actpartner_pvt_w;