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