[Home] [Help]
PACKAGE BODY: APPS.OKL_BUCKETS_PUB_W
Source
1 package body okl_buckets_pub_w as
2 /* $Header: OKLUBKTB.pls 120.1 2005/07/07 12:48:41 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 insert_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_buckets_pub.bktv_rec_type;
65 ddx_bktv_rec okl_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_buckets_pub.insert_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 insert_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_buckets_pub.bktv_tbl_type;
172 ddx_bktv_tbl okl_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_buckets_pub.insert_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 lock_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 , p5_a0 NUMBER := 0-1962.0724
244 , p5_a1 NUMBER := 0-1962.0724
245 , p5_a2 NUMBER := 0-1962.0724
246 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
247 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
248 , p5_a5 NUMBER := 0-1962.0724
249 , p5_a6 NUMBER := 0-1962.0724
250 , p5_a7 NUMBER := 0-1962.0724
251 , p5_a8 NUMBER := 0-1962.0724
252 , p5_a9 DATE := fnd_api.g_miss_date
253 , p5_a10 DATE := fnd_api.g_miss_date
254 , p5_a11 DATE := fnd_api.g_miss_date
255 , p5_a12 NUMBER := 0-1962.0724
256 , p5_a13 DATE := fnd_api.g_miss_date
257 , p5_a14 NUMBER := 0-1962.0724
258 , p5_a15 DATE := fnd_api.g_miss_date
259 , p5_a16 NUMBER := 0-1962.0724
260 )
261
262 as
263 ddp_bktv_rec okl_buckets_pub.bktv_rec_type;
264 ddindx binary_integer; indx binary_integer;
265 begin
266
267 -- copy data to the local IN or IN-OUT args, if any
268
269
270
271
272
273 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
274 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
275 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
276 ddp_bktv_rec.version := p5_a3;
277 ddp_bktv_rec.comments := p5_a4;
278 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
279 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
280 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
281 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
282 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
283 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
284 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
285 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
286 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
287 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
288 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
289 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
290
291 -- here's the delegated call to the old PL/SQL routine
292 okl_buckets_pub.lock_buckets(p_api_version,
293 p_init_msg_list,
294 x_return_status,
295 x_msg_count,
296 x_msg_data,
297 ddp_bktv_rec);
298
299 -- copy data back from the local variables to OUT or IN-OUT args, if any
300
301
302
303
304
305 end;
306
307 procedure lock_buckets(p_api_version NUMBER
308 , p_init_msg_list VARCHAR2
309 , x_return_status out nocopy VARCHAR2
310 , x_msg_count out nocopy NUMBER
311 , x_msg_data out nocopy VARCHAR2
312 , p5_a0 JTF_NUMBER_TABLE
313 , p5_a1 JTF_NUMBER_TABLE
314 , p5_a2 JTF_NUMBER_TABLE
315 , p5_a3 JTF_VARCHAR2_TABLE_100
316 , p5_a4 JTF_VARCHAR2_TABLE_2000
317 , p5_a5 JTF_NUMBER_TABLE
318 , p5_a6 JTF_NUMBER_TABLE
319 , p5_a7 JTF_NUMBER_TABLE
320 , p5_a8 JTF_NUMBER_TABLE
321 , p5_a9 JTF_DATE_TABLE
322 , p5_a10 JTF_DATE_TABLE
323 , p5_a11 JTF_DATE_TABLE
324 , p5_a12 JTF_NUMBER_TABLE
325 , p5_a13 JTF_DATE_TABLE
326 , p5_a14 JTF_NUMBER_TABLE
327 , p5_a15 JTF_DATE_TABLE
328 , p5_a16 JTF_NUMBER_TABLE
329 )
330
331 as
332 ddp_bktv_tbl okl_buckets_pub.bktv_tbl_type;
333 ddindx binary_integer; indx binary_integer;
334 begin
335
336 -- copy data to the local IN or IN-OUT args, if any
337
338
339
340
341
342 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
343 , p5_a1
344 , p5_a2
345 , p5_a3
346 , p5_a4
347 , p5_a5
348 , p5_a6
349 , p5_a7
350 , p5_a8
351 , p5_a9
352 , p5_a10
353 , p5_a11
354 , p5_a12
355 , p5_a13
356 , p5_a14
357 , p5_a15
358 , p5_a16
359 );
360
361 -- here's the delegated call to the old PL/SQL routine
362 okl_buckets_pub.lock_buckets(p_api_version,
363 p_init_msg_list,
364 x_return_status,
365 x_msg_count,
366 x_msg_data,
367 ddp_bktv_tbl);
368
369 -- copy data back from the local variables to OUT or IN-OUT args, if any
370
371
372
373
374
375 end;
376
377 procedure update_buckets(p_api_version NUMBER
378 , p_init_msg_list VARCHAR2
379 , x_return_status out nocopy VARCHAR2
380 , x_msg_count out nocopy NUMBER
381 , x_msg_data out nocopy VARCHAR2
382 , p6_a0 out nocopy NUMBER
383 , p6_a1 out nocopy NUMBER
384 , p6_a2 out nocopy NUMBER
385 , p6_a3 out nocopy VARCHAR2
386 , p6_a4 out nocopy VARCHAR2
387 , p6_a5 out nocopy NUMBER
388 , p6_a6 out nocopy NUMBER
389 , p6_a7 out nocopy NUMBER
390 , p6_a8 out nocopy NUMBER
391 , p6_a9 out nocopy DATE
392 , p6_a10 out nocopy DATE
393 , p6_a11 out nocopy DATE
394 , p6_a12 out nocopy NUMBER
395 , p6_a13 out nocopy DATE
396 , p6_a14 out nocopy NUMBER
397 , p6_a15 out nocopy DATE
398 , p6_a16 out nocopy NUMBER
399 , p5_a0 NUMBER := 0-1962.0724
400 , p5_a1 NUMBER := 0-1962.0724
401 , p5_a2 NUMBER := 0-1962.0724
402 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
403 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
404 , p5_a5 NUMBER := 0-1962.0724
405 , p5_a6 NUMBER := 0-1962.0724
406 , p5_a7 NUMBER := 0-1962.0724
407 , p5_a8 NUMBER := 0-1962.0724
408 , p5_a9 DATE := fnd_api.g_miss_date
409 , p5_a10 DATE := fnd_api.g_miss_date
410 , p5_a11 DATE := fnd_api.g_miss_date
411 , p5_a12 NUMBER := 0-1962.0724
412 , p5_a13 DATE := fnd_api.g_miss_date
413 , p5_a14 NUMBER := 0-1962.0724
414 , p5_a15 DATE := fnd_api.g_miss_date
415 , p5_a16 NUMBER := 0-1962.0724
416 )
417
418 as
419 ddp_bktv_rec okl_buckets_pub.bktv_rec_type;
420 ddx_bktv_rec okl_buckets_pub.bktv_rec_type;
421 ddindx binary_integer; indx binary_integer;
422 begin
423
424 -- copy data to the local IN or IN-OUT args, if any
425
426
427
428
429
430 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
431 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
432 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
433 ddp_bktv_rec.version := p5_a3;
434 ddp_bktv_rec.comments := p5_a4;
435 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
436 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
437 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
438 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
439 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
440 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
441 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
442 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
443 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
444 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
445 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
446 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
447
448
449 -- here's the delegated call to the old PL/SQL routine
450 okl_buckets_pub.update_buckets(p_api_version,
451 p_init_msg_list,
452 x_return_status,
453 x_msg_count,
454 x_msg_data,
455 ddp_bktv_rec,
456 ddx_bktv_rec);
457
458 -- copy data back from the local variables to OUT or IN-OUT args, if any
459
460
461
462
463
464
465 p6_a0 := rosetta_g_miss_num_map(ddx_bktv_rec.id);
466 p6_a1 := rosetta_g_miss_num_map(ddx_bktv_rec.object_version_number);
467 p6_a2 := rosetta_g_miss_num_map(ddx_bktv_rec.ibc_id);
468 p6_a3 := ddx_bktv_rec.version;
469 p6_a4 := ddx_bktv_rec.comments;
470 p6_a5 := rosetta_g_miss_num_map(ddx_bktv_rec.loss_rate);
471 p6_a6 := rosetta_g_miss_num_map(ddx_bktv_rec.program_id);
472 p6_a7 := rosetta_g_miss_num_map(ddx_bktv_rec.request_id);
473 p6_a8 := rosetta_g_miss_num_map(ddx_bktv_rec.program_application_id);
474 p6_a9 := ddx_bktv_rec.program_update_date;
475 p6_a10 := ddx_bktv_rec.start_date;
476 p6_a11 := ddx_bktv_rec.end_date;
477 p6_a12 := rosetta_g_miss_num_map(ddx_bktv_rec.created_by);
478 p6_a13 := ddx_bktv_rec.creation_date;
479 p6_a14 := rosetta_g_miss_num_map(ddx_bktv_rec.last_updated_by);
480 p6_a15 := ddx_bktv_rec.last_update_date;
481 p6_a16 := rosetta_g_miss_num_map(ddx_bktv_rec.last_update_login);
482 end;
483
484 procedure update_buckets(p_api_version NUMBER
485 , p_init_msg_list VARCHAR2
486 , x_return_status out nocopy VARCHAR2
487 , x_msg_count out nocopy NUMBER
488 , x_msg_data out nocopy VARCHAR2
489 , p5_a0 JTF_NUMBER_TABLE
490 , p5_a1 JTF_NUMBER_TABLE
491 , p5_a2 JTF_NUMBER_TABLE
492 , p5_a3 JTF_VARCHAR2_TABLE_100
493 , p5_a4 JTF_VARCHAR2_TABLE_2000
494 , p5_a5 JTF_NUMBER_TABLE
495 , p5_a6 JTF_NUMBER_TABLE
496 , p5_a7 JTF_NUMBER_TABLE
497 , p5_a8 JTF_NUMBER_TABLE
498 , p5_a9 JTF_DATE_TABLE
499 , p5_a10 JTF_DATE_TABLE
500 , p5_a11 JTF_DATE_TABLE
501 , p5_a12 JTF_NUMBER_TABLE
502 , p5_a13 JTF_DATE_TABLE
503 , p5_a14 JTF_NUMBER_TABLE
504 , p5_a15 JTF_DATE_TABLE
505 , p5_a16 JTF_NUMBER_TABLE
506 , p6_a0 out nocopy JTF_NUMBER_TABLE
507 , p6_a1 out nocopy JTF_NUMBER_TABLE
508 , p6_a2 out nocopy JTF_NUMBER_TABLE
509 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
510 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
511 , p6_a5 out nocopy JTF_NUMBER_TABLE
512 , p6_a6 out nocopy JTF_NUMBER_TABLE
513 , p6_a7 out nocopy JTF_NUMBER_TABLE
514 , p6_a8 out nocopy JTF_NUMBER_TABLE
515 , p6_a9 out nocopy JTF_DATE_TABLE
516 , p6_a10 out nocopy JTF_DATE_TABLE
517 , p6_a11 out nocopy JTF_DATE_TABLE
518 , p6_a12 out nocopy JTF_NUMBER_TABLE
519 , p6_a13 out nocopy JTF_DATE_TABLE
520 , p6_a14 out nocopy JTF_NUMBER_TABLE
521 , p6_a15 out nocopy JTF_DATE_TABLE
522 , p6_a16 out nocopy JTF_NUMBER_TABLE
523 )
524
525 as
526 ddp_bktv_tbl okl_buckets_pub.bktv_tbl_type;
527 ddx_bktv_tbl okl_buckets_pub.bktv_tbl_type;
528 ddindx binary_integer; indx binary_integer;
529 begin
530
531 -- copy data to the local IN or IN-OUT args, if any
532
533
534
535
536
537 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
538 , p5_a1
539 , p5_a2
540 , p5_a3
541 , p5_a4
542 , p5_a5
543 , p5_a6
544 , p5_a7
545 , p5_a8
546 , p5_a9
547 , p5_a10
548 , p5_a11
549 , p5_a12
550 , p5_a13
551 , p5_a14
552 , p5_a15
553 , p5_a16
554 );
555
556
557 -- here's the delegated call to the old PL/SQL routine
558 okl_buckets_pub.update_buckets(p_api_version,
559 p_init_msg_list,
560 x_return_status,
561 x_msg_count,
562 x_msg_data,
563 ddp_bktv_tbl,
564 ddx_bktv_tbl);
565
566 -- copy data back from the local variables to OUT or IN-OUT args, if any
567
568
569
570
571
572
573 okl_bkt_pvt_w.rosetta_table_copy_out_p5(ddx_bktv_tbl, p6_a0
574 , p6_a1
575 , p6_a2
576 , p6_a3
577 , p6_a4
578 , p6_a5
579 , p6_a6
580 , p6_a7
581 , p6_a8
582 , p6_a9
583 , p6_a10
584 , p6_a11
585 , p6_a12
586 , p6_a13
587 , p6_a14
588 , p6_a15
589 , p6_a16
590 );
591 end;
592
593 procedure delete_buckets(p_api_version NUMBER
594 , p_init_msg_list VARCHAR2
595 , x_return_status out nocopy VARCHAR2
596 , x_msg_count out nocopy NUMBER
597 , x_msg_data out nocopy VARCHAR2
598 , p5_a0 NUMBER := 0-1962.0724
599 , p5_a1 NUMBER := 0-1962.0724
600 , p5_a2 NUMBER := 0-1962.0724
601 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
602 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
603 , p5_a5 NUMBER := 0-1962.0724
604 , p5_a6 NUMBER := 0-1962.0724
605 , p5_a7 NUMBER := 0-1962.0724
606 , p5_a8 NUMBER := 0-1962.0724
607 , p5_a9 DATE := fnd_api.g_miss_date
608 , p5_a10 DATE := fnd_api.g_miss_date
609 , p5_a11 DATE := fnd_api.g_miss_date
610 , p5_a12 NUMBER := 0-1962.0724
611 , p5_a13 DATE := fnd_api.g_miss_date
612 , p5_a14 NUMBER := 0-1962.0724
613 , p5_a15 DATE := fnd_api.g_miss_date
614 , p5_a16 NUMBER := 0-1962.0724
615 )
616
617 as
618 ddp_bktv_rec okl_buckets_pub.bktv_rec_type;
619 ddindx binary_integer; indx binary_integer;
620 begin
621
622 -- copy data to the local IN or IN-OUT args, if any
623
624
625
626
627
628 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
629 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
630 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
631 ddp_bktv_rec.version := p5_a3;
632 ddp_bktv_rec.comments := p5_a4;
633 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
634 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
635 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
636 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
637 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
638 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
639 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
640 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
641 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
642 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
643 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
644 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
645
646 -- here's the delegated call to the old PL/SQL routine
647 okl_buckets_pub.delete_buckets(p_api_version,
648 p_init_msg_list,
649 x_return_status,
650 x_msg_count,
651 x_msg_data,
652 ddp_bktv_rec);
653
654 -- copy data back from the local variables to OUT or IN-OUT args, if any
655
656
657
658
659
660 end;
661
662 procedure delete_buckets(p_api_version NUMBER
663 , p_init_msg_list VARCHAR2
664 , x_return_status out nocopy VARCHAR2
665 , x_msg_count out nocopy NUMBER
666 , x_msg_data out nocopy VARCHAR2
667 , p5_a0 JTF_NUMBER_TABLE
668 , p5_a1 JTF_NUMBER_TABLE
669 , p5_a2 JTF_NUMBER_TABLE
670 , p5_a3 JTF_VARCHAR2_TABLE_100
671 , p5_a4 JTF_VARCHAR2_TABLE_2000
672 , p5_a5 JTF_NUMBER_TABLE
673 , p5_a6 JTF_NUMBER_TABLE
674 , p5_a7 JTF_NUMBER_TABLE
675 , p5_a8 JTF_NUMBER_TABLE
676 , p5_a9 JTF_DATE_TABLE
677 , p5_a10 JTF_DATE_TABLE
678 , p5_a11 JTF_DATE_TABLE
679 , p5_a12 JTF_NUMBER_TABLE
680 , p5_a13 JTF_DATE_TABLE
681 , p5_a14 JTF_NUMBER_TABLE
682 , p5_a15 JTF_DATE_TABLE
683 , p5_a16 JTF_NUMBER_TABLE
684 )
685
686 as
687 ddp_bktv_tbl okl_buckets_pub.bktv_tbl_type;
688 ddindx binary_integer; indx binary_integer;
689 begin
690
691 -- copy data to the local IN or IN-OUT args, if any
692
693
694
695
696
697 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
698 , p5_a1
699 , p5_a2
700 , p5_a3
701 , p5_a4
702 , p5_a5
703 , p5_a6
704 , p5_a7
705 , p5_a8
706 , p5_a9
707 , p5_a10
708 , p5_a11
709 , p5_a12
710 , p5_a13
711 , p5_a14
712 , p5_a15
713 , p5_a16
714 );
715
716 -- here's the delegated call to the old PL/SQL routine
717 okl_buckets_pub.delete_buckets(p_api_version,
718 p_init_msg_list,
719 x_return_status,
720 x_msg_count,
721 x_msg_data,
722 ddp_bktv_tbl);
723
724 -- copy data back from the local variables to OUT or IN-OUT args, if any
725
726
727
728
729
730 end;
731
732 procedure validate_buckets(p_api_version NUMBER
733 , p_init_msg_list VARCHAR2
734 , x_return_status out nocopy VARCHAR2
735 , x_msg_count out nocopy NUMBER
736 , x_msg_data out nocopy VARCHAR2
737 , p5_a0 NUMBER := 0-1962.0724
738 , p5_a1 NUMBER := 0-1962.0724
739 , p5_a2 NUMBER := 0-1962.0724
740 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
741 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
742 , p5_a5 NUMBER := 0-1962.0724
743 , p5_a6 NUMBER := 0-1962.0724
744 , p5_a7 NUMBER := 0-1962.0724
745 , p5_a8 NUMBER := 0-1962.0724
746 , p5_a9 DATE := fnd_api.g_miss_date
747 , p5_a10 DATE := fnd_api.g_miss_date
748 , p5_a11 DATE := fnd_api.g_miss_date
749 , p5_a12 NUMBER := 0-1962.0724
750 , p5_a13 DATE := fnd_api.g_miss_date
751 , p5_a14 NUMBER := 0-1962.0724
752 , p5_a15 DATE := fnd_api.g_miss_date
753 , p5_a16 NUMBER := 0-1962.0724
754 )
755
756 as
757 ddp_bktv_rec okl_buckets_pub.bktv_rec_type;
758 ddindx binary_integer; indx binary_integer;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763
764
765
766
767 ddp_bktv_rec.id := rosetta_g_miss_num_map(p5_a0);
768 ddp_bktv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
769 ddp_bktv_rec.ibc_id := rosetta_g_miss_num_map(p5_a2);
770 ddp_bktv_rec.version := p5_a3;
771 ddp_bktv_rec.comments := p5_a4;
772 ddp_bktv_rec.loss_rate := rosetta_g_miss_num_map(p5_a5);
773 ddp_bktv_rec.program_id := rosetta_g_miss_num_map(p5_a6);
774 ddp_bktv_rec.request_id := rosetta_g_miss_num_map(p5_a7);
775 ddp_bktv_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
776 ddp_bktv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a9);
777 ddp_bktv_rec.start_date := rosetta_g_miss_date_in_map(p5_a10);
778 ddp_bktv_rec.end_date := rosetta_g_miss_date_in_map(p5_a11);
779 ddp_bktv_rec.created_by := rosetta_g_miss_num_map(p5_a12);
780 ddp_bktv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a13);
781 ddp_bktv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a14);
782 ddp_bktv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a15);
783 ddp_bktv_rec.last_update_login := rosetta_g_miss_num_map(p5_a16);
784
785 -- here's the delegated call to the old PL/SQL routine
786 okl_buckets_pub.validate_buckets(p_api_version,
787 p_init_msg_list,
788 x_return_status,
789 x_msg_count,
790 x_msg_data,
791 ddp_bktv_rec);
792
793 -- copy data back from the local variables to OUT or IN-OUT args, if any
794
795
796
797
798
799 end;
800
801 procedure validate_buckets(p_api_version NUMBER
802 , p_init_msg_list VARCHAR2
803 , x_return_status out nocopy VARCHAR2
804 , x_msg_count out nocopy NUMBER
805 , x_msg_data out nocopy VARCHAR2
806 , p5_a0 JTF_NUMBER_TABLE
807 , p5_a1 JTF_NUMBER_TABLE
808 , p5_a2 JTF_NUMBER_TABLE
809 , p5_a3 JTF_VARCHAR2_TABLE_100
810 , p5_a4 JTF_VARCHAR2_TABLE_2000
811 , p5_a5 JTF_NUMBER_TABLE
812 , p5_a6 JTF_NUMBER_TABLE
813 , p5_a7 JTF_NUMBER_TABLE
814 , p5_a8 JTF_NUMBER_TABLE
815 , p5_a9 JTF_DATE_TABLE
816 , p5_a10 JTF_DATE_TABLE
817 , p5_a11 JTF_DATE_TABLE
818 , p5_a12 JTF_NUMBER_TABLE
819 , p5_a13 JTF_DATE_TABLE
820 , p5_a14 JTF_NUMBER_TABLE
821 , p5_a15 JTF_DATE_TABLE
822 , p5_a16 JTF_NUMBER_TABLE
823 )
824
825 as
826 ddp_bktv_tbl okl_buckets_pub.bktv_tbl_type;
827 ddindx binary_integer; indx binary_integer;
828 begin
829
830 -- copy data to the local IN or IN-OUT args, if any
831
832
833
834
835
836 okl_bkt_pvt_w.rosetta_table_copy_in_p5(ddp_bktv_tbl, p5_a0
837 , p5_a1
838 , p5_a2
839 , p5_a3
840 , p5_a4
841 , p5_a5
842 , p5_a6
843 , p5_a7
844 , p5_a8
845 , p5_a9
846 , p5_a10
847 , p5_a11
848 , p5_a12
849 , p5_a13
850 , p5_a14
851 , p5_a15
852 , p5_a16
853 );
854
855 -- here's the delegated call to the old PL/SQL routine
856 okl_buckets_pub.validate_buckets(p_api_version,
857 p_init_msg_list,
858 x_return_status,
859 x_msg_count,
860 x_msg_data,
861 ddp_bktv_tbl);
862
863 -- copy data back from the local variables to OUT or IN-OUT args, if any
864
865
866
867
868
869 end;
870
871 end okl_buckets_pub_w;