DBA Data[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;