[Home] [Help]
PACKAGE BODY: APPS.IEX_FILTER_PUB_W
Source
1 package body iex_filter_pub_w as
2 /* $Header: iexwfilb.pls 120.1 2005/07/05 19:56:13 ctlee 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy iex_filter_pub.universe_ids, a0 JTF_NUMBER_TABLE) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p2;
40 procedure rosetta_table_copy_out_p2(t iex_filter_pub.universe_ids, a0 out nocopy JTF_NUMBER_TABLE) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if t is null or t.count = 0 then
44 a0 := JTF_NUMBER_TABLE();
45 else
46 a0 := JTF_NUMBER_TABLE();
47 if t.count > 0 then
48 a0.extend(t.count);
49 ddindx := t.first;
50 indx := 1;
51 while true loop
52 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
53 indx := indx+1;
54 if t.last =ddindx
55 then exit;
56 end if;
57 ddindx := t.next(ddindx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_out_p2;
62
63 procedure validate_filter(p_init_msg_list VARCHAR2
64 , x_dup_status out nocopy VARCHAR2
65 , x_return_status out nocopy VARCHAR2
66 , x_msg_count out nocopy NUMBER
67 , x_msg_data out nocopy VARCHAR2
68 , p1_a0 NUMBER := 0-1962.0724
69 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
70 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
71 , p1_a3 NUMBER := 0-1962.0724
72 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
73 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
74 , p1_a6 VARCHAR2 := fnd_api.g_miss_char
75 , p1_a7 NUMBER := 0-1962.0724
76 , p1_a8 NUMBER := 0-1962.0724
77 , p1_a9 NUMBER := 0-1962.0724
78 , p1_a10 NUMBER := 0-1962.0724
79 , p1_a11 DATE := fnd_api.g_miss_date
80 , p1_a12 DATE := fnd_api.g_miss_date
81 , p1_a13 NUMBER := 0-1962.0724
82 , p1_a14 DATE := fnd_api.g_miss_date
83 , p1_a15 NUMBER := 0-1962.0724
84 , p1_a16 NUMBER := 0-1962.0724
85 )
86
87 as
88 ddp_filter_rec iex_filter_pub.filter_rec_type;
89 ddindx binary_integer; indx binary_integer;
90 begin
91
92 -- copy data to the local IN or IN-OUT args, if any
93
94 ddp_filter_rec.object_filter_id := rosetta_g_miss_num_map(p1_a0);
95 ddp_filter_rec.object_filter_type := p1_a1;
96 ddp_filter_rec.object_filter_name := p1_a2;
97 ddp_filter_rec.object_id := rosetta_g_miss_num_map(p1_a3);
98 ddp_filter_rec.select_column := p1_a4;
99 ddp_filter_rec.entity_name := p1_a5;
100 ddp_filter_rec.active_flag := p1_a6;
101 ddp_filter_rec.object_version_number := rosetta_g_miss_num_map(p1_a7);
102 ddp_filter_rec.program_id := rosetta_g_miss_num_map(p1_a8);
103 ddp_filter_rec.request_id := rosetta_g_miss_num_map(p1_a9);
104 ddp_filter_rec.program_application_id := rosetta_g_miss_num_map(p1_a10);
105 ddp_filter_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a11);
106 ddp_filter_rec.creation_date := rosetta_g_miss_date_in_map(p1_a12);
107 ddp_filter_rec.created_by := rosetta_g_miss_num_map(p1_a13);
108 ddp_filter_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a14);
109 ddp_filter_rec.last_updated_by := rosetta_g_miss_num_map(p1_a15);
110 ddp_filter_rec.last_update_login := rosetta_g_miss_num_map(p1_a16);
111
112
113
114
115
116 -- here's the delegated call to the old PL/SQL routine
117 iex_filter_pub.validate_filter(p_init_msg_list,
118 ddp_filter_rec,
119 x_dup_status,
120 x_return_status,
121 x_msg_count,
122 x_msg_data);
123
124 -- copy data back from the local variables to OUT or IN-OUT args, if any
125
126
127
128
129
130 end;
131
132 procedure create_object_filter(p_api_version NUMBER
133 , p_init_msg_list VARCHAR2
134 , p_commit VARCHAR2
135 , x_dup_status out nocopy VARCHAR2
136 , x_return_status out nocopy VARCHAR2
137 , x_msg_count out nocopy NUMBER
138 , x_msg_data out nocopy VARCHAR2
139 , x_filter_id out nocopy NUMBER
140 , p3_a0 NUMBER := 0-1962.0724
141 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
142 , p3_a2 VARCHAR2 := fnd_api.g_miss_char
143 , p3_a3 NUMBER := 0-1962.0724
144 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
145 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
146 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
147 , p3_a7 NUMBER := 0-1962.0724
148 , p3_a8 NUMBER := 0-1962.0724
149 , p3_a9 NUMBER := 0-1962.0724
150 , p3_a10 NUMBER := 0-1962.0724
151 , p3_a11 DATE := fnd_api.g_miss_date
152 , p3_a12 DATE := fnd_api.g_miss_date
153 , p3_a13 NUMBER := 0-1962.0724
154 , p3_a14 DATE := fnd_api.g_miss_date
155 , p3_a15 NUMBER := 0-1962.0724
156 , p3_a16 NUMBER := 0-1962.0724
157 )
158
159 as
160 ddp_filter_rec iex_filter_pub.filter_rec_type;
161 ddindx binary_integer; indx binary_integer;
162 begin
163
164 -- copy data to the local IN or IN-OUT args, if any
165
166
167
168 ddp_filter_rec.object_filter_id := rosetta_g_miss_num_map(p3_a0);
169 ddp_filter_rec.object_filter_type := p3_a1;
170 ddp_filter_rec.object_filter_name := p3_a2;
171 ddp_filter_rec.object_id := rosetta_g_miss_num_map(p3_a3);
172 ddp_filter_rec.select_column := p3_a4;
173 ddp_filter_rec.entity_name := p3_a5;
174 ddp_filter_rec.active_flag := p3_a6;
175 ddp_filter_rec.object_version_number := rosetta_g_miss_num_map(p3_a7);
176 ddp_filter_rec.program_id := rosetta_g_miss_num_map(p3_a8);
177 ddp_filter_rec.request_id := rosetta_g_miss_num_map(p3_a9);
178 ddp_filter_rec.program_application_id := rosetta_g_miss_num_map(p3_a10);
179 ddp_filter_rec.program_update_date := rosetta_g_miss_date_in_map(p3_a11);
180 ddp_filter_rec.creation_date := rosetta_g_miss_date_in_map(p3_a12);
181 ddp_filter_rec.created_by := rosetta_g_miss_num_map(p3_a13);
182 ddp_filter_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a14);
183 ddp_filter_rec.last_updated_by := rosetta_g_miss_num_map(p3_a15);
184 ddp_filter_rec.last_update_login := rosetta_g_miss_num_map(p3_a16);
185
186
187
188
189
190
191 -- here's the delegated call to the old PL/SQL routine
192 iex_filter_pub.create_object_filter(p_api_version,
193 p_init_msg_list,
194 p_commit,
195 ddp_filter_rec,
196 x_dup_status,
197 x_return_status,
198 x_msg_count,
199 x_msg_data,
200 x_filter_id);
201
202 -- copy data back from the local variables to OUT or IN-OUT args, if any
203
204
205
206
207
208
209
210
211 end;
212
213 procedure update_object_filter(p_api_version NUMBER
214 , p_init_msg_list VARCHAR2
215 , p_commit VARCHAR2
216 , x_dup_status out nocopy VARCHAR2
217 , x_return_status out nocopy VARCHAR2
218 , x_msg_count out nocopy NUMBER
219 , x_msg_data out nocopy VARCHAR2
220 , p3_a0 NUMBER := 0-1962.0724
221 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
222 , p3_a2 VARCHAR2 := fnd_api.g_miss_char
223 , p3_a3 NUMBER := 0-1962.0724
224 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
225 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
226 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
227 , p3_a7 NUMBER := 0-1962.0724
228 , p3_a8 NUMBER := 0-1962.0724
229 , p3_a9 NUMBER := 0-1962.0724
230 , p3_a10 NUMBER := 0-1962.0724
231 , p3_a11 DATE := fnd_api.g_miss_date
232 , p3_a12 DATE := fnd_api.g_miss_date
233 , p3_a13 NUMBER := 0-1962.0724
234 , p3_a14 DATE := fnd_api.g_miss_date
235 , p3_a15 NUMBER := 0-1962.0724
236 , p3_a16 NUMBER := 0-1962.0724
237 )
238
239 as
240 ddp_filter_rec iex_filter_pub.filter_rec_type;
241 ddindx binary_integer; indx binary_integer;
242 begin
243
244 -- copy data to the local IN or IN-OUT args, if any
245
246
247
248 ddp_filter_rec.object_filter_id := rosetta_g_miss_num_map(p3_a0);
249 ddp_filter_rec.object_filter_type := p3_a1;
250 ddp_filter_rec.object_filter_name := p3_a2;
251 ddp_filter_rec.object_id := rosetta_g_miss_num_map(p3_a3);
252 ddp_filter_rec.select_column := p3_a4;
253 ddp_filter_rec.entity_name := p3_a5;
254 ddp_filter_rec.active_flag := p3_a6;
255 ddp_filter_rec.object_version_number := rosetta_g_miss_num_map(p3_a7);
256 ddp_filter_rec.program_id := rosetta_g_miss_num_map(p3_a8);
257 ddp_filter_rec.request_id := rosetta_g_miss_num_map(p3_a9);
258 ddp_filter_rec.program_application_id := rosetta_g_miss_num_map(p3_a10);
259 ddp_filter_rec.program_update_date := rosetta_g_miss_date_in_map(p3_a11);
260 ddp_filter_rec.creation_date := rosetta_g_miss_date_in_map(p3_a12);
261 ddp_filter_rec.created_by := rosetta_g_miss_num_map(p3_a13);
262 ddp_filter_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a14);
263 ddp_filter_rec.last_updated_by := rosetta_g_miss_num_map(p3_a15);
264 ddp_filter_rec.last_update_login := rosetta_g_miss_num_map(p3_a16);
265
266
267
268
269
270 -- here's the delegated call to the old PL/SQL routine
271 iex_filter_pub.update_object_filter(p_api_version,
272 p_init_msg_list,
273 p_commit,
274 ddp_filter_rec,
275 x_dup_status,
276 x_return_status,
277 x_msg_count,
278 x_msg_data);
279
280 -- copy data back from the local variables to OUT or IN-OUT args, if any
281
282
283
284
285
286
287
288 end;
289
290 end iex_filter_pub_w;