[Home] [Help]
1: package body ams_dmperformance_pvt_w as
2: /* $Header: amswdpfb.pls 120.1 2005/06/15 23:58:39 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:
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_dmperformance_pvt.performance_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_p3;
63: procedure rosetta_table_copy_out_p3(t ams_dmperformance_pvt.performance_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 NUMBER := 0-1962.0724
162: )
163: as
164: ddp_performance_rec ams_dmperformance_pvt.performance_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_performance_rec.model_id := rosetta_g_miss_num_map(p7_a11);
188:
189:
190: -- here's the delegated call to the old PL/SQL routine
191: ams_dmperformance_pvt.create_performance(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 NUMBER := 0-1962.0724
232: )
233: as
234: ddp_performance_rec ams_dmperformance_pvt.performance_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_performance_rec.model_id := rosetta_g_miss_num_map(p7_a11);
258:
259:
260: -- here's the delegated call to the old PL/SQL routine
261: ams_dmperformance_pvt.update_performance(p_api_version_number,
262: p_init_msg_list,
263: p_commit,
264: p_validation_level,
265: x_return_status,
299: , p4_a10 NUMBER := 0-1962.0724
300: , p4_a11 NUMBER := 0-1962.0724
301: )
302: as
303: ddp_performance_rec ams_dmperformance_pvt.performance_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_dmperformance_pvt.validate_performance(p_api_version_number,
330: p_init_msg_list,
331: p_validation_level,
332: p_validation_mode,
333: ddp_performance_rec,
360: , p0_a10 NUMBER := 0-1962.0724
361: , p0_a11 NUMBER := 0-1962.0724
362: )
363: as
364: ddp_performance_rec ams_dmperformance_pvt.performance_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_dmperformance_pvt.check_performance_items(ddp_performance_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 NUMBER := 0-1962.0724
411: )
412: as
413: ddp_performance_rec ams_dmperformance_pvt.performance_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_performance_rec.total_records_predicted := rosetta_g_miss_num_map(p5_a10);
434: ddp_performance_rec.model_id := rosetta_g_miss_num_map(p5_a11);
435:
436: -- here's the delegated call to the old PL/SQL routine
437: ams_dmperformance_pvt.validate_performance_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_dmperformance_pvt_w;