[Home] [Help]
PACKAGE BODY: APPS.AMS_LISTACTION_PVT_W
Source
1 package body ams_listaction_pvt_w as
2 /* $Header: amswlsab.pls 115.13 2002/11/22 08:57:30 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_listaction(p_api_version 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 , x_action_id OUT NOCOPY NUMBER
30 , p7_a0 NUMBER := 0-1962.0724
31 , p7_a1 DATE := fnd_api.g_miss_date
32 , p7_a2 NUMBER := 0-1962.0724
33 , p7_a3 DATE := fnd_api.g_miss_date
34 , p7_a4 NUMBER := 0-1962.0724
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 NUMBER := 0-1962.0724
37 , p7_a7 NUMBER := 0-1962.0724
38 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
40 , p7_a10 NUMBER := 0-1962.0724
41 , p7_a11 NUMBER := 0-1962.0724
42 , p7_a12 NUMBER := 0-1962.0724
43 , p7_a13 NUMBER := 0-1962.0724
44 , p7_a14 NUMBER := 0-1962.0724
45 , p7_a15 NUMBER := 0-1962.0724
46 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
48 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a19 NUMBER := 0-1962.0724
50 , p7_a20 NUMBER := 0-1962.0724
51 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
52 )
53 as
54 ddp_action_rec ams_listaction_pvt.action_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_action_rec.list_select_action_id := rosetta_g_miss_num_map(p7_a0);
67 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
68 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
69 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
70 ddp_action_rec.created_by := rosetta_g_miss_num_map(p7_a4);
71 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
72 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
73 ddp_action_rec.order_number := rosetta_g_miss_num_map(p7_a7);
74 ddp_action_rec.list_action_type := p7_a8;
75 ddp_action_rec.arc_incl_object_from := p7_a9;
76 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p7_a10);
77 ddp_action_rec.rank := rosetta_g_miss_num_map(p7_a11);
78 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p7_a12);
79 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p7_a13);
80 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p7_a14);
81 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p7_a15);
82 ddp_action_rec.result_text := p7_a16;
83 ddp_action_rec.description := p7_a17;
84 ddp_action_rec.arc_action_used_by := p7_a18;
85 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p7_a19);
86 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p7_a20);
87 ddp_action_rec.incl_control_group := p7_a21;
88
89
90 -- here's the delegated call to the old PL/SQL routine
91 ams_listaction_pvt.create_listaction(p_api_version,
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_action_rec,
99 x_action_id);
100
101 -- copy data back from the local OUT or IN-OUT args, if any
102
103
104
105
106
107
108
109
110 end;
111
112 procedure update_listaction(p_api_version NUMBER
113 , p_init_msg_list VARCHAR2
114 , p_commit VARCHAR2
115 , p_validation_level NUMBER
116 , x_return_status OUT NOCOPY VARCHAR2
117 , x_msg_count OUT NOCOPY NUMBER
118 , x_msg_data OUT NOCOPY VARCHAR2
119 , p7_a0 NUMBER := 0-1962.0724
120 , p7_a1 DATE := fnd_api.g_miss_date
121 , p7_a2 NUMBER := 0-1962.0724
122 , p7_a3 DATE := fnd_api.g_miss_date
123 , p7_a4 NUMBER := 0-1962.0724
124 , p7_a5 NUMBER := 0-1962.0724
125 , p7_a6 NUMBER := 0-1962.0724
126 , p7_a7 NUMBER := 0-1962.0724
127 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
128 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
129 , p7_a10 NUMBER := 0-1962.0724
130 , p7_a11 NUMBER := 0-1962.0724
131 , p7_a12 NUMBER := 0-1962.0724
132 , p7_a13 NUMBER := 0-1962.0724
133 , p7_a14 NUMBER := 0-1962.0724
134 , p7_a15 NUMBER := 0-1962.0724
135 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
136 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
137 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
138 , p7_a19 NUMBER := 0-1962.0724
139 , p7_a20 NUMBER := 0-1962.0724
140 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
141 )
142 as
143 ddp_action_rec ams_listaction_pvt.action_rec_type;
144 ddindx binary_integer; indx binary_integer;
145 begin
146
147 -- copy data to the local IN or IN-OUT args, if any
148
149
150
151
152
153
154
155 ddp_action_rec.list_select_action_id := rosetta_g_miss_num_map(p7_a0);
156 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
157 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
158 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
159 ddp_action_rec.created_by := rosetta_g_miss_num_map(p7_a4);
160 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
161 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
162 ddp_action_rec.order_number := rosetta_g_miss_num_map(p7_a7);
163 ddp_action_rec.list_action_type := p7_a8;
164 ddp_action_rec.arc_incl_object_from := p7_a9;
165 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p7_a10);
166 ddp_action_rec.rank := rosetta_g_miss_num_map(p7_a11);
167 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p7_a12);
168 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p7_a13);
169 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p7_a14);
170 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p7_a15);
171 ddp_action_rec.result_text := p7_a16;
172 ddp_action_rec.description := p7_a17;
173 ddp_action_rec.arc_action_used_by := p7_a18;
174 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p7_a19);
175 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p7_a20);
176 ddp_action_rec.incl_control_group := p7_a21;
177
178 -- here's the delegated call to the old PL/SQL routine
179 ams_listaction_pvt.update_listaction(p_api_version,
180 p_init_msg_list,
181 p_commit,
182 p_validation_level,
183 x_return_status,
184 x_msg_count,
185 x_msg_data,
186 ddp_action_rec);
187
188 -- copy data back from the local OUT or IN-OUT args, if any
189
190
191
192
193
194
195
196 end;
197
198 procedure validate_listaction(p_api_version NUMBER
199 , p_init_msg_list VARCHAR2
200 , p_validation_level NUMBER
201 , x_return_status OUT NOCOPY VARCHAR2
202 , x_msg_count OUT NOCOPY NUMBER
203 , x_msg_data OUT NOCOPY VARCHAR2
204 , p6_a0 NUMBER := 0-1962.0724
205 , p6_a1 DATE := fnd_api.g_miss_date
206 , p6_a2 NUMBER := 0-1962.0724
207 , p6_a3 DATE := fnd_api.g_miss_date
208 , p6_a4 NUMBER := 0-1962.0724
209 , p6_a5 NUMBER := 0-1962.0724
210 , p6_a6 NUMBER := 0-1962.0724
211 , p6_a7 NUMBER := 0-1962.0724
212 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
213 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
214 , p6_a10 NUMBER := 0-1962.0724
215 , p6_a11 NUMBER := 0-1962.0724
216 , p6_a12 NUMBER := 0-1962.0724
217 , p6_a13 NUMBER := 0-1962.0724
218 , p6_a14 NUMBER := 0-1962.0724
219 , p6_a15 NUMBER := 0-1962.0724
220 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
221 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
222 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
223 , p6_a19 NUMBER := 0-1962.0724
224 , p6_a20 NUMBER := 0-1962.0724
225 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
226 )
227 as
228 ddp_action_rec ams_listaction_pvt.action_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_action_rec.list_select_action_id := rosetta_g_miss_num_map(p6_a0);
240 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
241 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
242 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
243 ddp_action_rec.created_by := rosetta_g_miss_num_map(p6_a4);
244 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
245 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
246 ddp_action_rec.order_number := rosetta_g_miss_num_map(p6_a7);
247 ddp_action_rec.list_action_type := p6_a8;
248 ddp_action_rec.arc_incl_object_from := p6_a9;
249 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p6_a10);
250 ddp_action_rec.rank := rosetta_g_miss_num_map(p6_a11);
251 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p6_a12);
252 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p6_a13);
253 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p6_a14);
254 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p6_a15);
255 ddp_action_rec.result_text := p6_a16;
256 ddp_action_rec.description := p6_a17;
257 ddp_action_rec.arc_action_used_by := p6_a18;
258 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p6_a19);
259 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p6_a20);
260 ddp_action_rec.incl_control_group := p6_a21;
261
262 -- here's the delegated call to the old PL/SQL routine
263 ams_listaction_pvt.validate_listaction(p_api_version,
264 p_init_msg_list,
265 p_validation_level,
266 x_return_status,
267 x_msg_count,
268 x_msg_data,
269 ddp_action_rec);
270
271 -- copy data back from the local OUT or IN-OUT args, if any
272
273
274
275
276
277
278 end;
279
280 procedure init_action_rec(p0_a0 OUT NOCOPY NUMBER
281 , p0_a1 OUT NOCOPY DATE
282 , p0_a2 OUT NOCOPY NUMBER
283 , p0_a3 OUT NOCOPY DATE
284 , p0_a4 OUT NOCOPY NUMBER
285 , p0_a5 OUT NOCOPY NUMBER
286 , p0_a6 OUT NOCOPY NUMBER
287 , p0_a7 OUT NOCOPY NUMBER
288 , p0_a8 OUT NOCOPY VARCHAR2
289 , p0_a9 OUT NOCOPY VARCHAR2
290 , p0_a10 OUT NOCOPY NUMBER
291 , p0_a11 OUT NOCOPY NUMBER
292 , p0_a12 OUT NOCOPY NUMBER
293 , p0_a13 OUT NOCOPY NUMBER
294 , p0_a14 OUT NOCOPY NUMBER
295 , p0_a15 OUT NOCOPY NUMBER
296 , p0_a16 OUT NOCOPY VARCHAR2
297 , p0_a17 OUT NOCOPY VARCHAR2
298 , p0_a18 OUT NOCOPY VARCHAR2
299 , p0_a19 OUT NOCOPY NUMBER
300 , p0_a20 OUT NOCOPY NUMBER
301 , p0_a21 OUT NOCOPY VARCHAR2
302 )
303 as
304 ddx_action_rec ams_listaction_pvt.action_rec_type;
305 ddindx binary_integer; indx binary_integer;
306 begin
307
308 -- copy data to the local IN or IN-OUT args, if any
309
310 -- here's the delegated call to the old PL/SQL routine
311 ams_listaction_pvt.init_action_rec(ddx_action_rec);
312
313 -- copy data back from the local OUT or IN-OUT args, if any
314 p0_a0 := rosetta_g_miss_num_map(ddx_action_rec.list_select_action_id);
315 p0_a1 := ddx_action_rec.last_update_date;
316 p0_a2 := rosetta_g_miss_num_map(ddx_action_rec.last_updated_by);
317 p0_a3 := ddx_action_rec.creation_date;
318 p0_a4 := rosetta_g_miss_num_map(ddx_action_rec.created_by);
319 p0_a5 := rosetta_g_miss_num_map(ddx_action_rec.last_update_login);
320 p0_a6 := rosetta_g_miss_num_map(ddx_action_rec.object_version_number);
321 p0_a7 := rosetta_g_miss_num_map(ddx_action_rec.order_number);
322 p0_a8 := ddx_action_rec.list_action_type;
323 p0_a9 := ddx_action_rec.arc_incl_object_from;
324 p0_a10 := rosetta_g_miss_num_map(ddx_action_rec.incl_object_id);
325 p0_a11 := rosetta_g_miss_num_map(ddx_action_rec.rank);
326 p0_a12 := rosetta_g_miss_num_map(ddx_action_rec.no_of_rows_available);
327 p0_a13 := rosetta_g_miss_num_map(ddx_action_rec.no_of_rows_requested);
328 p0_a14 := rosetta_g_miss_num_map(ddx_action_rec.no_of_rows_used);
329 p0_a15 := rosetta_g_miss_num_map(ddx_action_rec.distribution_pct);
330 p0_a16 := ddx_action_rec.result_text;
331 p0_a17 := ddx_action_rec.description;
332 p0_a18 := ddx_action_rec.arc_action_used_by;
333 p0_a19 := rosetta_g_miss_num_map(ddx_action_rec.action_used_by_id);
334 p0_a20 := rosetta_g_miss_num_map(ddx_action_rec.no_of_rows_targeted);
335 p0_a21 := ddx_action_rec.incl_control_group;
336 end;
337
338 procedure complete_action_rec(p1_a0 OUT NOCOPY NUMBER
339 , p1_a1 OUT NOCOPY DATE
340 , p1_a2 OUT NOCOPY NUMBER
341 , p1_a3 OUT NOCOPY DATE
342 , p1_a4 OUT NOCOPY NUMBER
343 , p1_a5 OUT NOCOPY NUMBER
344 , p1_a6 OUT NOCOPY NUMBER
345 , p1_a7 OUT NOCOPY NUMBER
346 , p1_a8 OUT NOCOPY VARCHAR2
347 , p1_a9 OUT NOCOPY VARCHAR2
348 , p1_a10 OUT NOCOPY NUMBER
349 , p1_a11 OUT NOCOPY NUMBER
350 , p1_a12 OUT NOCOPY NUMBER
351 , p1_a13 OUT NOCOPY NUMBER
352 , p1_a14 OUT NOCOPY NUMBER
353 , p1_a15 OUT NOCOPY NUMBER
354 , p1_a16 OUT NOCOPY VARCHAR2
355 , p1_a17 OUT NOCOPY VARCHAR2
356 , p1_a18 OUT NOCOPY VARCHAR2
357 , p1_a19 OUT NOCOPY NUMBER
358 , p1_a20 OUT NOCOPY NUMBER
359 , p1_a21 OUT NOCOPY VARCHAR2
360 , p0_a0 NUMBER := 0-1962.0724
361 , p0_a1 DATE := fnd_api.g_miss_date
362 , p0_a2 NUMBER := 0-1962.0724
363 , p0_a3 DATE := fnd_api.g_miss_date
364 , p0_a4 NUMBER := 0-1962.0724
365 , p0_a5 NUMBER := 0-1962.0724
366 , p0_a6 NUMBER := 0-1962.0724
367 , p0_a7 NUMBER := 0-1962.0724
368 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
369 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
370 , p0_a10 NUMBER := 0-1962.0724
371 , p0_a11 NUMBER := 0-1962.0724
372 , p0_a12 NUMBER := 0-1962.0724
373 , p0_a13 NUMBER := 0-1962.0724
374 , p0_a14 NUMBER := 0-1962.0724
375 , p0_a15 NUMBER := 0-1962.0724
376 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
377 , p0_a17 VARCHAR2 := fnd_api.g_miss_char
378 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
379 , p0_a19 NUMBER := 0-1962.0724
380 , p0_a20 NUMBER := 0-1962.0724
381 , p0_a21 VARCHAR2 := fnd_api.g_miss_char
382 )
383 as
384 ddp_action_rec ams_listaction_pvt.action_rec_type;
385 ddx_complete_rec ams_listaction_pvt.action_rec_type;
386 ddindx binary_integer; indx binary_integer;
387 begin
388
389 -- copy data to the local IN or IN-OUT args, if any
390 ddp_action_rec.list_select_action_id := rosetta_g_miss_num_map(p0_a0);
391 ddp_action_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
392 ddp_action_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
393 ddp_action_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
394 ddp_action_rec.created_by := rosetta_g_miss_num_map(p0_a4);
395 ddp_action_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
396 ddp_action_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
397 ddp_action_rec.order_number := rosetta_g_miss_num_map(p0_a7);
398 ddp_action_rec.list_action_type := p0_a8;
399 ddp_action_rec.arc_incl_object_from := p0_a9;
400 ddp_action_rec.incl_object_id := rosetta_g_miss_num_map(p0_a10);
401 ddp_action_rec.rank := rosetta_g_miss_num_map(p0_a11);
402 ddp_action_rec.no_of_rows_available := rosetta_g_miss_num_map(p0_a12);
403 ddp_action_rec.no_of_rows_requested := rosetta_g_miss_num_map(p0_a13);
404 ddp_action_rec.no_of_rows_used := rosetta_g_miss_num_map(p0_a14);
405 ddp_action_rec.distribution_pct := rosetta_g_miss_num_map(p0_a15);
406 ddp_action_rec.result_text := p0_a16;
407 ddp_action_rec.description := p0_a17;
408 ddp_action_rec.arc_action_used_by := p0_a18;
409 ddp_action_rec.action_used_by_id := rosetta_g_miss_num_map(p0_a19);
410 ddp_action_rec.no_of_rows_targeted := rosetta_g_miss_num_map(p0_a20);
411 ddp_action_rec.incl_control_group := p0_a21;
412
413
414 -- here's the delegated call to the old PL/SQL routine
415 ams_listaction_pvt.complete_action_rec(ddp_action_rec,
416 ddx_complete_rec);
417
418 -- copy data back from the local OUT or IN-OUT args, if any
419
420 p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.list_select_action_id);
421 p1_a1 := ddx_complete_rec.last_update_date;
422 p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
423 p1_a3 := ddx_complete_rec.creation_date;
424 p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
425 p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
426 p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
427 p1_a7 := rosetta_g_miss_num_map(ddx_complete_rec.order_number);
428 p1_a8 := ddx_complete_rec.list_action_type;
429 p1_a9 := ddx_complete_rec.arc_incl_object_from;
430 p1_a10 := rosetta_g_miss_num_map(ddx_complete_rec.incl_object_id);
431 p1_a11 := rosetta_g_miss_num_map(ddx_complete_rec.rank);
432 p1_a12 := rosetta_g_miss_num_map(ddx_complete_rec.no_of_rows_available);
433 p1_a13 := rosetta_g_miss_num_map(ddx_complete_rec.no_of_rows_requested);
434 p1_a14 := rosetta_g_miss_num_map(ddx_complete_rec.no_of_rows_used);
435 p1_a15 := rosetta_g_miss_num_map(ddx_complete_rec.distribution_pct);
436 p1_a16 := ddx_complete_rec.result_text;
437 p1_a17 := ddx_complete_rec.description;
438 p1_a18 := ddx_complete_rec.arc_action_used_by;
439 p1_a19 := rosetta_g_miss_num_map(ddx_complete_rec.action_used_by_id);
440 p1_a20 := rosetta_g_miss_num_map(ddx_complete_rec.no_of_rows_targeted);
441 p1_a21 := ddx_complete_rec.incl_control_group;
442 end;
443
444 end ams_listaction_pvt_w;