[Home] [Help]
1: package body ams_list_assoc_pvt_w as
2: /* $Header: amswascb.pls 115.8 2002/11/22 08:56:47 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:
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_p3(t OUT NOCOPY ams_list_assoc_pvt.list_assoc_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_DATE_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_DATE_TABLE
59: end loop;
60: end if;
61: end if;
62: end rosetta_table_copy_in_p3;
63: procedure rosetta_table_copy_out_p3(t ams_list_assoc_pvt.list_assoc_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
64: , a1 OUT NOCOPY JTF_NUMBER_TABLE
65: , a2 OUT NOCOPY JTF_DATE_TABLE
66: , a3 OUT NOCOPY JTF_NUMBER_TABLE
67: , a4 OUT NOCOPY JTF_DATE_TABLE
160: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
161: , p7_a11 NUMBER := 0-1962.0724
162: )
163: as
164: ddp_list_assoc_rec ams_list_assoc_pvt.list_assoc_rec_type;
165: ddindx binary_integer; indx binary_integer;
166: begin
167:
168: -- copy data to the local IN or IN-OUT args, if any
187: ddp_list_assoc_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a11);
188:
189:
190: -- here's the delegated call to the old PL/SQL routine
191: ams_list_assoc_pvt.create_list_assoc(p_api_version_number,
192: p_init_msg_list,
193: p_commit,
194: p_validation_level,
195: x_return_status,
230: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
231: , p7_a11 NUMBER := 0-1962.0724
232: )
233: as
234: ddp_list_assoc_rec ams_list_assoc_pvt.list_assoc_rec_type;
235: ddindx binary_integer; indx binary_integer;
236: begin
237:
238: -- copy data to the local IN or IN-OUT args, if any
257: ddp_list_assoc_rec.list_used_by_id := rosetta_g_miss_num_map(p7_a11);
258:
259:
260: -- here's the delegated call to the old PL/SQL routine
261: ams_list_assoc_pvt.update_list_assoc(p_api_version_number,
262: p_init_msg_list,
263: p_commit,
264: p_validation_level,
265: x_return_status,
298: , p3_a10 VARCHAR2 := fnd_api.g_miss_char
299: , p3_a11 NUMBER := 0-1962.0724
300: )
301: as
302: ddp_list_assoc_rec ams_list_assoc_pvt.list_assoc_rec_type;
303: ddindx binary_integer; indx binary_integer;
304: begin
305:
306: -- copy data to the local IN or IN-OUT args, if any
323:
324:
325:
326: -- here's the delegated call to the old PL/SQL routine
327: ams_list_assoc_pvt.validate_list_assoc(p_api_version_number,
328: p_init_msg_list,
329: p_validation_level,
330: ddp_list_assoc_rec,
331: x_return_status,
356: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
357: , p0_a11 NUMBER := 0-1962.0724
358: )
359: as
360: ddp_list_assoc_rec ams_list_assoc_pvt.list_assoc_rec_type;
361: ddindx binary_integer; indx binary_integer;
362: begin
363:
364: -- copy data to the local IN or IN-OUT args, if any
377:
378:
379:
380: -- here's the delegated call to the old PL/SQL routine
381: ams_list_assoc_pvt.check_list_assoc_items(ddp_list_assoc_rec,
382: p_validation_mode,
383: x_return_status);
384:
385: -- copy data back from the local OUT or IN-OUT args, if any
405: , p5_a10 VARCHAR2 := fnd_api.g_miss_char
406: , p5_a11 NUMBER := 0-1962.0724
407: )
408: as
409: ddp_list_assoc_rec ams_list_assoc_pvt.list_assoc_rec_type;
410: ddindx binary_integer; indx binary_integer;
411: begin
412:
413: -- copy data to the local IN or IN-OUT args, if any
429: ddp_list_assoc_rec.list_used_by := p5_a10;
430: ddp_list_assoc_rec.list_used_by_id := rosetta_g_miss_num_map(p5_a11);
431:
432: -- here's the delegated call to the old PL/SQL routine
433: ams_list_assoc_pvt.validate_list_assoc_rec(p_api_version_number,
434: p_init_msg_list,
435: x_return_status,
436: x_msg_count,
437: x_msg_data,
444:
445:
446: end;
447:
448: end ams_list_assoc_pvt_w;