1: package body ams_act_market_segments_pvt_w as
2: /* $Header: amswmksb.pls 120.1 2005/06/16 06:14 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:
58: , p7_a28 VARCHAR2 := fnd_api.g_miss_char
59: )
60:
61: as
62: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
63: ddindx binary_integer; indx binary_integer;
64: begin
65:
66: -- copy data to the local IN or IN-OUT args, if any
102: ddp_mks_rec.exclude_flag := p7_a28;
103:
104:
105: -- here's the delegated call to the old PL/SQL routine
106: ams_act_market_segments_pvt.create_market_segments(p_api_version,
107: p_init_msg_list,
108: p_commit,
109: p_validation_level,
110: x_return_status,
162: , p7_a28 VARCHAR2 := fnd_api.g_miss_char
163: )
164:
165: as
166: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
167: ddindx binary_integer; indx binary_integer;
168: begin
169:
170: -- copy data to the local IN or IN-OUT args, if any
205: ddp_mks_rec.group_code := p7_a27;
206: ddp_mks_rec.exclude_flag := p7_a28;
207:
208: -- here's the delegated call to the old PL/SQL routine
209: ams_act_market_segments_pvt.update_market_segments(p_api_version,
210: p_init_msg_list,
211: p_commit,
212: p_validation_level,
213: x_return_status,
262: , p6_a28 VARCHAR2 := fnd_api.g_miss_char
263: )
264:
265: as
266: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
267: ddindx binary_integer; indx binary_integer;
268: begin
269:
270: -- copy data to the local IN or IN-OUT args, if any
304: ddp_mks_rec.group_code := p6_a27;
305: ddp_mks_rec.exclude_flag := p6_a28;
306:
307: -- here's the delegated call to the old PL/SQL routine
308: ams_act_market_segments_pvt.validate_market_segments(p_api_version,
309: p_init_msg_list,
310: p_validation_level,
311: x_return_status,
312: x_msg_count,
355: , p0_a28 VARCHAR2 := fnd_api.g_miss_char
356: )
357:
358: as
359: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
360: ddindx binary_integer; indx binary_integer;
361: begin
362:
363: -- copy data to the local IN or IN-OUT args, if any
393:
394:
395:
396: -- here's the delegated call to the old PL/SQL routine
397: ams_act_market_segments_pvt.check_mks_items(ddp_mks_rec,
398: p_validation_mode,
399: x_return_status);
400:
401: -- copy data back from the local variables to OUT or IN-OUT args, if any
465: , p1_a28 VARCHAR2 := fnd_api.g_miss_char
466: )
467:
468: as
469: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
470: ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
471: ddindx binary_integer; indx binary_integer;
472: begin
473:
466: )
467:
468: as
469: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
470: ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
471: ddindx binary_integer; indx binary_integer;
472: begin
473:
474: -- copy data to the local IN or IN-OUT args, if any
534:
535:
536:
537: -- here's the delegated call to the old PL/SQL routine
538: ams_act_market_segments_pvt.validate_cross_ent_rec(ddp_mks_rec,
539: ddp_complete_rec,
540: p_validation_mode,
541: x_return_status);
542:
607: , p1_a28 VARCHAR2 := fnd_api.g_miss_char
608: )
609:
610: as
611: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
612: ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
613: ddindx binary_integer; indx binary_integer;
614: begin
615:
608: )
609:
610: as
611: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
612: ddp_complete_rec ams_act_market_segments_pvt.mks_rec_type;
613: ddindx binary_integer; indx binary_integer;
614: begin
615:
616: -- copy data to the local IN or IN-OUT args, if any
675: ddp_complete_rec.exclude_flag := p1_a28;
676:
677:
678: -- here's the delegated call to the old PL/SQL routine
679: ams_act_market_segments_pvt.check_mks_record(ddp_mks_rec,
680: ddp_complete_rec,
681: x_return_status);
682:
683: -- copy data back from the local variables to OUT or IN-OUT args, if any
716: , p0_a28 out nocopy VARCHAR2
717: )
718:
719: as
720: ddx_mks_rec ams_act_market_segments_pvt.mks_rec_type;
721: ddindx binary_integer; indx binary_integer;
722: begin
723:
724: -- copy data to the local IN or IN-OUT args, if any
723:
724: -- copy data to the local IN or IN-OUT args, if any
725:
726: -- here's the delegated call to the old PL/SQL routine
727: ams_act_market_segments_pvt.init_mks_rec(ddx_mks_rec);
728:
729: -- copy data back from the local variables to OUT or IN-OUT args, if any
730: p0_a0 := rosetta_g_miss_num_map(ddx_mks_rec.activity_market_segment_id);
731: p0_a1 := ddx_mks_rec.last_update_date;
818: , p0_a28 VARCHAR2 := fnd_api.g_miss_char
819: )
820:
821: as
822: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
823: ddx_complete_rec ams_act_market_segments_pvt.mks_rec_type;
824: ddindx binary_integer; indx binary_integer;
825: begin
826:
819: )
820:
821: as
822: ddp_mks_rec ams_act_market_segments_pvt.mks_rec_type;
823: ddx_complete_rec ams_act_market_segments_pvt.mks_rec_type;
824: ddindx binary_integer; indx binary_integer;
825: begin
826:
827: -- copy data to the local IN or IN-OUT args, if any
856: ddp_mks_rec.exclude_flag := p0_a28;
857:
858:
859: -- here's the delegated call to the old PL/SQL routine
860: ams_act_market_segments_pvt.complete_mks_rec(ddp_mks_rec,
861: ddx_complete_rec);
862:
863: -- copy data back from the local variables to OUT or IN-OUT args, if any
864:
892: p1_a27 := ddx_complete_rec.group_code;
893: p1_a28 := ddx_complete_rec.exclude_flag;
894: end;
895:
896: end ams_act_market_segments_pvt_w;