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