[Home] [Help]
PACKAGE BODY: APPS.HZ_CONTACT_PREFERENCE_V2PUB_JW
Source
1 package body hz_contact_preference_v2pub_jw as
2 /* $Header: ARH2CTJB.pls 120.2 2005/06/18 04:27:41 jhuang 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
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_1(p_init_msg_list VARCHAR2
23 , x_contact_preference_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 VARCHAR2 := null
29 , p1_a2 NUMBER := null
30 , p1_a3 VARCHAR2 := null
31 , p1_a4 VARCHAR2 := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 NUMBER := null
34 , p1_a7 VARCHAR2 := null
35 , p1_a8 DATE := null
36 , p1_a9 DATE := null
37 , p1_a10 NUMBER := null
38 , p1_a11 NUMBER := null
39 , p1_a12 NUMBER := null
40 , p1_a13 NUMBER := null
41 , p1_a14 NUMBER := null
42 , p1_a15 VARCHAR2 := null
43 , p1_a16 VARCHAR2 := null
44 , p1_a17 VARCHAR2 := null
45 , p1_a18 VARCHAR2 := null
46 , p1_a19 VARCHAR2 := null
47 , p1_a20 NUMBER := null
48 )
49 as
50 ddp_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
51 ddindx binary_integer; indx binary_integer;
52 begin
53
54 -- copy data to the local IN or IN-OUT args, if any
55
56 ddp_contact_preference_rec.contact_preference_id := rosetta_g_miss_num_map(p1_a0);
57 ddp_contact_preference_rec.contact_level_table := p1_a1;
58 ddp_contact_preference_rec.contact_level_table_id := rosetta_g_miss_num_map(p1_a2);
59 ddp_contact_preference_rec.contact_type := p1_a3;
60 ddp_contact_preference_rec.preference_code := p1_a4;
61 ddp_contact_preference_rec.preference_topic_type := p1_a5;
62 ddp_contact_preference_rec.preference_topic_type_id := rosetta_g_miss_num_map(p1_a6);
63 ddp_contact_preference_rec.preference_topic_type_code := p1_a7;
64 ddp_contact_preference_rec.preference_start_date := rosetta_g_miss_date_in_map(p1_a8);
65 ddp_contact_preference_rec.preference_end_date := rosetta_g_miss_date_in_map(p1_a9);
66 ddp_contact_preference_rec.preference_start_time_hr := rosetta_g_miss_num_map(p1_a10);
67 ddp_contact_preference_rec.preference_end_time_hr := rosetta_g_miss_num_map(p1_a11);
68 ddp_contact_preference_rec.preference_start_time_mi := rosetta_g_miss_num_map(p1_a12);
69 ddp_contact_preference_rec.preference_end_time_mi := rosetta_g_miss_num_map(p1_a13);
70 ddp_contact_preference_rec.max_no_of_interactions := rosetta_g_miss_num_map(p1_a14);
71 ddp_contact_preference_rec.max_no_of_interact_uom_code := p1_a15;
72 ddp_contact_preference_rec.requested_by := p1_a16;
73 ddp_contact_preference_rec.reason_code := p1_a17;
74 ddp_contact_preference_rec.status := p1_a18;
75 ddp_contact_preference_rec.created_by_module := p1_a19;
76 ddp_contact_preference_rec.application_id := rosetta_g_miss_num_map(p1_a20);
77
78
79
80
81
82 -- here's the delegated call to the old PL/SQL routine
83 hz_contact_preference_v2pub.create_contact_preference(p_init_msg_list,
84 ddp_contact_preference_rec,
85 x_contact_preference_id,
86 x_return_status,
87 x_msg_count,
88 x_msg_data);
89
90 -- copy data back from the local OUT or IN-OUT args, if any
91
92
93
94
95
96 end;
97
98 procedure update_contact_preference_2(p_init_msg_list VARCHAR2
99 , p_object_version_number in out nocopy NUMBER
100 , x_return_status out nocopy VARCHAR2
101 , x_msg_count out nocopy NUMBER
102 , x_msg_data out nocopy VARCHAR2
103 , p1_a0 NUMBER := null
104 , p1_a1 VARCHAR2 := null
105 , p1_a2 NUMBER := null
106 , p1_a3 VARCHAR2 := null
107 , p1_a4 VARCHAR2 := null
108 , p1_a5 VARCHAR2 := null
109 , p1_a6 NUMBER := null
110 , p1_a7 VARCHAR2 := null
111 , p1_a8 DATE := null
112 , p1_a9 DATE := null
113 , p1_a10 NUMBER := null
114 , p1_a11 NUMBER := null
115 , p1_a12 NUMBER := null
116 , p1_a13 NUMBER := null
117 , p1_a14 NUMBER := null
118 , p1_a15 VARCHAR2 := null
119 , p1_a16 VARCHAR2 := null
120 , p1_a17 VARCHAR2 := null
121 , p1_a18 VARCHAR2 := null
122 , p1_a19 VARCHAR2 := null
123 , p1_a20 NUMBER := null
124 )
125 as
126 ddp_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
127 ddindx binary_integer; indx binary_integer;
128 begin
129
130 -- copy data to the local IN or IN-OUT args, if any
131
132 ddp_contact_preference_rec.contact_preference_id := rosetta_g_miss_num_map(p1_a0);
133 ddp_contact_preference_rec.contact_level_table := p1_a1;
134 ddp_contact_preference_rec.contact_level_table_id := rosetta_g_miss_num_map(p1_a2);
135 ddp_contact_preference_rec.contact_type := p1_a3;
136 ddp_contact_preference_rec.preference_code := p1_a4;
137 ddp_contact_preference_rec.preference_topic_type := p1_a5;
138 ddp_contact_preference_rec.preference_topic_type_id := rosetta_g_miss_num_map(p1_a6);
139 ddp_contact_preference_rec.preference_topic_type_code := p1_a7;
140 ddp_contact_preference_rec.preference_start_date := rosetta_g_miss_date_in_map(p1_a8);
141 ddp_contact_preference_rec.preference_end_date := rosetta_g_miss_date_in_map(p1_a9);
142 ddp_contact_preference_rec.preference_start_time_hr := rosetta_g_miss_num_map(p1_a10);
143 ddp_contact_preference_rec.preference_end_time_hr := rosetta_g_miss_num_map(p1_a11);
144 ddp_contact_preference_rec.preference_start_time_mi := rosetta_g_miss_num_map(p1_a12);
145 ddp_contact_preference_rec.preference_end_time_mi := rosetta_g_miss_num_map(p1_a13);
146 ddp_contact_preference_rec.max_no_of_interactions := rosetta_g_miss_num_map(p1_a14);
147 ddp_contact_preference_rec.max_no_of_interact_uom_code := p1_a15;
148 ddp_contact_preference_rec.requested_by := p1_a16;
149 ddp_contact_preference_rec.reason_code := p1_a17;
150 ddp_contact_preference_rec.status := p1_a18;
151 ddp_contact_preference_rec.created_by_module := p1_a19;
152 ddp_contact_preference_rec.application_id := rosetta_g_miss_num_map(p1_a20);
153
154
155
156
157
158 -- here's the delegated call to the old PL/SQL routine
159 hz_contact_preference_v2pub.update_contact_preference(p_init_msg_list,
160 ddp_contact_preference_rec,
161 p_object_version_number,
162 x_return_status,
163 x_msg_count,
164 x_msg_data);
165
166 -- copy data back from the local OUT or IN-OUT args, if any
167
168
169
170
171
172 end;
173
174 procedure get_contact_preference_rec_3(p_init_msg_list VARCHAR2
175 , p_contact_preference_id NUMBER
176 , p2_a0 out nocopy NUMBER
177 , p2_a1 out nocopy VARCHAR2
178 , p2_a2 out nocopy NUMBER
179 , p2_a3 out nocopy VARCHAR2
180 , p2_a4 out nocopy VARCHAR2
181 , p2_a5 out nocopy VARCHAR2
182 , p2_a6 out nocopy NUMBER
183 , p2_a7 out nocopy VARCHAR2
184 , p2_a8 out nocopy DATE
185 , p2_a9 out nocopy DATE
186 , p2_a10 out nocopy NUMBER
187 , p2_a11 out nocopy NUMBER
188 , p2_a12 out nocopy NUMBER
189 , p2_a13 out nocopy NUMBER
190 , p2_a14 out nocopy NUMBER
191 , p2_a15 out nocopy VARCHAR2
192 , p2_a16 out nocopy VARCHAR2
193 , p2_a17 out nocopy VARCHAR2
194 , p2_a18 out nocopy VARCHAR2
195 , p2_a19 out nocopy VARCHAR2
196 , p2_a20 out nocopy NUMBER
197 , x_return_status out nocopy VARCHAR2
198 , x_msg_count out nocopy NUMBER
199 , x_msg_data out nocopy VARCHAR2
200 )
201 as
202 ddx_contact_preference_rec hz_contact_preference_v2pub.contact_preference_rec_type;
203 ddindx binary_integer; indx binary_integer;
204 begin
205
206 -- copy data to the local IN or IN-OUT args, if any
207
208
209
210
211
212
213 -- here's the delegated call to the old PL/SQL routine
214 hz_contact_preference_v2pub.get_contact_preference_rec(p_init_msg_list,
215 p_contact_preference_id,
216 ddx_contact_preference_rec,
217 x_return_status,
218 x_msg_count,
219 x_msg_data);
220
221 -- copy data back from the local OUT or IN-OUT args, if any
222
223
224 p2_a0 := rosetta_g_miss_num_map(ddx_contact_preference_rec.contact_preference_id);
225 p2_a1 := ddx_contact_preference_rec.contact_level_table;
226 p2_a2 := rosetta_g_miss_num_map(ddx_contact_preference_rec.contact_level_table_id);
227 p2_a3 := ddx_contact_preference_rec.contact_type;
228 p2_a4 := ddx_contact_preference_rec.preference_code;
229 p2_a5 := ddx_contact_preference_rec.preference_topic_type;
230 p2_a6 := rosetta_g_miss_num_map(ddx_contact_preference_rec.preference_topic_type_id);
231 p2_a7 := ddx_contact_preference_rec.preference_topic_type_code;
232 p2_a8 := ddx_contact_preference_rec.preference_start_date;
233 p2_a9 := ddx_contact_preference_rec.preference_end_date;
234 p2_a10 := rosetta_g_miss_num_map(ddx_contact_preference_rec.preference_start_time_hr);
235 p2_a11 := rosetta_g_miss_num_map(ddx_contact_preference_rec.preference_end_time_hr);
236 p2_a12 := rosetta_g_miss_num_map(ddx_contact_preference_rec.preference_start_time_mi);
237 p2_a13 := rosetta_g_miss_num_map(ddx_contact_preference_rec.preference_end_time_mi);
238 p2_a14 := rosetta_g_miss_num_map(ddx_contact_preference_rec.max_no_of_interactions);
239 p2_a15 := ddx_contact_preference_rec.max_no_of_interact_uom_code;
240 p2_a16 := ddx_contact_preference_rec.requested_by;
241 p2_a17 := ddx_contact_preference_rec.reason_code;
242 p2_a18 := ddx_contact_preference_rec.status;
243 p2_a19 := ddx_contact_preference_rec.created_by_module;
244 p2_a20 := rosetta_g_miss_num_map(ddx_contact_preference_rec.application_id);
245
246
247
248 end;
249
250 end hz_contact_preference_v2pub_jw;