DBA Data[Home] [Help]

PACKAGE BODY: APPS.AMS_LISTHEADER_PUB_W

Source


1 package body ams_listheader_pub_w as
2   /* $Header: amszlshb.pls 115.8 2002/11/22 08:58:31 jieli ship $ */
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_listheader(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_commit  VARCHAR2
25     , p_validation_level  NUMBER
26     , x_return_status OUT NOCOPY  VARCHAR2
27     , x_msg_count OUT NOCOPY  NUMBER
28     , x_msg_data OUT NOCOPY  VARCHAR2
29     , x_listheader_id OUT NOCOPY  NUMBER
30     , p7_a0  NUMBER := 0-1962.0724
31     , p7_a1  DATE := fnd_api.g_miss_date
32     , p7_a2  NUMBER := 0-1962.0724
33     , p7_a3  DATE := fnd_api.g_miss_date
34     , p7_a4  NUMBER := 0-1962.0724
35     , p7_a5  NUMBER := 0-1962.0724
36     , p7_a6  NUMBER := 0-1962.0724
37     , p7_a7  NUMBER := 0-1962.0724
38     , p7_a8  NUMBER := 0-1962.0724
39     , p7_a9  NUMBER := 0-1962.0724
40     , p7_a10  DATE := fnd_api.g_miss_date
41     , p7_a11  NUMBER := 0-1962.0724
42     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
43     , p7_a13  NUMBER := 0-1962.0724
44     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
45     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
46     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
47     , p7_a17  DATE := fnd_api.g_miss_date
48     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
49     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
50     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
51     , p7_a21  NUMBER := 0-1962.0724
52     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
53     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
54     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
55     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
56     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
57     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
58     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
59     , p7_a29  DATE := fnd_api.g_miss_date
60     , p7_a30  DATE := fnd_api.g_miss_date
61     , p7_a31  DATE := fnd_api.g_miss_date
62     , p7_a32  DATE := fnd_api.g_miss_date
63     , p7_a33  DATE := fnd_api.g_miss_date
64     , p7_a34  DATE := fnd_api.g_miss_date
65     , p7_a35  NUMBER := 0-1962.0724
66     , p7_a36  NUMBER := 0-1962.0724
67     , p7_a37  NUMBER := 0-1962.0724
68     , p7_a38  NUMBER := 0-1962.0724
69     , p7_a39  NUMBER := 0-1962.0724
70     , p7_a40  NUMBER := 0-1962.0724
71     , p7_a41  NUMBER := 0-1962.0724
72     , p7_a42  NUMBER := 0-1962.0724
73     , p7_a43  NUMBER := 0-1962.0724
74     , p7_a44  NUMBER := 0-1962.0724
75     , p7_a45  NUMBER := 0-1962.0724
76     , p7_a46  NUMBER := 0-1962.0724
77     , p7_a47  NUMBER := 0-1962.0724
78     , p7_a48  NUMBER := 0-1962.0724
79     , p7_a49  DATE := fnd_api.g_miss_date
80     , p7_a50  DATE := fnd_api.g_miss_date
81     , p7_a51  NUMBER := 0-1962.0724
82     , p7_a52  NUMBER := 0-1962.0724
83     , p7_a53  NUMBER := 0-1962.0724
84     , p7_a54  NUMBER := 0-1962.0724
85     , p7_a55  VARCHAR2 := fnd_api.g_miss_char
86     , p7_a56  VARCHAR2 := fnd_api.g_miss_char
87     , p7_a57  VARCHAR2 := fnd_api.g_miss_char
88     , p7_a58  VARCHAR2 := fnd_api.g_miss_char
89     , p7_a59  NUMBER := 0-1962.0724
90     , p7_a60  NUMBER := 0-1962.0724
91     , p7_a61  VARCHAR2 := fnd_api.g_miss_char
92     , p7_a62  VARCHAR2 := fnd_api.g_miss_char
93     , p7_a63  VARCHAR2 := fnd_api.g_miss_char
94     , p7_a64  NUMBER := 0-1962.0724
95     , p7_a65  VARCHAR2 := fnd_api.g_miss_char
96     , p7_a66  NUMBER := 0-1962.0724
97     , p7_a67  NUMBER := 0-1962.0724
98     , p7_a68  NUMBER := 0-1962.0724
99     , p7_a69  NUMBER := 0-1962.0724
100     , p7_a70  DATE := fnd_api.g_miss_date
101     , p7_a71  VARCHAR2 := fnd_api.g_miss_char
102     , p7_a72  VARCHAR2 := fnd_api.g_miss_char
103     , p7_a73  VARCHAR2 := fnd_api.g_miss_char
104     , p7_a74  VARCHAR2 := fnd_api.g_miss_char
105     , p7_a75  VARCHAR2 := fnd_api.g_miss_char
106     , p7_a76  VARCHAR2 := fnd_api.g_miss_char
107     , p7_a77  VARCHAR2 := fnd_api.g_miss_char
108     , p7_a78  VARCHAR2 := fnd_api.g_miss_char
109     , p7_a79  VARCHAR2 := fnd_api.g_miss_char
110     , p7_a80  VARCHAR2 := fnd_api.g_miss_char
111     , p7_a81  VARCHAR2 := fnd_api.g_miss_char
112     , p7_a82  VARCHAR2 := fnd_api.g_miss_char
113     , p7_a83  VARCHAR2 := fnd_api.g_miss_char
114     , p7_a84  VARCHAR2 := fnd_api.g_miss_char
115     , p7_a85  VARCHAR2 := fnd_api.g_miss_char
116     , p7_a86  VARCHAR2 := fnd_api.g_miss_char
117     , p7_a87  NUMBER := 0-1962.0724
118     , p7_a88  DATE := fnd_api.g_miss_date
119     , p7_a89  NUMBER := 0-1962.0724
120     , p7_a90  NUMBER := 0-1962.0724
121     , p7_a91  NUMBER := 0-1962.0724
122     , p7_a92  VARCHAR2 := fnd_api.g_miss_char
123     , p7_a93  NUMBER := 0-1962.0724
124     , p7_a94  VARCHAR2 := fnd_api.g_miss_char
125     , p7_a95  NUMBER := 0-1962.0724
126     , p7_a96  NUMBER := 0-1962.0724
127     , p7_a97  VARCHAR2 := fnd_api.g_miss_char
128     , p7_a98  VARCHAR2 := fnd_api.g_miss_char
129     , p7_a99  VARCHAR2 := fnd_api.g_miss_char
130     , p7_a100  VARCHAR2 := fnd_api.g_miss_char
131     , p7_a101  VARCHAR2 := fnd_api.g_miss_char
132     , p7_a102  VARCHAR2 := fnd_api.g_miss_char
133     , p7_a103  NUMBER := 0-1962.0724
134     , p7_a104  NUMBER := 0-1962.0724
135     , p7_a105  NUMBER := 0-1962.0724
136     , p7_a106  VARCHAR2 := fnd_api.g_miss_char
137   )
138   as
139     ddp_listheader_rec ams_listheader_pvt.list_header_rec_type;
140     ddindx binary_integer; indx binary_integer;
141   begin
142 
143     -- copy data to the local IN or IN-OUT args, if any
144 
145 
146 
147 
148 
149 
150 
151     ddp_listheader_rec.list_header_id := rosetta_g_miss_num_map(p7_a0);
152     ddp_listheader_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
153     ddp_listheader_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
154     ddp_listheader_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
155     ddp_listheader_rec.created_by := rosetta_g_miss_num_map(p7_a4);
156     ddp_listheader_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
157     ddp_listheader_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
158     ddp_listheader_rec.request_id := rosetta_g_miss_num_map(p7_a7);
159     ddp_listheader_rec.program_id := rosetta_g_miss_num_map(p7_a8);
160     ddp_listheader_rec.program_application_id := rosetta_g_miss_num_map(p7_a9);
161     ddp_listheader_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
162     ddp_listheader_rec.view_application_id := rosetta_g_miss_num_map(p7_a11);
163     ddp_listheader_rec.list_name := p7_a12;
164     ddp_listheader_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a13);
165     ddp_listheader_rec.arc_list_used_by := p7_a14;
166     ddp_listheader_rec.list_type := p7_a15;
167     ddp_listheader_rec.status_code := p7_a16;
168     ddp_listheader_rec.status_date := rosetta_g_miss_date_in_map(p7_a17);
169     ddp_listheader_rec.generation_type := p7_a18;
170     ddp_listheader_rec.repeat_exclude_type := p7_a19;
171     ddp_listheader_rec.row_selection_type := p7_a20;
172     ddp_listheader_rec.owner_user_id := rosetta_g_miss_num_map(p7_a21);
173     ddp_listheader_rec.access_level := p7_a22;
174     ddp_listheader_rec.enable_log_flag := p7_a23;
175     ddp_listheader_rec.enable_word_replacement_flag := p7_a24;
176     ddp_listheader_rec.enable_parallel_dml_flag := p7_a25;
177     ddp_listheader_rec.dedupe_during_generation_flag := p7_a26;
178     ddp_listheader_rec.generate_control_group_flag := p7_a27;
179     ddp_listheader_rec.last_generation_success_flag := p7_a28;
180     ddp_listheader_rec.forecasted_start_date := rosetta_g_miss_date_in_map(p7_a29);
181     ddp_listheader_rec.forecasted_end_date := rosetta_g_miss_date_in_map(p7_a30);
182     ddp_listheader_rec.actual_end_date := rosetta_g_miss_date_in_map(p7_a31);
183     ddp_listheader_rec.sent_out_date := rosetta_g_miss_date_in_map(p7_a32);
184     ddp_listheader_rec.dedupe_start_date := rosetta_g_miss_date_in_map(p7_a33);
185     ddp_listheader_rec.last_dedupe_date := rosetta_g_miss_date_in_map(p7_a34);
186     ddp_listheader_rec.last_deduped_by_user_id := rosetta_g_miss_num_map(p7_a35);
187     ddp_listheader_rec.workflow_item_key := rosetta_g_miss_num_map(p7_a36);
188     ddp_listheader_rec.no_of_rows_duplicates := rosetta_g_miss_num_map(p7_a37);
189     ddp_listheader_rec.no_of_rows_min_requested := rosetta_g_miss_num_map(p7_a38);
190     ddp_listheader_rec.no_of_rows_max_requested := rosetta_g_miss_num_map(p7_a39);
191     ddp_listheader_rec.no_of_rows_in_list := rosetta_g_miss_num_map(p7_a40);
192     ddp_listheader_rec.no_of_rows_in_ctrl_group := rosetta_g_miss_num_map(p7_a41);
193     ddp_listheader_rec.no_of_rows_active := rosetta_g_miss_num_map(p7_a42);
194     ddp_listheader_rec.no_of_rows_inactive := rosetta_g_miss_num_map(p7_a43);
195     ddp_listheader_rec.no_of_rows_manually_entered := rosetta_g_miss_num_map(p7_a44);
196     ddp_listheader_rec.no_of_rows_do_not_call := rosetta_g_miss_num_map(p7_a45);
197     ddp_listheader_rec.no_of_rows_do_not_mail := rosetta_g_miss_num_map(p7_a46);
198     ddp_listheader_rec.no_of_rows_random := rosetta_g_miss_num_map(p7_a47);
199     ddp_listheader_rec.org_id := rosetta_g_miss_num_map(p7_a48);
200     ddp_listheader_rec.main_gen_start_time := rosetta_g_miss_date_in_map(p7_a49);
201     ddp_listheader_rec.main_gen_end_time := rosetta_g_miss_date_in_map(p7_a50);
202     ddp_listheader_rec.main_random_nth_row_selection := rosetta_g_miss_num_map(p7_a51);
203     ddp_listheader_rec.main_random_pct_row_selection := rosetta_g_miss_num_map(p7_a52);
204     ddp_listheader_rec.ctrl_random_nth_row_selection := rosetta_g_miss_num_map(p7_a53);
205     ddp_listheader_rec.ctrl_random_pct_row_selection := rosetta_g_miss_num_map(p7_a54);
206     ddp_listheader_rec.repeat_source_list_header_id := p7_a55;
207     ddp_listheader_rec.result_text := p7_a56;
208     ddp_listheader_rec.keywords := p7_a57;
209     ddp_listheader_rec.description := p7_a58;
210     ddp_listheader_rec.list_priority := rosetta_g_miss_num_map(p7_a59);
211     ddp_listheader_rec.assign_person_id := rosetta_g_miss_num_map(p7_a60);
212     ddp_listheader_rec.list_source := p7_a61;
213     ddp_listheader_rec.list_source_type := p7_a62;
214     ddp_listheader_rec.list_online_flag := p7_a63;
215     ddp_listheader_rec.random_list_id := rosetta_g_miss_num_map(p7_a64);
216     ddp_listheader_rec.enabled_flag := p7_a65;
217     ddp_listheader_rec.assigned_to := rosetta_g_miss_num_map(p7_a66);
218     ddp_listheader_rec.query_id := rosetta_g_miss_num_map(p7_a67);
219     ddp_listheader_rec.owner_person_id := rosetta_g_miss_num_map(p7_a68);
220     ddp_listheader_rec.archived_by := rosetta_g_miss_num_map(p7_a69);
221     ddp_listheader_rec.archived_date := rosetta_g_miss_date_in_map(p7_a70);
222     ddp_listheader_rec.attribute_category := p7_a71;
223     ddp_listheader_rec.attribute1 := p7_a72;
224     ddp_listheader_rec.attribute2 := p7_a73;
225     ddp_listheader_rec.attribute3 := p7_a74;
226     ddp_listheader_rec.attribute4 := p7_a75;
227     ddp_listheader_rec.attribute5 := p7_a76;
228     ddp_listheader_rec.attribute6 := p7_a77;
229     ddp_listheader_rec.attribute7 := p7_a78;
230     ddp_listheader_rec.attribute8 := p7_a79;
231     ddp_listheader_rec.attribute9 := p7_a80;
232     ddp_listheader_rec.attribute10 := p7_a81;
233     ddp_listheader_rec.attribute11 := p7_a82;
234     ddp_listheader_rec.attribute12 := p7_a83;
235     ddp_listheader_rec.attribute13 := p7_a84;
236     ddp_listheader_rec.attribute14 := p7_a85;
237     ddp_listheader_rec.attribute15 := p7_a86;
238     ddp_listheader_rec.timezone_id := rosetta_g_miss_num_map(p7_a87);
239     ddp_listheader_rec.user_entered_start_time := rosetta_g_miss_date_in_map(p7_a88);
240     ddp_listheader_rec.user_status_id := rosetta_g_miss_num_map(p7_a89);
241     ddp_listheader_rec.quantum := rosetta_g_miss_num_map(p7_a90);
242     ddp_listheader_rec.release_control_alg_id := rosetta_g_miss_num_map(p7_a91);
243     ddp_listheader_rec.dialing_method := p7_a92;
244     ddp_listheader_rec.calling_calendar_id := rosetta_g_miss_num_map(p7_a93);
245     ddp_listheader_rec.release_strategy := p7_a94;
246     ddp_listheader_rec.custom_setup_id := rosetta_g_miss_num_map(p7_a95);
247     ddp_listheader_rec.country := rosetta_g_miss_num_map(p7_a96);
248     ddp_listheader_rec.callback_priority_flag := p7_a97;
249     ddp_listheader_rec.call_center_ready_flag := p7_a98;
250     ddp_listheader_rec.language := p7_a99;
251     ddp_listheader_rec.purge_flag := p7_a100;
252     ddp_listheader_rec.public_flag := p7_a101;
253     ddp_listheader_rec.list_category := p7_a102;
254     ddp_listheader_rec.quota := rosetta_g_miss_num_map(p7_a103);
255     ddp_listheader_rec.quota_reset := rosetta_g_miss_num_map(p7_a104);
256     ddp_listheader_rec.recycling_alg_id := rosetta_g_miss_num_map(p7_a105);
257     ddp_listheader_rec.source_lang := p7_a106;
258 
259 
260     -- here's the delegated call to the old PL/SQL routine
261     ams_listheader_pub.create_listheader(p_api_version,
262       p_init_msg_list,
263       p_commit,
264       p_validation_level,
265       x_return_status,
266       x_msg_count,
267       x_msg_data,
268       ddp_listheader_rec,
269       x_listheader_id);
270 
271     -- copy data back from the local OUT or IN-OUT args, if any
272 
273 
274 
275 
276 
277 
278 
279 
280   end;
281 
282   procedure update_listheader(p_api_version  NUMBER
283     , p_init_msg_list  VARCHAR2
284     , p_commit  VARCHAR2
285     , p_validation_level  NUMBER
286     , x_return_status OUT NOCOPY  VARCHAR2
287     , x_msg_count OUT NOCOPY  NUMBER
288     , x_msg_data OUT NOCOPY  VARCHAR2
289     , p7_a0  NUMBER := 0-1962.0724
290     , p7_a1  DATE := fnd_api.g_miss_date
291     , p7_a2  NUMBER := 0-1962.0724
292     , p7_a3  DATE := fnd_api.g_miss_date
293     , p7_a4  NUMBER := 0-1962.0724
294     , p7_a5  NUMBER := 0-1962.0724
295     , p7_a6  NUMBER := 0-1962.0724
296     , p7_a7  NUMBER := 0-1962.0724
297     , p7_a8  NUMBER := 0-1962.0724
298     , p7_a9  NUMBER := 0-1962.0724
299     , p7_a10  DATE := fnd_api.g_miss_date
300     , p7_a11  NUMBER := 0-1962.0724
301     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
302     , p7_a13  NUMBER := 0-1962.0724
303     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
304     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
305     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
306     , p7_a17  DATE := fnd_api.g_miss_date
307     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
308     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
309     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
310     , p7_a21  NUMBER := 0-1962.0724
311     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
312     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
313     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
314     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
315     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
316     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
317     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
318     , p7_a29  DATE := fnd_api.g_miss_date
319     , p7_a30  DATE := fnd_api.g_miss_date
320     , p7_a31  DATE := fnd_api.g_miss_date
321     , p7_a32  DATE := fnd_api.g_miss_date
322     , p7_a33  DATE := fnd_api.g_miss_date
323     , p7_a34  DATE := fnd_api.g_miss_date
324     , p7_a35  NUMBER := 0-1962.0724
325     , p7_a36  NUMBER := 0-1962.0724
326     , p7_a37  NUMBER := 0-1962.0724
327     , p7_a38  NUMBER := 0-1962.0724
328     , p7_a39  NUMBER := 0-1962.0724
329     , p7_a40  NUMBER := 0-1962.0724
330     , p7_a41  NUMBER := 0-1962.0724
331     , p7_a42  NUMBER := 0-1962.0724
332     , p7_a43  NUMBER := 0-1962.0724
333     , p7_a44  NUMBER := 0-1962.0724
334     , p7_a45  NUMBER := 0-1962.0724
335     , p7_a46  NUMBER := 0-1962.0724
336     , p7_a47  NUMBER := 0-1962.0724
337     , p7_a48  NUMBER := 0-1962.0724
338     , p7_a49  DATE := fnd_api.g_miss_date
339     , p7_a50  DATE := fnd_api.g_miss_date
340     , p7_a51  NUMBER := 0-1962.0724
341     , p7_a52  NUMBER := 0-1962.0724
342     , p7_a53  NUMBER := 0-1962.0724
343     , p7_a54  NUMBER := 0-1962.0724
344     , p7_a55  VARCHAR2 := fnd_api.g_miss_char
345     , p7_a56  VARCHAR2 := fnd_api.g_miss_char
346     , p7_a57  VARCHAR2 := fnd_api.g_miss_char
347     , p7_a58  VARCHAR2 := fnd_api.g_miss_char
348     , p7_a59  NUMBER := 0-1962.0724
349     , p7_a60  NUMBER := 0-1962.0724
350     , p7_a61  VARCHAR2 := fnd_api.g_miss_char
351     , p7_a62  VARCHAR2 := fnd_api.g_miss_char
352     , p7_a63  VARCHAR2 := fnd_api.g_miss_char
353     , p7_a64  NUMBER := 0-1962.0724
354     , p7_a65  VARCHAR2 := fnd_api.g_miss_char
355     , p7_a66  NUMBER := 0-1962.0724
356     , p7_a67  NUMBER := 0-1962.0724
357     , p7_a68  NUMBER := 0-1962.0724
358     , p7_a69  NUMBER := 0-1962.0724
359     , p7_a70  DATE := fnd_api.g_miss_date
360     , p7_a71  VARCHAR2 := fnd_api.g_miss_char
361     , p7_a72  VARCHAR2 := fnd_api.g_miss_char
362     , p7_a73  VARCHAR2 := fnd_api.g_miss_char
363     , p7_a74  VARCHAR2 := fnd_api.g_miss_char
364     , p7_a75  VARCHAR2 := fnd_api.g_miss_char
365     , p7_a76  VARCHAR2 := fnd_api.g_miss_char
366     , p7_a77  VARCHAR2 := fnd_api.g_miss_char
367     , p7_a78  VARCHAR2 := fnd_api.g_miss_char
368     , p7_a79  VARCHAR2 := fnd_api.g_miss_char
369     , p7_a80  VARCHAR2 := fnd_api.g_miss_char
370     , p7_a81  VARCHAR2 := fnd_api.g_miss_char
371     , p7_a82  VARCHAR2 := fnd_api.g_miss_char
372     , p7_a83  VARCHAR2 := fnd_api.g_miss_char
373     , p7_a84  VARCHAR2 := fnd_api.g_miss_char
374     , p7_a85  VARCHAR2 := fnd_api.g_miss_char
375     , p7_a86  VARCHAR2 := fnd_api.g_miss_char
376     , p7_a87  NUMBER := 0-1962.0724
377     , p7_a88  DATE := fnd_api.g_miss_date
378     , p7_a89  NUMBER := 0-1962.0724
379     , p7_a90  NUMBER := 0-1962.0724
380     , p7_a91  NUMBER := 0-1962.0724
381     , p7_a92  VARCHAR2 := fnd_api.g_miss_char
382     , p7_a93  NUMBER := 0-1962.0724
383     , p7_a94  VARCHAR2 := fnd_api.g_miss_char
384     , p7_a95  NUMBER := 0-1962.0724
385     , p7_a96  NUMBER := 0-1962.0724
386     , p7_a97  VARCHAR2 := fnd_api.g_miss_char
387     , p7_a98  VARCHAR2 := fnd_api.g_miss_char
388     , p7_a99  VARCHAR2 := fnd_api.g_miss_char
389     , p7_a100  VARCHAR2 := fnd_api.g_miss_char
390     , p7_a101  VARCHAR2 := fnd_api.g_miss_char
391     , p7_a102  VARCHAR2 := fnd_api.g_miss_char
392     , p7_a103  NUMBER := 0-1962.0724
393     , p7_a104  NUMBER := 0-1962.0724
394     , p7_a105  NUMBER := 0-1962.0724
395     , p7_a106  VARCHAR2 := fnd_api.g_miss_char
396   )
397   as
398     ddp_listheader_rec ams_listheader_pvt.list_header_rec_type;
399     ddindx binary_integer; indx binary_integer;
400   begin
401 
402     -- copy data to the local IN or IN-OUT args, if any
403 
404 
405 
406 
407 
408 
409 
410     ddp_listheader_rec.list_header_id := rosetta_g_miss_num_map(p7_a0);
411     ddp_listheader_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
412     ddp_listheader_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
413     ddp_listheader_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
414     ddp_listheader_rec.created_by := rosetta_g_miss_num_map(p7_a4);
415     ddp_listheader_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
416     ddp_listheader_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
417     ddp_listheader_rec.request_id := rosetta_g_miss_num_map(p7_a7);
418     ddp_listheader_rec.program_id := rosetta_g_miss_num_map(p7_a8);
419     ddp_listheader_rec.program_application_id := rosetta_g_miss_num_map(p7_a9);
420     ddp_listheader_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
421     ddp_listheader_rec.view_application_id := rosetta_g_miss_num_map(p7_a11);
422     ddp_listheader_rec.list_name := p7_a12;
423     ddp_listheader_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a13);
424     ddp_listheader_rec.arc_list_used_by := p7_a14;
425     ddp_listheader_rec.list_type := p7_a15;
426     ddp_listheader_rec.status_code := p7_a16;
427     ddp_listheader_rec.status_date := rosetta_g_miss_date_in_map(p7_a17);
428     ddp_listheader_rec.generation_type := p7_a18;
429     ddp_listheader_rec.repeat_exclude_type := p7_a19;
430     ddp_listheader_rec.row_selection_type := p7_a20;
431     ddp_listheader_rec.owner_user_id := rosetta_g_miss_num_map(p7_a21);
432     ddp_listheader_rec.access_level := p7_a22;
433     ddp_listheader_rec.enable_log_flag := p7_a23;
434     ddp_listheader_rec.enable_word_replacement_flag := p7_a24;
435     ddp_listheader_rec.enable_parallel_dml_flag := p7_a25;
436     ddp_listheader_rec.dedupe_during_generation_flag := p7_a26;
437     ddp_listheader_rec.generate_control_group_flag := p7_a27;
438     ddp_listheader_rec.last_generation_success_flag := p7_a28;
439     ddp_listheader_rec.forecasted_start_date := rosetta_g_miss_date_in_map(p7_a29);
440     ddp_listheader_rec.forecasted_end_date := rosetta_g_miss_date_in_map(p7_a30);
441     ddp_listheader_rec.actual_end_date := rosetta_g_miss_date_in_map(p7_a31);
442     ddp_listheader_rec.sent_out_date := rosetta_g_miss_date_in_map(p7_a32);
443     ddp_listheader_rec.dedupe_start_date := rosetta_g_miss_date_in_map(p7_a33);
444     ddp_listheader_rec.last_dedupe_date := rosetta_g_miss_date_in_map(p7_a34);
445     ddp_listheader_rec.last_deduped_by_user_id := rosetta_g_miss_num_map(p7_a35);
446     ddp_listheader_rec.workflow_item_key := rosetta_g_miss_num_map(p7_a36);
447     ddp_listheader_rec.no_of_rows_duplicates := rosetta_g_miss_num_map(p7_a37);
448     ddp_listheader_rec.no_of_rows_min_requested := rosetta_g_miss_num_map(p7_a38);
449     ddp_listheader_rec.no_of_rows_max_requested := rosetta_g_miss_num_map(p7_a39);
450     ddp_listheader_rec.no_of_rows_in_list := rosetta_g_miss_num_map(p7_a40);
451     ddp_listheader_rec.no_of_rows_in_ctrl_group := rosetta_g_miss_num_map(p7_a41);
452     ddp_listheader_rec.no_of_rows_active := rosetta_g_miss_num_map(p7_a42);
453     ddp_listheader_rec.no_of_rows_inactive := rosetta_g_miss_num_map(p7_a43);
454     ddp_listheader_rec.no_of_rows_manually_entered := rosetta_g_miss_num_map(p7_a44);
455     ddp_listheader_rec.no_of_rows_do_not_call := rosetta_g_miss_num_map(p7_a45);
456     ddp_listheader_rec.no_of_rows_do_not_mail := rosetta_g_miss_num_map(p7_a46);
457     ddp_listheader_rec.no_of_rows_random := rosetta_g_miss_num_map(p7_a47);
458     ddp_listheader_rec.org_id := rosetta_g_miss_num_map(p7_a48);
459     ddp_listheader_rec.main_gen_start_time := rosetta_g_miss_date_in_map(p7_a49);
460     ddp_listheader_rec.main_gen_end_time := rosetta_g_miss_date_in_map(p7_a50);
461     ddp_listheader_rec.main_random_nth_row_selection := rosetta_g_miss_num_map(p7_a51);
462     ddp_listheader_rec.main_random_pct_row_selection := rosetta_g_miss_num_map(p7_a52);
463     ddp_listheader_rec.ctrl_random_nth_row_selection := rosetta_g_miss_num_map(p7_a53);
464     ddp_listheader_rec.ctrl_random_pct_row_selection := rosetta_g_miss_num_map(p7_a54);
465     ddp_listheader_rec.repeat_source_list_header_id := p7_a55;
466     ddp_listheader_rec.result_text := p7_a56;
467     ddp_listheader_rec.keywords := p7_a57;
468     ddp_listheader_rec.description := p7_a58;
469     ddp_listheader_rec.list_priority := rosetta_g_miss_num_map(p7_a59);
470     ddp_listheader_rec.assign_person_id := rosetta_g_miss_num_map(p7_a60);
471     ddp_listheader_rec.list_source := p7_a61;
472     ddp_listheader_rec.list_source_type := p7_a62;
473     ddp_listheader_rec.list_online_flag := p7_a63;
474     ddp_listheader_rec.random_list_id := rosetta_g_miss_num_map(p7_a64);
475     ddp_listheader_rec.enabled_flag := p7_a65;
476     ddp_listheader_rec.assigned_to := rosetta_g_miss_num_map(p7_a66);
477     ddp_listheader_rec.query_id := rosetta_g_miss_num_map(p7_a67);
478     ddp_listheader_rec.owner_person_id := rosetta_g_miss_num_map(p7_a68);
479     ddp_listheader_rec.archived_by := rosetta_g_miss_num_map(p7_a69);
480     ddp_listheader_rec.archived_date := rosetta_g_miss_date_in_map(p7_a70);
481     ddp_listheader_rec.attribute_category := p7_a71;
482     ddp_listheader_rec.attribute1 := p7_a72;
483     ddp_listheader_rec.attribute2 := p7_a73;
484     ddp_listheader_rec.attribute3 := p7_a74;
485     ddp_listheader_rec.attribute4 := p7_a75;
486     ddp_listheader_rec.attribute5 := p7_a76;
487     ddp_listheader_rec.attribute6 := p7_a77;
488     ddp_listheader_rec.attribute7 := p7_a78;
489     ddp_listheader_rec.attribute8 := p7_a79;
490     ddp_listheader_rec.attribute9 := p7_a80;
491     ddp_listheader_rec.attribute10 := p7_a81;
492     ddp_listheader_rec.attribute11 := p7_a82;
493     ddp_listheader_rec.attribute12 := p7_a83;
494     ddp_listheader_rec.attribute13 := p7_a84;
495     ddp_listheader_rec.attribute14 := p7_a85;
496     ddp_listheader_rec.attribute15 := p7_a86;
497     ddp_listheader_rec.timezone_id := rosetta_g_miss_num_map(p7_a87);
498     ddp_listheader_rec.user_entered_start_time := rosetta_g_miss_date_in_map(p7_a88);
499     ddp_listheader_rec.user_status_id := rosetta_g_miss_num_map(p7_a89);
500     ddp_listheader_rec.quantum := rosetta_g_miss_num_map(p7_a90);
501     ddp_listheader_rec.release_control_alg_id := rosetta_g_miss_num_map(p7_a91);
502     ddp_listheader_rec.dialing_method := p7_a92;
503     ddp_listheader_rec.calling_calendar_id := rosetta_g_miss_num_map(p7_a93);
504     ddp_listheader_rec.release_strategy := p7_a94;
505     ddp_listheader_rec.custom_setup_id := rosetta_g_miss_num_map(p7_a95);
506     ddp_listheader_rec.country := rosetta_g_miss_num_map(p7_a96);
507     ddp_listheader_rec.callback_priority_flag := p7_a97;
508     ddp_listheader_rec.call_center_ready_flag := p7_a98;
509     ddp_listheader_rec.language := p7_a99;
510     ddp_listheader_rec.purge_flag := p7_a100;
511     ddp_listheader_rec.public_flag := p7_a101;
512     ddp_listheader_rec.list_category := p7_a102;
513     ddp_listheader_rec.quota := rosetta_g_miss_num_map(p7_a103);
514     ddp_listheader_rec.quota_reset := rosetta_g_miss_num_map(p7_a104);
515     ddp_listheader_rec.recycling_alg_id := rosetta_g_miss_num_map(p7_a105);
516     ddp_listheader_rec.source_lang := p7_a106;
517 
518     -- here's the delegated call to the old PL/SQL routine
519     ams_listheader_pub.update_listheader(p_api_version,
520       p_init_msg_list,
521       p_commit,
522       p_validation_level,
523       x_return_status,
524       x_msg_count,
525       x_msg_data,
526       ddp_listheader_rec);
527 
528     -- copy data back from the local OUT or IN-OUT args, if any
529 
530 
531 
532 
533 
534 
535 
536   end;
537 
538   procedure validate_listheader(p_api_version  NUMBER
539     , p_init_msg_list  VARCHAR2
540     , p_validation_level  NUMBER
541     , x_return_status OUT NOCOPY  VARCHAR2
542     , x_msg_count OUT NOCOPY  NUMBER
543     , x_msg_data OUT NOCOPY  VARCHAR2
544     , p6_a0  NUMBER := 0-1962.0724
545     , p6_a1  DATE := fnd_api.g_miss_date
546     , p6_a2  NUMBER := 0-1962.0724
547     , p6_a3  DATE := fnd_api.g_miss_date
548     , p6_a4  NUMBER := 0-1962.0724
549     , p6_a5  NUMBER := 0-1962.0724
550     , p6_a6  NUMBER := 0-1962.0724
551     , p6_a7  NUMBER := 0-1962.0724
552     , p6_a8  NUMBER := 0-1962.0724
553     , p6_a9  NUMBER := 0-1962.0724
554     , p6_a10  DATE := fnd_api.g_miss_date
555     , p6_a11  NUMBER := 0-1962.0724
556     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
557     , p6_a13  NUMBER := 0-1962.0724
558     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
559     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
560     , p6_a16  VARCHAR2 := fnd_api.g_miss_char
561     , p6_a17  DATE := fnd_api.g_miss_date
562     , p6_a18  VARCHAR2 := fnd_api.g_miss_char
563     , p6_a19  VARCHAR2 := fnd_api.g_miss_char
564     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
565     , p6_a21  NUMBER := 0-1962.0724
566     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
567     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
568     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
569     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
570     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
571     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
572     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
573     , p6_a29  DATE := fnd_api.g_miss_date
574     , p6_a30  DATE := fnd_api.g_miss_date
575     , p6_a31  DATE := fnd_api.g_miss_date
576     , p6_a32  DATE := fnd_api.g_miss_date
577     , p6_a33  DATE := fnd_api.g_miss_date
578     , p6_a34  DATE := fnd_api.g_miss_date
579     , p6_a35  NUMBER := 0-1962.0724
580     , p6_a36  NUMBER := 0-1962.0724
581     , p6_a37  NUMBER := 0-1962.0724
582     , p6_a38  NUMBER := 0-1962.0724
583     , p6_a39  NUMBER := 0-1962.0724
584     , p6_a40  NUMBER := 0-1962.0724
585     , p6_a41  NUMBER := 0-1962.0724
586     , p6_a42  NUMBER := 0-1962.0724
587     , p6_a43  NUMBER := 0-1962.0724
588     , p6_a44  NUMBER := 0-1962.0724
589     , p6_a45  NUMBER := 0-1962.0724
590     , p6_a46  NUMBER := 0-1962.0724
591     , p6_a47  NUMBER := 0-1962.0724
592     , p6_a48  NUMBER := 0-1962.0724
593     , p6_a49  DATE := fnd_api.g_miss_date
594     , p6_a50  DATE := fnd_api.g_miss_date
595     , p6_a51  NUMBER := 0-1962.0724
596     , p6_a52  NUMBER := 0-1962.0724
597     , p6_a53  NUMBER := 0-1962.0724
598     , p6_a54  NUMBER := 0-1962.0724
599     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
600     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
601     , p6_a57  VARCHAR2 := fnd_api.g_miss_char
602     , p6_a58  VARCHAR2 := fnd_api.g_miss_char
603     , p6_a59  NUMBER := 0-1962.0724
604     , p6_a60  NUMBER := 0-1962.0724
605     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
606     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
607     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
608     , p6_a64  NUMBER := 0-1962.0724
609     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
610     , p6_a66  NUMBER := 0-1962.0724
611     , p6_a67  NUMBER := 0-1962.0724
612     , p6_a68  NUMBER := 0-1962.0724
613     , p6_a69  NUMBER := 0-1962.0724
614     , p6_a70  DATE := fnd_api.g_miss_date
615     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
616     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
617     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
618     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
619     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
620     , p6_a76  VARCHAR2 := fnd_api.g_miss_char
621     , p6_a77  VARCHAR2 := fnd_api.g_miss_char
622     , p6_a78  VARCHAR2 := fnd_api.g_miss_char
623     , p6_a79  VARCHAR2 := fnd_api.g_miss_char
624     , p6_a80  VARCHAR2 := fnd_api.g_miss_char
625     , p6_a81  VARCHAR2 := fnd_api.g_miss_char
626     , p6_a82  VARCHAR2 := fnd_api.g_miss_char
627     , p6_a83  VARCHAR2 := fnd_api.g_miss_char
628     , p6_a84  VARCHAR2 := fnd_api.g_miss_char
629     , p6_a85  VARCHAR2 := fnd_api.g_miss_char
630     , p6_a86  VARCHAR2 := fnd_api.g_miss_char
631     , p6_a87  NUMBER := 0-1962.0724
632     , p6_a88  DATE := fnd_api.g_miss_date
633     , p6_a89  NUMBER := 0-1962.0724
634     , p6_a90  NUMBER := 0-1962.0724
635     , p6_a91  NUMBER := 0-1962.0724
636     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
637     , p6_a93  NUMBER := 0-1962.0724
638     , p6_a94  VARCHAR2 := fnd_api.g_miss_char
639     , p6_a95  NUMBER := 0-1962.0724
640     , p6_a96  NUMBER := 0-1962.0724
641     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
642     , p6_a98  VARCHAR2 := fnd_api.g_miss_char
643     , p6_a99  VARCHAR2 := fnd_api.g_miss_char
644     , p6_a100  VARCHAR2 := fnd_api.g_miss_char
645     , p6_a101  VARCHAR2 := fnd_api.g_miss_char
646     , p6_a102  VARCHAR2 := fnd_api.g_miss_char
647     , p6_a103  NUMBER := 0-1962.0724
648     , p6_a104  NUMBER := 0-1962.0724
649     , p6_a105  NUMBER := 0-1962.0724
650     , p6_a106  VARCHAR2 := fnd_api.g_miss_char
651   )
652   as
653     ddp_listheader_rec ams_listheader_pvt.list_header_rec_type;
654     ddindx binary_integer; indx binary_integer;
655   begin
656 
657     -- copy data to the local IN or IN-OUT args, if any
658 
659 
660 
661 
662 
663 
664     ddp_listheader_rec.list_header_id := rosetta_g_miss_num_map(p6_a0);
665     ddp_listheader_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
666     ddp_listheader_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
667     ddp_listheader_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
668     ddp_listheader_rec.created_by := rosetta_g_miss_num_map(p6_a4);
669     ddp_listheader_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
670     ddp_listheader_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
671     ddp_listheader_rec.request_id := rosetta_g_miss_num_map(p6_a7);
672     ddp_listheader_rec.program_id := rosetta_g_miss_num_map(p6_a8);
673     ddp_listheader_rec.program_application_id := rosetta_g_miss_num_map(p6_a9);
674     ddp_listheader_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a10);
675     ddp_listheader_rec.view_application_id := rosetta_g_miss_num_map(p6_a11);
676     ddp_listheader_rec.list_name := p6_a12;
677     ddp_listheader_rec.list_used_by_id := rosetta_g_miss_num_map(p6_a13);
678     ddp_listheader_rec.arc_list_used_by := p6_a14;
679     ddp_listheader_rec.list_type := p6_a15;
680     ddp_listheader_rec.status_code := p6_a16;
681     ddp_listheader_rec.status_date := rosetta_g_miss_date_in_map(p6_a17);
682     ddp_listheader_rec.generation_type := p6_a18;
683     ddp_listheader_rec.repeat_exclude_type := p6_a19;
684     ddp_listheader_rec.row_selection_type := p6_a20;
685     ddp_listheader_rec.owner_user_id := rosetta_g_miss_num_map(p6_a21);
686     ddp_listheader_rec.access_level := p6_a22;
687     ddp_listheader_rec.enable_log_flag := p6_a23;
688     ddp_listheader_rec.enable_word_replacement_flag := p6_a24;
689     ddp_listheader_rec.enable_parallel_dml_flag := p6_a25;
690     ddp_listheader_rec.dedupe_during_generation_flag := p6_a26;
691     ddp_listheader_rec.generate_control_group_flag := p6_a27;
692     ddp_listheader_rec.last_generation_success_flag := p6_a28;
693     ddp_listheader_rec.forecasted_start_date := rosetta_g_miss_date_in_map(p6_a29);
694     ddp_listheader_rec.forecasted_end_date := rosetta_g_miss_date_in_map(p6_a30);
695     ddp_listheader_rec.actual_end_date := rosetta_g_miss_date_in_map(p6_a31);
696     ddp_listheader_rec.sent_out_date := rosetta_g_miss_date_in_map(p6_a32);
697     ddp_listheader_rec.dedupe_start_date := rosetta_g_miss_date_in_map(p6_a33);
698     ddp_listheader_rec.last_dedupe_date := rosetta_g_miss_date_in_map(p6_a34);
699     ddp_listheader_rec.last_deduped_by_user_id := rosetta_g_miss_num_map(p6_a35);
700     ddp_listheader_rec.workflow_item_key := rosetta_g_miss_num_map(p6_a36);
701     ddp_listheader_rec.no_of_rows_duplicates := rosetta_g_miss_num_map(p6_a37);
702     ddp_listheader_rec.no_of_rows_min_requested := rosetta_g_miss_num_map(p6_a38);
703     ddp_listheader_rec.no_of_rows_max_requested := rosetta_g_miss_num_map(p6_a39);
704     ddp_listheader_rec.no_of_rows_in_list := rosetta_g_miss_num_map(p6_a40);
705     ddp_listheader_rec.no_of_rows_in_ctrl_group := rosetta_g_miss_num_map(p6_a41);
706     ddp_listheader_rec.no_of_rows_active := rosetta_g_miss_num_map(p6_a42);
707     ddp_listheader_rec.no_of_rows_inactive := rosetta_g_miss_num_map(p6_a43);
708     ddp_listheader_rec.no_of_rows_manually_entered := rosetta_g_miss_num_map(p6_a44);
709     ddp_listheader_rec.no_of_rows_do_not_call := rosetta_g_miss_num_map(p6_a45);
710     ddp_listheader_rec.no_of_rows_do_not_mail := rosetta_g_miss_num_map(p6_a46);
711     ddp_listheader_rec.no_of_rows_random := rosetta_g_miss_num_map(p6_a47);
712     ddp_listheader_rec.org_id := rosetta_g_miss_num_map(p6_a48);
713     ddp_listheader_rec.main_gen_start_time := rosetta_g_miss_date_in_map(p6_a49);
714     ddp_listheader_rec.main_gen_end_time := rosetta_g_miss_date_in_map(p6_a50);
715     ddp_listheader_rec.main_random_nth_row_selection := rosetta_g_miss_num_map(p6_a51);
716     ddp_listheader_rec.main_random_pct_row_selection := rosetta_g_miss_num_map(p6_a52);
717     ddp_listheader_rec.ctrl_random_nth_row_selection := rosetta_g_miss_num_map(p6_a53);
718     ddp_listheader_rec.ctrl_random_pct_row_selection := rosetta_g_miss_num_map(p6_a54);
719     ddp_listheader_rec.repeat_source_list_header_id := p6_a55;
720     ddp_listheader_rec.result_text := p6_a56;
721     ddp_listheader_rec.keywords := p6_a57;
722     ddp_listheader_rec.description := p6_a58;
723     ddp_listheader_rec.list_priority := rosetta_g_miss_num_map(p6_a59);
724     ddp_listheader_rec.assign_person_id := rosetta_g_miss_num_map(p6_a60);
725     ddp_listheader_rec.list_source := p6_a61;
726     ddp_listheader_rec.list_source_type := p6_a62;
727     ddp_listheader_rec.list_online_flag := p6_a63;
728     ddp_listheader_rec.random_list_id := rosetta_g_miss_num_map(p6_a64);
729     ddp_listheader_rec.enabled_flag := p6_a65;
730     ddp_listheader_rec.assigned_to := rosetta_g_miss_num_map(p6_a66);
731     ddp_listheader_rec.query_id := rosetta_g_miss_num_map(p6_a67);
732     ddp_listheader_rec.owner_person_id := rosetta_g_miss_num_map(p6_a68);
733     ddp_listheader_rec.archived_by := rosetta_g_miss_num_map(p6_a69);
734     ddp_listheader_rec.archived_date := rosetta_g_miss_date_in_map(p6_a70);
735     ddp_listheader_rec.attribute_category := p6_a71;
736     ddp_listheader_rec.attribute1 := p6_a72;
737     ddp_listheader_rec.attribute2 := p6_a73;
738     ddp_listheader_rec.attribute3 := p6_a74;
739     ddp_listheader_rec.attribute4 := p6_a75;
740     ddp_listheader_rec.attribute5 := p6_a76;
741     ddp_listheader_rec.attribute6 := p6_a77;
742     ddp_listheader_rec.attribute7 := p6_a78;
743     ddp_listheader_rec.attribute8 := p6_a79;
744     ddp_listheader_rec.attribute9 := p6_a80;
745     ddp_listheader_rec.attribute10 := p6_a81;
746     ddp_listheader_rec.attribute11 := p6_a82;
747     ddp_listheader_rec.attribute12 := p6_a83;
748     ddp_listheader_rec.attribute13 := p6_a84;
749     ddp_listheader_rec.attribute14 := p6_a85;
750     ddp_listheader_rec.attribute15 := p6_a86;
751     ddp_listheader_rec.timezone_id := rosetta_g_miss_num_map(p6_a87);
752     ddp_listheader_rec.user_entered_start_time := rosetta_g_miss_date_in_map(p6_a88);
753     ddp_listheader_rec.user_status_id := rosetta_g_miss_num_map(p6_a89);
754     ddp_listheader_rec.quantum := rosetta_g_miss_num_map(p6_a90);
755     ddp_listheader_rec.release_control_alg_id := rosetta_g_miss_num_map(p6_a91);
756     ddp_listheader_rec.dialing_method := p6_a92;
757     ddp_listheader_rec.calling_calendar_id := rosetta_g_miss_num_map(p6_a93);
758     ddp_listheader_rec.release_strategy := p6_a94;
759     ddp_listheader_rec.custom_setup_id := rosetta_g_miss_num_map(p6_a95);
760     ddp_listheader_rec.country := rosetta_g_miss_num_map(p6_a96);
761     ddp_listheader_rec.callback_priority_flag := p6_a97;
762     ddp_listheader_rec.call_center_ready_flag := p6_a98;
763     ddp_listheader_rec.language := p6_a99;
764     ddp_listheader_rec.purge_flag := p6_a100;
765     ddp_listheader_rec.public_flag := p6_a101;
766     ddp_listheader_rec.list_category := p6_a102;
767     ddp_listheader_rec.quota := rosetta_g_miss_num_map(p6_a103);
768     ddp_listheader_rec.quota_reset := rosetta_g_miss_num_map(p6_a104);
769     ddp_listheader_rec.recycling_alg_id := rosetta_g_miss_num_map(p6_a105);
770     ddp_listheader_rec.source_lang := p6_a106;
771 
772     -- here's the delegated call to the old PL/SQL routine
773     ams_listheader_pub.validate_listheader(p_api_version,
774       p_init_msg_list,
775       p_validation_level,
776       x_return_status,
777       x_msg_count,
778       x_msg_data,
779       ddp_listheader_rec);
780 
781     -- copy data back from the local OUT or IN-OUT args, if any
782 
783 
784 
785 
786 
787 
788   end;
789 
790   procedure copy_list(p_api_version  NUMBER
791     , p_init_msg_list  VARCHAR2
792     , p_commit  VARCHAR2
793     , p_validation_level  NUMBER
794     , x_return_status OUT NOCOPY  VARCHAR2
795     , x_msg_count OUT NOCOPY  NUMBER
796     , x_msg_data OUT NOCOPY  VARCHAR2
797     , p_source_listheader_id  NUMBER
798     , p_copy_select_actions  VARCHAR2
799     , p_copy_list_queries  VARCHAR2
800     , p_copy_list_entries  VARCHAR2
801     , x_listheader_id OUT NOCOPY  NUMBER
802     , p8_a0  NUMBER := 0-1962.0724
803     , p8_a1  DATE := fnd_api.g_miss_date
804     , p8_a2  NUMBER := 0-1962.0724
805     , p8_a3  DATE := fnd_api.g_miss_date
806     , p8_a4  NUMBER := 0-1962.0724
807     , p8_a5  NUMBER := 0-1962.0724
808     , p8_a6  NUMBER := 0-1962.0724
809     , p8_a7  NUMBER := 0-1962.0724
810     , p8_a8  NUMBER := 0-1962.0724
811     , p8_a9  NUMBER := 0-1962.0724
812     , p8_a10  DATE := fnd_api.g_miss_date
813     , p8_a11  NUMBER := 0-1962.0724
814     , p8_a12  VARCHAR2 := fnd_api.g_miss_char
815     , p8_a13  NUMBER := 0-1962.0724
816     , p8_a14  VARCHAR2 := fnd_api.g_miss_char
817     , p8_a15  VARCHAR2 := fnd_api.g_miss_char
818     , p8_a16  VARCHAR2 := fnd_api.g_miss_char
819     , p8_a17  DATE := fnd_api.g_miss_date
820     , p8_a18  VARCHAR2 := fnd_api.g_miss_char
821     , p8_a19  VARCHAR2 := fnd_api.g_miss_char
822     , p8_a20  VARCHAR2 := fnd_api.g_miss_char
823     , p8_a21  NUMBER := 0-1962.0724
824     , p8_a22  VARCHAR2 := fnd_api.g_miss_char
825     , p8_a23  VARCHAR2 := fnd_api.g_miss_char
826     , p8_a24  VARCHAR2 := fnd_api.g_miss_char
827     , p8_a25  VARCHAR2 := fnd_api.g_miss_char
828     , p8_a26  VARCHAR2 := fnd_api.g_miss_char
829     , p8_a27  VARCHAR2 := fnd_api.g_miss_char
830     , p8_a28  VARCHAR2 := fnd_api.g_miss_char
831     , p8_a29  DATE := fnd_api.g_miss_date
832     , p8_a30  DATE := fnd_api.g_miss_date
833     , p8_a31  DATE := fnd_api.g_miss_date
834     , p8_a32  DATE := fnd_api.g_miss_date
835     , p8_a33  DATE := fnd_api.g_miss_date
836     , p8_a34  DATE := fnd_api.g_miss_date
837     , p8_a35  NUMBER := 0-1962.0724
838     , p8_a36  NUMBER := 0-1962.0724
839     , p8_a37  NUMBER := 0-1962.0724
840     , p8_a38  NUMBER := 0-1962.0724
841     , p8_a39  NUMBER := 0-1962.0724
842     , p8_a40  NUMBER := 0-1962.0724
843     , p8_a41  NUMBER := 0-1962.0724
844     , p8_a42  NUMBER := 0-1962.0724
845     , p8_a43  NUMBER := 0-1962.0724
846     , p8_a44  NUMBER := 0-1962.0724
847     , p8_a45  NUMBER := 0-1962.0724
848     , p8_a46  NUMBER := 0-1962.0724
849     , p8_a47  NUMBER := 0-1962.0724
850     , p8_a48  NUMBER := 0-1962.0724
851     , p8_a49  DATE := fnd_api.g_miss_date
852     , p8_a50  DATE := fnd_api.g_miss_date
853     , p8_a51  NUMBER := 0-1962.0724
854     , p8_a52  NUMBER := 0-1962.0724
855     , p8_a53  NUMBER := 0-1962.0724
856     , p8_a54  NUMBER := 0-1962.0724
857     , p8_a55  VARCHAR2 := fnd_api.g_miss_char
858     , p8_a56  VARCHAR2 := fnd_api.g_miss_char
859     , p8_a57  VARCHAR2 := fnd_api.g_miss_char
860     , p8_a58  VARCHAR2 := fnd_api.g_miss_char
861     , p8_a59  NUMBER := 0-1962.0724
862     , p8_a60  NUMBER := 0-1962.0724
863     , p8_a61  VARCHAR2 := fnd_api.g_miss_char
864     , p8_a62  VARCHAR2 := fnd_api.g_miss_char
865     , p8_a63  VARCHAR2 := fnd_api.g_miss_char
866     , p8_a64  NUMBER := 0-1962.0724
867     , p8_a65  VARCHAR2 := fnd_api.g_miss_char
868     , p8_a66  NUMBER := 0-1962.0724
869     , p8_a67  NUMBER := 0-1962.0724
870     , p8_a68  NUMBER := 0-1962.0724
871     , p8_a69  NUMBER := 0-1962.0724
872     , p8_a70  DATE := fnd_api.g_miss_date
873     , p8_a71  VARCHAR2 := fnd_api.g_miss_char
874     , p8_a72  VARCHAR2 := fnd_api.g_miss_char
875     , p8_a73  VARCHAR2 := fnd_api.g_miss_char
876     , p8_a74  VARCHAR2 := fnd_api.g_miss_char
877     , p8_a75  VARCHAR2 := fnd_api.g_miss_char
878     , p8_a76  VARCHAR2 := fnd_api.g_miss_char
879     , p8_a77  VARCHAR2 := fnd_api.g_miss_char
880     , p8_a78  VARCHAR2 := fnd_api.g_miss_char
881     , p8_a79  VARCHAR2 := fnd_api.g_miss_char
882     , p8_a80  VARCHAR2 := fnd_api.g_miss_char
883     , p8_a81  VARCHAR2 := fnd_api.g_miss_char
884     , p8_a82  VARCHAR2 := fnd_api.g_miss_char
885     , p8_a83  VARCHAR2 := fnd_api.g_miss_char
886     , p8_a84  VARCHAR2 := fnd_api.g_miss_char
887     , p8_a85  VARCHAR2 := fnd_api.g_miss_char
888     , p8_a86  VARCHAR2 := fnd_api.g_miss_char
889     , p8_a87  NUMBER := 0-1962.0724
890     , p8_a88  DATE := fnd_api.g_miss_date
891     , p8_a89  NUMBER := 0-1962.0724
892     , p8_a90  NUMBER := 0-1962.0724
893     , p8_a91  NUMBER := 0-1962.0724
894     , p8_a92  VARCHAR2 := fnd_api.g_miss_char
895     , p8_a93  NUMBER := 0-1962.0724
896     , p8_a94  VARCHAR2 := fnd_api.g_miss_char
897     , p8_a95  NUMBER := 0-1962.0724
898     , p8_a96  NUMBER := 0-1962.0724
899     , p8_a97  VARCHAR2 := fnd_api.g_miss_char
900     , p8_a98  VARCHAR2 := fnd_api.g_miss_char
901     , p8_a99  VARCHAR2 := fnd_api.g_miss_char
902     , p8_a100  VARCHAR2 := fnd_api.g_miss_char
903     , p8_a101  VARCHAR2 := fnd_api.g_miss_char
904     , p8_a102  VARCHAR2 := fnd_api.g_miss_char
905     , p8_a103  NUMBER := 0-1962.0724
906     , p8_a104  NUMBER := 0-1962.0724
907     , p8_a105  NUMBER := 0-1962.0724
908     , p8_a106  VARCHAR2 := fnd_api.g_miss_char
909   )
910   as
911     ddp_listheader_rec ams_listheader_pvt.list_header_rec_type;
912     ddindx binary_integer; indx binary_integer;
913   begin
914 
915     -- copy data to the local IN or IN-OUT args, if any
916 
917 
918 
919 
920 
921 
922 
923 
924     ddp_listheader_rec.list_header_id := rosetta_g_miss_num_map(p8_a0);
925     ddp_listheader_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a1);
926     ddp_listheader_rec.last_updated_by := rosetta_g_miss_num_map(p8_a2);
927     ddp_listheader_rec.creation_date := rosetta_g_miss_date_in_map(p8_a3);
928     ddp_listheader_rec.created_by := rosetta_g_miss_num_map(p8_a4);
929     ddp_listheader_rec.last_update_login := rosetta_g_miss_num_map(p8_a5);
930     ddp_listheader_rec.object_version_number := rosetta_g_miss_num_map(p8_a6);
931     ddp_listheader_rec.request_id := rosetta_g_miss_num_map(p8_a7);
932     ddp_listheader_rec.program_id := rosetta_g_miss_num_map(p8_a8);
933     ddp_listheader_rec.program_application_id := rosetta_g_miss_num_map(p8_a9);
934     ddp_listheader_rec.program_update_date := rosetta_g_miss_date_in_map(p8_a10);
935     ddp_listheader_rec.view_application_id := rosetta_g_miss_num_map(p8_a11);
936     ddp_listheader_rec.list_name := p8_a12;
937     ddp_listheader_rec.list_used_by_id := rosetta_g_miss_num_map(p8_a13);
938     ddp_listheader_rec.arc_list_used_by := p8_a14;
939     ddp_listheader_rec.list_type := p8_a15;
940     ddp_listheader_rec.status_code := p8_a16;
941     ddp_listheader_rec.status_date := rosetta_g_miss_date_in_map(p8_a17);
942     ddp_listheader_rec.generation_type := p8_a18;
943     ddp_listheader_rec.repeat_exclude_type := p8_a19;
944     ddp_listheader_rec.row_selection_type := p8_a20;
945     ddp_listheader_rec.owner_user_id := rosetta_g_miss_num_map(p8_a21);
946     ddp_listheader_rec.access_level := p8_a22;
947     ddp_listheader_rec.enable_log_flag := p8_a23;
948     ddp_listheader_rec.enable_word_replacement_flag := p8_a24;
949     ddp_listheader_rec.enable_parallel_dml_flag := p8_a25;
950     ddp_listheader_rec.dedupe_during_generation_flag := p8_a26;
951     ddp_listheader_rec.generate_control_group_flag := p8_a27;
952     ddp_listheader_rec.last_generation_success_flag := p8_a28;
953     ddp_listheader_rec.forecasted_start_date := rosetta_g_miss_date_in_map(p8_a29);
954     ddp_listheader_rec.forecasted_end_date := rosetta_g_miss_date_in_map(p8_a30);
955     ddp_listheader_rec.actual_end_date := rosetta_g_miss_date_in_map(p8_a31);
956     ddp_listheader_rec.sent_out_date := rosetta_g_miss_date_in_map(p8_a32);
957     ddp_listheader_rec.dedupe_start_date := rosetta_g_miss_date_in_map(p8_a33);
958     ddp_listheader_rec.last_dedupe_date := rosetta_g_miss_date_in_map(p8_a34);
959     ddp_listheader_rec.last_deduped_by_user_id := rosetta_g_miss_num_map(p8_a35);
960     ddp_listheader_rec.workflow_item_key := rosetta_g_miss_num_map(p8_a36);
961     ddp_listheader_rec.no_of_rows_duplicates := rosetta_g_miss_num_map(p8_a37);
962     ddp_listheader_rec.no_of_rows_min_requested := rosetta_g_miss_num_map(p8_a38);
963     ddp_listheader_rec.no_of_rows_max_requested := rosetta_g_miss_num_map(p8_a39);
964     ddp_listheader_rec.no_of_rows_in_list := rosetta_g_miss_num_map(p8_a40);
965     ddp_listheader_rec.no_of_rows_in_ctrl_group := rosetta_g_miss_num_map(p8_a41);
966     ddp_listheader_rec.no_of_rows_active := rosetta_g_miss_num_map(p8_a42);
967     ddp_listheader_rec.no_of_rows_inactive := rosetta_g_miss_num_map(p8_a43);
968     ddp_listheader_rec.no_of_rows_manually_entered := rosetta_g_miss_num_map(p8_a44);
969     ddp_listheader_rec.no_of_rows_do_not_call := rosetta_g_miss_num_map(p8_a45);
970     ddp_listheader_rec.no_of_rows_do_not_mail := rosetta_g_miss_num_map(p8_a46);
971     ddp_listheader_rec.no_of_rows_random := rosetta_g_miss_num_map(p8_a47);
972     ddp_listheader_rec.org_id := rosetta_g_miss_num_map(p8_a48);
973     ddp_listheader_rec.main_gen_start_time := rosetta_g_miss_date_in_map(p8_a49);
974     ddp_listheader_rec.main_gen_end_time := rosetta_g_miss_date_in_map(p8_a50);
975     ddp_listheader_rec.main_random_nth_row_selection := rosetta_g_miss_num_map(p8_a51);
976     ddp_listheader_rec.main_random_pct_row_selection := rosetta_g_miss_num_map(p8_a52);
977     ddp_listheader_rec.ctrl_random_nth_row_selection := rosetta_g_miss_num_map(p8_a53);
978     ddp_listheader_rec.ctrl_random_pct_row_selection := rosetta_g_miss_num_map(p8_a54);
979     ddp_listheader_rec.repeat_source_list_header_id := p8_a55;
980     ddp_listheader_rec.result_text := p8_a56;
981     ddp_listheader_rec.keywords := p8_a57;
982     ddp_listheader_rec.description := p8_a58;
983     ddp_listheader_rec.list_priority := rosetta_g_miss_num_map(p8_a59);
984     ddp_listheader_rec.assign_person_id := rosetta_g_miss_num_map(p8_a60);
985     ddp_listheader_rec.list_source := p8_a61;
986     ddp_listheader_rec.list_source_type := p8_a62;
987     ddp_listheader_rec.list_online_flag := p8_a63;
988     ddp_listheader_rec.random_list_id := rosetta_g_miss_num_map(p8_a64);
989     ddp_listheader_rec.enabled_flag := p8_a65;
990     ddp_listheader_rec.assigned_to := rosetta_g_miss_num_map(p8_a66);
991     ddp_listheader_rec.query_id := rosetta_g_miss_num_map(p8_a67);
992     ddp_listheader_rec.owner_person_id := rosetta_g_miss_num_map(p8_a68);
993     ddp_listheader_rec.archived_by := rosetta_g_miss_num_map(p8_a69);
994     ddp_listheader_rec.archived_date := rosetta_g_miss_date_in_map(p8_a70);
995     ddp_listheader_rec.attribute_category := p8_a71;
996     ddp_listheader_rec.attribute1 := p8_a72;
997     ddp_listheader_rec.attribute2 := p8_a73;
998     ddp_listheader_rec.attribute3 := p8_a74;
999     ddp_listheader_rec.attribute4 := p8_a75;
1000     ddp_listheader_rec.attribute5 := p8_a76;
1001     ddp_listheader_rec.attribute6 := p8_a77;
1002     ddp_listheader_rec.attribute7 := p8_a78;
1003     ddp_listheader_rec.attribute8 := p8_a79;
1004     ddp_listheader_rec.attribute9 := p8_a80;
1005     ddp_listheader_rec.attribute10 := p8_a81;
1006     ddp_listheader_rec.attribute11 := p8_a82;
1007     ddp_listheader_rec.attribute12 := p8_a83;
1008     ddp_listheader_rec.attribute13 := p8_a84;
1009     ddp_listheader_rec.attribute14 := p8_a85;
1010     ddp_listheader_rec.attribute15 := p8_a86;
1011     ddp_listheader_rec.timezone_id := rosetta_g_miss_num_map(p8_a87);
1012     ddp_listheader_rec.user_entered_start_time := rosetta_g_miss_date_in_map(p8_a88);
1013     ddp_listheader_rec.user_status_id := rosetta_g_miss_num_map(p8_a89);
1014     ddp_listheader_rec.quantum := rosetta_g_miss_num_map(p8_a90);
1015     ddp_listheader_rec.release_control_alg_id := rosetta_g_miss_num_map(p8_a91);
1016     ddp_listheader_rec.dialing_method := p8_a92;
1017     ddp_listheader_rec.calling_calendar_id := rosetta_g_miss_num_map(p8_a93);
1018     ddp_listheader_rec.release_strategy := p8_a94;
1019     ddp_listheader_rec.custom_setup_id := rosetta_g_miss_num_map(p8_a95);
1020     ddp_listheader_rec.country := rosetta_g_miss_num_map(p8_a96);
1021     ddp_listheader_rec.callback_priority_flag := p8_a97;
1022     ddp_listheader_rec.call_center_ready_flag := p8_a98;
1023     ddp_listheader_rec.language := p8_a99;
1024     ddp_listheader_rec.purge_flag := p8_a100;
1025     ddp_listheader_rec.public_flag := p8_a101;
1026     ddp_listheader_rec.list_category := p8_a102;
1027     ddp_listheader_rec.quota := rosetta_g_miss_num_map(p8_a103);
1028     ddp_listheader_rec.quota_reset := rosetta_g_miss_num_map(p8_a104);
1029     ddp_listheader_rec.recycling_alg_id := rosetta_g_miss_num_map(p8_a105);
1030     ddp_listheader_rec.source_lang := p8_a106;
1031 
1032 
1033 
1034 
1035 
1036     -- here's the delegated call to the old PL/SQL routine
1037     ams_listheader_pub.copy_list(p_api_version,
1038       p_init_msg_list,
1039       p_commit,
1040       p_validation_level,
1041       x_return_status,
1042       x_msg_count,
1043       x_msg_data,
1044       p_source_listheader_id,
1045       ddp_listheader_rec,
1046       p_copy_select_actions,
1047       p_copy_list_queries,
1048       p_copy_list_entries,
1049       x_listheader_id);
1050 
1051     -- copy data back from the local OUT or IN-OUT args, if any
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064   end;
1065 
1066 end ams_listheader_pub_w;