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