[Home] [Help]
1: package body ams_dmlift_pvt_w as
2: /* $Header: amswdlfb.pls 120.1 2005/06/15 23:58:23 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_dmlift_pvt.lift_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
73: end loop;
74: end if;
75: end if;
76: end rosetta_table_copy_in_p3;
77: procedure rosetta_table_copy_out_p3(t ams_dmlift_pvt.lift_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
78: , a1 OUT NOCOPY JTF_DATE_TABLE
79: , a2 OUT NOCOPY JTF_NUMBER_TABLE
80: , a3 OUT NOCOPY JTF_DATE_TABLE
81: , a4 OUT NOCOPY JTF_NUMBER_TABLE
210: , p0_a17 NUMBER := 0-1962.0724
211: , p0_a18 NUMBER := 0-1962.0724
212: )
213: as
214: ddp_lift_rec ams_dmlift_pvt.lift_rec_type;
215: ddindx binary_integer; indx binary_integer;
216: begin
217:
218: -- copy data to the local IN or IN-OUT args, if any
238:
239:
240:
241: -- here's the delegated call to the old PL/SQL routine
242: ams_dmlift_pvt.check_lift_items(ddp_lift_rec,
243: p_validation_mode,
244: x_return_status);
245:
246: -- copy data back from the local OUT or IN-OUT args, if any
276: , p7_a17 NUMBER := 0-1962.0724
277: , p7_a18 NUMBER := 0-1962.0724
278: )
279: as
280: ddp_lift_rec ams_dmlift_pvt.lift_rec_type;
281: ddindx binary_integer; indx binary_integer;
282: begin
283:
284: -- copy data to the local IN or IN-OUT args, if any
310: ddp_lift_rec.non_target_confidence := rosetta_g_miss_num_map(p7_a18);
311:
312:
313: -- here's the delegated call to the old PL/SQL routine
314: ams_dmlift_pvt.create_lift(p_api_version,
315: p_init_msg_list,
316: p_commit,
317: p_validation_level,
318: x_return_status,
360: , p7_a17 NUMBER := 0-1962.0724
361: , p7_a18 NUMBER := 0-1962.0724
362: )
363: as
364: ddp_lift_rec ams_dmlift_pvt.lift_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
394: ddp_lift_rec.non_target_confidence := rosetta_g_miss_num_map(p7_a18);
395:
396:
397: -- here's the delegated call to the old PL/SQL routine
398: ams_dmlift_pvt.update_lift(p_api_version,
399: p_init_msg_list,
400: p_commit,
401: p_validation_level,
402: x_return_status,
441: , p5_a17 NUMBER := 0-1962.0724
442: , p5_a18 NUMBER := 0-1962.0724
443: )
444: as
445: ddp_lift_rec ams_dmlift_pvt.lift_rec_type;
446: ddindx binary_integer; indx binary_integer;
447: begin
448:
449: -- copy data to the local IN or IN-OUT args, if any
472: ddp_lift_rec.target_confidence := rosetta_g_miss_num_map(p5_a17);
473: ddp_lift_rec.non_target_confidence := rosetta_g_miss_num_map(p5_a18);
474:
475: -- here's the delegated call to the old PL/SQL routine
476: ams_dmlift_pvt.validate_lift_rec(p_api_version,
477: p_init_msg_list,
478: x_return_status,
479: x_msg_count,
480: x_msg_data,
515: , p4_a17 NUMBER := 0-1962.0724
516: , p4_a18 NUMBER := 0-1962.0724
517: )
518: as
519: ddp_lift_rec ams_dmlift_pvt.lift_rec_type;
520: ddindx binary_integer; indx binary_integer;
521: begin
522:
523: -- copy data to the local IN or IN-OUT args, if any
548:
549:
550:
551: -- here's the delegated call to the old PL/SQL routine
552: ams_dmlift_pvt.validate_lift(p_api_version,
553: p_init_msg_list,
554: p_validation_level,
555: p_validation_mode,
556: ddp_lift_rec,
567:
568:
569: end;
570:
571: end ams_dmlift_pvt_w;