[Home] [Help]
PACKAGE BODY: APPS.OKL_LA_ASSET_PVT_W
Source
1 package body okl_la_asset_pvt_w as
2 /* $Header: OKLELAAB.pls 120.5 2007/03/12 05:57:22 rviriyal ship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p2(t out nocopy okl_la_asset_pvt.fin_adj_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_100
27 , a2 JTF_VARCHAR2_TABLE_100
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_NUMBER_TABLE
31 , a6 JTF_NUMBER_TABLE
32 , a7 JTF_VARCHAR2_TABLE_100
33 , a8 JTF_VARCHAR2_TABLE_100
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).p_top_line_id := rosetta_g_miss_num_map(a0(indx));
43 t(ddindx).p_asset_number := a1(indx);
44 t(ddindx).p_new_yn := a2(indx);
45 t(ddindx).p_dnz_chr_id := rosetta_g_miss_num_map(a3(indx));
46 t(ddindx).p_capital_reduction := rosetta_g_miss_num_map(a4(indx));
47 t(ddindx).p_capital_reduction_percent := rosetta_g_miss_num_map(a5(indx));
48 t(ddindx).p_oec := rosetta_g_miss_num_map(a6(indx));
49 t(ddindx).p_cap_down_pay_yn := a7(indx);
50 t(ddindx).p_down_payment_receiver := a8(indx);
51 ddindx := ddindx+1;
52 if a0.last =indx
53 then exit;
54 end if;
55 indx := a0.next(indx);
56 end loop;
57 end if;
58 end if;
59 end rosetta_table_copy_in_p2;
60 procedure rosetta_table_copy_out_p2(t okl_la_asset_pvt.fin_adj_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
61 , a1 out nocopy JTF_VARCHAR2_TABLE_100
62 , a2 out nocopy JTF_VARCHAR2_TABLE_100
63 , a3 out nocopy JTF_NUMBER_TABLE
64 , a4 out nocopy JTF_NUMBER_TABLE
65 , a5 out nocopy JTF_NUMBER_TABLE
66 , a6 out nocopy JTF_NUMBER_TABLE
67 , a7 out nocopy JTF_VARCHAR2_TABLE_100
68 , a8 out nocopy JTF_VARCHAR2_TABLE_100
69 ) as
70 ddindx binary_integer; indx binary_integer;
71 begin
72 if t is null or t.count = 0 then
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_VARCHAR2_TABLE_100();
75 a2 := JTF_VARCHAR2_TABLE_100();
76 a3 := JTF_NUMBER_TABLE();
77 a4 := JTF_NUMBER_TABLE();
78 a5 := JTF_NUMBER_TABLE();
79 a6 := JTF_NUMBER_TABLE();
80 a7 := JTF_VARCHAR2_TABLE_100();
81 a8 := JTF_VARCHAR2_TABLE_100();
82 else
83 a0 := JTF_NUMBER_TABLE();
84 a1 := JTF_VARCHAR2_TABLE_100();
85 a2 := JTF_VARCHAR2_TABLE_100();
86 a3 := JTF_NUMBER_TABLE();
87 a4 := JTF_NUMBER_TABLE();
88 a5 := JTF_NUMBER_TABLE();
89 a6 := JTF_NUMBER_TABLE();
90 a7 := JTF_VARCHAR2_TABLE_100();
91 a8 := JTF_VARCHAR2_TABLE_100();
92 if t.count > 0 then
93 a0.extend(t.count);
94 a1.extend(t.count);
95 a2.extend(t.count);
96 a3.extend(t.count);
97 a4.extend(t.count);
98 a5.extend(t.count);
99 a6.extend(t.count);
100 a7.extend(t.count);
101 a8.extend(t.count);
102 ddindx := t.first;
103 indx := 1;
104 while true loop
105 a0(indx) := rosetta_g_miss_num_map(t(ddindx).p_top_line_id);
106 a1(indx) := t(ddindx).p_asset_number;
107 a2(indx) := t(ddindx).p_new_yn;
108 a3(indx) := rosetta_g_miss_num_map(t(ddindx).p_dnz_chr_id);
109 a4(indx) := rosetta_g_miss_num_map(t(ddindx).p_capital_reduction);
110 a5(indx) := rosetta_g_miss_num_map(t(ddindx).p_capital_reduction_percent);
111 a6(indx) := rosetta_g_miss_num_map(t(ddindx).p_oec);
112 a7(indx) := t(ddindx).p_cap_down_pay_yn;
113 a8(indx) := t(ddindx).p_down_payment_receiver;
114 indx := indx+1;
115 if t.last =ddindx
116 then exit;
117 end if;
118 ddindx := t.next(ddindx);
119 end loop;
120 end if;
121 end if;
122 end rosetta_table_copy_out_p2;
123
124 procedure rosetta_table_copy_in_p3(t out nocopy okl_la_asset_pvt.las_tbl_type, a0 JTF_VARCHAR2_TABLE_100
125 , a1 JTF_NUMBER_TABLE
126 , a2 JTF_VARCHAR2_TABLE_100
127 , a3 JTF_VARCHAR2_TABLE_100
128 , a4 JTF_NUMBER_TABLE
129 , a5 JTF_NUMBER_TABLE
130 , a6 JTF_NUMBER_TABLE
131 , a7 JTF_VARCHAR2_TABLE_300
132 , a8 JTF_NUMBER_TABLE
133 , a9 JTF_NUMBER_TABLE
134 , a10 JTF_DATE_TABLE
135 , a11 JTF_DATE_TABLE
136 , a12 JTF_DATE_TABLE
137 , a13 JTF_DATE_TABLE
138 , a14 JTF_DATE_TABLE
139 , a15 JTF_DATE_TABLE
140 , a16 JTF_VARCHAR2_TABLE_100
141 , a17 JTF_VARCHAR2_TABLE_2000
142 , a18 JTF_NUMBER_TABLE
143 , a19 JTF_NUMBER_TABLE
144 , a20 JTF_VARCHAR2_TABLE_100
145 , a21 JTF_VARCHAR2_TABLE_100
146 , a22 JTF_VARCHAR2_TABLE_100
147 ) as
148 ddindx binary_integer; indx binary_integer;
149 begin
150 if a0 is not null and a0.count > 0 then
151 if a0.count > 0 then
152 indx := a0.first;
153 ddindx := 1;
154 while true loop
155 t(ddindx).asset_number := a0(indx);
156 t(ddindx).year_manufactured := rosetta_g_miss_num_map(a1(indx));
157 t(ddindx).manufacturer_name := a2(indx);
158 t(ddindx).description := a3(indx);
159 t(ddindx).current_units := rosetta_g_miss_num_map(a4(indx));
160 t(ddindx).from_oec := rosetta_g_miss_num_map(a5(indx));
161 t(ddindx).to_oec := rosetta_g_miss_num_map(a6(indx));
162 t(ddindx).vendor_name := a7(indx);
163 t(ddindx).from_residual_value := rosetta_g_miss_num_map(a8(indx));
164 t(ddindx).to_residual_value := rosetta_g_miss_num_map(a9(indx));
165 t(ddindx).from_start_date := rosetta_g_miss_date_in_map(a10(indx));
166 t(ddindx).from_end_date := rosetta_g_miss_date_in_map(a11(indx));
167 t(ddindx).from_date_terminated := rosetta_g_miss_date_in_map(a12(indx));
168 t(ddindx).to_start_date := rosetta_g_miss_date_in_map(a13(indx));
169 t(ddindx).to_end_date := rosetta_g_miss_date_in_map(a14(indx));
170 t(ddindx).to_date_terminated := rosetta_g_miss_date_in_map(a15(indx));
171 t(ddindx).sts_code := a16(indx);
172 t(ddindx).location_id := a17(indx);
173 t(ddindx).parent_line_id := rosetta_g_miss_num_map(a18(indx));
174 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a19(indx));
175 t(ddindx).p_order_by := a20(indx);
176 t(ddindx).p_sort_by := a21(indx);
177 t(ddindx).include_split_yn := a22(indx);
178 ddindx := ddindx+1;
179 if a0.last =indx
180 then exit;
181 end if;
182 indx := a0.next(indx);
183 end loop;
184 end if;
185 end if;
186 end rosetta_table_copy_in_p3;
187 procedure rosetta_table_copy_out_p3(t okl_la_asset_pvt.las_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
188 , a1 out nocopy JTF_NUMBER_TABLE
189 , a2 out nocopy JTF_VARCHAR2_TABLE_100
190 , a3 out nocopy JTF_VARCHAR2_TABLE_100
191 , a4 out nocopy JTF_NUMBER_TABLE
192 , a5 out nocopy JTF_NUMBER_TABLE
193 , a6 out nocopy JTF_NUMBER_TABLE
194 , a7 out nocopy JTF_VARCHAR2_TABLE_300
195 , a8 out nocopy JTF_NUMBER_TABLE
196 , a9 out nocopy JTF_NUMBER_TABLE
197 , a10 out nocopy JTF_DATE_TABLE
198 , a11 out nocopy JTF_DATE_TABLE
199 , a12 out nocopy JTF_DATE_TABLE
200 , a13 out nocopy JTF_DATE_TABLE
201 , a14 out nocopy JTF_DATE_TABLE
202 , a15 out nocopy JTF_DATE_TABLE
203 , a16 out nocopy JTF_VARCHAR2_TABLE_100
204 , a17 out nocopy JTF_VARCHAR2_TABLE_2000
205 , a18 out nocopy JTF_NUMBER_TABLE
206 , a19 out nocopy JTF_NUMBER_TABLE
207 , a20 out nocopy JTF_VARCHAR2_TABLE_100
208 , a21 out nocopy JTF_VARCHAR2_TABLE_100
209 , a22 out nocopy JTF_VARCHAR2_TABLE_100
210 ) as
211 ddindx binary_integer; indx binary_integer;
212 begin
213 if t is null or t.count = 0 then
214 a0 := JTF_VARCHAR2_TABLE_100();
215 a1 := JTF_NUMBER_TABLE();
216 a2 := JTF_VARCHAR2_TABLE_100();
217 a3 := JTF_VARCHAR2_TABLE_100();
218 a4 := JTF_NUMBER_TABLE();
219 a5 := JTF_NUMBER_TABLE();
220 a6 := JTF_NUMBER_TABLE();
221 a7 := JTF_VARCHAR2_TABLE_300();
222 a8 := JTF_NUMBER_TABLE();
223 a9 := JTF_NUMBER_TABLE();
224 a10 := JTF_DATE_TABLE();
225 a11 := JTF_DATE_TABLE();
226 a12 := JTF_DATE_TABLE();
227 a13 := JTF_DATE_TABLE();
228 a14 := JTF_DATE_TABLE();
229 a15 := JTF_DATE_TABLE();
230 a16 := JTF_VARCHAR2_TABLE_100();
231 a17 := JTF_VARCHAR2_TABLE_2000();
232 a18 := JTF_NUMBER_TABLE();
233 a19 := JTF_NUMBER_TABLE();
234 a20 := JTF_VARCHAR2_TABLE_100();
235 a21 := JTF_VARCHAR2_TABLE_100();
236 a22 := JTF_VARCHAR2_TABLE_100();
237 else
238 a0 := JTF_VARCHAR2_TABLE_100();
239 a1 := JTF_NUMBER_TABLE();
240 a2 := JTF_VARCHAR2_TABLE_100();
241 a3 := JTF_VARCHAR2_TABLE_100();
242 a4 := JTF_NUMBER_TABLE();
243 a5 := JTF_NUMBER_TABLE();
244 a6 := JTF_NUMBER_TABLE();
245 a7 := JTF_VARCHAR2_TABLE_300();
246 a8 := JTF_NUMBER_TABLE();
247 a9 := JTF_NUMBER_TABLE();
248 a10 := JTF_DATE_TABLE();
249 a11 := JTF_DATE_TABLE();
250 a12 := JTF_DATE_TABLE();
251 a13 := JTF_DATE_TABLE();
252 a14 := JTF_DATE_TABLE();
253 a15 := JTF_DATE_TABLE();
254 a16 := JTF_VARCHAR2_TABLE_100();
255 a17 := JTF_VARCHAR2_TABLE_2000();
256 a18 := JTF_NUMBER_TABLE();
257 a19 := JTF_NUMBER_TABLE();
258 a20 := JTF_VARCHAR2_TABLE_100();
259 a21 := JTF_VARCHAR2_TABLE_100();
260 a22 := JTF_VARCHAR2_TABLE_100();
261 if t.count > 0 then
262 a0.extend(t.count);
263 a1.extend(t.count);
264 a2.extend(t.count);
265 a3.extend(t.count);
266 a4.extend(t.count);
267 a5.extend(t.count);
268 a6.extend(t.count);
269 a7.extend(t.count);
270 a8.extend(t.count);
271 a9.extend(t.count);
272 a10.extend(t.count);
273 a11.extend(t.count);
274 a12.extend(t.count);
275 a13.extend(t.count);
276 a14.extend(t.count);
277 a15.extend(t.count);
278 a16.extend(t.count);
279 a17.extend(t.count);
280 a18.extend(t.count);
281 a19.extend(t.count);
282 a20.extend(t.count);
283 a21.extend(t.count);
284 a22.extend(t.count);
285 ddindx := t.first;
286 indx := 1;
287 while true loop
288 a0(indx) := t(ddindx).asset_number;
289 a1(indx) := rosetta_g_miss_num_map(t(ddindx).year_manufactured);
290 a2(indx) := t(ddindx).manufacturer_name;
291 a3(indx) := t(ddindx).description;
292 a4(indx) := rosetta_g_miss_num_map(t(ddindx).current_units);
293 a5(indx) := rosetta_g_miss_num_map(t(ddindx).from_oec);
294 a6(indx) := rosetta_g_miss_num_map(t(ddindx).to_oec);
295 a7(indx) := t(ddindx).vendor_name;
296 a8(indx) := rosetta_g_miss_num_map(t(ddindx).from_residual_value);
297 a9(indx) := rosetta_g_miss_num_map(t(ddindx).to_residual_value);
298 a10(indx) := t(ddindx).from_start_date;
299 a11(indx) := t(ddindx).from_end_date;
300 a12(indx) := t(ddindx).from_date_terminated;
301 a13(indx) := t(ddindx).to_start_date;
302 a14(indx) := t(ddindx).to_end_date;
303 a15(indx) := t(ddindx).to_date_terminated;
304 a16(indx) := t(ddindx).sts_code;
305 a17(indx) := t(ddindx).location_id;
306 a18(indx) := rosetta_g_miss_num_map(t(ddindx).parent_line_id);
307 a19(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
308 a20(indx) := t(ddindx).p_order_by;
309 a21(indx) := t(ddindx).p_sort_by;
310 a22(indx) := t(ddindx).include_split_yn;
311 indx := indx+1;
312 if t.last =ddindx
313 then exit;
314 end if;
315 ddindx := t.next(ddindx);
316 end loop;
317 end if;
318 end if;
319 end rosetta_table_copy_out_p3;
320
321 procedure generate_asset_summary(p_api_version NUMBER
322 , p_init_msg_list VARCHAR2
323 , x_return_status out nocopy VARCHAR2
324 , x_msg_count out nocopy NUMBER
325 , x_msg_data out nocopy VARCHAR2
326 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
327 , p6_a1 out nocopy JTF_NUMBER_TABLE
328 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
329 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
330 , p6_a4 out nocopy JTF_NUMBER_TABLE
331 , p6_a5 out nocopy JTF_NUMBER_TABLE
332 , p6_a6 out nocopy JTF_NUMBER_TABLE
333 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_300
334 , p6_a8 out nocopy JTF_NUMBER_TABLE
335 , p6_a9 out nocopy JTF_NUMBER_TABLE
336 , p6_a10 out nocopy JTF_DATE_TABLE
337 , p6_a11 out nocopy JTF_DATE_TABLE
338 , p6_a12 out nocopy JTF_DATE_TABLE
339 , p6_a13 out nocopy JTF_DATE_TABLE
340 , p6_a14 out nocopy JTF_DATE_TABLE
341 , p6_a15 out nocopy JTF_DATE_TABLE
342 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
343 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_2000
344 , p6_a18 out nocopy JTF_NUMBER_TABLE
345 , p6_a19 out nocopy JTF_NUMBER_TABLE
346 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
347 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
348 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
349 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
350 , p5_a1 NUMBER := 0-1962.0724
351 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
352 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
353 , p5_a4 NUMBER := 0-1962.0724
354 , p5_a5 NUMBER := 0-1962.0724
355 , p5_a6 NUMBER := 0-1962.0724
356 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
357 , p5_a8 NUMBER := 0-1962.0724
358 , p5_a9 NUMBER := 0-1962.0724
359 , p5_a10 DATE := fnd_api.g_miss_date
360 , p5_a11 DATE := fnd_api.g_miss_date
361 , p5_a12 DATE := fnd_api.g_miss_date
362 , p5_a13 DATE := fnd_api.g_miss_date
363 , p5_a14 DATE := fnd_api.g_miss_date
364 , p5_a15 DATE := fnd_api.g_miss_date
365 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
366 , p5_a17 VARCHAR := fnd_api.g_miss_char
367 , p5_a18 NUMBER := 0-1962.0724
368 , p5_a19 NUMBER := 0-1962.0724
369 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
370 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
371 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
372 )
373
374 as
375 ddp_las_rec okl_la_asset_pvt.las_rec_type;
376 ddx_las_tbl okl_la_asset_pvt.las_tbl_type;
377 ddindx binary_integer; indx binary_integer;
378 begin
379
380 -- copy data to the local IN or IN-OUT args, if any
381
382
383
384
385
386 ddp_las_rec.asset_number := p5_a0;
387 ddp_las_rec.year_manufactured := rosetta_g_miss_num_map(p5_a1);
388 ddp_las_rec.manufacturer_name := p5_a2;
389 ddp_las_rec.description := p5_a3;
390 ddp_las_rec.current_units := rosetta_g_miss_num_map(p5_a4);
391 ddp_las_rec.from_oec := rosetta_g_miss_num_map(p5_a5);
392 ddp_las_rec.to_oec := rosetta_g_miss_num_map(p5_a6);
393 ddp_las_rec.vendor_name := p5_a7;
394 ddp_las_rec.from_residual_value := rosetta_g_miss_num_map(p5_a8);
395 ddp_las_rec.to_residual_value := rosetta_g_miss_num_map(p5_a9);
396 ddp_las_rec.from_start_date := rosetta_g_miss_date_in_map(p5_a10);
397 ddp_las_rec.from_end_date := rosetta_g_miss_date_in_map(p5_a11);
398 ddp_las_rec.from_date_terminated := rosetta_g_miss_date_in_map(p5_a12);
399 ddp_las_rec.to_start_date := rosetta_g_miss_date_in_map(p5_a13);
400 ddp_las_rec.to_end_date := rosetta_g_miss_date_in_map(p5_a14);
401 ddp_las_rec.to_date_terminated := rosetta_g_miss_date_in_map(p5_a15);
402 ddp_las_rec.sts_code := p5_a16;
403 ddp_las_rec.location_id := p5_a17;
404 ddp_las_rec.parent_line_id := rosetta_g_miss_num_map(p5_a18);
405 ddp_las_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a19);
406 ddp_las_rec.p_order_by := p5_a20;
407 ddp_las_rec.p_sort_by := p5_a21;
408 ddp_las_rec.include_split_yn := p5_a22;
409
410
411 -- here's the delegated call to the old PL/SQL routine
412 okl_la_asset_pvt.generate_asset_summary(p_api_version,
413 p_init_msg_list,
414 x_return_status,
415 x_msg_count,
416 x_msg_data,
417 ddp_las_rec,
418 ddx_las_tbl);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422
423
424
425
426
427 okl_la_asset_pvt_w.rosetta_table_copy_out_p3(ddx_las_tbl, p6_a0
428 , p6_a1
429 , p6_a2
430 , p6_a3
431 , p6_a4
432 , p6_a5
433 , p6_a6
434 , p6_a7
435 , p6_a8
436 , p6_a9
437 , p6_a10
438 , p6_a11
439 , p6_a12
440 , p6_a13
441 , p6_a14
442 , p6_a15
443 , p6_a16
444 , p6_a17
445 , p6_a18
446 , p6_a19
447 , p6_a20
448 , p6_a21
449 , p6_a22
450 );
451 end;
452
453 procedure update_contract_line(p_api_version NUMBER
454 , p_init_msg_list VARCHAR2
455 , x_return_status out nocopy VARCHAR2
456 , x_msg_count out nocopy NUMBER
457 , x_msg_data out nocopy VARCHAR2
458 , p_id NUMBER
459 , p_date_delivery_expected date
460 , p_date_funding_expected date
461 , p_org_id NUMBER
462 , p_organization_id NUMBER
463 )
464
465 as
466 ddp_date_delivery_expected date;
467 ddp_date_funding_expected date;
468 ddindx binary_integer; indx binary_integer;
469 begin
470
471 -- copy data to the local IN or IN-OUT args, if any
472
473
474
475
476
477
478 ddp_date_delivery_expected := rosetta_g_miss_date_in_map(p_date_delivery_expected);
479
480 ddp_date_funding_expected := rosetta_g_miss_date_in_map(p_date_funding_expected);
481
482
483
484 -- here's the delegated call to the old PL/SQL routine
485 okl_la_asset_pvt.update_contract_line(p_api_version,
486 p_init_msg_list,
487 x_return_status,
488 x_msg_count,
489 x_msg_data,
490 p_id,
491 ddp_date_delivery_expected,
492 ddp_date_funding_expected,
493 p_org_id,
494 p_organization_id);
495
496 -- copy data back from the local variables to OUT or IN-OUT args, if any
497
498
499
500
501
502
503
504
505
506 end;
507
508 procedure update_fin_cap_cost(p_api_version NUMBER
509 , p_init_msg_list VARCHAR2
510 , x_return_status out nocopy VARCHAR2
511 , x_msg_count out nocopy NUMBER
512 , x_msg_data out nocopy VARCHAR2
513 , p5_a0 JTF_NUMBER_TABLE
514 , p5_a1 JTF_VARCHAR2_TABLE_100
515 , p5_a2 JTF_VARCHAR2_TABLE_100
516 , p5_a3 JTF_NUMBER_TABLE
517 , p5_a4 JTF_NUMBER_TABLE
518 , p5_a5 JTF_NUMBER_TABLE
519 , p5_a6 JTF_NUMBER_TABLE
520 , p5_a7 JTF_VARCHAR2_TABLE_100
521 , p5_a8 JTF_VARCHAR2_TABLE_100
522 )
523
524 as
525 ddp_fin_adj_tbl okl_la_asset_pvt.fin_adj_tbl_type;
526 ddindx binary_integer; indx binary_integer;
527 begin
528
529 -- copy data to the local IN or IN-OUT args, if any
530
531
532
533
534
535 okl_la_asset_pvt_w.rosetta_table_copy_in_p2(ddp_fin_adj_tbl, p5_a0
536 , p5_a1
537 , p5_a2
538 , p5_a3
539 , p5_a4
540 , p5_a5
541 , p5_a6
542 , p5_a7
543 , p5_a8
544 );
545
546 -- here's the delegated call to the old PL/SQL routine
547 okl_la_asset_pvt.update_fin_cap_cost(p_api_version,
548 p_init_msg_list,
549 x_return_status,
550 x_msg_count,
551 x_msg_data,
552 ddp_fin_adj_tbl);
553
554 -- copy data back from the local variables to OUT or IN-OUT args, if any
555
556
557
558
559
560 end;
561
562 end okl_la_asset_pvt_w;