[Home] [Help]
PACKAGE BODY: APPS.AMS_LIST_QUERY_PUB_W
Source
1 package body ams_list_query_pub_w as
2 /* $Header: amszliqb.pls 115.5 2002/11/22 08:58:19 jieli 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_list_query(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , x_return_status OUT NOCOPY VARCHAR2
26 , x_msg_count OUT NOCOPY NUMBER
27 , x_msg_data OUT NOCOPY VARCHAR2
28 , x_list_query_id OUT NOCOPY NUMBER
29 , p6_a0 NUMBER := 0-1962.0724
30 , p6_a1 DATE := fnd_api.g_miss_date
31 , p6_a2 NUMBER := 0-1962.0724
32 , p6_a3 DATE := fnd_api.g_miss_date
33 , p6_a4 NUMBER := 0-1962.0724
34 , p6_a5 NUMBER := 0-1962.0724
35 , p6_a6 NUMBER := 0-1962.0724
36 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
37 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
38 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
39 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
40 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
41 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
42 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
43 , p6_a14 NUMBER := 0-1962.0724
44 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
45 , p6_a16 NUMBER := 0-1962.0724
46 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
47 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
48 , p6_a19 NUMBER := 0-1962.0724
49 , p6_a20 NUMBER := 0-1962.0724
50 )
51 as
52 ddp_list_query_rec ams_list_query_pvt.list_query_rec_type;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57
58
59
60
61
62
63 ddp_list_query_rec.list_query_id := rosetta_g_miss_num_map(p6_a0);
64 ddp_list_query_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
65 ddp_list_query_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
66 ddp_list_query_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
67 ddp_list_query_rec.created_by := rosetta_g_miss_num_map(p6_a4);
68 ddp_list_query_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
69 ddp_list_query_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
70 ddp_list_query_rec.name := p6_a7;
71 ddp_list_query_rec.type := p6_a8;
72 ddp_list_query_rec.enabled_flag := p6_a9;
73 ddp_list_query_rec.primary_key := p6_a10;
74 ddp_list_query_rec.source_object_name := p6_a11;
75 ddp_list_query_rec.seed_flag := p6_a12;
76 ddp_list_query_rec.public_flag := p6_a13;
77 ddp_list_query_rec.org_id := rosetta_g_miss_num_map(p6_a14);
78 ddp_list_query_rec.comments := p6_a15;
79 ddp_list_query_rec.act_list_query_used_by_id := rosetta_g_miss_num_map(p6_a16);
80 ddp_list_query_rec.arc_act_list_query_used_by := p6_a17;
81 ddp_list_query_rec.sql_string := p6_a18;
82 ddp_list_query_rec.parent_list_query_id := rosetta_g_miss_num_map(p6_a19);
83 ddp_list_query_rec.sequence_order := rosetta_g_miss_num_map(p6_a20);
84
85
86 -- here's the delegated call to the old PL/SQL routine
87 ams_list_query_pub.create_list_query(p_api_version_number,
88 p_init_msg_list,
89 p_commit,
90 x_return_status,
91 x_msg_count,
92 x_msg_data,
93 ddp_list_query_rec,
94 x_list_query_id);
95
96 -- copy data back from the local OUT or IN-OUT args, if any
97
98
99
100
101
102
103
104 end;
105
106 procedure create_list_query(p_api_version_number NUMBER
107 , p_init_msg_list VARCHAR2
108 , p_commit VARCHAR2
109 , p_validation_level NUMBER
110 , x_return_status OUT NOCOPY VARCHAR2
111 , x_msg_count OUT NOCOPY NUMBER
112 , x_msg_data OUT NOCOPY VARCHAR2
113 , p_sql_string_tbl JTF_VARCHAR2_TABLE_4000
114 , x_parent_list_query_id OUT NOCOPY NUMBER
115 , p7_a0 NUMBER := 0-1962.0724
116 , p7_a1 DATE := fnd_api.g_miss_date
117 , p7_a2 NUMBER := 0-1962.0724
118 , p7_a3 DATE := fnd_api.g_miss_date
119 , p7_a4 NUMBER := 0-1962.0724
120 , p7_a5 NUMBER := 0-1962.0724
121 , p7_a6 NUMBER := 0-1962.0724
122 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
123 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
124 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
125 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
126 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
127 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
129 , p7_a14 NUMBER := 0-1962.0724
130 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
131 , p7_a16 NUMBER := 0-1962.0724
132 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
133 , p7_a18 NUMBER := 0-1962.0724
134 , p7_a19 NUMBER := 0-1962.0724
135 )
136 as
137 ddp_list_query_rec_tbl ams_list_query_pvt.list_query_rec_type_tbl;
138 ddp_sql_string_tbl ams_list_query_pvt.sql_string_tbl;
139 ddindx binary_integer; indx binary_integer;
140 begin
141
142 -- copy data to the local IN or IN-OUT args, if any
143
144
145
146
147
148
149
150 ddp_list_query_rec_tbl.list_query_id := rosetta_g_miss_num_map(p7_a0);
151 ddp_list_query_rec_tbl.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
152 ddp_list_query_rec_tbl.last_updated_by := rosetta_g_miss_num_map(p7_a2);
153 ddp_list_query_rec_tbl.creation_date := rosetta_g_miss_date_in_map(p7_a3);
154 ddp_list_query_rec_tbl.created_by := rosetta_g_miss_num_map(p7_a4);
155 ddp_list_query_rec_tbl.last_update_login := rosetta_g_miss_num_map(p7_a5);
156 ddp_list_query_rec_tbl.object_version_number := rosetta_g_miss_num_map(p7_a6);
157 ddp_list_query_rec_tbl.name := p7_a7;
158 ddp_list_query_rec_tbl.type := p7_a8;
159 ddp_list_query_rec_tbl.enabled_flag := p7_a9;
160 ddp_list_query_rec_tbl.primary_key := p7_a10;
161 ddp_list_query_rec_tbl.source_object_name := p7_a11;
162 ddp_list_query_rec_tbl.seed_flag := p7_a12;
163 ddp_list_query_rec_tbl.public_flag := p7_a13;
164 ddp_list_query_rec_tbl.org_id := rosetta_g_miss_num_map(p7_a14);
165 ddp_list_query_rec_tbl.comments := p7_a15;
166 ddp_list_query_rec_tbl.act_list_query_used_by_id := rosetta_g_miss_num_map(p7_a16);
167 ddp_list_query_rec_tbl.arc_act_list_query_used_by := p7_a17;
168 ddp_list_query_rec_tbl.parent_list_query_id := rosetta_g_miss_num_map(p7_a18);
169 ddp_list_query_rec_tbl.sequence_order := rosetta_g_miss_num_map(p7_a19);
170
171 ams_list_query_pvt_w.rosetta_table_copy_in_p2(ddp_sql_string_tbl, p_sql_string_tbl);
172
173
174 -- here's the delegated call to the old PL/SQL routine
175 ams_list_query_pub.create_list_query(p_api_version_number,
176 p_init_msg_list,
177 p_commit,
178 p_validation_level,
179 x_return_status,
180 x_msg_count,
181 x_msg_data,
182 ddp_list_query_rec_tbl,
183 ddp_sql_string_tbl,
184 x_parent_list_query_id);
185
186 -- copy data back from the local OUT or IN-OUT args, if any
187
188
189
190
191
192
193
194
195
196 end;
197
198 procedure update_list_query(p_api_version_number NUMBER
199 , p_init_msg_list VARCHAR2
200 , p_commit VARCHAR2
201 , x_return_status OUT NOCOPY VARCHAR2
202 , x_msg_count OUT NOCOPY NUMBER
203 , x_msg_data OUT NOCOPY VARCHAR2
204 , x_object_version_number OUT NOCOPY NUMBER
205 , p6_a0 NUMBER := 0-1962.0724
206 , p6_a1 DATE := fnd_api.g_miss_date
207 , p6_a2 NUMBER := 0-1962.0724
208 , p6_a3 DATE := fnd_api.g_miss_date
209 , p6_a4 NUMBER := 0-1962.0724
210 , p6_a5 NUMBER := 0-1962.0724
211 , p6_a6 NUMBER := 0-1962.0724
212 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
213 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
214 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
215 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
216 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
217 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
218 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
219 , p6_a14 NUMBER := 0-1962.0724
220 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
221 , p6_a16 NUMBER := 0-1962.0724
222 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
223 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
224 , p6_a19 NUMBER := 0-1962.0724
225 , p6_a20 NUMBER := 0-1962.0724
226 )
227 as
228 ddp_list_query_rec ams_list_query_pvt.list_query_rec_type;
229 ddindx binary_integer; indx binary_integer;
230 begin
231
232 -- copy data to the local IN or IN-OUT args, if any
233
234
235
236
237
238
239 ddp_list_query_rec.list_query_id := rosetta_g_miss_num_map(p6_a0);
240 ddp_list_query_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
241 ddp_list_query_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
242 ddp_list_query_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
243 ddp_list_query_rec.created_by := rosetta_g_miss_num_map(p6_a4);
244 ddp_list_query_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
245 ddp_list_query_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
246 ddp_list_query_rec.name := p6_a7;
247 ddp_list_query_rec.type := p6_a8;
248 ddp_list_query_rec.enabled_flag := p6_a9;
249 ddp_list_query_rec.primary_key := p6_a10;
250 ddp_list_query_rec.source_object_name := p6_a11;
251 ddp_list_query_rec.seed_flag := p6_a12;
252 ddp_list_query_rec.public_flag := p6_a13;
253 ddp_list_query_rec.org_id := rosetta_g_miss_num_map(p6_a14);
254 ddp_list_query_rec.comments := p6_a15;
255 ddp_list_query_rec.act_list_query_used_by_id := rosetta_g_miss_num_map(p6_a16);
256 ddp_list_query_rec.arc_act_list_query_used_by := p6_a17;
257 ddp_list_query_rec.sql_string := p6_a18;
258 ddp_list_query_rec.parent_list_query_id := rosetta_g_miss_num_map(p6_a19);
259 ddp_list_query_rec.sequence_order := rosetta_g_miss_num_map(p6_a20);
260
261
262 -- here's the delegated call to the old PL/SQL routine
263 ams_list_query_pub.update_list_query(p_api_version_number,
264 p_init_msg_list,
265 p_commit,
266 x_return_status,
267 x_msg_count,
268 x_msg_data,
269 ddp_list_query_rec,
270 x_object_version_number);
271
272 -- copy data back from the local OUT or IN-OUT args, if any
273
274
275
276
277
278
279
280 end;
281
282 procedure update_list_query(p_api_version_number NUMBER
283 , p_init_msg_list VARCHAR2
284 , p_commit VARCHAR2
285 , p_validation_level NUMBER
286 , x_return_status OUT NOCOPY VARCHAR2
287 , x_msg_count OUT NOCOPY NUMBER
288 , x_msg_data OUT NOCOPY VARCHAR2
289 , p_sql_string_tbl JTF_VARCHAR2_TABLE_4000
290 , x_object_version_number OUT NOCOPY NUMBER
291 , p7_a0 NUMBER := 0-1962.0724
292 , p7_a1 DATE := fnd_api.g_miss_date
293 , p7_a2 NUMBER := 0-1962.0724
294 , p7_a3 DATE := fnd_api.g_miss_date
295 , p7_a4 NUMBER := 0-1962.0724
296 , p7_a5 NUMBER := 0-1962.0724
297 , p7_a6 NUMBER := 0-1962.0724
298 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
299 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
300 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
301 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
302 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
303 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
304 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
305 , p7_a14 NUMBER := 0-1962.0724
306 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
307 , p7_a16 NUMBER := 0-1962.0724
308 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
309 , p7_a18 NUMBER := 0-1962.0724
310 , p7_a19 NUMBER := 0-1962.0724
311 )
312 as
313 ddp_list_query_rec_tbl ams_list_query_pvt.list_query_rec_type_tbl;
314 ddp_sql_string_tbl ams_list_query_pvt.sql_string_tbl;
315 ddindx binary_integer; indx binary_integer;
316 begin
317
318 -- copy data to the local IN or IN-OUT args, if any
319
320
321
322
323
324
325
326 ddp_list_query_rec_tbl.list_query_id := rosetta_g_miss_num_map(p7_a0);
327 ddp_list_query_rec_tbl.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
328 ddp_list_query_rec_tbl.last_updated_by := rosetta_g_miss_num_map(p7_a2);
329 ddp_list_query_rec_tbl.creation_date := rosetta_g_miss_date_in_map(p7_a3);
330 ddp_list_query_rec_tbl.created_by := rosetta_g_miss_num_map(p7_a4);
331 ddp_list_query_rec_tbl.last_update_login := rosetta_g_miss_num_map(p7_a5);
332 ddp_list_query_rec_tbl.object_version_number := rosetta_g_miss_num_map(p7_a6);
333 ddp_list_query_rec_tbl.name := p7_a7;
334 ddp_list_query_rec_tbl.type := p7_a8;
335 ddp_list_query_rec_tbl.enabled_flag := p7_a9;
336 ddp_list_query_rec_tbl.primary_key := p7_a10;
337 ddp_list_query_rec_tbl.source_object_name := p7_a11;
338 ddp_list_query_rec_tbl.seed_flag := p7_a12;
339 ddp_list_query_rec_tbl.public_flag := p7_a13;
340 ddp_list_query_rec_tbl.org_id := rosetta_g_miss_num_map(p7_a14);
341 ddp_list_query_rec_tbl.comments := p7_a15;
342 ddp_list_query_rec_tbl.act_list_query_used_by_id := rosetta_g_miss_num_map(p7_a16);
343 ddp_list_query_rec_tbl.arc_act_list_query_used_by := p7_a17;
344 ddp_list_query_rec_tbl.parent_list_query_id := rosetta_g_miss_num_map(p7_a18);
345 ddp_list_query_rec_tbl.sequence_order := rosetta_g_miss_num_map(p7_a19);
346
347 ams_list_query_pvt_w.rosetta_table_copy_in_p2(ddp_sql_string_tbl, p_sql_string_tbl);
348
349
350 -- here's the delegated call to the old PL/SQL routine
351 ams_list_query_pub.update_list_query(p_api_version_number,
352 p_init_msg_list,
353 p_commit,
354 p_validation_level,
355 x_return_status,
356 x_msg_count,
357 x_msg_data,
358 ddp_list_query_rec_tbl,
359 ddp_sql_string_tbl,
360 x_object_version_number);
361
362 -- copy data back from the local OUT or IN-OUT args, if any
363
364
365
366
367
368
369
370
371
372 end;
373
374 end ams_list_query_pub_w;