[Home] [Help]
1: package body ams_dm_imp_attribute_pvt_w as
2: /* $Header: amswdiab.pls 115.3 2002/12/09 11:05:17 choang 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:
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_p2(t OUT NOCOPY ams_dm_imp_attribute_pvt.imp_attribute_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
59: end loop;
60: end if;
61: end if;
62: end rosetta_table_copy_in_p2;
63: procedure rosetta_table_copy_out_p2(t ams_dm_imp_attribute_pvt.imp_attribute_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
64: , a1 OUT NOCOPY JTF_DATE_TABLE
65: , a2 OUT NOCOPY JTF_NUMBER_TABLE
66: , a3 OUT NOCOPY JTF_DATE_TABLE
67: , a4 OUT NOCOPY JTF_NUMBER_TABLE
160: , p7_a10 NUMBER := 0-1962.0724
161: , p7_a11 VARCHAR2 := fnd_api.g_miss_char
162: )
163: as
164: ddp_imp_attribute_rec ams_dm_imp_attribute_pvt.imp_attribute_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_imp_attribute_rec.source_field_name := p7_a11;
188:
189:
190: -- here's the delegated call to the old PL/SQL routine
191: ams_dm_imp_attribute_pvt.create_imp_attribute(p_api_version_number,
192: p_init_msg_list,
193: p_commit,
194: p_validation_level,
195: x_return_status,
230: , p7_a10 NUMBER := 0-1962.0724
231: , p7_a11 VARCHAR2 := fnd_api.g_miss_char
232: )
233: as
234: ddp_imp_attribute_rec ams_dm_imp_attribute_pvt.imp_attribute_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_imp_attribute_rec.source_field_name := p7_a11;
258:
259:
260: -- here's the delegated call to the old PL/SQL routine
261: ams_dm_imp_attribute_pvt.update_imp_attribute(p_api_version_number,
262: p_init_msg_list,
263: p_commit,
264: p_validation_level,
265: x_return_status,
299: , p3_a10 NUMBER := 0-1962.0724
300: , p3_a11 VARCHAR2 := fnd_api.g_miss_char
301: )
302: as
303: ddp_imp_attribute_rec ams_dm_imp_attribute_pvt.imp_attribute_rec_type;
304: ddindx binary_integer; indx binary_integer;
305: begin
306:
307: -- copy data to the local IN or IN-OUT args, if any
325:
326:
327:
328: -- here's the delegated call to the old PL/SQL routine
329: ams_dm_imp_attribute_pvt.validate_imp_attribute(p_api_version_number,
330: p_init_msg_list,
331: p_validation_level,
332: ddp_imp_attribute_rec,
333: p_validation_mode,
360: , p0_a10 NUMBER := 0-1962.0724
361: , p0_a11 VARCHAR2 := fnd_api.g_miss_char
362: )
363: as
364: ddp_imp_attribute_rec ams_dm_imp_attribute_pvt.imp_attribute_rec_type;
365: ddindx binary_integer; indx binary_integer;
366: begin
367:
368: -- copy data to the local IN or IN-OUT args, if any
381:
382:
383:
384: -- here's the delegated call to the old PL/SQL routine
385: ams_dm_imp_attribute_pvt.check_imp_attribute_items(ddp_imp_attribute_rec,
386: p_validation_mode,
387: x_return_status);
388:
389: -- copy data back from the local OUT or IN-OUT args, if any
409: , p5_a10 NUMBER := 0-1962.0724
410: , p5_a11 VARCHAR2 := fnd_api.g_miss_char
411: )
412: as
413: ddp_imp_attribute_rec ams_dm_imp_attribute_pvt.imp_attribute_rec_type;
414: ddindx binary_integer; indx binary_integer;
415: begin
416:
417: -- copy data to the local IN or IN-OUT args, if any
433: ddp_imp_attribute_rec.value := rosetta_g_miss_num_map(p5_a10);
434: ddp_imp_attribute_rec.source_field_name := p5_a11;
435:
436: -- here's the delegated call to the old PL/SQL routine
437: ams_dm_imp_attribute_pvt.validate_imp_attribute_rec(p_api_version_number,
438: p_init_msg_list,
439: x_return_status,
440: x_msg_count,
441: x_msg_data,
448:
449:
450: end;
451:
452: end ams_dm_imp_attribute_pvt_w;