DBA Data[Home] [Help]

PACKAGE BODY: APPS.AMS_ACT_MARKET_SEGMENTS_PVT_W

Source


1 package body ams_act_market_segments_pvt_w as
2   /* $Header: amswmksb.pls 120.1 2005/06/16 06:14 appldev  $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_market_segments(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_act_mks_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  VARCHAR2 := fnd_api.g_miss_char
38     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
39     , p7_a9  NUMBER := 0-1962.0724
40     , p7_a10  NUMBER := 0-1962.0724
41     , p7_a11  VARCHAR2 := fnd_api.g_miss_char
42     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
43     , p7_a13  VARCHAR2 := fnd_api.g_miss_char
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  VARCHAR2 := fnd_api.g_miss_char
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  VARCHAR2 := fnd_api.g_miss_char
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   )
60 
61   as
62     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
63     ddindx binary_integer; indx binary_integer;
64   begin
65 
66     -- copy data to the local IN or IN-OUT args, if any
67 
68 
69 
70 
71 
72 
73 
74     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p7_a0);
75     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
76     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
77     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
78     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p7_a4);
79     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p7_a5);
80     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p7_a6);
81     ddp_mks_rec.arc_act_market_segment_used_by := p7_a7;
82     ddp_mks_rec.segment_type := p7_a8;
83     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p7_a9);
84     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p7_a10);
85     ddp_mks_rec.attribute_category := p7_a11;
86     ddp_mks_rec.attribute1 := p7_a12;
87     ddp_mks_rec.attribute2 := p7_a13;
88     ddp_mks_rec.attribute3 := p7_a14;
89     ddp_mks_rec.attribute4 := p7_a15;
90     ddp_mks_rec.attribute5 := p7_a16;
91     ddp_mks_rec.attribute6 := p7_a17;
92     ddp_mks_rec.attribute7 := p7_a18;
93     ddp_mks_rec.attribute8 := p7_a19;
94     ddp_mks_rec.attribute9 := p7_a20;
95     ddp_mks_rec.attribute10 := p7_a21;
96     ddp_mks_rec.attribute11 := p7_a22;
97     ddp_mks_rec.attribute12 := p7_a23;
98     ddp_mks_rec.attribute13 := p7_a24;
99     ddp_mks_rec.attribute14 := p7_a25;
100     ddp_mks_rec.attribute15 := p7_a26;
101     ddp_mks_rec.group_code := p7_a27;
102     ddp_mks_rec.exclude_flag := p7_a28;
103 
104 
105     -- here's the delegated call to the old PL/SQL routine
106     ams_act_market_segments_pvt.create_market_segments(p_api_version,
107       p_init_msg_list,
108       p_commit,
109       p_validation_level,
110       x_return_status,
111       x_msg_count,
112       x_msg_data,
113       ddp_mks_rec,
114       x_act_mks_id);
115 
116     -- copy data back from the local variables to OUT or IN-OUT args, if any
117 
118 
119 
120 
121 
122 
123 
124 
125   end;
126 
127   procedure update_market_segments(p_api_version  NUMBER
128     , p_init_msg_list  VARCHAR2
129     , p_commit  VARCHAR2
130     , p_validation_level  NUMBER
131     , x_return_status out nocopy  VARCHAR2
132     , x_msg_count out nocopy  NUMBER
133     , x_msg_data out nocopy  VARCHAR2
134     , p7_a0  NUMBER := 0-1962.0724
135     , p7_a1  DATE := fnd_api.g_miss_date
136     , p7_a2  NUMBER := 0-1962.0724
137     , p7_a3  DATE := fnd_api.g_miss_date
138     , p7_a4  NUMBER := 0-1962.0724
139     , p7_a5  NUMBER := 0-1962.0724
140     , p7_a6  NUMBER := 0-1962.0724
141     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
142     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
143     , p7_a9  NUMBER := 0-1962.0724
144     , p7_a10  NUMBER := 0-1962.0724
145     , p7_a11  VARCHAR2 := fnd_api.g_miss_char
146     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
147     , p7_a13  VARCHAR2 := fnd_api.g_miss_char
148     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
149     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
150     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
151     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
152     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
153     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
154     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
155     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
156     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
157     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
158     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
159     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
160     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
161     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
162     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
163   )
164 
165   as
166     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
167     ddindx binary_integer; indx binary_integer;
168   begin
169 
170     -- copy data to the local IN or IN-OUT args, if any
171 
172 
173 
174 
175 
176 
177 
178     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p7_a0);
179     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
180     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
181     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
182     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p7_a4);
183     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p7_a5);
184     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p7_a6);
185     ddp_mks_rec.arc_act_market_segment_used_by := p7_a7;
186     ddp_mks_rec.segment_type := p7_a8;
187     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p7_a9);
188     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p7_a10);
189     ddp_mks_rec.attribute_category := p7_a11;
190     ddp_mks_rec.attribute1 := p7_a12;
191     ddp_mks_rec.attribute2 := p7_a13;
192     ddp_mks_rec.attribute3 := p7_a14;
193     ddp_mks_rec.attribute4 := p7_a15;
194     ddp_mks_rec.attribute5 := p7_a16;
195     ddp_mks_rec.attribute6 := p7_a17;
196     ddp_mks_rec.attribute7 := p7_a18;
197     ddp_mks_rec.attribute8 := p7_a19;
198     ddp_mks_rec.attribute9 := p7_a20;
199     ddp_mks_rec.attribute10 := p7_a21;
200     ddp_mks_rec.attribute11 := p7_a22;
201     ddp_mks_rec.attribute12 := p7_a23;
202     ddp_mks_rec.attribute13 := p7_a24;
203     ddp_mks_rec.attribute14 := p7_a25;
204     ddp_mks_rec.attribute15 := p7_a26;
205     ddp_mks_rec.group_code := p7_a27;
206     ddp_mks_rec.exclude_flag := p7_a28;
207 
208     -- here's the delegated call to the old PL/SQL routine
209     ams_act_market_segments_pvt.update_market_segments(p_api_version,
210       p_init_msg_list,
211       p_commit,
212       p_validation_level,
213       x_return_status,
214       x_msg_count,
215       x_msg_data,
216       ddp_mks_rec);
217 
218     -- copy data back from the local variables to OUT or IN-OUT args, if any
219 
220 
221 
222 
223 
224 
225 
226   end;
227 
228   procedure validate_market_segments(p_api_version  NUMBER
229     , p_init_msg_list  VARCHAR2
230     , p_validation_level  NUMBER
231     , x_return_status out nocopy  VARCHAR2
232     , x_msg_count out nocopy  NUMBER
233     , x_msg_data out nocopy  VARCHAR2
234     , p6_a0  NUMBER := 0-1962.0724
235     , p6_a1  DATE := fnd_api.g_miss_date
236     , p6_a2  NUMBER := 0-1962.0724
237     , p6_a3  DATE := fnd_api.g_miss_date
238     , p6_a4  NUMBER := 0-1962.0724
239     , p6_a5  NUMBER := 0-1962.0724
240     , p6_a6  NUMBER := 0-1962.0724
241     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
242     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
243     , p6_a9  NUMBER := 0-1962.0724
244     , p6_a10  NUMBER := 0-1962.0724
245     , p6_a11  VARCHAR2 := fnd_api.g_miss_char
246     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
247     , p6_a13  VARCHAR2 := fnd_api.g_miss_char
248     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
249     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
250     , p6_a16  VARCHAR2 := fnd_api.g_miss_char
251     , p6_a17  VARCHAR2 := fnd_api.g_miss_char
252     , p6_a18  VARCHAR2 := fnd_api.g_miss_char
253     , p6_a19  VARCHAR2 := fnd_api.g_miss_char
254     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
255     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
256     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
257     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
258     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
259     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
260     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
261     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
262     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
263   )
264 
265   as
266     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
267     ddindx binary_integer; indx binary_integer;
268   begin
269 
270     -- copy data to the local IN or IN-OUT args, if any
271 
272 
273 
274 
275 
276 
277     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p6_a0);
278     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
279     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
280     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
281     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p6_a4);
282     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p6_a5);
283     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p6_a6);
284     ddp_mks_rec.arc_act_market_segment_used_by := p6_a7;
285     ddp_mks_rec.segment_type := p6_a8;
286     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p6_a9);
287     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p6_a10);
288     ddp_mks_rec.attribute_category := p6_a11;
289     ddp_mks_rec.attribute1 := p6_a12;
290     ddp_mks_rec.attribute2 := p6_a13;
291     ddp_mks_rec.attribute3 := p6_a14;
292     ddp_mks_rec.attribute4 := p6_a15;
293     ddp_mks_rec.attribute5 := p6_a16;
294     ddp_mks_rec.attribute6 := p6_a17;
295     ddp_mks_rec.attribute7 := p6_a18;
296     ddp_mks_rec.attribute8 := p6_a19;
297     ddp_mks_rec.attribute9 := p6_a20;
298     ddp_mks_rec.attribute10 := p6_a21;
299     ddp_mks_rec.attribute11 := p6_a22;
300     ddp_mks_rec.attribute12 := p6_a23;
301     ddp_mks_rec.attribute13 := p6_a24;
302     ddp_mks_rec.attribute14 := p6_a25;
303     ddp_mks_rec.attribute15 := p6_a26;
304     ddp_mks_rec.group_code := p6_a27;
305     ddp_mks_rec.exclude_flag := p6_a28;
306 
307     -- here's the delegated call to the old PL/SQL routine
308     ams_act_market_segments_pvt.validate_market_segments(p_api_version,
309       p_init_msg_list,
310       p_validation_level,
311       x_return_status,
312       x_msg_count,
313       x_msg_data,
314       ddp_mks_rec);
315 
316     -- copy data back from the local variables to OUT or IN-OUT args, if any
317 
318 
319 
320 
321 
322 
323   end;
324 
325   procedure check_mks_items(p_validation_mode  VARCHAR2
326     , x_return_status out nocopy  VARCHAR2
327     , p0_a0  NUMBER := 0-1962.0724
328     , p0_a1  DATE := fnd_api.g_miss_date
329     , p0_a2  NUMBER := 0-1962.0724
330     , p0_a3  DATE := fnd_api.g_miss_date
331     , p0_a4  NUMBER := 0-1962.0724
332     , p0_a5  NUMBER := 0-1962.0724
333     , p0_a6  NUMBER := 0-1962.0724
334     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
335     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
336     , p0_a9  NUMBER := 0-1962.0724
337     , p0_a10  NUMBER := 0-1962.0724
338     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
339     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
340     , p0_a13  VARCHAR2 := fnd_api.g_miss_char
341     , p0_a14  VARCHAR2 := fnd_api.g_miss_char
342     , p0_a15  VARCHAR2 := fnd_api.g_miss_char
343     , p0_a16  VARCHAR2 := fnd_api.g_miss_char
344     , p0_a17  VARCHAR2 := fnd_api.g_miss_char
345     , p0_a18  VARCHAR2 := fnd_api.g_miss_char
346     , p0_a19  VARCHAR2 := fnd_api.g_miss_char
347     , p0_a20  VARCHAR2 := fnd_api.g_miss_char
348     , p0_a21  VARCHAR2 := fnd_api.g_miss_char
349     , p0_a22  VARCHAR2 := fnd_api.g_miss_char
350     , p0_a23  VARCHAR2 := fnd_api.g_miss_char
351     , p0_a24  VARCHAR2 := fnd_api.g_miss_char
352     , p0_a25  VARCHAR2 := fnd_api.g_miss_char
353     , p0_a26  VARCHAR2 := fnd_api.g_miss_char
354     , p0_a27  VARCHAR2 := fnd_api.g_miss_char
355     , p0_a28  VARCHAR2 := fnd_api.g_miss_char
356   )
357 
358   as
359     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
360     ddindx binary_integer; indx binary_integer;
361   begin
362 
363     -- copy data to the local IN or IN-OUT args, if any
364     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p0_a0);
365     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
366     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
367     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
368     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p0_a4);
369     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p0_a5);
370     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p0_a6);
371     ddp_mks_rec.arc_act_market_segment_used_by := p0_a7;
372     ddp_mks_rec.segment_type := p0_a8;
373     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
374     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p0_a10);
375     ddp_mks_rec.attribute_category := p0_a11;
376     ddp_mks_rec.attribute1 := p0_a12;
377     ddp_mks_rec.attribute2 := p0_a13;
378     ddp_mks_rec.attribute3 := p0_a14;
379     ddp_mks_rec.attribute4 := p0_a15;
380     ddp_mks_rec.attribute5 := p0_a16;
381     ddp_mks_rec.attribute6 := p0_a17;
382     ddp_mks_rec.attribute7 := p0_a18;
383     ddp_mks_rec.attribute8 := p0_a19;
384     ddp_mks_rec.attribute9 := p0_a20;
385     ddp_mks_rec.attribute10 := p0_a21;
386     ddp_mks_rec.attribute11 := p0_a22;
387     ddp_mks_rec.attribute12 := p0_a23;
388     ddp_mks_rec.attribute13 := p0_a24;
389     ddp_mks_rec.attribute14 := p0_a25;
390     ddp_mks_rec.attribute15 := p0_a26;
391     ddp_mks_rec.group_code := p0_a27;
392     ddp_mks_rec.exclude_flag := p0_a28;
393 
394 
395 
396     -- here's the delegated call to the old PL/SQL routine
397     ams_act_market_segments_pvt.check_mks_items(ddp_mks_rec,
398       p_validation_mode,
399       x_return_status);
400 
401     -- copy data back from the local variables to OUT or IN-OUT args, if any
402 
403 
404   end;
405 
406   procedure validate_cross_ent_rec(p_validation_mode  VARCHAR2
410     , p0_a2  NUMBER := 0-1962.0724
407     , x_return_status out nocopy  VARCHAR2
408     , p0_a0  NUMBER := 0-1962.0724
409     , p0_a1  DATE := fnd_api.g_miss_date
411     , p0_a3  DATE := fnd_api.g_miss_date
412     , p0_a4  NUMBER := 0-1962.0724
413     , p0_a5  NUMBER := 0-1962.0724
414     , p0_a6  NUMBER := 0-1962.0724
415     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
416     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
417     , p0_a9  NUMBER := 0-1962.0724
418     , p0_a10  NUMBER := 0-1962.0724
419     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
420     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
421     , p0_a13  VARCHAR2 := fnd_api.g_miss_char
422     , p0_a14  VARCHAR2 := fnd_api.g_miss_char
423     , p0_a15  VARCHAR2 := fnd_api.g_miss_char
424     , p0_a16  VARCHAR2 := fnd_api.g_miss_char
425     , p0_a17  VARCHAR2 := fnd_api.g_miss_char
426     , p0_a18  VARCHAR2 := fnd_api.g_miss_char
427     , p0_a19  VARCHAR2 := fnd_api.g_miss_char
428     , p0_a20  VARCHAR2 := fnd_api.g_miss_char
429     , p0_a21  VARCHAR2 := fnd_api.g_miss_char
430     , p0_a22  VARCHAR2 := fnd_api.g_miss_char
431     , p0_a23  VARCHAR2 := fnd_api.g_miss_char
432     , p0_a24  VARCHAR2 := fnd_api.g_miss_char
433     , p0_a25  VARCHAR2 := fnd_api.g_miss_char
434     , p0_a26  VARCHAR2 := fnd_api.g_miss_char
435     , p0_a27  VARCHAR2 := fnd_api.g_miss_char
436     , p0_a28  VARCHAR2 := fnd_api.g_miss_char
437     , p1_a0  NUMBER := 0-1962.0724
438     , p1_a1  DATE := fnd_api.g_miss_date
439     , p1_a2  NUMBER := 0-1962.0724
440     , p1_a3  DATE := fnd_api.g_miss_date
441     , p1_a4  NUMBER := 0-1962.0724
442     , p1_a5  NUMBER := 0-1962.0724
443     , p1_a6  NUMBER := 0-1962.0724
444     , p1_a7  VARCHAR2 := fnd_api.g_miss_char
445     , p1_a8  VARCHAR2 := fnd_api.g_miss_char
446     , p1_a9  NUMBER := 0-1962.0724
447     , p1_a10  NUMBER := 0-1962.0724
448     , p1_a11  VARCHAR2 := fnd_api.g_miss_char
449     , p1_a12  VARCHAR2 := fnd_api.g_miss_char
450     , p1_a13  VARCHAR2 := fnd_api.g_miss_char
451     , p1_a14  VARCHAR2 := fnd_api.g_miss_char
452     , p1_a15  VARCHAR2 := fnd_api.g_miss_char
453     , p1_a16  VARCHAR2 := fnd_api.g_miss_char
454     , p1_a17  VARCHAR2 := fnd_api.g_miss_char
455     , p1_a18  VARCHAR2 := fnd_api.g_miss_char
456     , p1_a19  VARCHAR2 := fnd_api.g_miss_char
457     , p1_a20  VARCHAR2 := fnd_api.g_miss_char
458     , p1_a21  VARCHAR2 := fnd_api.g_miss_char
459     , p1_a22  VARCHAR2 := fnd_api.g_miss_char
460     , p1_a23  VARCHAR2 := fnd_api.g_miss_char
461     , p1_a24  VARCHAR2 := fnd_api.g_miss_char
462     , p1_a25  VARCHAR2 := fnd_api.g_miss_char
463     , p1_a26  VARCHAR2 := fnd_api.g_miss_char
464     , p1_a27  VARCHAR2 := fnd_api.g_miss_char
465     , p1_a28  VARCHAR2 := fnd_api.g_miss_char
466   )
467 
468   as
469     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
470     ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
471     ddindx binary_integer; indx binary_integer;
472   begin
473 
474     -- copy data to the local IN or IN-OUT args, if any
475     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p0_a0);
476     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
477     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
478     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
479     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p0_a4);
480     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p0_a5);
481     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p0_a6);
482     ddp_mks_rec.arc_act_market_segment_used_by := p0_a7;
483     ddp_mks_rec.segment_type := p0_a8;
484     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
485     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p0_a10);
486     ddp_mks_rec.attribute_category := p0_a11;
487     ddp_mks_rec.attribute1 := p0_a12;
488     ddp_mks_rec.attribute2 := p0_a13;
489     ddp_mks_rec.attribute3 := p0_a14;
490     ddp_mks_rec.attribute4 := p0_a15;
491     ddp_mks_rec.attribute5 := p0_a16;
492     ddp_mks_rec.attribute6 := p0_a17;
493     ddp_mks_rec.attribute7 := p0_a18;
494     ddp_mks_rec.attribute8 := p0_a19;
495     ddp_mks_rec.attribute9 := p0_a20;
496     ddp_mks_rec.attribute10 := p0_a21;
497     ddp_mks_rec.attribute11 := p0_a22;
498     ddp_mks_rec.attribute12 := p0_a23;
499     ddp_mks_rec.attribute13 := p0_a24;
500     ddp_mks_rec.attribute14 := p0_a25;
501     ddp_mks_rec.attribute15 := p0_a26;
502     ddp_mks_rec.group_code := p0_a27;
503     ddp_mks_rec.exclude_flag := p0_a28;
504 
505     ddp_complete_rec.activity_market_segment_id := rosetta_g_miss_num_map(p1_a0);
506     ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
507     ddp_complete_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
508     ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
509     ddp_complete_rec.created_by := rosetta_g_miss_num_map(p1_a4);
510     ddp_complete_rec.market_segment_id := rosetta_g_miss_num_map(p1_a5);
511     ddp_complete_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p1_a6);
512     ddp_complete_rec.arc_act_market_segment_used_by := p1_a7;
513     ddp_complete_rec.segment_type := p1_a8;
514     ddp_complete_rec.last_update_login := rosetta_g_miss_num_map(p1_a9);
515     ddp_complete_rec.object_version_number := rosetta_g_miss_num_map(p1_a10);
516     ddp_complete_rec.attribute_category := p1_a11;
517     ddp_complete_rec.attribute1 := p1_a12;
518     ddp_complete_rec.attribute2 := p1_a13;
522     ddp_complete_rec.attribute6 := p1_a17;
519     ddp_complete_rec.attribute3 := p1_a14;
520     ddp_complete_rec.attribute4 := p1_a15;
521     ddp_complete_rec.attribute5 := p1_a16;
523     ddp_complete_rec.attribute7 := p1_a18;
524     ddp_complete_rec.attribute8 := p1_a19;
525     ddp_complete_rec.attribute9 := p1_a20;
526     ddp_complete_rec.attribute10 := p1_a21;
527     ddp_complete_rec.attribute11 := p1_a22;
528     ddp_complete_rec.attribute12 := p1_a23;
529     ddp_complete_rec.attribute13 := p1_a24;
530     ddp_complete_rec.attribute14 := p1_a25;
531     ddp_complete_rec.attribute15 := p1_a26;
532     ddp_complete_rec.group_code := p1_a27;
533     ddp_complete_rec.exclude_flag := p1_a28;
534 
535 
536 
537     -- here's the delegated call to the old PL/SQL routine
538     ams_act_market_segments_pvt.validate_cross_ent_rec(ddp_mks_rec,
539       ddp_complete_rec,
540       p_validation_mode,
541       x_return_status);
542 
543     -- copy data back from the local variables to OUT or IN-OUT args, if any
544 
545 
546 
547   end;
548 
549   procedure check_mks_record(x_return_status out nocopy  VARCHAR2
550     , p0_a0  NUMBER := 0-1962.0724
551     , p0_a1  DATE := fnd_api.g_miss_date
552     , p0_a2  NUMBER := 0-1962.0724
553     , p0_a3  DATE := fnd_api.g_miss_date
554     , p0_a4  NUMBER := 0-1962.0724
555     , p0_a5  NUMBER := 0-1962.0724
556     , p0_a6  NUMBER := 0-1962.0724
557     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
558     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
559     , p0_a9  NUMBER := 0-1962.0724
560     , p0_a10  NUMBER := 0-1962.0724
561     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
562     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
563     , p0_a13  VARCHAR2 := fnd_api.g_miss_char
564     , p0_a14  VARCHAR2 := fnd_api.g_miss_char
565     , p0_a15  VARCHAR2 := fnd_api.g_miss_char
566     , p0_a16  VARCHAR2 := fnd_api.g_miss_char
567     , p0_a17  VARCHAR2 := fnd_api.g_miss_char
568     , p0_a18  VARCHAR2 := fnd_api.g_miss_char
569     , p0_a19  VARCHAR2 := fnd_api.g_miss_char
570     , p0_a20  VARCHAR2 := fnd_api.g_miss_char
571     , p0_a21  VARCHAR2 := fnd_api.g_miss_char
572     , p0_a22  VARCHAR2 := fnd_api.g_miss_char
573     , p0_a23  VARCHAR2 := fnd_api.g_miss_char
574     , p0_a24  VARCHAR2 := fnd_api.g_miss_char
575     , p0_a25  VARCHAR2 := fnd_api.g_miss_char
576     , p0_a26  VARCHAR2 := fnd_api.g_miss_char
577     , p0_a27  VARCHAR2 := fnd_api.g_miss_char
578     , p0_a28  VARCHAR2 := fnd_api.g_miss_char
579     , p1_a0  NUMBER := 0-1962.0724
580     , p1_a1  DATE := fnd_api.g_miss_date
581     , p1_a2  NUMBER := 0-1962.0724
582     , p1_a3  DATE := fnd_api.g_miss_date
583     , p1_a4  NUMBER := 0-1962.0724
584     , p1_a5  NUMBER := 0-1962.0724
585     , p1_a6  NUMBER := 0-1962.0724
586     , p1_a7  VARCHAR2 := fnd_api.g_miss_char
587     , p1_a8  VARCHAR2 := fnd_api.g_miss_char
588     , p1_a9  NUMBER := 0-1962.0724
589     , p1_a10  NUMBER := 0-1962.0724
590     , p1_a11  VARCHAR2 := fnd_api.g_miss_char
591     , p1_a12  VARCHAR2 := fnd_api.g_miss_char
592     , p1_a13  VARCHAR2 := fnd_api.g_miss_char
593     , p1_a14  VARCHAR2 := fnd_api.g_miss_char
594     , p1_a15  VARCHAR2 := fnd_api.g_miss_char
595     , p1_a16  VARCHAR2 := fnd_api.g_miss_char
596     , p1_a17  VARCHAR2 := fnd_api.g_miss_char
597     , p1_a18  VARCHAR2 := fnd_api.g_miss_char
598     , p1_a19  VARCHAR2 := fnd_api.g_miss_char
599     , p1_a20  VARCHAR2 := fnd_api.g_miss_char
600     , p1_a21  VARCHAR2 := fnd_api.g_miss_char
601     , p1_a22  VARCHAR2 := fnd_api.g_miss_char
602     , p1_a23  VARCHAR2 := fnd_api.g_miss_char
603     , p1_a24  VARCHAR2 := fnd_api.g_miss_char
604     , p1_a25  VARCHAR2 := fnd_api.g_miss_char
605     , p1_a26  VARCHAR2 := fnd_api.g_miss_char
606     , p1_a27  VARCHAR2 := fnd_api.g_miss_char
607     , p1_a28  VARCHAR2 := fnd_api.g_miss_char
608   )
609 
610   as
611     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
612     ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
613     ddindx binary_integer; indx binary_integer;
614   begin
615 
616     -- copy data to the local IN or IN-OUT args, if any
617     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p0_a0);
618     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
619     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
620     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
621     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p0_a4);
622     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p0_a5);
623     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p0_a6);
624     ddp_mks_rec.arc_act_market_segment_used_by := p0_a7;
625     ddp_mks_rec.segment_type := p0_a8;
626     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
627     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p0_a10);
628     ddp_mks_rec.attribute_category := p0_a11;
629     ddp_mks_rec.attribute1 := p0_a12;
630     ddp_mks_rec.attribute2 := p0_a13;
631     ddp_mks_rec.attribute3 := p0_a14;
632     ddp_mks_rec.attribute4 := p0_a15;
633     ddp_mks_rec.attribute5 := p0_a16;
634     ddp_mks_rec.attribute6 := p0_a17;
635     ddp_mks_rec.attribute7 := p0_a18;
636     ddp_mks_rec.attribute8 := p0_a19;
637     ddp_mks_rec.attribute9 := p0_a20;
638     ddp_mks_rec.attribute10 := p0_a21;
639     ddp_mks_rec.attribute11 := p0_a22;
643     ddp_mks_rec.attribute15 := p0_a26;
640     ddp_mks_rec.attribute12 := p0_a23;
641     ddp_mks_rec.attribute13 := p0_a24;
642     ddp_mks_rec.attribute14 := p0_a25;
644     ddp_mks_rec.group_code := p0_a27;
645     ddp_mks_rec.exclude_flag := p0_a28;
646 
647     ddp_complete_rec.activity_market_segment_id := rosetta_g_miss_num_map(p1_a0);
648     ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
649     ddp_complete_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
650     ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
651     ddp_complete_rec.created_by := rosetta_g_miss_num_map(p1_a4);
652     ddp_complete_rec.market_segment_id := rosetta_g_miss_num_map(p1_a5);
653     ddp_complete_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p1_a6);
654     ddp_complete_rec.arc_act_market_segment_used_by := p1_a7;
655     ddp_complete_rec.segment_type := p1_a8;
656     ddp_complete_rec.last_update_login := rosetta_g_miss_num_map(p1_a9);
657     ddp_complete_rec.object_version_number := rosetta_g_miss_num_map(p1_a10);
658     ddp_complete_rec.attribute_category := p1_a11;
659     ddp_complete_rec.attribute1 := p1_a12;
660     ddp_complete_rec.attribute2 := p1_a13;
661     ddp_complete_rec.attribute3 := p1_a14;
662     ddp_complete_rec.attribute4 := p1_a15;
663     ddp_complete_rec.attribute5 := p1_a16;
664     ddp_complete_rec.attribute6 := p1_a17;
665     ddp_complete_rec.attribute7 := p1_a18;
666     ddp_complete_rec.attribute8 := p1_a19;
667     ddp_complete_rec.attribute9 := p1_a20;
668     ddp_complete_rec.attribute10 := p1_a21;
669     ddp_complete_rec.attribute11 := p1_a22;
670     ddp_complete_rec.attribute12 := p1_a23;
671     ddp_complete_rec.attribute13 := p1_a24;
672     ddp_complete_rec.attribute14 := p1_a25;
673     ddp_complete_rec.attribute15 := p1_a26;
674     ddp_complete_rec.group_code := p1_a27;
675     ddp_complete_rec.exclude_flag := p1_a28;
676 
677 
678     -- here's the delegated call to the old PL/SQL routine
679     ams_act_market_segments_pvt.check_mks_record(ddp_mks_rec,
680       ddp_complete_rec,
681       x_return_status);
682 
683     -- copy data back from the local variables to OUT or IN-OUT args, if any
684 
685 
686   end;
687 
688   procedure init_mks_rec(p0_a0 out nocopy  NUMBER
689     , p0_a1 out nocopy  DATE
690     , p0_a2 out nocopy  NUMBER
691     , p0_a3 out nocopy  DATE
692     , p0_a4 out nocopy  NUMBER
693     , p0_a5 out nocopy  NUMBER
694     , p0_a6 out nocopy  NUMBER
695     , p0_a7 out nocopy  VARCHAR2
696     , p0_a8 out nocopy  VARCHAR2
697     , p0_a9 out nocopy  NUMBER
698     , p0_a10 out nocopy  NUMBER
699     , p0_a11 out nocopy  VARCHAR2
700     , p0_a12 out nocopy  VARCHAR2
701     , p0_a13 out nocopy  VARCHAR2
702     , p0_a14 out nocopy  VARCHAR2
703     , p0_a15 out nocopy  VARCHAR2
704     , p0_a16 out nocopy  VARCHAR2
705     , p0_a17 out nocopy  VARCHAR2
706     , p0_a18 out nocopy  VARCHAR2
707     , p0_a19 out nocopy  VARCHAR2
708     , p0_a20 out nocopy  VARCHAR2
709     , p0_a21 out nocopy  VARCHAR2
710     , p0_a22 out nocopy  VARCHAR2
711     , p0_a23 out nocopy  VARCHAR2
712     , p0_a24 out nocopy  VARCHAR2
713     , p0_a25 out nocopy  VARCHAR2
714     , p0_a26 out nocopy  VARCHAR2
715     , p0_a27 out nocopy  VARCHAR2
716     , p0_a28 out nocopy  VARCHAR2
717   )
718 
719   as
720     ddx_mks_rec ams_act_market_segments_pvt.mks_rec_type;
721     ddindx binary_integer; indx binary_integer;
722   begin
723 
724     -- copy data to the local IN or IN-OUT args, if any
725 
726     -- here's the delegated call to the old PL/SQL routine
727     ams_act_market_segments_pvt.init_mks_rec(ddx_mks_rec);
728 
729     -- copy data back from the local variables to OUT or IN-OUT args, if any
730     p0_a0 := rosetta_g_miss_num_map(ddx_mks_rec.activity_market_segment_id);
731     p0_a1 := ddx_mks_rec.last_update_date;
732     p0_a2 := rosetta_g_miss_num_map(ddx_mks_rec.last_updated_by);
733     p0_a3 := ddx_mks_rec.creation_date;
734     p0_a4 := rosetta_g_miss_num_map(ddx_mks_rec.created_by);
735     p0_a5 := rosetta_g_miss_num_map(ddx_mks_rec.market_segment_id);
736     p0_a6 := rosetta_g_miss_num_map(ddx_mks_rec.act_market_segment_used_by_id);
737     p0_a7 := ddx_mks_rec.arc_act_market_segment_used_by;
738     p0_a8 := ddx_mks_rec.segment_type;
739     p0_a9 := rosetta_g_miss_num_map(ddx_mks_rec.last_update_login);
740     p0_a10 := rosetta_g_miss_num_map(ddx_mks_rec.object_version_number);
741     p0_a11 := ddx_mks_rec.attribute_category;
742     p0_a12 := ddx_mks_rec.attribute1;
743     p0_a13 := ddx_mks_rec.attribute2;
744     p0_a14 := ddx_mks_rec.attribute3;
745     p0_a15 := ddx_mks_rec.attribute4;
746     p0_a16 := ddx_mks_rec.attribute5;
747     p0_a17 := ddx_mks_rec.attribute6;
748     p0_a18 := ddx_mks_rec.attribute7;
749     p0_a19 := ddx_mks_rec.attribute8;
750     p0_a20 := ddx_mks_rec.attribute9;
751     p0_a21 := ddx_mks_rec.attribute10;
752     p0_a22 := ddx_mks_rec.attribute11;
753     p0_a23 := ddx_mks_rec.attribute12;
754     p0_a24 := ddx_mks_rec.attribute13;
755     p0_a25 := ddx_mks_rec.attribute14;
756     p0_a26 := ddx_mks_rec.attribute15;
757     p0_a27 := ddx_mks_rec.group_code;
758     p0_a28 := ddx_mks_rec.exclude_flag;
759   end;
760 
761   procedure complete_mks_rec(p1_a0 out nocopy  NUMBER
762     , p1_a1 out nocopy  DATE
766     , p1_a5 out nocopy  NUMBER
763     , p1_a2 out nocopy  NUMBER
764     , p1_a3 out nocopy  DATE
765     , p1_a4 out nocopy  NUMBER
767     , p1_a6 out nocopy  NUMBER
768     , p1_a7 out nocopy  VARCHAR2
769     , p1_a8 out nocopy  VARCHAR2
770     , p1_a9 out nocopy  NUMBER
771     , p1_a10 out nocopy  NUMBER
772     , p1_a11 out nocopy  VARCHAR2
773     , p1_a12 out nocopy  VARCHAR2
774     , p1_a13 out nocopy  VARCHAR2
775     , p1_a14 out nocopy  VARCHAR2
776     , p1_a15 out nocopy  VARCHAR2
777     , p1_a16 out nocopy  VARCHAR2
778     , p1_a17 out nocopy  VARCHAR2
779     , p1_a18 out nocopy  VARCHAR2
780     , p1_a19 out nocopy  VARCHAR2
781     , p1_a20 out nocopy  VARCHAR2
782     , p1_a21 out nocopy  VARCHAR2
783     , p1_a22 out nocopy  VARCHAR2
784     , p1_a23 out nocopy  VARCHAR2
785     , p1_a24 out nocopy  VARCHAR2
786     , p1_a25 out nocopy  VARCHAR2
787     , p1_a26 out nocopy  VARCHAR2
788     , p1_a27 out nocopy  VARCHAR2
789     , p1_a28 out nocopy  VARCHAR2
790     , p0_a0  NUMBER := 0-1962.0724
791     , p0_a1  DATE := fnd_api.g_miss_date
792     , p0_a2  NUMBER := 0-1962.0724
793     , p0_a3  DATE := fnd_api.g_miss_date
794     , p0_a4  NUMBER := 0-1962.0724
795     , p0_a5  NUMBER := 0-1962.0724
796     , p0_a6  NUMBER := 0-1962.0724
797     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
798     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
799     , p0_a9  NUMBER := 0-1962.0724
800     , p0_a10  NUMBER := 0-1962.0724
801     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
802     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
803     , p0_a13  VARCHAR2 := fnd_api.g_miss_char
804     , p0_a14  VARCHAR2 := fnd_api.g_miss_char
805     , p0_a15  VARCHAR2 := fnd_api.g_miss_char
806     , p0_a16  VARCHAR2 := fnd_api.g_miss_char
807     , p0_a17  VARCHAR2 := fnd_api.g_miss_char
808     , p0_a18  VARCHAR2 := fnd_api.g_miss_char
809     , p0_a19  VARCHAR2 := fnd_api.g_miss_char
810     , p0_a20  VARCHAR2 := fnd_api.g_miss_char
811     , p0_a21  VARCHAR2 := fnd_api.g_miss_char
812     , p0_a22  VARCHAR2 := fnd_api.g_miss_char
813     , p0_a23  VARCHAR2 := fnd_api.g_miss_char
814     , p0_a24  VARCHAR2 := fnd_api.g_miss_char
815     , p0_a25  VARCHAR2 := fnd_api.g_miss_char
816     , p0_a26  VARCHAR2 := fnd_api.g_miss_char
817     , p0_a27  VARCHAR2 := fnd_api.g_miss_char
818     , p0_a28  VARCHAR2 := fnd_api.g_miss_char
819   )
820 
821   as
822     ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
823     ddx_complete_rec ams_act_market_segments_pvt.mks_rec_type;
824     ddindx binary_integer; indx binary_integer;
825   begin
826 
827     -- copy data to the local IN or IN-OUT args, if any
828     ddp_mks_rec.activity_market_segment_id := rosetta_g_miss_num_map(p0_a0);
829     ddp_mks_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
830     ddp_mks_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
831     ddp_mks_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
832     ddp_mks_rec.created_by := rosetta_g_miss_num_map(p0_a4);
833     ddp_mks_rec.market_segment_id := rosetta_g_miss_num_map(p0_a5);
834     ddp_mks_rec.act_market_segment_used_by_id := rosetta_g_miss_num_map(p0_a6);
835     ddp_mks_rec.arc_act_market_segment_used_by := p0_a7;
836     ddp_mks_rec.segment_type := p0_a8;
837     ddp_mks_rec.last_update_login := rosetta_g_miss_num_map(p0_a9);
838     ddp_mks_rec.object_version_number := rosetta_g_miss_num_map(p0_a10);
839     ddp_mks_rec.attribute_category := p0_a11;
840     ddp_mks_rec.attribute1 := p0_a12;
841     ddp_mks_rec.attribute2 := p0_a13;
842     ddp_mks_rec.attribute3 := p0_a14;
843     ddp_mks_rec.attribute4 := p0_a15;
844     ddp_mks_rec.attribute5 := p0_a16;
845     ddp_mks_rec.attribute6 := p0_a17;
846     ddp_mks_rec.attribute7 := p0_a18;
847     ddp_mks_rec.attribute8 := p0_a19;
848     ddp_mks_rec.attribute9 := p0_a20;
849     ddp_mks_rec.attribute10 := p0_a21;
850     ddp_mks_rec.attribute11 := p0_a22;
851     ddp_mks_rec.attribute12 := p0_a23;
852     ddp_mks_rec.attribute13 := p0_a24;
853     ddp_mks_rec.attribute14 := p0_a25;
854     ddp_mks_rec.attribute15 := p0_a26;
855     ddp_mks_rec.group_code := p0_a27;
856     ddp_mks_rec.exclude_flag := p0_a28;
857 
858 
859     -- here's the delegated call to the old PL/SQL routine
860     ams_act_market_segments_pvt.complete_mks_rec(ddp_mks_rec,
861       ddx_complete_rec);
862 
863     -- copy data back from the local variables to OUT or IN-OUT args, if any
864 
865     p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.activity_market_segment_id);
866     p1_a1 := ddx_complete_rec.last_update_date;
867     p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
868     p1_a3 := ddx_complete_rec.creation_date;
869     p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
870     p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.market_segment_id);
871     p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.act_market_segment_used_by_id);
872     p1_a7 := ddx_complete_rec.arc_act_market_segment_used_by;
873     p1_a8 := ddx_complete_rec.segment_type;
874     p1_a9 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
875     p1_a10 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
876     p1_a11 := ddx_complete_rec.attribute_category;
877     p1_a12 := ddx_complete_rec.attribute1;
878     p1_a13 := ddx_complete_rec.attribute2;
879     p1_a14 := ddx_complete_rec.attribute3;
883     p1_a18 := ddx_complete_rec.attribute7;
880     p1_a15 := ddx_complete_rec.attribute4;
881     p1_a16 := ddx_complete_rec.attribute5;
882     p1_a17 := ddx_complete_rec.attribute6;
884     p1_a19 := ddx_complete_rec.attribute8;
885     p1_a20 := ddx_complete_rec.attribute9;
886     p1_a21 := ddx_complete_rec.attribute10;
887     p1_a22 := ddx_complete_rec.attribute11;
888     p1_a23 := ddx_complete_rec.attribute12;
889     p1_a24 := ddx_complete_rec.attribute13;
890     p1_a25 := ddx_complete_rec.attribute14;
891     p1_a26 := ddx_complete_rec.attribute15;
892     p1_a27 := ddx_complete_rec.group_code;
893     p1_a28 := ddx_complete_rec.exclude_flag;
894   end;
895 
896 end ams_act_market_segments_pvt_w;