[Home] [Help]
PACKAGE BODY: APPS.AMS_ACT_LIST_PVT_W
Source
1 package body ams_act_list_pvt_w as
2 /* $Header: amswalsb.pls 120.1 2005/06/27 05:42:33 appldev 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 rosetta_table_copy_in_p1(t OUT NOCOPY ams_act_list_pvt.child_type, a0 JTF_VARCHAR2_TABLE_100) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx) := a0(indx);
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p1;
40 procedure rosetta_table_copy_out_p1(t ams_act_list_pvt.child_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_100) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if t is null or t.count = 0 then
44 a0 := JTF_VARCHAR2_TABLE_100();
45 else
46 a0 := JTF_VARCHAR2_TABLE_100();
47 if t.count > 0 then
48 a0.extend(t.count);
49 ddindx := t.first;
50 indx := 1;
51 while true loop
52 a0(indx) := t(ddindx);
53 indx := indx+1;
54 if t.last =ddindx
55 then exit;
56 end if;
57 ddindx := t.next(ddindx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_out_p1;
62
63 procedure rosetta_table_copy_in_p4(t OUT NOCOPY ams_act_list_pvt.act_list_tbl_type, a0 JTF_NUMBER_TABLE
64 , a1 JTF_DATE_TABLE
65 , a2 JTF_NUMBER_TABLE
66 , a3 JTF_DATE_TABLE
67 , a4 JTF_NUMBER_TABLE
68 , a5 JTF_NUMBER_TABLE
69 , a6 JTF_NUMBER_TABLE
70 , a7 JTF_NUMBER_TABLE
71 , a8 JTF_VARCHAR2_TABLE_100
72 , a9 JTF_NUMBER_TABLE
73 , a10 JTF_VARCHAR2_TABLE_100
74 , a11 JTF_VARCHAR2_TABLE_100
75 , a12 JTF_VARCHAR2_TABLE_100
76 , a13 JTF_NUMBER_TABLE
77 ) as
78 ddindx binary_integer; indx binary_integer;
79 begin
80 if a0 is not null and a0.count > 0 then
81 if a0.count > 0 then
82 indx := a0.first;
83 ddindx := 1;
84 while true loop
85 t(ddindx).act_list_header_id := rosetta_g_miss_num_map(a0(indx));
86 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
87 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
88 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
89 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
90 t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
91 t(ddindx).last_update_login := rosetta_g_miss_num_map(a6(indx));
92 t(ddindx).list_header_id := rosetta_g_miss_num_map(a7(indx));
93 t(ddindx).group_code := a8(indx);
94 t(ddindx).list_used_by_id := rosetta_g_miss_num_map(a9(indx));
95 t(ddindx).list_used_by := a10(indx);
96 t(ddindx).list_act_type := a11(indx);
97 t(ddindx).list_action_type := a12(indx);
98 t(ddindx).order_number := rosetta_g_miss_num_map(a13(indx));
99 ddindx := ddindx+1;
100 if a0.last =indx
101 then exit;
102 end if;
103 indx := a0.next(indx);
104 end loop;
105 end if;
106 end if;
107 end rosetta_table_copy_in_p4;
108 procedure rosetta_table_copy_out_p4(t ams_act_list_pvt.act_list_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
109 , a1 OUT NOCOPY JTF_DATE_TABLE
110 , a2 OUT NOCOPY JTF_NUMBER_TABLE
111 , a3 OUT NOCOPY JTF_DATE_TABLE
112 , a4 OUT NOCOPY JTF_NUMBER_TABLE
113 , a5 OUT NOCOPY JTF_NUMBER_TABLE
114 , a6 OUT NOCOPY JTF_NUMBER_TABLE
115 , a7 OUT NOCOPY JTF_NUMBER_TABLE
116 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
117 , a9 OUT NOCOPY JTF_NUMBER_TABLE
118 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
119 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_100
120 , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_100
121 , a13 OUT NOCOPY JTF_NUMBER_TABLE
122 ) as
123 ddindx binary_integer; indx binary_integer;
124 begin
125 if t is null or t.count = 0 then
126 a0 := JTF_NUMBER_TABLE();
127 a1 := JTF_DATE_TABLE();
128 a2 := JTF_NUMBER_TABLE();
129 a3 := JTF_DATE_TABLE();
130 a4 := JTF_NUMBER_TABLE();
131 a5 := JTF_NUMBER_TABLE();
132 a6 := JTF_NUMBER_TABLE();
133 a7 := JTF_NUMBER_TABLE();
134 a8 := JTF_VARCHAR2_TABLE_100();
135 a9 := JTF_NUMBER_TABLE();
136 a10 := JTF_VARCHAR2_TABLE_100();
137 a11 := JTF_VARCHAR2_TABLE_100();
138 a12 := JTF_VARCHAR2_TABLE_100();
139 a13 := JTF_NUMBER_TABLE();
140 else
141 a0 := JTF_NUMBER_TABLE();
142 a1 := JTF_DATE_TABLE();
143 a2 := JTF_NUMBER_TABLE();
144 a3 := JTF_DATE_TABLE();
145 a4 := JTF_NUMBER_TABLE();
146 a5 := JTF_NUMBER_TABLE();
147 a6 := JTF_NUMBER_TABLE();
148 a7 := JTF_NUMBER_TABLE();
149 a8 := JTF_VARCHAR2_TABLE_100();
150 a9 := JTF_NUMBER_TABLE();
151 a10 := JTF_VARCHAR2_TABLE_100();
152 a11 := JTF_VARCHAR2_TABLE_100();
153 a12 := JTF_VARCHAR2_TABLE_100();
154 a13 := JTF_NUMBER_TABLE();
155 if t.count > 0 then
156 a0.extend(t.count);
157 a1.extend(t.count);
158 a2.extend(t.count);
159 a3.extend(t.count);
160 a4.extend(t.count);
161 a5.extend(t.count);
162 a6.extend(t.count);
163 a7.extend(t.count);
164 a8.extend(t.count);
165 a9.extend(t.count);
166 a10.extend(t.count);
167 a11.extend(t.count);
168 a12.extend(t.count);
169 a13.extend(t.count);
170 ddindx := t.first;
171 indx := 1;
172 while true loop
173 a0(indx) := rosetta_g_miss_num_map(t(ddindx).act_list_header_id);
174 a1(indx) := t(ddindx).last_update_date;
175 a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
176 a3(indx) := t(ddindx).creation_date;
177 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
178 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
179 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
180 a7(indx) := rosetta_g_miss_num_map(t(ddindx).list_header_id);
181 a8(indx) := t(ddindx).group_code;
182 a9(indx) := rosetta_g_miss_num_map(t(ddindx).list_used_by_id);
183 a10(indx) := t(ddindx).list_used_by;
184 a11(indx) := t(ddindx).list_act_type;
185 a12(indx) := t(ddindx).list_action_type;
186 a13(indx) := rosetta_g_miss_num_map(t(ddindx).order_number);
187 indx := indx+1;
188 if t.last =ddindx
189 then exit;
190 end if;
191 ddindx := t.next(ddindx);
192 end loop;
193 end if;
194 end if;
195 end rosetta_table_copy_out_p4;
196
197 procedure create_act_list(p_api_version_number NUMBER
198 , p_init_msg_list VARCHAR2
199 , p_commit VARCHAR2
200 , p_validation_level NUMBER
201 , x_return_status OUT NOCOPY VARCHAR2
202 , x_msg_count OUT NOCOPY NUMBER
203 , x_msg_data OUT NOCOPY VARCHAR2
204 , x_act_list_header_id OUT NOCOPY NUMBER
205 , p7_a0 NUMBER := 0-1962.0724
206 , p7_a1 DATE := fnd_api.g_miss_date
207 , p7_a2 NUMBER := 0-1962.0724
208 , p7_a3 DATE := fnd_api.g_miss_date
209 , p7_a4 NUMBER := 0-1962.0724
210 , p7_a5 NUMBER := 0-1962.0724
211 , p7_a6 NUMBER := 0-1962.0724
212 , p7_a7 NUMBER := 0-1962.0724
213 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
214 , p7_a9 NUMBER := 0-1962.0724
215 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
216 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
217 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
218 , p7_a13 NUMBER := 0-1962.0724
219 )
220 as
221 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
222 ddindx binary_integer; indx binary_integer;
223 begin
224
225 -- copy data to the local IN or IN-OUT args, if any
226
227
228
229
230
231
232
233 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p7_a0);
234 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
235 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
236 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
237 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p7_a4);
238 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
239 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p7_a6);
240 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p7_a7);
241 ddp_act_list_rec.group_code := p7_a8;
242 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a9);
243 ddp_act_list_rec.list_used_by := p7_a10;
244 ddp_act_list_rec.list_act_type := p7_a11;
245 ddp_act_list_rec.list_action_type := p7_a12;
246 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p7_a13);
247
248
249 -- here's the delegated call to the old PL/SQL routine
250 ams_act_list_pvt.create_act_list(p_api_version_number,
251 p_init_msg_list,
252 p_commit,
253 p_validation_level,
254 x_return_status,
255 x_msg_count,
256 x_msg_data,
257 ddp_act_list_rec,
258 x_act_list_header_id);
259
260 -- copy data back from the local OUT or IN-OUT args, if any
261
262
263
264
265
266
267
268
269 end;
270
271 procedure update_act_list(p_api_version_number NUMBER
272 , p_init_msg_list VARCHAR2
273 , p_commit VARCHAR2
274 , p_validation_level NUMBER
275 , x_return_status OUT NOCOPY VARCHAR2
276 , x_msg_count OUT NOCOPY NUMBER
277 , x_msg_data OUT NOCOPY VARCHAR2
278 , x_object_version_number OUT NOCOPY NUMBER
279 , p7_a0 NUMBER := 0-1962.0724
280 , p7_a1 DATE := fnd_api.g_miss_date
281 , p7_a2 NUMBER := 0-1962.0724
282 , p7_a3 DATE := fnd_api.g_miss_date
283 , p7_a4 NUMBER := 0-1962.0724
284 , p7_a5 NUMBER := 0-1962.0724
285 , p7_a6 NUMBER := 0-1962.0724
286 , p7_a7 NUMBER := 0-1962.0724
287 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
288 , p7_a9 NUMBER := 0-1962.0724
289 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
290 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
291 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
292 , p7_a13 NUMBER := 0-1962.0724
293 )
294 as
295 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
296 ddindx binary_integer; indx binary_integer;
297 begin
298
299 -- copy data to the local IN or IN-OUT args, if any
300
301
302
303
304
305
306
307 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p7_a0);
308 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
309 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
310 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
311 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p7_a4);
312 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
313 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p7_a6);
314 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p7_a7);
315 ddp_act_list_rec.group_code := p7_a8;
316 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a9);
317 ddp_act_list_rec.list_used_by := p7_a10;
318 ddp_act_list_rec.list_act_type := p7_a11;
319 ddp_act_list_rec.list_action_type := p7_a12;
320 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p7_a13);
321
322
323 -- here's the delegated call to the old PL/SQL routine
324 ams_act_list_pvt.update_act_list(p_api_version_number,
325 p_init_msg_list,
326 p_commit,
327 p_validation_level,
328 x_return_status,
329 x_msg_count,
330 x_msg_data,
331 ddp_act_list_rec,
332 x_object_version_number);
333
334 -- copy data back from the local OUT or IN-OUT args, if any
335
336
337
338
339
340
341
342
343 end;
344
345 procedure validate_act_list(p_api_version_number NUMBER
346 , p_init_msg_list VARCHAR2
347 , p_validation_level NUMBER
348 , x_return_status OUT NOCOPY VARCHAR2
349 , x_msg_count OUT NOCOPY NUMBER
350 , x_msg_data OUT NOCOPY VARCHAR2
351 , p3_a0 NUMBER := 0-1962.0724
352 , p3_a1 DATE := fnd_api.g_miss_date
353 , p3_a2 NUMBER := 0-1962.0724
354 , p3_a3 DATE := fnd_api.g_miss_date
355 , p3_a4 NUMBER := 0-1962.0724
356 , p3_a5 NUMBER := 0-1962.0724
357 , p3_a6 NUMBER := 0-1962.0724
358 , p3_a7 NUMBER := 0-1962.0724
359 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
360 , p3_a9 NUMBER := 0-1962.0724
361 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
362 , p3_a11 VARCHAR2 := fnd_api.g_miss_char
363 , p3_a12 VARCHAR2 := fnd_api.g_miss_char
364 , p3_a13 NUMBER := 0-1962.0724
365 )
366 as
367 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
368 ddindx binary_integer; indx binary_integer;
369 begin
370
371 -- copy data to the local IN or IN-OUT args, if any
372
373
374
375 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p3_a0);
376 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a1);
377 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p3_a2);
378 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p3_a3);
379 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p3_a4);
380 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p3_a5);
381 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p3_a6);
382 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p3_a7);
383 ddp_act_list_rec.group_code := p3_a8;
384 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p3_a9);
385 ddp_act_list_rec.list_used_by := p3_a10;
386 ddp_act_list_rec.list_act_type := p3_a11;
387 ddp_act_list_rec.list_action_type := p3_a12;
388 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p3_a13);
389
390
391
392
393 -- here's the delegated call to the old PL/SQL routine
394 ams_act_list_pvt.validate_act_list(p_api_version_number,
395 p_init_msg_list,
396 p_validation_level,
397 ddp_act_list_rec,
398 x_return_status,
399 x_msg_count,
400 x_msg_data);
401
402 -- copy data back from the local OUT or IN-OUT args, if any
403
404
405
406
407
408
409 end;
410
411 procedure check_act_list_items(p_validation_mode VARCHAR2
412 , x_return_status OUT NOCOPY VARCHAR2
413 , p0_a0 NUMBER := 0-1962.0724
414 , p0_a1 DATE := fnd_api.g_miss_date
415 , p0_a2 NUMBER := 0-1962.0724
416 , p0_a3 DATE := fnd_api.g_miss_date
417 , p0_a4 NUMBER := 0-1962.0724
418 , p0_a5 NUMBER := 0-1962.0724
419 , p0_a6 NUMBER := 0-1962.0724
420 , p0_a7 NUMBER := 0-1962.0724
421 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
422 , p0_a9 NUMBER := 0-1962.0724
423 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
424 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
425 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
426 , p0_a13 NUMBER := 0-1962.0724
427 )
428 as
429 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
430 ddindx binary_integer; indx binary_integer;
431 begin
432
433 -- copy data to the local IN or IN-OUT args, if any
434 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p0_a0);
435 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
436 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
437 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
438 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p0_a4);
439 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
440 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p0_a6);
441 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p0_a7);
442 ddp_act_list_rec.group_code := p0_a8;
443 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p0_a9);
444 ddp_act_list_rec.list_used_by := p0_a10;
445 ddp_act_list_rec.list_act_type := p0_a11;
446 ddp_act_list_rec.list_action_type := p0_a12;
447 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p0_a13);
448
449
450
451 -- here's the delegated call to the old PL/SQL routine
452 ams_act_list_pvt.check_act_list_items(ddp_act_list_rec,
453 p_validation_mode,
454 x_return_status);
455
456 -- copy data back from the local OUT or IN-OUT args, if any
457
458
459 end;
460
461 procedure validate_act_list_rec(p_api_version_number NUMBER
462 , p_init_msg_list VARCHAR2
463 , x_return_status OUT NOCOPY VARCHAR2
464 , x_msg_count OUT NOCOPY NUMBER
465 , x_msg_data OUT NOCOPY VARCHAR2
466 , p5_a0 NUMBER := 0-1962.0724
467 , p5_a1 DATE := fnd_api.g_miss_date
468 , p5_a2 NUMBER := 0-1962.0724
469 , p5_a3 DATE := fnd_api.g_miss_date
470 , p5_a4 NUMBER := 0-1962.0724
471 , p5_a5 NUMBER := 0-1962.0724
472 , p5_a6 NUMBER := 0-1962.0724
473 , p5_a7 NUMBER := 0-1962.0724
474 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
475 , p5_a9 NUMBER := 0-1962.0724
476 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
477 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
478 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
479 , p5_a13 NUMBER := 0-1962.0724
480 )
481 as
482 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
483 ddindx binary_integer; indx binary_integer;
484 begin
485
486 -- copy data to the local IN or IN-OUT args, if any
487
488
489
490
491
492 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p5_a0);
493 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
494 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
495 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
496 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p5_a4);
497 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
498 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p5_a6);
499 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p5_a7);
500 ddp_act_list_rec.group_code := p5_a8;
501 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p5_a9);
502 ddp_act_list_rec.list_used_by := p5_a10;
503 ddp_act_list_rec.list_act_type := p5_a11;
504 ddp_act_list_rec.list_action_type := p5_a12;
505 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p5_a13);
506
507 -- here's the delegated call to the old PL/SQL routine
508 ams_act_list_pvt.validate_act_list_rec(p_api_version_number,
509 p_init_msg_list,
510 x_return_status,
511 x_msg_count,
512 x_msg_data,
513 ddp_act_list_rec);
514
515 -- copy data back from the local OUT or IN-OUT args, if any
516
517
518
519
520
521 end;
522
523 procedure init_act_list_rec(p0_a0 OUT NOCOPY NUMBER
524 , p0_a1 OUT NOCOPY DATE
525 , p0_a2 OUT NOCOPY NUMBER
526 , p0_a3 OUT NOCOPY DATE
527 , p0_a4 OUT NOCOPY NUMBER
528 , p0_a5 OUT NOCOPY NUMBER
529 , p0_a6 OUT NOCOPY NUMBER
530 , p0_a7 OUT NOCOPY NUMBER
531 , p0_a8 OUT NOCOPY VARCHAR2
532 , p0_a9 OUT NOCOPY NUMBER
533 , p0_a10 OUT NOCOPY VARCHAR2
534 , p0_a11 OUT NOCOPY VARCHAR2
535 , p0_a12 OUT NOCOPY VARCHAR2
536 , p0_a13 OUT NOCOPY NUMBER
537 )
538 as
539 ddx_act_list_rec ams_act_list_pvt.act_list_rec_type;
540 ddindx binary_integer; indx binary_integer;
541 begin
542
543 -- copy data to the local IN or IN-OUT args, if any
544
545 -- here's the delegated call to the old PL/SQL routine
546 ams_act_list_pvt.init_act_list_rec(ddx_act_list_rec);
547
548 -- copy data back from the local OUT or IN-OUT args, if any
549 p0_a0 := rosetta_g_miss_num_map(ddx_act_list_rec.act_list_header_id);
550 p0_a1 := ddx_act_list_rec.last_update_date;
551 p0_a2 := rosetta_g_miss_num_map(ddx_act_list_rec.last_updated_by);
552 p0_a3 := ddx_act_list_rec.creation_date;
553 p0_a4 := rosetta_g_miss_num_map(ddx_act_list_rec.created_by);
554 p0_a5 := rosetta_g_miss_num_map(ddx_act_list_rec.object_version_number);
555 p0_a6 := rosetta_g_miss_num_map(ddx_act_list_rec.last_update_login);
556 p0_a7 := rosetta_g_miss_num_map(ddx_act_list_rec.list_header_id);
557 p0_a8 := ddx_act_list_rec.group_code;
558 p0_a9 := rosetta_g_miss_num_map(ddx_act_list_rec.list_used_by_id);
559 p0_a10 := ddx_act_list_rec.list_used_by;
560 p0_a11 := ddx_act_list_rec.list_act_type;
561 p0_a12 := ddx_act_list_rec.list_action_type;
562 p0_a13 := rosetta_g_miss_num_map(ddx_act_list_rec.order_number);
563 end;
564
565 procedure complete_act_list_rec(p1_a0 OUT NOCOPY NUMBER
566 , p1_a1 OUT NOCOPY DATE
567 , p1_a2 OUT NOCOPY NUMBER
568 , p1_a3 OUT NOCOPY DATE
569 , p1_a4 OUT NOCOPY NUMBER
570 , p1_a5 OUT NOCOPY NUMBER
571 , p1_a6 OUT NOCOPY NUMBER
572 , p1_a7 OUT NOCOPY NUMBER
573 , p1_a8 OUT NOCOPY VARCHAR2
574 , p1_a9 OUT NOCOPY NUMBER
575 , p1_a10 OUT NOCOPY VARCHAR2
576 , p1_a11 OUT NOCOPY VARCHAR2
577 , p1_a12 OUT NOCOPY VARCHAR2
578 , p1_a13 OUT NOCOPY NUMBER
579 , p0_a0 NUMBER := 0-1962.0724
580 , p0_a1 DATE := fnd_api.g_miss_date
581 , p0_a2 NUMBER := 0-1962.0724
582 , p0_a3 DATE := fnd_api.g_miss_date
583 , p0_a4 NUMBER := 0-1962.0724
584 , p0_a5 NUMBER := 0-1962.0724
585 , p0_a6 NUMBER := 0-1962.0724
586 , p0_a7 NUMBER := 0-1962.0724
587 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
588 , p0_a9 NUMBER := 0-1962.0724
589 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
590 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
591 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
592 , p0_a13 NUMBER := 0-1962.0724
593 )
594 as
595 ddp_act_list_rec ams_act_list_pvt.act_list_rec_type;
596 ddx_complete_rec ams_act_list_pvt.act_list_rec_type;
597 ddindx binary_integer; indx binary_integer;
598 begin
599
600 -- copy data to the local IN or IN-OUT args, if any
601 ddp_act_list_rec.act_list_header_id := rosetta_g_miss_num_map(p0_a0);
602 ddp_act_list_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
603 ddp_act_list_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
604 ddp_act_list_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
605 ddp_act_list_rec.created_by := rosetta_g_miss_num_map(p0_a4);
606 ddp_act_list_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
607 ddp_act_list_rec.last_update_login := rosetta_g_miss_num_map(p0_a6);
608 ddp_act_list_rec.list_header_id := rosetta_g_miss_num_map(p0_a7);
609 ddp_act_list_rec.group_code := p0_a8;
610 ddp_act_list_rec.list_used_by_id := rosetta_g_miss_num_map(p0_a9);
611 ddp_act_list_rec.list_used_by := p0_a10;
612 ddp_act_list_rec.list_act_type := p0_a11;
613 ddp_act_list_rec.list_action_type := p0_a12;
614 ddp_act_list_rec.order_number := rosetta_g_miss_num_map(p0_a13);
615
616
617 -- here's the delegated call to the old PL/SQL routine
618 ams_act_list_pvt.complete_act_list_rec(ddp_act_list_rec,
619 ddx_complete_rec);
620
621 -- copy data back from the local OUT or IN-OUT args, if any
622
623 p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.act_list_header_id);
624 p1_a1 := ddx_complete_rec.last_update_date;
625 p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
626 p1_a3 := ddx_complete_rec.creation_date;
627 p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
628 p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
629 p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
630 p1_a7 := rosetta_g_miss_num_map(ddx_complete_rec.list_header_id);
631 p1_a8 := ddx_complete_rec.group_code;
632 p1_a9 := rosetta_g_miss_num_map(ddx_complete_rec.list_used_by_id);
633 p1_a10 := ddx_complete_rec.list_used_by;
634 p1_a11 := ddx_complete_rec.list_act_type;
635 p1_a12 := ddx_complete_rec.list_action_type;
636 p1_a13 := rosetta_g_miss_num_map(ddx_complete_rec.order_number);
637 end;
638
639 end ams_act_list_pvt_w;