[Home] [Help]
1: package body ams_cnt_point_pvt_w as
2: /* $Header: amswconb.pls 120.0 2005/06/01 23:22:36 appldev 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 n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t out nocopy ams_cnt_point_pvt.cnt_point_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
97: end loop;
98: end if;
99: end if;
100: end rosetta_table_copy_in_p3;
101: procedure rosetta_table_copy_out_p3(t ams_cnt_point_pvt.cnt_point_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
102: , a1 out nocopy JTF_DATE_TABLE
103: , a2 out nocopy JTF_NUMBER_TABLE
104: , a3 out nocopy JTF_DATE_TABLE
105: , a4 out nocopy JTF_NUMBER_TABLE
313: , p7_a30 NUMBER := 0-1962.0724
314: )
315:
316: as
317: ddp_cnt_point_rec ams_cnt_point_pvt.cnt_point_rec_type;
318: ddindx binary_integer; indx binary_integer;
319: begin
320:
321: -- copy data to the local IN or IN-OUT args, if any
359: ddp_cnt_point_rec.contact_point_value_id := rosetta_g_miss_num_map(p7_a30);
360:
361:
362: -- here's the delegated call to the old PL/SQL routine
363: ams_cnt_point_pvt.create_cnt_point(p_api_version_number,
364: p_init_msg_list,
365: p_commit,
366: p_validation_level,
367: x_return_status,
422: , p7_a30 NUMBER := 0-1962.0724
423: )
424:
425: as
426: ddp_cnt_point_rec ams_cnt_point_pvt.cnt_point_rec_type;
427: ddindx binary_integer; indx binary_integer;
428: begin
429:
430: -- copy data to the local IN or IN-OUT args, if any
468: ddp_cnt_point_rec.contact_point_value_id := rosetta_g_miss_num_map(p7_a30);
469:
470:
471: -- here's the delegated call to the old PL/SQL routine
472: ams_cnt_point_pvt.update_cnt_point(p_api_version_number,
473: p_init_msg_list,
474: p_commit,
475: p_validation_level,
476: x_return_status,
530: , p4_a30 NUMBER := 0-1962.0724
531: )
532:
533: as
534: ddp_cnt_point_rec ams_cnt_point_pvt.cnt_point_rec_type;
535: ddindx binary_integer; indx binary_integer;
536: begin
537:
538: -- copy data to the local IN or IN-OUT args, if any
575:
576:
577:
578: -- here's the delegated call to the old PL/SQL routine
579: ams_cnt_point_pvt.validate_cnt_point(p_api_version_number,
580: p_init_msg_list,
581: p_validation_level,
582: p_validation_mode,
583: ddp_cnt_point_rec,
630: , p0_a30 NUMBER := 0-1962.0724
631: )
632:
633: as
634: ddp_cnt_point_rec ams_cnt_point_pvt.cnt_point_rec_type;
635: ddindx binary_integer; indx binary_integer;
636: begin
637:
638: -- copy data to the local IN or IN-OUT args, if any
670:
671:
672:
673: -- here's the delegated call to the old PL/SQL routine
674: ams_cnt_point_pvt.check_cnt_point_items(ddp_cnt_point_rec,
675: p_validation_mode,
676: x_return_status);
677:
678: -- copy data back from the local variables to OUT or IN-OUT args, if any
719: , p6_a30 NUMBER := 0-1962.0724
720: )
721:
722: as
723: ddp_cnt_point_rec ams_cnt_point_pvt.cnt_point_rec_type;
724: ddindx binary_integer; indx binary_integer;
725: begin
726:
727: -- copy data to the local IN or IN-OUT args, if any
763: ddp_cnt_point_rec.attribute15 := p6_a29;
764: ddp_cnt_point_rec.contact_point_value_id := rosetta_g_miss_num_map(p6_a30);
765:
766: -- here's the delegated call to the old PL/SQL routine
767: ams_cnt_point_pvt.validate_cnt_point_rec(p_api_version_number,
768: p_validation_mode,
769: p_init_msg_list,
770: x_return_status,
771: x_msg_count,
780:
781:
782: end;
783:
784: end ams_cnt_point_pvt_w;