[Home] [Help]
PACKAGE BODY: APPS.AMS_COPYACTIVITIES_PVT_W
Source
1 package body ams_copyactivities_pvt_w as
2 /* $Header: amsacpab.pls 120.0 2005/08/10 00:02:13 appldev noship $ */
3 procedure copy_campaign(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , x_campaign_id out nocopy NUMBER
9 , p_src_camp_id NUMBER
10 , p_new_camp_name VARCHAR2
11 , p_par_camp_id NUMBER
12 , p_source_code VARCHAR2
13 , p10_a0 VARCHAR2
14 , p10_a1 VARCHAR2
15 , p10_a2 VARCHAR2
16 , p10_a3 VARCHAR2
17 , p10_a4 VARCHAR2
18 , p10_a5 VARCHAR2
19 , p10_a6 VARCHAR2
20 , p10_a7 VARCHAR2
21 , p10_a8 VARCHAR2
22 , p10_a9 VARCHAR2
23 , p10_a10 VARCHAR2
24 , p10_a11 VARCHAR2
25 , p10_a12 VARCHAR2
26 , p_end_date DATE
27 , p_start_date DATE
28 )
29
30 as
31 ddp_camp_elements_rec ams_copyactivities_pvt.camp_elements_rec_type;
32 ddindx binary_integer; indx binary_integer;
33 begin
34
35 -- copy data to the local IN or IN-OUT args, if any
36
37
38
39
40
41
42
43
44
45
46 ddp_camp_elements_rec.p_access := p10_a0;
47 ddp_camp_elements_rec.p_geo_areas := p10_a1;
48 ddp_camp_elements_rec.p_products := p10_a2;
49 ddp_camp_elements_rec.p_sub_camp := p10_a3;
50 ddp_camp_elements_rec.p_offers := p10_a4;
51 ddp_camp_elements_rec.p_attachments := p10_a5;
52 ddp_camp_elements_rec.p_messages := p10_a6;
53 ddp_camp_elements_rec.p_obj_asso := p10_a7;
54 ddp_camp_elements_rec.p_segments := p10_a8;
55 ddp_camp_elements_rec.p_resources := p10_a9;
56 ddp_camp_elements_rec.p_tasks := p10_a10;
57 ddp_camp_elements_rec.p_partners := p10_a11;
58 ddp_camp_elements_rec.p_camp_sch := p10_a12;
59
60
61
62 -- here's the delegated call to the old PL/SQL routine
63 ams_copyactivities_pvt.copy_campaign(p_api_version,
64 p_init_msg_list,
65 x_return_status,
66 x_msg_count,
67 x_msg_data,
68 x_campaign_id,
69 p_src_camp_id,
70 p_new_camp_name,
71 p_par_camp_id,
72 p_source_code,
73 ddp_camp_elements_rec,
74 p_end_date,
75 p_start_date);
76
77 -- copy data back from the local variables to OUT or IN-OUT args, if any
78
79
80
81
82
83
84
85
86
87
88
89
90 end;
91
92 procedure copy_campaign(p_api_version NUMBER
93 , p_init_msg_list VARCHAR2
94 , x_return_status out nocopy VARCHAR2
95 , x_msg_count out nocopy NUMBER
96 , x_msg_data out nocopy VARCHAR2
97 , x_campaign_id out nocopy NUMBER
98 , p_src_camp_id NUMBER
99 , p_new_camp_name VARCHAR2
100 , p_par_camp_id NUMBER
101 , p_source_code VARCHAR2
102 , p10_a0 VARCHAR2
103 , p10_a1 VARCHAR2
104 , p10_a2 VARCHAR2
105 , p10_a3 VARCHAR2
106 , p10_a4 VARCHAR2
107 , p10_a5 VARCHAR2
108 , p10_a6 VARCHAR2
109 , p10_a7 VARCHAR2
110 , p10_a8 VARCHAR2
111 , p10_a9 VARCHAR2
112 , p10_a10 VARCHAR2
113 , p10_a11 VARCHAR2
114 , p10_a12 VARCHAR2
115 , p_end_date DATE
116 , p_start_date DATE
117 , x_transaction_id out nocopy NUMBER
118 )
119
120 as
121 ddp_camp_elements_rec ams_copyactivities_pvt.camp_elements_rec_type;
122 ddindx binary_integer; indx binary_integer;
123 begin
124
125 -- copy data to the local IN or IN-OUT args, if any
126
127
128
129
130
131
132
133
134
135
136 ddp_camp_elements_rec.p_access := p10_a0;
137 ddp_camp_elements_rec.p_geo_areas := p10_a1;
138 ddp_camp_elements_rec.p_products := p10_a2;
139 ddp_camp_elements_rec.p_sub_camp := p10_a3;
140 ddp_camp_elements_rec.p_offers := p10_a4;
141 ddp_camp_elements_rec.p_attachments := p10_a5;
142 ddp_camp_elements_rec.p_messages := p10_a6;
143 ddp_camp_elements_rec.p_obj_asso := p10_a7;
144 ddp_camp_elements_rec.p_segments := p10_a8;
145 ddp_camp_elements_rec.p_resources := p10_a9;
146 ddp_camp_elements_rec.p_tasks := p10_a10;
147 ddp_camp_elements_rec.p_partners := p10_a11;
148 ddp_camp_elements_rec.p_camp_sch := p10_a12;
149
150
151
152
153 -- here's the delegated call to the old PL/SQL routine
154 ams_copyactivities_pvt.copy_campaign(p_api_version,
155 p_init_msg_list,
156 x_return_status,
157 x_msg_count,
158 x_msg_data,
159 x_campaign_id,
160 p_src_camp_id,
161 p_new_camp_name,
162 p_par_camp_id,
163 p_source_code,
164 ddp_camp_elements_rec,
165 p_end_date,
166 p_start_date,
167 x_transaction_id);
168
169 -- copy data back from the local variables to OUT or IN-OUT args, if any
170
171
172
173
174
175
176
177
178
179
180
181
182
183 end;
184
185 procedure copy_event_header(p_api_version NUMBER
186 , p_init_msg_list VARCHAR2
187 , x_return_status out nocopy VARCHAR2
188 , x_msg_count out nocopy NUMBER
189 , x_msg_data out nocopy VARCHAR2
190 , x_eveh_id out nocopy NUMBER
191 , p_src_eveh_id NUMBER
192 , p_new_eveh_name VARCHAR2
193 , p_par_eveh_id NUMBER
194 , p9_a0 VARCHAR2
195 , p9_a1 VARCHAR2
196 , p9_a2 VARCHAR2
197 , p9_a3 VARCHAR2
198 , p9_a4 VARCHAR2
199 , p9_a5 VARCHAR2
200 , p9_a6 VARCHAR2
201 , p9_a7 VARCHAR2
202 , p9_a8 VARCHAR2
203 , p9_a9 VARCHAR2
204 , p_start_date DATE
205 , p_end_date DATE
206 , p_source_code VARCHAR2
207 )
208
209 as
210 ddp_eveh_elements_rec ams_copyactivities_pvt.eveh_elements_rec_type;
211 ddindx binary_integer; indx binary_integer;
212 begin
213
214 -- copy data to the local IN or IN-OUT args, if any
215
216
217
218
219
220
221
222
223
224 ddp_eveh_elements_rec.p_products := p9_a0;
225 ddp_eveh_elements_rec.p_sub_eveh := p9_a1;
226 ddp_eveh_elements_rec.p_attachments := p9_a2;
227 ddp_eveh_elements_rec.p_offers := p9_a3;
228 ddp_eveh_elements_rec.p_messages := p9_a4;
229 ddp_eveh_elements_rec.p_resources := p9_a5;
230 ddp_eveh_elements_rec.p_obj_asso := p9_a6;
231 ddp_eveh_elements_rec.p_geo_areas := p9_a7;
232 ddp_eveh_elements_rec.p_event_offer := p9_a8;
233 ddp_eveh_elements_rec.p_segments := p9_a9;
234
235
236
237
238 -- here's the delegated call to the old PL/SQL routine
239 ams_copyactivities_pvt.copy_event_header(p_api_version,
240 p_init_msg_list,
241 x_return_status,
242 x_msg_count,
243 x_msg_data,
244 x_eveh_id,
245 p_src_eveh_id,
246 p_new_eveh_name,
247 p_par_eveh_id,
248 ddp_eveh_elements_rec,
249 p_start_date,
250 p_end_date,
251 p_source_code);
252
253 -- copy data back from the local variables to OUT or IN-OUT args, if any
254
255
256
257
258
259
260
261
262
263
264
265
266 end;
267
268 procedure copy_event_offer(p_api_version NUMBER
269 , p_init_msg_list VARCHAR2
270 , x_return_status out nocopy VARCHAR2
271 , x_msg_count out nocopy NUMBER
272 , x_msg_data out nocopy VARCHAR2
273 , x_eveo_id out nocopy NUMBER
274 , p_src_eveo_id NUMBER
275 , p_event_header_id NUMBER
276 , p_new_eveo_name VARCHAR2
277 , p_par_eveo_id NUMBER
278 , p10_a0 VARCHAR2
279 , p10_a1 VARCHAR2
280 , p10_a2 VARCHAR2
281 , p10_a3 VARCHAR2
282 , p10_a4 VARCHAR2
283 , p10_a5 VARCHAR2
284 , p10_a6 VARCHAR2
285 , p10_a7 VARCHAR2
286 , p10_a8 VARCHAR2
287 , p_start_date DATE
288 , p_end_date DATE
289 , p_source_code VARCHAR2
290 )
291
292 as
293 ddp_eveo_elements_rec ams_copyactivities_pvt.eveo_elements_rec_type;
294 ddindx binary_integer; indx binary_integer;
295 begin
296
297 -- copy data to the local IN or IN-OUT args, if any
298
299
300
301
302
303
304
305
306
307
308 ddp_eveo_elements_rec.p_geo_areas := p10_a0;
309 ddp_eveo_elements_rec.p_products := p10_a1;
310 ddp_eveo_elements_rec.p_segments := p10_a2;
311 ddp_eveo_elements_rec.p_sub_eveo := p10_a3;
312 ddp_eveo_elements_rec.p_attachments := p10_a4;
313 ddp_eveo_elements_rec.p_resources := p10_a5;
314 ddp_eveo_elements_rec.p_offers := p10_a6;
315 ddp_eveo_elements_rec.p_messages := p10_a7;
316 ddp_eveo_elements_rec.p_obj_asso := p10_a8;
317
318
319
320
321 -- here's the delegated call to the old PL/SQL routine
322 ams_copyactivities_pvt.copy_event_offer(p_api_version,
323 p_init_msg_list,
324 x_return_status,
325 x_msg_count,
326 x_msg_data,
327 x_eveo_id,
328 p_src_eveo_id,
329 p_event_header_id,
330 p_new_eveo_name,
331 p_par_eveo_id,
332 ddp_eveo_elements_rec,
333 p_start_date,
334 p_end_date,
335 p_source_code);
336
337 -- copy data back from the local variables to OUT or IN-OUT args, if any
338
339
340
341
342
343
344
345
346
347
348
349
350
351 end;
352
353 procedure copy_deliverables(p_api_version NUMBER
354 , p_init_msg_list VARCHAR2
355 , x_return_status out nocopy VARCHAR2
356 , x_msg_count out nocopy NUMBER
357 , x_msg_data out nocopy VARCHAR2
358 , x_deliverable_id out nocopy NUMBER
359 , p_src_deliv_id NUMBER
360 , p_new_deliv_name VARCHAR2
361 , p_new_deliv_code VARCHAR2
362 , p9_a0 VARCHAR2
363 , p9_a1 VARCHAR2
364 , p9_a2 VARCHAR2
365 , p9_a3 VARCHAR2
366 , p9_a4 VARCHAR2
367 , p9_a5 VARCHAR2
368 , p9_a6 VARCHAR2
369 , p9_a7 VARCHAR2
370 , p9_a8 VARCHAR2
371 , p_new_version VARCHAR2
372 )
373
374 as
375 ddp_deli_elements_rec ams_copyactivities_pvt.deli_elements_rec_type;
376 ddindx binary_integer; indx binary_integer;
377 begin
378
379 -- copy data to the local IN or IN-OUT args, if any
380
381
382
383
384
385
386
387
388
389 ddp_deli_elements_rec.p_attachments := p9_a0;
390 ddp_deli_elements_rec.p_kitflag := p9_a1;
391 ddp_deli_elements_rec.p_access := p9_a2;
392 ddp_deli_elements_rec.p_products := p9_a3;
393 ddp_deli_elements_rec.p_offers := p9_a4;
394 ddp_deli_elements_rec.p_obj_asso := p9_a5;
395 ddp_deli_elements_rec.p_bus_party := p9_a6;
396 ddp_deli_elements_rec.p_geo_areas := p9_a7;
397 ddp_deli_elements_rec.p_categories := p9_a8;
398
399
400 -- here's the delegated call to the old PL/SQL routine
401 ams_copyactivities_pvt.copy_deliverables(p_api_version,
402 p_init_msg_list,
403 x_return_status,
404 x_msg_count,
405 x_msg_data,
406 x_deliverable_id,
407 p_src_deliv_id,
408 p_new_deliv_name,
409 p_new_deliv_code,
410 ddp_deli_elements_rec,
411 p_new_version);
412
413 -- copy data back from the local variables to OUT or IN-OUT args, if any
414
415
416
417
418
419
420
421
422
423
424 end;
425
426 procedure copy_event_header(p_api_version NUMBER
427 , p_init_msg_list VARCHAR2
428 , x_return_status out nocopy VARCHAR2
429 , x_msg_count out nocopy NUMBER
430 , x_msg_data out nocopy VARCHAR2
431 , x_eveh_id out nocopy NUMBER
432 , p_src_eveh_id NUMBER
433 , p_new_eveh_name VARCHAR2
434 , p_par_eveh_id NUMBER
435 , p9_a0 VARCHAR2
436 , p9_a1 VARCHAR2
437 , p9_a2 VARCHAR2
438 , p9_a3 VARCHAR2
439 , p9_a4 VARCHAR2
440 , p9_a5 VARCHAR2
441 , p9_a6 VARCHAR2
442 , p9_a7 VARCHAR2
443 , p9_a8 VARCHAR2
444 , p9_a9 VARCHAR2
445 , p_start_date DATE
446 , p_end_date DATE
447 , x_transaction_id out nocopy NUMBER
448 , p_source_code VARCHAR2
449 )
450
451 as
452 ddp_eveh_elements_rec ams_copyactivities_pvt.eveh_elements_rec_type;
453 ddindx binary_integer; indx binary_integer;
454 begin
455
456 -- copy data to the local IN or IN-OUT args, if any
457
458
459
460
461
462
463
464
465
466 ddp_eveh_elements_rec.p_products := p9_a0;
467 ddp_eveh_elements_rec.p_sub_eveh := p9_a1;
468 ddp_eveh_elements_rec.p_attachments := p9_a2;
469 ddp_eveh_elements_rec.p_offers := p9_a3;
470 ddp_eveh_elements_rec.p_messages := p9_a4;
471 ddp_eveh_elements_rec.p_resources := p9_a5;
472 ddp_eveh_elements_rec.p_obj_asso := p9_a6;
473 ddp_eveh_elements_rec.p_geo_areas := p9_a7;
474 ddp_eveh_elements_rec.p_event_offer := p9_a8;
475 ddp_eveh_elements_rec.p_segments := p9_a9;
476
477
478
479
480
481 -- here's the delegated call to the old PL/SQL routine
482 ams_copyactivities_pvt.copy_event_header(p_api_version,
483 p_init_msg_list,
484 x_return_status,
485 x_msg_count,
486 x_msg_data,
487 x_eveh_id,
488 p_src_eveh_id,
489 p_new_eveh_name,
490 p_par_eveh_id,
491 ddp_eveh_elements_rec,
492 p_start_date,
493 p_end_date,
494 x_transaction_id,
495 p_source_code);
496
497 -- copy data back from the local variables to OUT or IN-OUT args, if any
498
499
500
501
502
503
504
505
506
507
508
509
510
511 end;
512
513 procedure copy_event_offer(p_api_version NUMBER
514 , p_init_msg_list VARCHAR2
515 , x_return_status out nocopy VARCHAR2
516 , x_msg_count out nocopy NUMBER
517 , x_msg_data out nocopy VARCHAR2
518 , x_eveo_id out nocopy NUMBER
519 , p_src_eveo_id NUMBER
520 , p_event_header_id NUMBER
521 , p_new_eveo_name VARCHAR2
522 , p_par_eveo_id NUMBER
523 , p10_a0 VARCHAR2
524 , p10_a1 VARCHAR2
525 , p10_a2 VARCHAR2
526 , p10_a3 VARCHAR2
527 , p10_a4 VARCHAR2
528 , p10_a5 VARCHAR2
529 , p10_a6 VARCHAR2
530 , p10_a7 VARCHAR2
531 , p10_a8 VARCHAR2
532 , p_start_date DATE
533 , p_end_date DATE
534 , x_transaction_id out nocopy NUMBER
535 , p_source_code VARCHAR2
536 )
537
538 as
539 ddp_eveo_elements_rec ams_copyactivities_pvt.eveo_elements_rec_type;
540 ddindx binary_integer; indx binary_integer;
541 begin
542
543 -- copy data to the local IN or IN-OUT args, if any
544
545
546
547
548
549
550
551
552
553
554 ddp_eveo_elements_rec.p_geo_areas := p10_a0;
555 ddp_eveo_elements_rec.p_products := p10_a1;
556 ddp_eveo_elements_rec.p_segments := p10_a2;
557 ddp_eveo_elements_rec.p_sub_eveo := p10_a3;
558 ddp_eveo_elements_rec.p_attachments := p10_a4;
559 ddp_eveo_elements_rec.p_resources := p10_a5;
560 ddp_eveo_elements_rec.p_offers := p10_a6;
561 ddp_eveo_elements_rec.p_messages := p10_a7;
562 ddp_eveo_elements_rec.p_obj_asso := p10_a8;
563
564
565
566
567
568 -- here's the delegated call to the old PL/SQL routine
569 ams_copyactivities_pvt.copy_event_offer(p_api_version,
570 p_init_msg_list,
571 x_return_status,
572 x_msg_count,
573 x_msg_data,
574 x_eveo_id,
575 p_src_eveo_id,
576 p_event_header_id,
577 p_new_eveo_name,
578 p_par_eveo_id,
579 ddp_eveo_elements_rec,
580 p_start_date,
581 p_end_date,
582 x_transaction_id,
583 p_source_code);
584
585 -- copy data back from the local variables to OUT or IN-OUT args, if any
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600 end;
601
602 procedure copy_deliverables(p_api_version NUMBER
603 , p_init_msg_list VARCHAR2
604 , x_return_status out nocopy VARCHAR2
605 , x_msg_count out nocopy NUMBER
606 , x_msg_data out nocopy VARCHAR2
607 , x_deliverable_id out nocopy NUMBER
608 , p_src_deliv_id NUMBER
609 , p_new_deliv_name VARCHAR2
610 , p_new_deliv_code VARCHAR2
611 , p9_a0 VARCHAR2
612 , p9_a1 VARCHAR2
613 , p9_a2 VARCHAR2
614 , p9_a3 VARCHAR2
615 , p9_a4 VARCHAR2
616 , p9_a5 VARCHAR2
617 , p9_a6 VARCHAR2
618 , p9_a7 VARCHAR2
619 , p9_a8 VARCHAR2
620 , p_new_version VARCHAR2
621 , x_transaction_id out nocopy NUMBER
622 )
623
624 as
625 ddp_deli_elements_rec ams_copyactivities_pvt.deli_elements_rec_type;
626 ddindx binary_integer; indx binary_integer;
627 begin
628
629 -- copy data to the local IN or IN-OUT args, if any
630
631
632
633
634
635
636
637
638
639 ddp_deli_elements_rec.p_attachments := p9_a0;
640 ddp_deli_elements_rec.p_kitflag := p9_a1;
641 ddp_deli_elements_rec.p_access := p9_a2;
642 ddp_deli_elements_rec.p_products := p9_a3;
643 ddp_deli_elements_rec.p_offers := p9_a4;
644 ddp_deli_elements_rec.p_obj_asso := p9_a5;
645 ddp_deli_elements_rec.p_bus_party := p9_a6;
646 ddp_deli_elements_rec.p_geo_areas := p9_a7;
647 ddp_deli_elements_rec.p_categories := p9_a8;
648
649
650
651 -- here's the delegated call to the old PL/SQL routine
652 ams_copyactivities_pvt.copy_deliverables(p_api_version,
653 p_init_msg_list,
654 x_return_status,
655 x_msg_count,
656 x_msg_data,
657 x_deliverable_id,
658 p_src_deliv_id,
659 p_new_deliv_name,
660 p_new_deliv_code,
661 ddp_deli_elements_rec,
662 p_new_version,
663 x_transaction_id);
664
665 -- copy data back from the local variables to OUT or IN-OUT args, if any
666
667
668
669
670
671
672
673
674
675
676
677 end;
678
679 procedure copy_schedule_attributes(p_api_version NUMBER
680 , p_init_msg_list VARCHAR2
681 , p_commit VARCHAR2
682 , x_return_status out nocopy VARCHAR2
683 , x_msg_count out nocopy NUMBER
684 , x_msg_data out nocopy VARCHAR2
685 , p_object_type VARCHAR2
686 , p_src_object_id NUMBER
687 , p_tar_object_id NUMBER
688 , p9_a0 VARCHAR2
689 , p9_a1 VARCHAR2
690 , p9_a2 VARCHAR2
691 , p9_a3 VARCHAR2
692 , p9_a4 VARCHAR2
693 , p9_a5 VARCHAR2
694 , p9_a6 VARCHAR2
695 , p9_a7 VARCHAR2
696 , p9_a8 VARCHAR2
697 , p9_a9 VARCHAR2
698 , p9_a10 VARCHAR2
699 , p9_a11 VARCHAR2
700 )
701
702 as
703 ddp_attr_list ams_copyactivities_pvt.schedule_attr_rec_type;
704 ddindx binary_integer; indx binary_integer;
705 begin
706
707 -- copy data to the local IN or IN-OUT args, if any
708
709
710
711
712
713
714
715
716
717 ddp_attr_list.p_agen := p9_a0;
718 ddp_attr_list.p_atch := p9_a1;
719 ddp_attr_list.p_catg := p9_a2;
720 ddp_attr_list.p_cell := p9_a3;
721 ddp_attr_list.p_delv := p9_a4;
722 ddp_attr_list.p_mesg := p9_a5;
723 ddp_attr_list.p_prod := p9_a6;
724 ddp_attr_list.p_ptnr := p9_a7;
725 ddp_attr_list.p_regs := p9_a8;
726 ddp_attr_list.p_content := p9_a9;
727 ddp_attr_list.p_tgrp := p9_a10;
728 ddp_attr_list.p_colt := p9_a11;
729
730 -- here's the delegated call to the old PL/SQL routine
731 ams_copyactivities_pvt.copy_schedule_attributes(p_api_version,
732 p_init_msg_list,
733 p_commit,
734 x_return_status,
735 x_msg_count,
736 x_msg_data,
737 p_object_type,
738 p_src_object_id,
739 p_tar_object_id,
740 ddp_attr_list);
741
742 -- copy data back from the local variables to OUT or IN-OUT args, if any
743
744
745
746
747
748
749
750
751
752 end;
753
754 procedure copy_campaign_new(p_api_version NUMBER
755 , p_init_msg_list VARCHAR2
756 , p_commit VARCHAR2
757 , p_validation_level NUMBER
758 , x_return_status out nocopy VARCHAR2
759 , x_msg_count out nocopy NUMBER
760 , x_msg_data out nocopy VARCHAR2
761 , p_source_object_id NUMBER
762 , p_attributes_table JTF_VARCHAR2_TABLE_100
763 , p9_a0 JTF_VARCHAR2_TABLE_100
764 , p9_a1 JTF_VARCHAR2_TABLE_4000
765 , x_new_object_id out nocopy NUMBER
766 , x_custom_setup_id out nocopy NUMBER
767 )
768
769 as
770 ddp_attributes_table ams_cpyutility_pvt.copy_attributes_table_type;
771 ddp_copy_columns_table ams_cpyutility_pvt.copy_columns_table_type;
772 ddindx binary_integer; indx binary_integer;
773 begin
774
775 -- copy data to the local IN or IN-OUT args, if any
776
777
778
779
780
781
782
783
784 ams_cpyutility_pvt_w.rosetta_table_copy_in_p0(ddp_attributes_table, p_attributes_table);
785
786 ams_cpyutility_pvt_w.rosetta_table_copy_in_p2(ddp_copy_columns_table, p9_a0
787 , p9_a1
788 );
789
790
791
792 -- here's the delegated call to the old PL/SQL routine
793 ams_copyactivities_pvt.copy_campaign_new(p_api_version,
794 p_init_msg_list,
795 p_commit,
796 p_validation_level,
797 x_return_status,
798 x_msg_count,
799 x_msg_data,
800 p_source_object_id,
801 ddp_attributes_table,
802 ddp_copy_columns_table,
803 x_new_object_id,
804 x_custom_setup_id);
805
806 -- copy data back from the local variables to OUT or IN-OUT args, if any
807
808
809
810
811
812
813
814
815
816
817
818 end;
819
820 end ams_copyactivities_pvt_w;