[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_BUCKETS_PUB_W
Source
1 package body okl_process_buckets_pub_w as
2 /* $Header: OKLUBUKB.pls 120.1 2005/07/18 10:30:19 asawanka 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 create_buckets(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy NUMBER
30 , p6_a3 out nocopy VARCHAR2
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy NUMBER
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy NUMBER
35 , p6_a8 out nocopy NUMBER
36 , p6_a9 out nocopy DATE
37 , p6_a10 out nocopy DATE
38 , p6_a11 out nocopy DATE
39 , p6_a12 out nocopy NUMBER
40 , p6_a13 out nocopy DATE
41 , p6_a14 out nocopy NUMBER
42 , p6_a15 out nocopy DATE
43 , p6_a16 out nocopy NUMBER
44 , p5_a0 NUMBER := 0-1962.0724
45 , p5_a1 NUMBER := 0-1962.0724
46 , p5_a2 NUMBER := 0-1962.0724
47 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
49 , p5_a5 NUMBER := 0-1962.0724
50 , p5_a6 NUMBER := 0-1962.0724
51 , p5_a7 NUMBER := 0-1962.0724
52 , p5_a8 NUMBER := 0-1962.0724
53 , p5_a9 DATE := fnd_api.g_miss_date
54 , p5_a10 DATE := fnd_api.g_miss_date
55 , p5_a11 DATE := fnd_api.g_miss_date
56 , p5_a12 NUMBER := 0-1962.0724
57 , p5_a13 DATE := fnd_api.g_miss_date
58 , p5_a14 NUMBER := 0-1962.0724
59 , p5_a15 DATE := fnd_api.g_miss_date
60 , p5_a16 NUMBER := 0-1962.0724
61 )
62
63 as
64 ddp_bktv_rec okl_process_buckets_pub.bktv_rec_type;
65 ddx_bktv_rec okl_process_buckets_pub.bktv_rec_type;
66 ddindx binary_integer; indx binary_integer;
67 begin
68
69 -- copy data to the local IN or IN-OUT args, if any
70
71
72
73
74
75 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
76 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
77 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
78 ddp_bktv_rec.version := p5_a3;
79 ddp_bktv_rec.comments := p5_a4;
80 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
81 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
82 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
83 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
84 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
85 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
86 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
87 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
88 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
89 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
90 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
91 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
92
93
94 -- here's the delegated call to the old PL/SQL routine
95 okl_process_buckets_pub.create_buckets(p_api_version,
96 p_init_msg_list,
97 x_return_status,
98 x_msg_count,
99 x_msg_data,
100 ddp_bktv_rec,
101 ddx_bktv_rec);
102
103 -- copy data back from the local variables to OUT or IN-OUT args, if any
104
105
106
107
108
109
110 p6_a0 := rosetta_g_miss_num_map(ddx_bktv_rec.id);
111 p6_a1 := rosetta_g_miss_num_map(ddx_bktv_rec.object_version_number);
112 p6_a2 := rosetta_g_miss_num_map(ddx_bktv_rec.ibc_id);
113 p6_a3 := ddx_bktv_rec.version;
114 p6_a4 := ddx_bktv_rec.comments;
115 p6_a5 := rosetta_g_miss_num_map(ddx_bktv_rec.loss_rate);
116 p6_a6 := rosetta_g_miss_num_map(ddx_bktv_rec.program_id);
117 p6_a7 := rosetta_g_miss_num_map(ddx_bktv_rec.request_id);
118 p6_a8 := rosetta_g_miss_num_map(ddx_bktv_rec.program_application_id);
119 p6_a9 := ddx_bktv_rec.program_update_date;
120 p6_a10 := ddx_bktv_rec.start_date;
121 p6_a11 := ddx_bktv_rec.end_date;
122 p6_a12 := rosetta_g_miss_num_map(ddx_bktv_rec.created_by);
123 p6_a13 := ddx_bktv_rec.creation_date;
124 p6_a14 := rosetta_g_miss_num_map(ddx_bktv_rec.last_updated_by);
125 p6_a15 := ddx_bktv_rec.last_update_date;
126 p6_a16 := rosetta_g_miss_num_map(ddx_bktv_rec.last_update_login);
127 end;
128
129 procedure create_buckets(p_api_version NUMBER
130 , p_init_msg_list VARCHAR2
131 , x_return_status out nocopy VARCHAR2
132 , x_msg_count out nocopy NUMBER
133 , x_msg_data out nocopy VARCHAR2
134 , p5_a0 JTF_NUMBER_TABLE
135 , p5_a1 JTF_NUMBER_TABLE
136 , p5_a2 JTF_NUMBER_TABLE
137 , p5_a3 JTF_VARCHAR2_TABLE_100
138 , p5_a4 JTF_VARCHAR2_TABLE_2000
139 , p5_a5 JTF_NUMBER_TABLE
140 , p5_a6 JTF_NUMBER_TABLE
141 , p5_a7 JTF_NUMBER_TABLE
142 , p5_a8 JTF_NUMBER_TABLE
143 , p5_a9 JTF_DATE_TABLE
144 , p5_a10 JTF_DATE_TABLE
145 , p5_a11 JTF_DATE_TABLE
146 , p5_a12 JTF_NUMBER_TABLE
147 , p5_a13 JTF_DATE_TABLE
148 , p5_a14 JTF_NUMBER_TABLE
149 , p5_a15 JTF_DATE_TABLE
150 , p5_a16 JTF_NUMBER_TABLE
151 , p6_a0 out nocopy JTF_NUMBER_TABLE
152 , p6_a1 out nocopy JTF_NUMBER_TABLE
153 , p6_a2 out nocopy JTF_NUMBER_TABLE
154 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
155 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
156 , p6_a5 out nocopy JTF_NUMBER_TABLE
157 , p6_a6 out nocopy JTF_NUMBER_TABLE
158 , p6_a7 out nocopy JTF_NUMBER_TABLE
159 , p6_a8 out nocopy JTF_NUMBER_TABLE
160 , p6_a9 out nocopy JTF_DATE_TABLE
161 , p6_a10 out nocopy JTF_DATE_TABLE
162 , p6_a11 out nocopy JTF_DATE_TABLE
163 , p6_a12 out nocopy JTF_NUMBER_TABLE
164 , p6_a13 out nocopy JTF_DATE_TABLE
165 , p6_a14 out nocopy JTF_NUMBER_TABLE
166 , p6_a15 out nocopy JTF_DATE_TABLE
167 , p6_a16 out nocopy JTF_NUMBER_TABLE
168 )
169
170 as
171 ddp_bktv_tbl okl_process_buckets_pub.bktv_tbl_type;
172 ddx_bktv_tbl okl_process_buckets_pub.bktv_tbl_type;
173 ddindx binary_integer; indx binary_integer;
174 begin
175
176 -- copy data to the local IN or IN-OUT args, if any
177
178
179
180
181
182 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
183 , p5_a1
184 , p5_a2
185 , p5_a3
186 , p5_a4
187 , p5_a5
188 , p5_a6
189 , p5_a7
190 , p5_a8
191 , p5_a9
192 , p5_a10
193 , p5_a11
194 , p5_a12
195 , p5_a13
196 , p5_a14
197 , p5_a15
198 , p5_a16
199 );
200
201
202 -- here's the delegated call to the old PL/SQL routine
203 okl_process_buckets_pub.create_buckets(p_api_version,
204 p_init_msg_list,
205 x_return_status,
206 x_msg_count,
207 x_msg_data,
208 ddp_bktv_tbl,
209 ddx_bktv_tbl);
210
211 -- copy data back from the local variables to OUT or IN-OUT args, if any
212
213
214
215
216
217
218 okl_bkt_pvt_w.rosetta_table_copy_out_p5(ddx_bktv_tbl, p6_a0
219 , p6_a1
220 , p6_a2
221 , p6_a3
222 , p6_a4
223 , p6_a5
224 , p6_a6
225 , p6_a7
226 , p6_a8
227 , p6_a9
228 , p6_a10
229 , p6_a11
230 , p6_a12
231 , p6_a13
232 , p6_a14
233 , p6_a15
234 , p6_a16
235 );
236 end;
237
238 procedure update_buckets(p_api_version NUMBER
239 , p_init_msg_list VARCHAR2
240 , x_return_status out nocopy VARCHAR2
241 , x_msg_count out nocopy NUMBER
242 , x_msg_data out nocopy VARCHAR2
243 , p6_a0 out nocopy NUMBER
244 , p6_a1 out nocopy NUMBER
245 , p6_a2 out nocopy NUMBER
246 , p6_a3 out nocopy VARCHAR2
247 , p6_a4 out nocopy VARCHAR2
248 , p6_a5 out nocopy NUMBER
249 , p6_a6 out nocopy NUMBER
250 , p6_a7 out nocopy NUMBER
251 , p6_a8 out nocopy NUMBER
252 , p6_a9 out nocopy DATE
253 , p6_a10 out nocopy DATE
254 , p6_a11 out nocopy DATE
255 , p6_a12 out nocopy NUMBER
256 , p6_a13 out nocopy DATE
257 , p6_a14 out nocopy NUMBER
258 , p6_a15 out nocopy DATE
259 , p6_a16 out nocopy NUMBER
260 , p5_a0 NUMBER := 0-1962.0724
261 , p5_a1 NUMBER := 0-1962.0724
262 , p5_a2 NUMBER := 0-1962.0724
263 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
264 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
265 , p5_a5 NUMBER := 0-1962.0724
266 , p5_a6 NUMBER := 0-1962.0724
267 , p5_a7 NUMBER := 0-1962.0724
268 , p5_a8 NUMBER := 0-1962.0724
269 , p5_a9 DATE := fnd_api.g_miss_date
270 , p5_a10 DATE := fnd_api.g_miss_date
271 , p5_a11 DATE := fnd_api.g_miss_date
272 , p5_a12 NUMBER := 0-1962.0724
273 , p5_a13 DATE := fnd_api.g_miss_date
274 , p5_a14 NUMBER := 0-1962.0724
275 , p5_a15 DATE := fnd_api.g_miss_date
276 , p5_a16 NUMBER := 0-1962.0724
277 )
278
279 as
280 ddp_bktv_rec okl_process_buckets_pub.bktv_rec_type;
281 ddx_bktv_rec okl_process_buckets_pub.bktv_rec_type;
282 ddindx binary_integer; indx binary_integer;
283 begin
284
285 -- copy data to the local IN or IN-OUT args, if any
286
287
288
289
290
291 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
292 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
293 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
294 ddp_bktv_rec.version := p5_a3;
295 ddp_bktv_rec.comments := p5_a4;
296 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
297 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
298 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
299 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
300 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
301 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
302 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
303 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
304 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
305 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
306 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
307 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
308
309
310 -- here's the delegated call to the old PL/SQL routine
311 okl_process_buckets_pub.update_buckets(p_api_version,
312 p_init_msg_list,
313 x_return_status,
314 x_msg_count,
315 x_msg_data,
316 ddp_bktv_rec,
317 ddx_bktv_rec);
318
319 -- copy data back from the local variables to OUT or IN-OUT args, if any
320
321
322
323
324
325
326 p6_a0 := rosetta_g_miss_num_map(ddx_bktv_rec.id);
327 p6_a1 := rosetta_g_miss_num_map(ddx_bktv_rec.object_version_number);
328 p6_a2 := rosetta_g_miss_num_map(ddx_bktv_rec.ibc_id);
329 p6_a3 := ddx_bktv_rec.version;
330 p6_a4 := ddx_bktv_rec.comments;
331 p6_a5 := rosetta_g_miss_num_map(ddx_bktv_rec.loss_rate);
332 p6_a6 := rosetta_g_miss_num_map(ddx_bktv_rec.program_id);
333 p6_a7 := rosetta_g_miss_num_map(ddx_bktv_rec.request_id);
334 p6_a8 := rosetta_g_miss_num_map(ddx_bktv_rec.program_application_id);
335 p6_a9 := ddx_bktv_rec.program_update_date;
336 p6_a10 := ddx_bktv_rec.start_date;
337 p6_a11 := ddx_bktv_rec.end_date;
338 p6_a12 := rosetta_g_miss_num_map(ddx_bktv_rec.created_by);
339 p6_a13 := ddx_bktv_rec.creation_date;
340 p6_a14 := rosetta_g_miss_num_map(ddx_bktv_rec.last_updated_by);
341 p6_a15 := ddx_bktv_rec.last_update_date;
342 p6_a16 := rosetta_g_miss_num_map(ddx_bktv_rec.last_update_login);
343 end;
344
345 procedure update_buckets(p_api_version NUMBER
346 , p_init_msg_list VARCHAR2
347 , x_return_status out nocopy VARCHAR2
348 , x_msg_count out nocopy NUMBER
349 , x_msg_data out nocopy VARCHAR2
350 , p5_a0 JTF_NUMBER_TABLE
351 , p5_a1 JTF_NUMBER_TABLE
352 , p5_a2 JTF_NUMBER_TABLE
353 , p5_a3 JTF_VARCHAR2_TABLE_100
354 , p5_a4 JTF_VARCHAR2_TABLE_2000
355 , p5_a5 JTF_NUMBER_TABLE
356 , p5_a6 JTF_NUMBER_TABLE
357 , p5_a7 JTF_NUMBER_TABLE
358 , p5_a8 JTF_NUMBER_TABLE
359 , p5_a9 JTF_DATE_TABLE
360 , p5_a10 JTF_DATE_TABLE
361 , p5_a11 JTF_DATE_TABLE
362 , p5_a12 JTF_NUMBER_TABLE
363 , p5_a13 JTF_DATE_TABLE
364 , p5_a14 JTF_NUMBER_TABLE
365 , p5_a15 JTF_DATE_TABLE
366 , p5_a16 JTF_NUMBER_TABLE
367 , p6_a0 out nocopy JTF_NUMBER_TABLE
368 , p6_a1 out nocopy JTF_NUMBER_TABLE
369 , p6_a2 out nocopy JTF_NUMBER_TABLE
370 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
371 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
372 , p6_a5 out nocopy JTF_NUMBER_TABLE
373 , p6_a6 out nocopy JTF_NUMBER_TABLE
374 , p6_a7 out nocopy JTF_NUMBER_TABLE
375 , p6_a8 out nocopy JTF_NUMBER_TABLE
376 , p6_a9 out nocopy JTF_DATE_TABLE
377 , p6_a10 out nocopy JTF_DATE_TABLE
378 , p6_a11 out nocopy JTF_DATE_TABLE
379 , p6_a12 out nocopy JTF_NUMBER_TABLE
380 , p6_a13 out nocopy JTF_DATE_TABLE
381 , p6_a14 out nocopy JTF_NUMBER_TABLE
382 , p6_a15 out nocopy JTF_DATE_TABLE
383 , p6_a16 out nocopy JTF_NUMBER_TABLE
384 )
385
386 as
387 ddp_bktv_tbl okl_process_buckets_pub.bktv_tbl_type;
388 ddx_bktv_tbl okl_process_buckets_pub.bktv_tbl_type;
389 ddindx binary_integer; indx binary_integer;
390 begin
391
392 -- copy data to the local IN or IN-OUT args, if any
393
394
395
396
397
398 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
399 , p5_a1
400 , p5_a2
401 , p5_a3
402 , p5_a4
403 , p5_a5
404 , p5_a6
405 , p5_a7
406 , p5_a8
407 , p5_a9
408 , p5_a10
409 , p5_a11
410 , p5_a12
411 , p5_a13
412 , p5_a14
413 , p5_a15
414 , p5_a16
415 );
416
417
418 -- here's the delegated call to the old PL/SQL routine
419 okl_process_buckets_pub.update_buckets(p_api_version,
420 p_init_msg_list,
421 x_return_status,
422 x_msg_count,
423 x_msg_data,
424 ddp_bktv_tbl,
425 ddx_bktv_tbl);
426
427 -- copy data back from the local variables to OUT or IN-OUT args, if any
428
429
430
431
432
433
434 okl_bkt_pvt_w.rosetta_table_copy_out_p5(ddx_bktv_tbl, p6_a0
435 , p6_a1
436 , p6_a2
437 , p6_a3
438 , p6_a4
439 , p6_a5
440 , p6_a6
441 , p6_a7
442 , p6_a8
443 , p6_a9
444 , p6_a10
445 , p6_a11
446 , p6_a12
447 , p6_a13
448 , p6_a14
449 , p6_a15
450 , p6_a16
451 );
452 end;
453
454 procedure delete_buckets(p_api_version NUMBER
455 , p_init_msg_list VARCHAR2
456 , x_return_status out nocopy VARCHAR2
457 , x_msg_count out nocopy NUMBER
458 , x_msg_data out nocopy VARCHAR2
459 , p5_a0 NUMBER := 0-1962.0724
460 , p5_a1 NUMBER := 0-1962.0724
461 , p5_a2 NUMBER := 0-1962.0724
462 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
463 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
464 , p5_a5 NUMBER := 0-1962.0724
465 , p5_a6 NUMBER := 0-1962.0724
466 , p5_a7 NUMBER := 0-1962.0724
467 , p5_a8 NUMBER := 0-1962.0724
468 , p5_a9 DATE := fnd_api.g_miss_date
469 , p5_a10 DATE := fnd_api.g_miss_date
470 , p5_a11 DATE := fnd_api.g_miss_date
471 , p5_a12 NUMBER := 0-1962.0724
472 , p5_a13 DATE := fnd_api.g_miss_date
473 , p5_a14 NUMBER := 0-1962.0724
474 , p5_a15 DATE := fnd_api.g_miss_date
475 , p5_a16 NUMBER := 0-1962.0724
476 )
477
478 as
479 ddp_bktv_rec okl_process_buckets_pub.bktv_rec_type;
480 ddindx binary_integer; indx binary_integer;
481 begin
482
483 -- copy data to the local IN or IN-OUT args, if any
484
485
486
487
488
489 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
490 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
491 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
492 ddp_bktv_rec.version := p5_a3;
493 ddp_bktv_rec.comments := p5_a4;
494 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
495 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
496 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
497 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
498 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
499 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
500 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
501 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
502 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
503 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
504 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
505 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
506
507 -- here's the delegated call to the old PL/SQL routine
508 okl_process_buckets_pub.delete_buckets(p_api_version,
509 p_init_msg_list,
510 x_return_status,
511 x_msg_count,
512 x_msg_data,
513 ddp_bktv_rec);
514
515 -- copy data back from the local variables to OUT or IN-OUT args, if any
516
517
518
519
520
521 end;
522
523 procedure delete_buckets(p_api_version NUMBER
524 , p_init_msg_list VARCHAR2
525 , x_return_status out nocopy VARCHAR2
526 , x_msg_count out nocopy NUMBER
527 , x_msg_data out nocopy VARCHAR2
528 , p5_a0 JTF_NUMBER_TABLE
529 , p5_a1 JTF_NUMBER_TABLE
530 , p5_a2 JTF_NUMBER_TABLE
531 , p5_a3 JTF_VARCHAR2_TABLE_100
532 , p5_a4 JTF_VARCHAR2_TABLE_2000
533 , p5_a5 JTF_NUMBER_TABLE
534 , p5_a6 JTF_NUMBER_TABLE
535 , p5_a7 JTF_NUMBER_TABLE
536 , p5_a8 JTF_NUMBER_TABLE
537 , p5_a9 JTF_DATE_TABLE
538 , p5_a10 JTF_DATE_TABLE
539 , p5_a11 JTF_DATE_TABLE
540 , p5_a12 JTF_NUMBER_TABLE
541 , p5_a13 JTF_DATE_TABLE
542 , p5_a14 JTF_NUMBER_TABLE
543 , p5_a15 JTF_DATE_TABLE
544 , p5_a16 JTF_NUMBER_TABLE
545 )
546
547 as
548 ddp_bktv_tbl okl_process_buckets_pub.bktv_tbl_type;
549 ddindx binary_integer; indx binary_integer;
550 begin
551
552 -- copy data to the local IN or IN-OUT args, if any
553
554
555
556
557
558 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
559 , p5_a1
560 , p5_a2
561 , p5_a3
562 , p5_a4
563 , p5_a5
564 , p5_a6
565 , p5_a7
566 , p5_a8
567 , p5_a9
568 , p5_a10
569 , p5_a11
570 , p5_a12
571 , p5_a13
572 , p5_a14
573 , p5_a15
574 , p5_a16
575 );
576
577 -- here's the delegated call to the old PL/SQL routine
578 okl_process_buckets_pub.delete_buckets(p_api_version,
579 p_init_msg_list,
580 x_return_status,
581 x_msg_count,
582 x_msg_data,
583 ddp_bktv_tbl);
584
585 -- copy data back from the local variables to OUT or IN-OUT args, if any
586
587
588
589
590
591 end;
592
593 end okl_process_buckets_pub_w;