1: package body ams_list_src_field_pvt_w as
2: /* $Header: amswlsfb.pls 115.13 2004/03/18 20:30:01 usingh 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 n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t out nocopy ams_list_src_field_pvt.list_src_field_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
93: end loop;
94: end if;
95: end if;
96: end rosetta_table_copy_in_p3;
97: procedure rosetta_table_copy_out_p3(t ams_list_src_field_pvt.list_src_field_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
98: , a1 out nocopy JTF_DATE_TABLE
99: , a2 out nocopy JTF_NUMBER_TABLE
100: , a3 out nocopy JTF_DATE_TABLE
101: , a4 out nocopy JTF_NUMBER_TABLE
297: , p7_a28 VARCHAR2 := fnd_api.g_miss_char
298: )
299:
300: as
301: ddp_list_src_field_rec ams_list_src_field_pvt.list_src_field_rec_type;
302: ddindx binary_integer; indx binary_integer;
303: begin
304:
305: -- copy data to the local IN or IN-OUT args, if any
341: ddp_list_src_field_rec.lov_defined_flag := p7_a28;
342:
343:
344: -- here's the delegated call to the old PL/SQL routine
345: ams_list_src_field_pvt.create_list_src_field(p_api_version_number,
346: p_init_msg_list,
347: p_commit,
348: p_validation_level,
349: x_return_status,
402: , p7_a28 VARCHAR2 := fnd_api.g_miss_char
403: )
404:
405: as
406: ddp_list_src_field_rec ams_list_src_field_pvt.list_src_field_rec_type;
407: ddindx binary_integer; indx binary_integer;
408: begin
409:
410: -- copy data to the local IN or IN-OUT args, if any
446: ddp_list_src_field_rec.lov_defined_flag := p7_a28;
447:
448:
449: -- here's the delegated call to the old PL/SQL routine
450: ams_list_src_field_pvt.update_list_src_field(p_api_version_number,
451: p_init_msg_list,
452: p_commit,
453: p_validation_level,
454: x_return_status,
505: , p3_a28 VARCHAR2 := fnd_api.g_miss_char
506: )
507:
508: as
509: ddp_list_src_field_rec ams_list_src_field_pvt.list_src_field_rec_type;
510: ddindx binary_integer; indx binary_integer;
511: begin
512:
513: -- copy data to the local IN or IN-OUT args, if any
547:
548:
549:
550: -- here's the delegated call to the old PL/SQL routine
551: ams_list_src_field_pvt.validate_list_src_field(p_api_version_number,
552: p_init_msg_list,
553: p_validation_level,
554: ddp_list_src_field_rec,
555: x_return_status,
598: , p0_a28 VARCHAR2 := fnd_api.g_miss_char
599: )
600:
601: as
602: ddp_list_src_field_rec ams_list_src_field_pvt.list_src_field_rec_type;
603: ddindx binary_integer; indx binary_integer;
604: begin
605:
606: -- copy data to the local IN or IN-OUT args, if any
636:
637:
638:
639: -- here's the delegated call to the old PL/SQL routine
640: ams_list_src_field_pvt.check_list_src_field_items(ddp_list_src_field_rec,
641: p_validation_mode,
642: x_return_status);
643:
644: -- copy data back from the local variables to OUT or IN-OUT args, if any
682: , p5_a28 VARCHAR2 := fnd_api.g_miss_char
683: )
684:
685: as
686: ddp_list_src_field_rec ams_list_src_field_pvt.list_src_field_rec_type;
687: ddindx binary_integer; indx binary_integer;
688: begin
689:
690: -- copy data to the local IN or IN-OUT args, if any
723: ddp_list_src_field_rec.attb_lov_id := rosetta_g_miss_num_map(p5_a27);
724: ddp_list_src_field_rec.lov_defined_flag := p5_a28;
725:
726: -- here's the delegated call to the old PL/SQL routine
727: ams_list_src_field_pvt.validate_list_src_field_rec(p_api_version_number,
728: p_init_msg_list,
729: x_return_status,
730: x_msg_count,
731: x_msg_data,
738:
739:
740: end;
741:
742: end ams_list_src_field_pvt_w;