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