[Home] [Help]
PACKAGE BODY: APPS.AMS_CONTACT_PREFERENCE_PVT_W
Source
1 package body ams_contact_preference_pvt_w as
2 /* $Header: amswcppb.pls 120.1 2005/06/27 05:43:00 appldev 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
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_contact_preference(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status OUT NOCOPY VARCHAR2
27 , x_msg_count OUT NOCOPY NUMBER
28 , x_msg_data OUT NOCOPY VARCHAR2
29 , p_request_id NUMBER
30 , x_contact_preference_id OUT NOCOPY NUMBER
31 , p7_a0 NUMBER := 0-1962.0724
32 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
33 , p7_a2 NUMBER := 0-1962.0724
34 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
35 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
36 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
37 , p7_a6 NUMBER := 0-1962.0724
38 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a8 DATE := fnd_api.g_miss_date
40 , p7_a9 DATE := fnd_api.g_miss_date
41 , p7_a10 NUMBER := 0-1962.0724
42 , p7_a11 NUMBER := 0-1962.0724
43 , p7_a12 NUMBER := 0-1962.0724
44 , p7_a13 NUMBER := 0-1962.0724
45 , p7_a14 NUMBER := 0-1962.0724
46 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
48 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
50 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
51 , p7_a20 NUMBER := 0-1962.0724
52 )
53 as
54 ddp_ams_contact_pref_rec ams_contact_preference_pvt.contact_preference_rec_type;
55 ddindx binary_integer; indx binary_integer;
56 begin
57
58 -- copy data to the local IN or IN-OUT args, if any
59
60
61
62
63
64
65
66 ddp_ams_contact_pref_rec.contact_preference_id := rosetta_g_miss_num_map(p7_a0);
67 ddp_ams_contact_pref_rec.contact_level_table := p7_a1;
68 ddp_ams_contact_pref_rec.contact_level_table_id := rosetta_g_miss_num_map(p7_a2);
69 ddp_ams_contact_pref_rec.contact_type := p7_a3;
70 ddp_ams_contact_pref_rec.preference_code := p7_a4;
71 ddp_ams_contact_pref_rec.preference_topic_type := p7_a5;
72 ddp_ams_contact_pref_rec.preference_topic_type_id := rosetta_g_miss_num_map(p7_a6);
73 ddp_ams_contact_pref_rec.preference_topic_type_code := p7_a7;
74 ddp_ams_contact_pref_rec.preference_start_date := rosetta_g_miss_date_in_map(p7_a8);
75 ddp_ams_contact_pref_rec.preference_end_date := rosetta_g_miss_date_in_map(p7_a9);
76 ddp_ams_contact_pref_rec.preference_start_time_hr := rosetta_g_miss_num_map(p7_a10);
77 ddp_ams_contact_pref_rec.preference_end_time_hr := rosetta_g_miss_num_map(p7_a11);
78 ddp_ams_contact_pref_rec.preference_start_time_mi := rosetta_g_miss_num_map(p7_a12);
79 ddp_ams_contact_pref_rec.preference_end_time_mi := rosetta_g_miss_num_map(p7_a13);
80 ddp_ams_contact_pref_rec.max_no_of_interactions := rosetta_g_miss_num_map(p7_a14);
81 ddp_ams_contact_pref_rec.max_no_of_interact_uom_code := p7_a15;
82 ddp_ams_contact_pref_rec.requested_by := p7_a16;
83 ddp_ams_contact_pref_rec.reason_code := p7_a17;
84 ddp_ams_contact_pref_rec.status := p7_a18;
85 ddp_ams_contact_pref_rec.created_by_module := p7_a19;
86 ddp_ams_contact_pref_rec.application_id := rosetta_g_miss_num_map(p7_a20);
87
88
89
90 -- here's the delegated call to the old PL/SQL routine
91 ams_contact_preference_pvt.create_contact_preference(p_api_version_number,
92 p_init_msg_list,
93 p_commit,
94 p_validation_level,
95 x_return_status,
96 x_msg_count,
97 x_msg_data,
98 ddp_ams_contact_pref_rec,
99 p_request_id,
100 x_contact_preference_id);
101
102 -- copy data back from the local OUT or IN-OUT args, if any
103
104
105
106
107
108
109
110
111
112 end;
113
114 procedure update_contact_preference(p_api_version_number NUMBER
115 , p_init_msg_list VARCHAR2
116 , p_commit VARCHAR2
117 , p_validation_level NUMBER
118 , x_return_status OUT NOCOPY VARCHAR2
119 , x_msg_count OUT NOCOPY NUMBER
120 , x_msg_data OUT NOCOPY VARCHAR2
121 , p_request_id NUMBER
122 , px_object_version_number in OUT NOCOPY NUMBER
123 , p7_a0 NUMBER := 0-1962.0724
124 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
125 , p7_a2 NUMBER := 0-1962.0724
126 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
127 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
129 , p7_a6 NUMBER := 0-1962.0724
130 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
131 , p7_a8 DATE := fnd_api.g_miss_date
132 , p7_a9 DATE := fnd_api.g_miss_date
133 , p7_a10 NUMBER := 0-1962.0724
134 , p7_a11 NUMBER := 0-1962.0724
135 , p7_a12 NUMBER := 0-1962.0724
136 , p7_a13 NUMBER := 0-1962.0724
137 , p7_a14 NUMBER := 0-1962.0724
138 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
139 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
140 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
141 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
142 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
143 , p7_a20 NUMBER := 0-1962.0724
144 )
145 as
146 ddp_ams_contact_pref_rec ams_contact_preference_pvt.contact_preference_rec_type;
147 ddindx binary_integer; indx binary_integer;
148 begin
149
150 -- copy data to the local IN or IN-OUT args, if any
151
152
153
154
155
156
157
158 ddp_ams_contact_pref_rec.contact_preference_id := rosetta_g_miss_num_map(p7_a0);
159 ddp_ams_contact_pref_rec.contact_level_table := p7_a1;
160 ddp_ams_contact_pref_rec.contact_level_table_id := rosetta_g_miss_num_map(p7_a2);
161 ddp_ams_contact_pref_rec.contact_type := p7_a3;
162 ddp_ams_contact_pref_rec.preference_code := p7_a4;
163 ddp_ams_contact_pref_rec.preference_topic_type := p7_a5;
164 ddp_ams_contact_pref_rec.preference_topic_type_id := rosetta_g_miss_num_map(p7_a6);
165 ddp_ams_contact_pref_rec.preference_topic_type_code := p7_a7;
166 ddp_ams_contact_pref_rec.preference_start_date := rosetta_g_miss_date_in_map(p7_a8);
167 ddp_ams_contact_pref_rec.preference_end_date := rosetta_g_miss_date_in_map(p7_a9);
168 ddp_ams_contact_pref_rec.preference_start_time_hr := rosetta_g_miss_num_map(p7_a10);
169 ddp_ams_contact_pref_rec.preference_end_time_hr := rosetta_g_miss_num_map(p7_a11);
170 ddp_ams_contact_pref_rec.preference_start_time_mi := rosetta_g_miss_num_map(p7_a12);
171 ddp_ams_contact_pref_rec.preference_end_time_mi := rosetta_g_miss_num_map(p7_a13);
172 ddp_ams_contact_pref_rec.max_no_of_interactions := rosetta_g_miss_num_map(p7_a14);
173 ddp_ams_contact_pref_rec.max_no_of_interact_uom_code := p7_a15;
174 ddp_ams_contact_pref_rec.requested_by := p7_a16;
175 ddp_ams_contact_pref_rec.reason_code := p7_a17;
176 ddp_ams_contact_pref_rec.status := p7_a18;
177 ddp_ams_contact_pref_rec.created_by_module := p7_a19;
178 ddp_ams_contact_pref_rec.application_id := rosetta_g_miss_num_map(p7_a20);
179
180
181
182 -- here's the delegated call to the old PL/SQL routine
183 ams_contact_preference_pvt.update_contact_preference(p_api_version_number,
184 p_init_msg_list,
185 p_commit,
186 p_validation_level,
187 x_return_status,
188 x_msg_count,
189 x_msg_data,
190 ddp_ams_contact_pref_rec,
191 p_request_id,
192 px_object_version_number);
193
194 -- copy data back from the local OUT or IN-OUT args, if any
195
196
197
198
199
200
201
202
203
204 end;
205
206 end ams_contact_preference_pvt_w;