[Home] [Help]
PACKAGE BODY: APPS.OKL_SPLIT_ASSET_PVT_W
Source
1 package body okl_split_asset_pvt_w as
2 /* $Header: OKLESPAB.pls 115.9 2004/02/17 22:56:18 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 rosetta_table_copy_in_p10(t out nocopy okl_split_asset_pvt.cle_tbl_type, a0 JTF_NUMBER_TABLE
23 ) as
24 ddindx binary_integer; indx binary_integer;
25 begin
26 if a0 is not null and a0.count > 0 then
27 if a0.count > 0 then
28 indx := a0.first;
29 ddindx := 1;
30 while true loop
31 t(ddindx).cle_id := rosetta_g_miss_num_map(a0(indx));
32 ddindx := ddindx+1;
33 if a0.last =indx
34 then exit;
35 end if;
36 indx := a0.next(indx);
37 end loop;
38 end if;
39 end if;
40 end rosetta_table_copy_in_p10;
41 procedure rosetta_table_copy_out_p10(t okl_split_asset_pvt.cle_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if t is null or t.count = 0 then
46 a0 := JTF_NUMBER_TABLE();
47 else
48 a0 := JTF_NUMBER_TABLE();
49 if t.count > 0 then
50 a0.extend(t.count);
51 ddindx := t.first;
52 indx := 1;
53 while true loop
54 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
55 indx := indx+1;
56 if t.last =ddindx
57 then exit;
58 end if;
59 ddindx := t.next(ddindx);
60 end loop;
61 end if;
62 end if;
63 end rosetta_table_copy_out_p10;
64
65 procedure rosetta_table_copy_in_p13(t out nocopy okl_split_asset_pvt.ib_tbl_type, a0 JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if a0 is not null and a0.count > 0 then
70 if a0.count > 0 then
71 indx := a0.first;
72 ddindx := 1;
73 while true loop
74 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
75 ddindx := ddindx+1;
76 if a0.last =indx
77 then exit;
78 end if;
79 indx := a0.next(indx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_in_p13;
84 procedure rosetta_table_copy_out_p13(t okl_split_asset_pvt.ib_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85 ) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if t is null or t.count = 0 then
89 a0 := JTF_NUMBER_TABLE();
90 else
91 a0 := JTF_NUMBER_TABLE();
92 if t.count > 0 then
93 a0.extend(t.count);
94 ddindx := t.first;
95 indx := 1;
96 while true loop
97 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
98 indx := indx+1;
99 if t.last =ddindx
100 then exit;
101 end if;
102 ddindx := t.next(ddindx);
103 end loop;
104 end if;
105 end if;
106 end rosetta_table_copy_out_p13;
107
108 procedure create_split_transaction(p_api_version NUMBER
109 , p_init_msg_list VARCHAR2
110 , x_return_status out nocopy VARCHAR2
111 , x_msg_count out nocopy NUMBER
112 , x_msg_data out nocopy VARCHAR2
113 , p_cle_id NUMBER
114 , p_split_into_individuals_yn VARCHAR2
115 , p_split_into_units NUMBER
116 , p8_a0 JTF_NUMBER_TABLE
117 , p9_a0 out nocopy JTF_NUMBER_TABLE
118 , p9_a1 out nocopy JTF_NUMBER_TABLE
119 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
120 , p9_a3 out nocopy JTF_NUMBER_TABLE
121 , p9_a4 out nocopy JTF_NUMBER_TABLE
122 , p9_a5 out nocopy JTF_NUMBER_TABLE
123 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
124 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_2000
125 , p9_a8 out nocopy JTF_NUMBER_TABLE
126 , p9_a9 out nocopy JTF_NUMBER_TABLE
127 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
128 , p9_a11 out nocopy JTF_NUMBER_TABLE
129 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
130 , p9_a13 out nocopy JTF_NUMBER_TABLE
131 , p9_a14 out nocopy JTF_NUMBER_TABLE
132 , p9_a15 out nocopy JTF_NUMBER_TABLE
133 , p9_a16 out nocopy JTF_NUMBER_TABLE
134 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
135 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_500
136 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_500
137 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_500
138 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
139 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
140 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
141 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
142 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
143 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
144 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
145 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
146 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_500
147 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_500
148 , p9_a31 out nocopy JTF_VARCHAR2_TABLE_500
149 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_500
150 , p9_a33 out nocopy JTF_NUMBER_TABLE
151 , p9_a34 out nocopy JTF_DATE_TABLE
152 , p9_a35 out nocopy JTF_NUMBER_TABLE
153 , p9_a36 out nocopy JTF_DATE_TABLE
154 , p9_a37 out nocopy JTF_NUMBER_TABLE
155 , p9_a38 out nocopy JTF_VARCHAR2_TABLE_100
156 , p9_a39 out nocopy JTF_VARCHAR2_TABLE_100
157 , p9_a40 out nocopy JTF_NUMBER_TABLE
158 , p9_a41 out nocopy JTF_DATE_TABLE
159 , p10_a0 out nocopy NUMBER
160 , p10_a1 out nocopy NUMBER
161 , p10_a2 out nocopy VARCHAR2
162 , p10_a3 out nocopy NUMBER
163 , p10_a4 out nocopy NUMBER
164 , p10_a5 out nocopy NUMBER
165 , p10_a6 out nocopy NUMBER
166 , p10_a7 out nocopy NUMBER
167 , p10_a8 out nocopy NUMBER
168 , p10_a9 out nocopy NUMBER
169 , p10_a10 out nocopy NUMBER
170 , p10_a11 out nocopy NUMBER
171 , p10_a12 out nocopy VARCHAR2
172 , p10_a13 out nocopy VARCHAR2
173 , p10_a14 out nocopy VARCHAR2
174 , p10_a15 out nocopy NUMBER
175 , p10_a16 out nocopy NUMBER
176 , p10_a17 out nocopy NUMBER
177 , p10_a18 out nocopy VARCHAR2
178 , p10_a19 out nocopy NUMBER
179 , p10_a20 out nocopy NUMBER
180 , p10_a21 out nocopy VARCHAR2
181 , p10_a22 out nocopy VARCHAR2
182 , p10_a23 out nocopy VARCHAR2
183 , p10_a24 out nocopy VARCHAR2
184 , p10_a25 out nocopy DATE
185 , p10_a26 out nocopy DATE
186 , p10_a27 out nocopy DATE
187 , p10_a28 out nocopy NUMBER
188 , p10_a29 out nocopy NUMBER
189 , p10_a30 out nocopy NUMBER
190 , p10_a31 out nocopy VARCHAR2
191 , p10_a32 out nocopy NUMBER
192 , p10_a33 out nocopy NUMBER
193 , p10_a34 out nocopy NUMBER
194 , p10_a35 out nocopy VARCHAR2
195 , p10_a36 out nocopy VARCHAR2
196 , p10_a37 out nocopy VARCHAR2
197 , p10_a38 out nocopy VARCHAR2
198 , p10_a39 out nocopy VARCHAR2
199 , p10_a40 out nocopy VARCHAR2
200 , p10_a41 out nocopy VARCHAR2
201 , p10_a42 out nocopy VARCHAR2
202 , p10_a43 out nocopy VARCHAR2
203 , p10_a44 out nocopy VARCHAR2
204 , p10_a45 out nocopy VARCHAR2
205 , p10_a46 out nocopy VARCHAR2
206 , p10_a47 out nocopy VARCHAR2
207 , p10_a48 out nocopy VARCHAR2
208 , p10_a49 out nocopy VARCHAR2
209 , p10_a50 out nocopy VARCHAR2
210 , p10_a51 out nocopy NUMBER
211 , p10_a52 out nocopy DATE
212 , p10_a53 out nocopy NUMBER
213 , p10_a54 out nocopy DATE
214 , p10_a55 out nocopy NUMBER
215 , p10_a56 out nocopy VARCHAR2
216 , p10_a57 out nocopy NUMBER
217 , p10_a58 out nocopy NUMBER
218 , p10_a59 out nocopy NUMBER
219 , p10_a60 out nocopy NUMBER
220 , p10_a61 out nocopy NUMBER
221 , p10_a62 out nocopy NUMBER
222 , p10_a63 out nocopy NUMBER
223 , p10_a64 out nocopy NUMBER
224 , p10_a65 out nocopy NUMBER
225 , p10_a66 out nocopy DATE
226 , p10_a67 out nocopy NUMBER
227 , p10_a68 out nocopy NUMBER
228 , p10_a69 out nocopy NUMBER
229 , p10_a70 out nocopy VARCHAR2
230 , p10_a71 out nocopy NUMBER
231 , p10_a72 out nocopy VARCHAR2
232 , p10_a73 out nocopy VARCHAR2
233 , p10_a74 out nocopy NUMBER
234 , p10_a75 out nocopy DATE
235 , p11_a0 out nocopy NUMBER
236 , p11_a1 out nocopy NUMBER
237 , p11_a2 out nocopy NUMBER
238 , p11_a3 out nocopy VARCHAR2
239 , p11_a4 out nocopy VARCHAR2
240 , p11_a5 out nocopy VARCHAR2
241 , p11_a6 out nocopy VARCHAR2
242 , p11_a7 out nocopy VARCHAR2
243 , p11_a8 out nocopy VARCHAR2
244 , p11_a9 out nocopy VARCHAR2
245 , p11_a10 out nocopy VARCHAR2
246 , p11_a11 out nocopy VARCHAR2
247 , p11_a12 out nocopy VARCHAR2
248 , p11_a13 out nocopy VARCHAR2
249 , p11_a14 out nocopy VARCHAR2
250 , p11_a15 out nocopy VARCHAR2
251 , p11_a16 out nocopy VARCHAR2
252 , p11_a17 out nocopy VARCHAR2
253 , p11_a18 out nocopy VARCHAR2
254 , p11_a19 out nocopy VARCHAR2
255 , p11_a20 out nocopy NUMBER
256 , p11_a21 out nocopy DATE
257 , p11_a22 out nocopy NUMBER
258 , p11_a23 out nocopy DATE
259 , p11_a24 out nocopy NUMBER
260 , p11_a25 out nocopy VARCHAR2
261 , p11_a26 out nocopy NUMBER
262 , p11_a27 out nocopy DATE
263 , p11_a28 out nocopy NUMBER
264 , p11_a29 out nocopy VARCHAR2
265 , p11_a30 out nocopy NUMBER
266 , p11_a31 out nocopy NUMBER
267 , p11_a32 out nocopy NUMBER
268 )
269
270 as
271 ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
272 ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
273 ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
274 ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
275 ddindx binary_integer; indx binary_integer;
276 begin
277
278 -- copy data to the local IN or IN-OUT args, if any
279
280
281
282
283
284
285
286
287 okl_split_asset_pvt_w.rosetta_table_copy_in_p13(ddp_ib_tbl, p8_a0
288 );
289
290
291
292
293 -- here's the delegated call to the old PL/SQL routine
294 okl_split_asset_pvt.create_split_transaction(p_api_version,
295 p_init_msg_list,
296 x_return_status,
297 x_msg_count,
298 x_msg_data,
299 p_cle_id,
300 p_split_into_individuals_yn,
301 p_split_into_units,
302 ddp_ib_tbl,
303 ddx_txdv_tbl,
304 ddx_txlv_rec,
305 ddx_trxv_rec);
306
307 -- copy data back from the local variables to OUT or IN-OUT args, if any
308
309
310
311
312
313
314
315
316
317 okl_asd_pvt_w.rosetta_table_copy_out_p8(ddx_txdv_tbl, p9_a0
318 , p9_a1
319 , p9_a2
320 , p9_a3
321 , p9_a4
322 , p9_a5
323 , p9_a6
324 , p9_a7
325 , p9_a8
326 , p9_a9
327 , p9_a10
328 , p9_a11
329 , p9_a12
330 , p9_a13
331 , p9_a14
332 , p9_a15
333 , p9_a16
334 , p9_a17
335 , p9_a18
336 , p9_a19
337 , p9_a20
338 , p9_a21
339 , p9_a22
340 , p9_a23
341 , p9_a24
342 , p9_a25
343 , p9_a26
344 , p9_a27
345 , p9_a28
346 , p9_a29
347 , p9_a30
348 , p9_a31
349 , p9_a32
350 , p9_a33
351 , p9_a34
352 , p9_a35
353 , p9_a36
354 , p9_a37
355 , p9_a38
356 , p9_a39
357 , p9_a40
358 , p9_a41
359 );
360
361 p10_a0 := rosetta_g_miss_num_map(ddx_txlv_rec.id);
362 p10_a1 := rosetta_g_miss_num_map(ddx_txlv_rec.object_version_number);
363 p10_a2 := ddx_txlv_rec.sfwt_flag;
364 p10_a3 := rosetta_g_miss_num_map(ddx_txlv_rec.tas_id);
365 p10_a4 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id);
366 p10_a5 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id_old);
367 p10_a6 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id);
368 p10_a7 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id_new);
369 p10_a8 := rosetta_g_miss_num_map(ddx_txlv_rec.kle_id);
370 p10_a9 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_khr_id);
371 p10_a10 := rosetta_g_miss_num_map(ddx_txlv_rec.line_number);
372 p10_a11 := rosetta_g_miss_num_map(ddx_txlv_rec.org_id);
373 p10_a12 := ddx_txlv_rec.tal_type;
374 p10_a13 := ddx_txlv_rec.asset_number;
375 p10_a14 := ddx_txlv_rec.description;
376 p10_a15 := rosetta_g_miss_num_map(ddx_txlv_rec.fa_location_id);
377 p10_a16 := rosetta_g_miss_num_map(ddx_txlv_rec.original_cost);
378 p10_a17 := rosetta_g_miss_num_map(ddx_txlv_rec.current_units);
379 p10_a18 := ddx_txlv_rec.manufacturer_name;
380 p10_a19 := rosetta_g_miss_num_map(ddx_txlv_rec.year_manufactured);
381 p10_a20 := rosetta_g_miss_num_map(ddx_txlv_rec.supplier_id);
382 p10_a21 := ddx_txlv_rec.used_asset_yn;
383 p10_a22 := ddx_txlv_rec.tag_number;
384 p10_a23 := ddx_txlv_rec.model_number;
385 p10_a24 := ddx_txlv_rec.corporate_book;
386 p10_a25 := ddx_txlv_rec.date_purchased;
387 p10_a26 := ddx_txlv_rec.date_delivery;
388 p10_a27 := ddx_txlv_rec.in_service_date;
389 p10_a28 := rosetta_g_miss_num_map(ddx_txlv_rec.life_in_months);
390 p10_a29 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_id);
391 p10_a30 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_cost);
392 p10_a31 := ddx_txlv_rec.deprn_method;
393 p10_a32 := rosetta_g_miss_num_map(ddx_txlv_rec.deprn_rate);
394 p10_a33 := rosetta_g_miss_num_map(ddx_txlv_rec.salvage_value);
395 p10_a34 := rosetta_g_miss_num_map(ddx_txlv_rec.percent_salvage_value);
396 p10_a35 := ddx_txlv_rec.attribute_category;
397 p10_a36 := ddx_txlv_rec.attribute1;
398 p10_a37 := ddx_txlv_rec.attribute2;
399 p10_a38 := ddx_txlv_rec.attribute3;
400 p10_a39 := ddx_txlv_rec.attribute4;
401 p10_a40 := ddx_txlv_rec.attribute5;
402 p10_a41 := ddx_txlv_rec.attribute6;
403 p10_a42 := ddx_txlv_rec.attribute7;
404 p10_a43 := ddx_txlv_rec.attribute8;
405 p10_a44 := ddx_txlv_rec.attribute9;
406 p10_a45 := ddx_txlv_rec.attribute10;
407 p10_a46 := ddx_txlv_rec.attribute11;
408 p10_a47 := ddx_txlv_rec.attribute12;
409 p10_a48 := ddx_txlv_rec.attribute13;
410 p10_a49 := ddx_txlv_rec.attribute14;
411 p10_a50 := ddx_txlv_rec.attribute15;
412 p10_a51 := rosetta_g_miss_num_map(ddx_txlv_rec.created_by);
413 p10_a52 := ddx_txlv_rec.creation_date;
414 p10_a53 := rosetta_g_miss_num_map(ddx_txlv_rec.last_updated_by);
415 p10_a54 := ddx_txlv_rec.last_update_date;
416 p10_a55 := rosetta_g_miss_num_map(ddx_txlv_rec.last_update_login);
417 p10_a56 := ddx_txlv_rec.depreciate_yn;
418 p10_a57 := rosetta_g_miss_num_map(ddx_txlv_rec.hold_period_days);
419 p10_a58 := rosetta_g_miss_num_map(ddx_txlv_rec.old_salvage_value);
420 p10_a59 := rosetta_g_miss_num_map(ddx_txlv_rec.new_residual_value);
421 p10_a60 := rosetta_g_miss_num_map(ddx_txlv_rec.old_residual_value);
422 p10_a61 := rosetta_g_miss_num_map(ddx_txlv_rec.units_retired);
423 p10_a62 := rosetta_g_miss_num_map(ddx_txlv_rec.cost_retired);
424 p10_a63 := rosetta_g_miss_num_map(ddx_txlv_rec.sale_proceeds);
425 p10_a64 := rosetta_g_miss_num_map(ddx_txlv_rec.removal_cost);
426 p10_a65 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_asset_id);
427 p10_a66 := ddx_txlv_rec.date_due;
428 p10_a67 := rosetta_g_miss_num_map(ddx_txlv_rec.rep_asset_id);
429 p10_a68 := rosetta_g_miss_num_map(ddx_txlv_rec.lke_asset_id);
430 p10_a69 := rosetta_g_miss_num_map(ddx_txlv_rec.match_amount);
431 p10_a70 := ddx_txlv_rec.split_into_singles_flag;
432 p10_a71 := rosetta_g_miss_num_map(ddx_txlv_rec.split_into_units);
433 p10_a72 := ddx_txlv_rec.currency_code;
434 p10_a73 := ddx_txlv_rec.currency_conversion_type;
435 p10_a74 := rosetta_g_miss_num_map(ddx_txlv_rec.currency_conversion_rate);
436 p10_a75 := ddx_txlv_rec.currency_conversion_date;
437
438 p11_a0 := rosetta_g_miss_num_map(ddx_trxv_rec.id);
439 p11_a1 := rosetta_g_miss_num_map(ddx_trxv_rec.object_version_number);
440 p11_a2 := rosetta_g_miss_num_map(ddx_trxv_rec.ica_id);
441 p11_a3 := ddx_trxv_rec.attribute_category;
442 p11_a4 := ddx_trxv_rec.attribute1;
443 p11_a5 := ddx_trxv_rec.attribute2;
444 p11_a6 := ddx_trxv_rec.attribute3;
445 p11_a7 := ddx_trxv_rec.attribute4;
446 p11_a8 := ddx_trxv_rec.attribute5;
447 p11_a9 := ddx_trxv_rec.attribute6;
448 p11_a10 := ddx_trxv_rec.attribute7;
449 p11_a11 := ddx_trxv_rec.attribute8;
450 p11_a12 := ddx_trxv_rec.attribute9;
451 p11_a13 := ddx_trxv_rec.attribute10;
452 p11_a14 := ddx_trxv_rec.attribute11;
453 p11_a15 := ddx_trxv_rec.attribute12;
454 p11_a16 := ddx_trxv_rec.attribute13;
455 p11_a17 := ddx_trxv_rec.attribute14;
456 p11_a18 := ddx_trxv_rec.attribute15;
457 p11_a19 := ddx_trxv_rec.tas_type;
458 p11_a20 := rosetta_g_miss_num_map(ddx_trxv_rec.created_by);
459 p11_a21 := ddx_trxv_rec.creation_date;
460 p11_a22 := rosetta_g_miss_num_map(ddx_trxv_rec.last_updated_by);
461 p11_a23 := ddx_trxv_rec.last_update_date;
462 p11_a24 := rosetta_g_miss_num_map(ddx_trxv_rec.last_update_login);
463 p11_a25 := ddx_trxv_rec.tsu_code;
464 p11_a26 := rosetta_g_miss_num_map(ddx_trxv_rec.try_id);
465 p11_a27 := ddx_trxv_rec.date_trans_occurred;
466 p11_a28 := rosetta_g_miss_num_map(ddx_trxv_rec.trans_number);
467 p11_a29 := ddx_trxv_rec.comments;
468 p11_a30 := rosetta_g_miss_num_map(ddx_trxv_rec.req_asset_id);
469 p11_a31 := rosetta_g_miss_num_map(ddx_trxv_rec.total_match_amount);
470 p11_a32 := rosetta_g_miss_num_map(ddx_trxv_rec.org_id);
471 end;
472
473 procedure create_split_transaction(p_api_version NUMBER
474 , p_init_msg_list VARCHAR2
475 , x_return_status out nocopy VARCHAR2
476 , x_msg_count out nocopy NUMBER
477 , x_msg_data out nocopy VARCHAR2
478 , p_cle_id NUMBER
479 , p_split_into_individuals_yn VARCHAR2
480 , p_split_into_units NUMBER
481 , p8_a0 out nocopy JTF_NUMBER_TABLE
482 , p8_a1 out nocopy JTF_NUMBER_TABLE
483 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
484 , p8_a3 out nocopy JTF_NUMBER_TABLE
485 , p8_a4 out nocopy JTF_NUMBER_TABLE
486 , p8_a5 out nocopy JTF_NUMBER_TABLE
487 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
488 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_2000
489 , p8_a8 out nocopy JTF_NUMBER_TABLE
490 , p8_a9 out nocopy JTF_NUMBER_TABLE
491 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_100
492 , p8_a11 out nocopy JTF_NUMBER_TABLE
493 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
494 , p8_a13 out nocopy JTF_NUMBER_TABLE
495 , p8_a14 out nocopy JTF_NUMBER_TABLE
496 , p8_a15 out nocopy JTF_NUMBER_TABLE
497 , p8_a16 out nocopy JTF_NUMBER_TABLE
498 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
499 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
500 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
501 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
502 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
503 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
504 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
505 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
506 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
507 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
508 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
509 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
510 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
511 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_500
512 , p8_a31 out nocopy JTF_VARCHAR2_TABLE_500
513 , p8_a32 out nocopy JTF_VARCHAR2_TABLE_500
514 , p8_a33 out nocopy JTF_NUMBER_TABLE
515 , p8_a34 out nocopy JTF_DATE_TABLE
516 , p8_a35 out nocopy JTF_NUMBER_TABLE
517 , p8_a36 out nocopy JTF_DATE_TABLE
518 , p8_a37 out nocopy JTF_NUMBER_TABLE
519 , p8_a38 out nocopy JTF_VARCHAR2_TABLE_100
520 , p8_a39 out nocopy JTF_VARCHAR2_TABLE_100
521 , p8_a40 out nocopy JTF_NUMBER_TABLE
522 , p8_a41 out nocopy JTF_DATE_TABLE
523 , p9_a0 out nocopy NUMBER
524 , p9_a1 out nocopy NUMBER
525 , p9_a2 out nocopy VARCHAR2
526 , p9_a3 out nocopy NUMBER
527 , p9_a4 out nocopy NUMBER
528 , p9_a5 out nocopy NUMBER
529 , p9_a6 out nocopy NUMBER
530 , p9_a7 out nocopy NUMBER
531 , p9_a8 out nocopy NUMBER
532 , p9_a9 out nocopy NUMBER
533 , p9_a10 out nocopy NUMBER
534 , p9_a11 out nocopy NUMBER
535 , p9_a12 out nocopy VARCHAR2
536 , p9_a13 out nocopy VARCHAR2
537 , p9_a14 out nocopy VARCHAR2
538 , p9_a15 out nocopy NUMBER
539 , p9_a16 out nocopy NUMBER
540 , p9_a17 out nocopy NUMBER
541 , p9_a18 out nocopy VARCHAR2
542 , p9_a19 out nocopy NUMBER
543 , p9_a20 out nocopy NUMBER
544 , p9_a21 out nocopy VARCHAR2
545 , p9_a22 out nocopy VARCHAR2
546 , p9_a23 out nocopy VARCHAR2
547 , p9_a24 out nocopy VARCHAR2
548 , p9_a25 out nocopy DATE
549 , p9_a26 out nocopy DATE
550 , p9_a27 out nocopy DATE
551 , p9_a28 out nocopy NUMBER
552 , p9_a29 out nocopy NUMBER
553 , p9_a30 out nocopy NUMBER
554 , p9_a31 out nocopy VARCHAR2
555 , p9_a32 out nocopy NUMBER
556 , p9_a33 out nocopy NUMBER
557 , p9_a34 out nocopy NUMBER
558 , p9_a35 out nocopy VARCHAR2
559 , p9_a36 out nocopy VARCHAR2
560 , p9_a37 out nocopy VARCHAR2
561 , p9_a38 out nocopy VARCHAR2
562 , p9_a39 out nocopy VARCHAR2
563 , p9_a40 out nocopy VARCHAR2
564 , p9_a41 out nocopy VARCHAR2
565 , p9_a42 out nocopy VARCHAR2
566 , p9_a43 out nocopy VARCHAR2
567 , p9_a44 out nocopy VARCHAR2
568 , p9_a45 out nocopy VARCHAR2
569 , p9_a46 out nocopy VARCHAR2
570 , p9_a47 out nocopy VARCHAR2
571 , p9_a48 out nocopy VARCHAR2
572 , p9_a49 out nocopy VARCHAR2
573 , p9_a50 out nocopy VARCHAR2
574 , p9_a51 out nocopy NUMBER
575 , p9_a52 out nocopy DATE
576 , p9_a53 out nocopy NUMBER
577 , p9_a54 out nocopy DATE
578 , p9_a55 out nocopy NUMBER
579 , p9_a56 out nocopy VARCHAR2
580 , p9_a57 out nocopy NUMBER
581 , p9_a58 out nocopy NUMBER
582 , p9_a59 out nocopy NUMBER
583 , p9_a60 out nocopy NUMBER
584 , p9_a61 out nocopy NUMBER
585 , p9_a62 out nocopy NUMBER
586 , p9_a63 out nocopy NUMBER
587 , p9_a64 out nocopy NUMBER
588 , p9_a65 out nocopy NUMBER
589 , p9_a66 out nocopy DATE
590 , p9_a67 out nocopy NUMBER
591 , p9_a68 out nocopy NUMBER
592 , p9_a69 out nocopy NUMBER
593 , p9_a70 out nocopy VARCHAR2
594 , p9_a71 out nocopy NUMBER
595 , p9_a72 out nocopy VARCHAR2
596 , p9_a73 out nocopy VARCHAR2
597 , p9_a74 out nocopy NUMBER
598 , p9_a75 out nocopy DATE
599 , p10_a0 out nocopy NUMBER
600 , p10_a1 out nocopy NUMBER
601 , p10_a2 out nocopy NUMBER
602 , p10_a3 out nocopy VARCHAR2
603 , p10_a4 out nocopy VARCHAR2
604 , p10_a5 out nocopy VARCHAR2
605 , p10_a6 out nocopy VARCHAR2
606 , p10_a7 out nocopy VARCHAR2
607 , p10_a8 out nocopy VARCHAR2
608 , p10_a9 out nocopy VARCHAR2
609 , p10_a10 out nocopy VARCHAR2
610 , p10_a11 out nocopy VARCHAR2
611 , p10_a12 out nocopy VARCHAR2
612 , p10_a13 out nocopy VARCHAR2
613 , p10_a14 out nocopy VARCHAR2
614 , p10_a15 out nocopy VARCHAR2
615 , p10_a16 out nocopy VARCHAR2
616 , p10_a17 out nocopy VARCHAR2
617 , p10_a18 out nocopy VARCHAR2
618 , p10_a19 out nocopy VARCHAR2
619 , p10_a20 out nocopy NUMBER
620 , p10_a21 out nocopy DATE
621 , p10_a22 out nocopy NUMBER
622 , p10_a23 out nocopy DATE
623 , p10_a24 out nocopy NUMBER
624 , p10_a25 out nocopy VARCHAR2
625 , p10_a26 out nocopy NUMBER
626 , p10_a27 out nocopy DATE
627 , p10_a28 out nocopy NUMBER
628 , p10_a29 out nocopy VARCHAR2
629 , p10_a30 out nocopy NUMBER
630 , p10_a31 out nocopy NUMBER
631 , p10_a32 out nocopy NUMBER
632 )
633
634 as
635 ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
636 ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
637 ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
638 ddindx binary_integer; indx binary_integer;
639 begin
640
641 -- copy data to the local IN or IN-OUT args, if any
642
643
644
645
646
647
648
649
650
651
652
653 -- here's the delegated call to the old PL/SQL routine
654 okl_split_asset_pvt.create_split_transaction(p_api_version,
655 p_init_msg_list,
656 x_return_status,
657 x_msg_count,
658 x_msg_data,
659 p_cle_id,
660 p_split_into_individuals_yn,
661 p_split_into_units,
662 ddx_txdv_tbl,
663 ddx_txlv_rec,
664 ddx_trxv_rec);
665
666 -- copy data back from the local variables to OUT or IN-OUT args, if any
667
668
669
670
671
672
673
674
675 okl_asd_pvt_w.rosetta_table_copy_out_p8(ddx_txdv_tbl, p8_a0
676 , p8_a1
677 , p8_a2
678 , p8_a3
679 , p8_a4
680 , p8_a5
681 , p8_a6
682 , p8_a7
683 , p8_a8
684 , p8_a9
685 , p8_a10
686 , p8_a11
687 , p8_a12
688 , p8_a13
689 , p8_a14
690 , p8_a15
691 , p8_a16
692 , p8_a17
693 , p8_a18
694 , p8_a19
695 , p8_a20
696 , p8_a21
697 , p8_a22
698 , p8_a23
699 , p8_a24
700 , p8_a25
701 , p8_a26
702 , p8_a27
703 , p8_a28
704 , p8_a29
705 , p8_a30
706 , p8_a31
707 , p8_a32
708 , p8_a33
709 , p8_a34
710 , p8_a35
711 , p8_a36
712 , p8_a37
713 , p8_a38
714 , p8_a39
715 , p8_a40
716 , p8_a41
717 );
718
719 p9_a0 := rosetta_g_miss_num_map(ddx_txlv_rec.id);
720 p9_a1 := rosetta_g_miss_num_map(ddx_txlv_rec.object_version_number);
721 p9_a2 := ddx_txlv_rec.sfwt_flag;
722 p9_a3 := rosetta_g_miss_num_map(ddx_txlv_rec.tas_id);
723 p9_a4 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id);
724 p9_a5 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id_old);
725 p9_a6 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id);
726 p9_a7 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id_new);
727 p9_a8 := rosetta_g_miss_num_map(ddx_txlv_rec.kle_id);
728 p9_a9 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_khr_id);
729 p9_a10 := rosetta_g_miss_num_map(ddx_txlv_rec.line_number);
730 p9_a11 := rosetta_g_miss_num_map(ddx_txlv_rec.org_id);
731 p9_a12 := ddx_txlv_rec.tal_type;
732 p9_a13 := ddx_txlv_rec.asset_number;
733 p9_a14 := ddx_txlv_rec.description;
734 p9_a15 := rosetta_g_miss_num_map(ddx_txlv_rec.fa_location_id);
735 p9_a16 := rosetta_g_miss_num_map(ddx_txlv_rec.original_cost);
736 p9_a17 := rosetta_g_miss_num_map(ddx_txlv_rec.current_units);
737 p9_a18 := ddx_txlv_rec.manufacturer_name;
738 p9_a19 := rosetta_g_miss_num_map(ddx_txlv_rec.year_manufactured);
739 p9_a20 := rosetta_g_miss_num_map(ddx_txlv_rec.supplier_id);
740 p9_a21 := ddx_txlv_rec.used_asset_yn;
741 p9_a22 := ddx_txlv_rec.tag_number;
742 p9_a23 := ddx_txlv_rec.model_number;
743 p9_a24 := ddx_txlv_rec.corporate_book;
744 p9_a25 := ddx_txlv_rec.date_purchased;
745 p9_a26 := ddx_txlv_rec.date_delivery;
746 p9_a27 := ddx_txlv_rec.in_service_date;
747 p9_a28 := rosetta_g_miss_num_map(ddx_txlv_rec.life_in_months);
748 p9_a29 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_id);
749 p9_a30 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_cost);
750 p9_a31 := ddx_txlv_rec.deprn_method;
751 p9_a32 := rosetta_g_miss_num_map(ddx_txlv_rec.deprn_rate);
752 p9_a33 := rosetta_g_miss_num_map(ddx_txlv_rec.salvage_value);
753 p9_a34 := rosetta_g_miss_num_map(ddx_txlv_rec.percent_salvage_value);
754 p9_a35 := ddx_txlv_rec.attribute_category;
755 p9_a36 := ddx_txlv_rec.attribute1;
756 p9_a37 := ddx_txlv_rec.attribute2;
757 p9_a38 := ddx_txlv_rec.attribute3;
758 p9_a39 := ddx_txlv_rec.attribute4;
759 p9_a40 := ddx_txlv_rec.attribute5;
760 p9_a41 := ddx_txlv_rec.attribute6;
761 p9_a42 := ddx_txlv_rec.attribute7;
762 p9_a43 := ddx_txlv_rec.attribute8;
763 p9_a44 := ddx_txlv_rec.attribute9;
764 p9_a45 := ddx_txlv_rec.attribute10;
765 p9_a46 := ddx_txlv_rec.attribute11;
766 p9_a47 := ddx_txlv_rec.attribute12;
767 p9_a48 := ddx_txlv_rec.attribute13;
768 p9_a49 := ddx_txlv_rec.attribute14;
769 p9_a50 := ddx_txlv_rec.attribute15;
770 p9_a51 := rosetta_g_miss_num_map(ddx_txlv_rec.created_by);
771 p9_a52 := ddx_txlv_rec.creation_date;
772 p9_a53 := rosetta_g_miss_num_map(ddx_txlv_rec.last_updated_by);
773 p9_a54 := ddx_txlv_rec.last_update_date;
774 p9_a55 := rosetta_g_miss_num_map(ddx_txlv_rec.last_update_login);
775 p9_a56 := ddx_txlv_rec.depreciate_yn;
776 p9_a57 := rosetta_g_miss_num_map(ddx_txlv_rec.hold_period_days);
777 p9_a58 := rosetta_g_miss_num_map(ddx_txlv_rec.old_salvage_value);
778 p9_a59 := rosetta_g_miss_num_map(ddx_txlv_rec.new_residual_value);
779 p9_a60 := rosetta_g_miss_num_map(ddx_txlv_rec.old_residual_value);
780 p9_a61 := rosetta_g_miss_num_map(ddx_txlv_rec.units_retired);
781 p9_a62 := rosetta_g_miss_num_map(ddx_txlv_rec.cost_retired);
782 p9_a63 := rosetta_g_miss_num_map(ddx_txlv_rec.sale_proceeds);
783 p9_a64 := rosetta_g_miss_num_map(ddx_txlv_rec.removal_cost);
784 p9_a65 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_asset_id);
785 p9_a66 := ddx_txlv_rec.date_due;
786 p9_a67 := rosetta_g_miss_num_map(ddx_txlv_rec.rep_asset_id);
787 p9_a68 := rosetta_g_miss_num_map(ddx_txlv_rec.lke_asset_id);
788 p9_a69 := rosetta_g_miss_num_map(ddx_txlv_rec.match_amount);
789 p9_a70 := ddx_txlv_rec.split_into_singles_flag;
790 p9_a71 := rosetta_g_miss_num_map(ddx_txlv_rec.split_into_units);
791 p9_a72 := ddx_txlv_rec.currency_code;
792 p9_a73 := ddx_txlv_rec.currency_conversion_type;
793 p9_a74 := rosetta_g_miss_num_map(ddx_txlv_rec.currency_conversion_rate);
794 p9_a75 := ddx_txlv_rec.currency_conversion_date;
795
796 p10_a0 := rosetta_g_miss_num_map(ddx_trxv_rec.id);
797 p10_a1 := rosetta_g_miss_num_map(ddx_trxv_rec.object_version_number);
798 p10_a2 := rosetta_g_miss_num_map(ddx_trxv_rec.ica_id);
799 p10_a3 := ddx_trxv_rec.attribute_category;
800 p10_a4 := ddx_trxv_rec.attribute1;
801 p10_a5 := ddx_trxv_rec.attribute2;
802 p10_a6 := ddx_trxv_rec.attribute3;
803 p10_a7 := ddx_trxv_rec.attribute4;
804 p10_a8 := ddx_trxv_rec.attribute5;
805 p10_a9 := ddx_trxv_rec.attribute6;
806 p10_a10 := ddx_trxv_rec.attribute7;
807 p10_a11 := ddx_trxv_rec.attribute8;
808 p10_a12 := ddx_trxv_rec.attribute9;
809 p10_a13 := ddx_trxv_rec.attribute10;
810 p10_a14 := ddx_trxv_rec.attribute11;
811 p10_a15 := ddx_trxv_rec.attribute12;
812 p10_a16 := ddx_trxv_rec.attribute13;
813 p10_a17 := ddx_trxv_rec.attribute14;
814 p10_a18 := ddx_trxv_rec.attribute15;
815 p10_a19 := ddx_trxv_rec.tas_type;
816 p10_a20 := rosetta_g_miss_num_map(ddx_trxv_rec.created_by);
817 p10_a21 := ddx_trxv_rec.creation_date;
818 p10_a22 := rosetta_g_miss_num_map(ddx_trxv_rec.last_updated_by);
819 p10_a23 := ddx_trxv_rec.last_update_date;
820 p10_a24 := rosetta_g_miss_num_map(ddx_trxv_rec.last_update_login);
821 p10_a25 := ddx_trxv_rec.tsu_code;
822 p10_a26 := rosetta_g_miss_num_map(ddx_trxv_rec.try_id);
823 p10_a27 := ddx_trxv_rec.date_trans_occurred;
824 p10_a28 := rosetta_g_miss_num_map(ddx_trxv_rec.trans_number);
825 p10_a29 := ddx_trxv_rec.comments;
826 p10_a30 := rosetta_g_miss_num_map(ddx_trxv_rec.req_asset_id);
827 p10_a31 := rosetta_g_miss_num_map(ddx_trxv_rec.total_match_amount);
828 p10_a32 := rosetta_g_miss_num_map(ddx_trxv_rec.org_id);
829 end;
830
831 procedure create_split_transaction(p_api_version NUMBER
832 , p_init_msg_list VARCHAR2
833 , x_return_status out nocopy VARCHAR2
834 , x_msg_count out nocopy NUMBER
835 , x_msg_data out nocopy VARCHAR2
836 , p_cle_id NUMBER
837 , p_split_into_individuals_yn VARCHAR2
838 , p_split_into_units NUMBER
839 , p8_a0 JTF_NUMBER_TABLE
840 , p_trx_date date
841 , p10_a0 out nocopy JTF_NUMBER_TABLE
842 , p10_a1 out nocopy JTF_NUMBER_TABLE
843 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_100
844 , p10_a3 out nocopy JTF_NUMBER_TABLE
845 , p10_a4 out nocopy JTF_NUMBER_TABLE
846 , p10_a5 out nocopy JTF_NUMBER_TABLE
847 , p10_a6 out nocopy JTF_VARCHAR2_TABLE_100
848 , p10_a7 out nocopy JTF_VARCHAR2_TABLE_2000
849 , p10_a8 out nocopy JTF_NUMBER_TABLE
850 , p10_a9 out nocopy JTF_NUMBER_TABLE
851 , p10_a10 out nocopy JTF_VARCHAR2_TABLE_100
852 , p10_a11 out nocopy JTF_NUMBER_TABLE
853 , p10_a12 out nocopy JTF_VARCHAR2_TABLE_100
854 , p10_a13 out nocopy JTF_NUMBER_TABLE
855 , p10_a14 out nocopy JTF_NUMBER_TABLE
856 , p10_a15 out nocopy JTF_NUMBER_TABLE
857 , p10_a16 out nocopy JTF_NUMBER_TABLE
858 , p10_a17 out nocopy JTF_VARCHAR2_TABLE_100
859 , p10_a18 out nocopy JTF_VARCHAR2_TABLE_500
860 , p10_a19 out nocopy JTF_VARCHAR2_TABLE_500
861 , p10_a20 out nocopy JTF_VARCHAR2_TABLE_500
862 , p10_a21 out nocopy JTF_VARCHAR2_TABLE_500
863 , p10_a22 out nocopy JTF_VARCHAR2_TABLE_500
864 , p10_a23 out nocopy JTF_VARCHAR2_TABLE_500
865 , p10_a24 out nocopy JTF_VARCHAR2_TABLE_500
866 , p10_a25 out nocopy JTF_VARCHAR2_TABLE_500
867 , p10_a26 out nocopy JTF_VARCHAR2_TABLE_500
868 , p10_a27 out nocopy JTF_VARCHAR2_TABLE_500
869 , p10_a28 out nocopy JTF_VARCHAR2_TABLE_500
870 , p10_a29 out nocopy JTF_VARCHAR2_TABLE_500
871 , p10_a30 out nocopy JTF_VARCHAR2_TABLE_500
872 , p10_a31 out nocopy JTF_VARCHAR2_TABLE_500
873 , p10_a32 out nocopy JTF_VARCHAR2_TABLE_500
874 , p10_a33 out nocopy JTF_NUMBER_TABLE
875 , p10_a34 out nocopy JTF_DATE_TABLE
876 , p10_a35 out nocopy JTF_NUMBER_TABLE
877 , p10_a36 out nocopy JTF_DATE_TABLE
878 , p10_a37 out nocopy JTF_NUMBER_TABLE
879 , p10_a38 out nocopy JTF_VARCHAR2_TABLE_100
880 , p10_a39 out nocopy JTF_VARCHAR2_TABLE_100
881 , p10_a40 out nocopy JTF_NUMBER_TABLE
882 , p10_a41 out nocopy JTF_DATE_TABLE
883 , p11_a0 out nocopy NUMBER
884 , p11_a1 out nocopy NUMBER
885 , p11_a2 out nocopy VARCHAR2
886 , p11_a3 out nocopy NUMBER
887 , p11_a4 out nocopy NUMBER
888 , p11_a5 out nocopy NUMBER
889 , p11_a6 out nocopy NUMBER
890 , p11_a7 out nocopy NUMBER
891 , p11_a8 out nocopy NUMBER
892 , p11_a9 out nocopy NUMBER
893 , p11_a10 out nocopy NUMBER
894 , p11_a11 out nocopy NUMBER
895 , p11_a12 out nocopy VARCHAR2
896 , p11_a13 out nocopy VARCHAR2
897 , p11_a14 out nocopy VARCHAR2
898 , p11_a15 out nocopy NUMBER
899 , p11_a16 out nocopy NUMBER
900 , p11_a17 out nocopy NUMBER
901 , p11_a18 out nocopy VARCHAR2
902 , p11_a19 out nocopy NUMBER
903 , p11_a20 out nocopy NUMBER
904 , p11_a21 out nocopy VARCHAR2
905 , p11_a22 out nocopy VARCHAR2
906 , p11_a23 out nocopy VARCHAR2
907 , p11_a24 out nocopy VARCHAR2
908 , p11_a25 out nocopy DATE
909 , p11_a26 out nocopy DATE
910 , p11_a27 out nocopy DATE
911 , p11_a28 out nocopy NUMBER
912 , p11_a29 out nocopy NUMBER
913 , p11_a30 out nocopy NUMBER
914 , p11_a31 out nocopy VARCHAR2
915 , p11_a32 out nocopy NUMBER
916 , p11_a33 out nocopy NUMBER
917 , p11_a34 out nocopy NUMBER
918 , p11_a35 out nocopy VARCHAR2
919 , p11_a36 out nocopy VARCHAR2
920 , p11_a37 out nocopy VARCHAR2
921 , p11_a38 out nocopy VARCHAR2
922 , p11_a39 out nocopy VARCHAR2
923 , p11_a40 out nocopy VARCHAR2
924 , p11_a41 out nocopy VARCHAR2
925 , p11_a42 out nocopy VARCHAR2
926 , p11_a43 out nocopy VARCHAR2
927 , p11_a44 out nocopy VARCHAR2
928 , p11_a45 out nocopy VARCHAR2
929 , p11_a46 out nocopy VARCHAR2
930 , p11_a47 out nocopy VARCHAR2
931 , p11_a48 out nocopy VARCHAR2
932 , p11_a49 out nocopy VARCHAR2
933 , p11_a50 out nocopy VARCHAR2
934 , p11_a51 out nocopy NUMBER
935 , p11_a52 out nocopy DATE
936 , p11_a53 out nocopy NUMBER
937 , p11_a54 out nocopy DATE
938 , p11_a55 out nocopy NUMBER
939 , p11_a56 out nocopy VARCHAR2
940 , p11_a57 out nocopy NUMBER
941 , p11_a58 out nocopy NUMBER
942 , p11_a59 out nocopy NUMBER
943 , p11_a60 out nocopy NUMBER
944 , p11_a61 out nocopy NUMBER
945 , p11_a62 out nocopy NUMBER
946 , p11_a63 out nocopy NUMBER
947 , p11_a64 out nocopy NUMBER
948 , p11_a65 out nocopy NUMBER
949 , p11_a66 out nocopy DATE
950 , p11_a67 out nocopy NUMBER
951 , p11_a68 out nocopy NUMBER
952 , p11_a69 out nocopy NUMBER
953 , p11_a70 out nocopy VARCHAR2
954 , p11_a71 out nocopy NUMBER
955 , p11_a72 out nocopy VARCHAR2
956 , p11_a73 out nocopy VARCHAR2
957 , p11_a74 out nocopy NUMBER
958 , p11_a75 out nocopy DATE
959 , p12_a0 out nocopy NUMBER
960 , p12_a1 out nocopy NUMBER
961 , p12_a2 out nocopy NUMBER
962 , p12_a3 out nocopy VARCHAR2
963 , p12_a4 out nocopy VARCHAR2
964 , p12_a5 out nocopy VARCHAR2
965 , p12_a6 out nocopy VARCHAR2
966 , p12_a7 out nocopy VARCHAR2
967 , p12_a8 out nocopy VARCHAR2
968 , p12_a9 out nocopy VARCHAR2
969 , p12_a10 out nocopy VARCHAR2
970 , p12_a11 out nocopy VARCHAR2
971 , p12_a12 out nocopy VARCHAR2
972 , p12_a13 out nocopy VARCHAR2
973 , p12_a14 out nocopy VARCHAR2
974 , p12_a15 out nocopy VARCHAR2
975 , p12_a16 out nocopy VARCHAR2
976 , p12_a17 out nocopy VARCHAR2
977 , p12_a18 out nocopy VARCHAR2
978 , p12_a19 out nocopy VARCHAR2
979 , p12_a20 out nocopy NUMBER
980 , p12_a21 out nocopy DATE
981 , p12_a22 out nocopy NUMBER
982 , p12_a23 out nocopy DATE
983 , p12_a24 out nocopy NUMBER
984 , p12_a25 out nocopy VARCHAR2
985 , p12_a26 out nocopy NUMBER
986 , p12_a27 out nocopy DATE
987 , p12_a28 out nocopy NUMBER
988 , p12_a29 out nocopy VARCHAR2
989 , p12_a30 out nocopy NUMBER
990 , p12_a31 out nocopy NUMBER
991 , p12_a32 out nocopy NUMBER
992 )
993
994 as
995 ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
996 ddp_trx_date date;
997 ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
998 ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
999 ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1000 ddindx binary_integer; indx binary_integer;
1001 begin
1002
1003 -- copy data to the local IN or IN-OUT args, if any
1004
1005
1006
1007
1008
1009
1010
1011
1012 okl_split_asset_pvt_w.rosetta_table_copy_in_p13(ddp_ib_tbl, p8_a0
1013 );
1014
1015 ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
1016
1017
1018
1019
1020 -- here's the delegated call to the old PL/SQL routine
1021 okl_split_asset_pvt.create_split_transaction(p_api_version,
1022 p_init_msg_list,
1023 x_return_status,
1024 x_msg_count,
1025 x_msg_data,
1026 p_cle_id,
1027 p_split_into_individuals_yn,
1028 p_split_into_units,
1029 ddp_ib_tbl,
1030 ddp_trx_date,
1031 ddx_txdv_tbl,
1032 ddx_txlv_rec,
1033 ddx_trxv_rec);
1034
1035 -- copy data back from the local variables to OUT or IN-OUT args, if any
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046 okl_asd_pvt_w.rosetta_table_copy_out_p8(ddx_txdv_tbl, p10_a0
1047 , p10_a1
1048 , p10_a2
1049 , p10_a3
1050 , p10_a4
1051 , p10_a5
1052 , p10_a6
1053 , p10_a7
1054 , p10_a8
1055 , p10_a9
1056 , p10_a10
1057 , p10_a11
1058 , p10_a12
1059 , p10_a13
1060 , p10_a14
1061 , p10_a15
1062 , p10_a16
1063 , p10_a17
1064 , p10_a18
1065 , p10_a19
1066 , p10_a20
1067 , p10_a21
1068 , p10_a22
1069 , p10_a23
1070 , p10_a24
1071 , p10_a25
1072 , p10_a26
1073 , p10_a27
1074 , p10_a28
1075 , p10_a29
1076 , p10_a30
1077 , p10_a31
1078 , p10_a32
1079 , p10_a33
1080 , p10_a34
1081 , p10_a35
1082 , p10_a36
1083 , p10_a37
1084 , p10_a38
1085 , p10_a39
1086 , p10_a40
1087 , p10_a41
1088 );
1089
1090 p11_a0 := rosetta_g_miss_num_map(ddx_txlv_rec.id);
1091 p11_a1 := rosetta_g_miss_num_map(ddx_txlv_rec.object_version_number);
1092 p11_a2 := ddx_txlv_rec.sfwt_flag;
1093 p11_a3 := rosetta_g_miss_num_map(ddx_txlv_rec.tas_id);
1094 p11_a4 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id);
1095 p11_a5 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id_old);
1096 p11_a6 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id);
1097 p11_a7 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id_new);
1098 p11_a8 := rosetta_g_miss_num_map(ddx_txlv_rec.kle_id);
1099 p11_a9 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_khr_id);
1100 p11_a10 := rosetta_g_miss_num_map(ddx_txlv_rec.line_number);
1101 p11_a11 := rosetta_g_miss_num_map(ddx_txlv_rec.org_id);
1102 p11_a12 := ddx_txlv_rec.tal_type;
1103 p11_a13 := ddx_txlv_rec.asset_number;
1104 p11_a14 := ddx_txlv_rec.description;
1105 p11_a15 := rosetta_g_miss_num_map(ddx_txlv_rec.fa_location_id);
1106 p11_a16 := rosetta_g_miss_num_map(ddx_txlv_rec.original_cost);
1107 p11_a17 := rosetta_g_miss_num_map(ddx_txlv_rec.current_units);
1108 p11_a18 := ddx_txlv_rec.manufacturer_name;
1109 p11_a19 := rosetta_g_miss_num_map(ddx_txlv_rec.year_manufactured);
1110 p11_a20 := rosetta_g_miss_num_map(ddx_txlv_rec.supplier_id);
1111 p11_a21 := ddx_txlv_rec.used_asset_yn;
1112 p11_a22 := ddx_txlv_rec.tag_number;
1113 p11_a23 := ddx_txlv_rec.model_number;
1114 p11_a24 := ddx_txlv_rec.corporate_book;
1115 p11_a25 := ddx_txlv_rec.date_purchased;
1116 p11_a26 := ddx_txlv_rec.date_delivery;
1117 p11_a27 := ddx_txlv_rec.in_service_date;
1118 p11_a28 := rosetta_g_miss_num_map(ddx_txlv_rec.life_in_months);
1119 p11_a29 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_id);
1120 p11_a30 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_cost);
1121 p11_a31 := ddx_txlv_rec.deprn_method;
1122 p11_a32 := rosetta_g_miss_num_map(ddx_txlv_rec.deprn_rate);
1123 p11_a33 := rosetta_g_miss_num_map(ddx_txlv_rec.salvage_value);
1124 p11_a34 := rosetta_g_miss_num_map(ddx_txlv_rec.percent_salvage_value);
1125 p11_a35 := ddx_txlv_rec.attribute_category;
1126 p11_a36 := ddx_txlv_rec.attribute1;
1127 p11_a37 := ddx_txlv_rec.attribute2;
1128 p11_a38 := ddx_txlv_rec.attribute3;
1129 p11_a39 := ddx_txlv_rec.attribute4;
1130 p11_a40 := ddx_txlv_rec.attribute5;
1131 p11_a41 := ddx_txlv_rec.attribute6;
1132 p11_a42 := ddx_txlv_rec.attribute7;
1133 p11_a43 := ddx_txlv_rec.attribute8;
1134 p11_a44 := ddx_txlv_rec.attribute9;
1135 p11_a45 := ddx_txlv_rec.attribute10;
1136 p11_a46 := ddx_txlv_rec.attribute11;
1137 p11_a47 := ddx_txlv_rec.attribute12;
1138 p11_a48 := ddx_txlv_rec.attribute13;
1139 p11_a49 := ddx_txlv_rec.attribute14;
1140 p11_a50 := ddx_txlv_rec.attribute15;
1141 p11_a51 := rosetta_g_miss_num_map(ddx_txlv_rec.created_by);
1142 p11_a52 := ddx_txlv_rec.creation_date;
1143 p11_a53 := rosetta_g_miss_num_map(ddx_txlv_rec.last_updated_by);
1144 p11_a54 := ddx_txlv_rec.last_update_date;
1145 p11_a55 := rosetta_g_miss_num_map(ddx_txlv_rec.last_update_login);
1146 p11_a56 := ddx_txlv_rec.depreciate_yn;
1147 p11_a57 := rosetta_g_miss_num_map(ddx_txlv_rec.hold_period_days);
1148 p11_a58 := rosetta_g_miss_num_map(ddx_txlv_rec.old_salvage_value);
1149 p11_a59 := rosetta_g_miss_num_map(ddx_txlv_rec.new_residual_value);
1150 p11_a60 := rosetta_g_miss_num_map(ddx_txlv_rec.old_residual_value);
1151 p11_a61 := rosetta_g_miss_num_map(ddx_txlv_rec.units_retired);
1152 p11_a62 := rosetta_g_miss_num_map(ddx_txlv_rec.cost_retired);
1153 p11_a63 := rosetta_g_miss_num_map(ddx_txlv_rec.sale_proceeds);
1154 p11_a64 := rosetta_g_miss_num_map(ddx_txlv_rec.removal_cost);
1155 p11_a65 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_asset_id);
1156 p11_a66 := ddx_txlv_rec.date_due;
1157 p11_a67 := rosetta_g_miss_num_map(ddx_txlv_rec.rep_asset_id);
1158 p11_a68 := rosetta_g_miss_num_map(ddx_txlv_rec.lke_asset_id);
1159 p11_a69 := rosetta_g_miss_num_map(ddx_txlv_rec.match_amount);
1160 p11_a70 := ddx_txlv_rec.split_into_singles_flag;
1161 p11_a71 := rosetta_g_miss_num_map(ddx_txlv_rec.split_into_units);
1162 p11_a72 := ddx_txlv_rec.currency_code;
1163 p11_a73 := ddx_txlv_rec.currency_conversion_type;
1164 p11_a74 := rosetta_g_miss_num_map(ddx_txlv_rec.currency_conversion_rate);
1165 p11_a75 := ddx_txlv_rec.currency_conversion_date;
1166
1167 p12_a0 := rosetta_g_miss_num_map(ddx_trxv_rec.id);
1168 p12_a1 := rosetta_g_miss_num_map(ddx_trxv_rec.object_version_number);
1169 p12_a2 := rosetta_g_miss_num_map(ddx_trxv_rec.ica_id);
1170 p12_a3 := ddx_trxv_rec.attribute_category;
1171 p12_a4 := ddx_trxv_rec.attribute1;
1172 p12_a5 := ddx_trxv_rec.attribute2;
1173 p12_a6 := ddx_trxv_rec.attribute3;
1174 p12_a7 := ddx_trxv_rec.attribute4;
1175 p12_a8 := ddx_trxv_rec.attribute5;
1176 p12_a9 := ddx_trxv_rec.attribute6;
1177 p12_a10 := ddx_trxv_rec.attribute7;
1178 p12_a11 := ddx_trxv_rec.attribute8;
1179 p12_a12 := ddx_trxv_rec.attribute9;
1180 p12_a13 := ddx_trxv_rec.attribute10;
1181 p12_a14 := ddx_trxv_rec.attribute11;
1182 p12_a15 := ddx_trxv_rec.attribute12;
1183 p12_a16 := ddx_trxv_rec.attribute13;
1184 p12_a17 := ddx_trxv_rec.attribute14;
1185 p12_a18 := ddx_trxv_rec.attribute15;
1186 p12_a19 := ddx_trxv_rec.tas_type;
1187 p12_a20 := rosetta_g_miss_num_map(ddx_trxv_rec.created_by);
1188 p12_a21 := ddx_trxv_rec.creation_date;
1189 p12_a22 := rosetta_g_miss_num_map(ddx_trxv_rec.last_updated_by);
1190 p12_a23 := ddx_trxv_rec.last_update_date;
1191 p12_a24 := rosetta_g_miss_num_map(ddx_trxv_rec.last_update_login);
1192 p12_a25 := ddx_trxv_rec.tsu_code;
1193 p12_a26 := rosetta_g_miss_num_map(ddx_trxv_rec.try_id);
1194 p12_a27 := ddx_trxv_rec.date_trans_occurred;
1195 p12_a28 := rosetta_g_miss_num_map(ddx_trxv_rec.trans_number);
1196 p12_a29 := ddx_trxv_rec.comments;
1197 p12_a30 := rosetta_g_miss_num_map(ddx_trxv_rec.req_asset_id);
1198 p12_a31 := rosetta_g_miss_num_map(ddx_trxv_rec.total_match_amount);
1199 p12_a32 := rosetta_g_miss_num_map(ddx_trxv_rec.org_id);
1200 end;
1201
1202 procedure create_split_transaction(p_api_version NUMBER
1203 , p_init_msg_list VARCHAR2
1204 , x_return_status out nocopy VARCHAR2
1205 , x_msg_count out nocopy NUMBER
1206 , x_msg_data out nocopy VARCHAR2
1207 , p_cle_id NUMBER
1208 , p_split_into_individuals_yn VARCHAR2
1209 , p_split_into_units NUMBER
1210 , p_trx_date date
1211 , p9_a0 out nocopy JTF_NUMBER_TABLE
1212 , p9_a1 out nocopy JTF_NUMBER_TABLE
1213 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
1214 , p9_a3 out nocopy JTF_NUMBER_TABLE
1215 , p9_a4 out nocopy JTF_NUMBER_TABLE
1216 , p9_a5 out nocopy JTF_NUMBER_TABLE
1217 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
1218 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_2000
1219 , p9_a8 out nocopy JTF_NUMBER_TABLE
1220 , p9_a9 out nocopy JTF_NUMBER_TABLE
1221 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
1222 , p9_a11 out nocopy JTF_NUMBER_TABLE
1223 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
1224 , p9_a13 out nocopy JTF_NUMBER_TABLE
1225 , p9_a14 out nocopy JTF_NUMBER_TABLE
1226 , p9_a15 out nocopy JTF_NUMBER_TABLE
1227 , p9_a16 out nocopy JTF_NUMBER_TABLE
1228 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
1229 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_500
1230 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_500
1231 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_500
1232 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
1233 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
1234 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
1235 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
1236 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
1237 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
1238 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
1239 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
1240 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_500
1241 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_500
1242 , p9_a31 out nocopy JTF_VARCHAR2_TABLE_500
1243 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_500
1244 , p9_a33 out nocopy JTF_NUMBER_TABLE
1245 , p9_a34 out nocopy JTF_DATE_TABLE
1246 , p9_a35 out nocopy JTF_NUMBER_TABLE
1247 , p9_a36 out nocopy JTF_DATE_TABLE
1248 , p9_a37 out nocopy JTF_NUMBER_TABLE
1249 , p9_a38 out nocopy JTF_VARCHAR2_TABLE_100
1250 , p9_a39 out nocopy JTF_VARCHAR2_TABLE_100
1251 , p9_a40 out nocopy JTF_NUMBER_TABLE
1252 , p9_a41 out nocopy JTF_DATE_TABLE
1253 , p10_a0 out nocopy NUMBER
1254 , p10_a1 out nocopy NUMBER
1255 , p10_a2 out nocopy VARCHAR2
1256 , p10_a3 out nocopy NUMBER
1257 , p10_a4 out nocopy NUMBER
1258 , p10_a5 out nocopy NUMBER
1259 , p10_a6 out nocopy NUMBER
1260 , p10_a7 out nocopy NUMBER
1261 , p10_a8 out nocopy NUMBER
1262 , p10_a9 out nocopy NUMBER
1263 , p10_a10 out nocopy NUMBER
1264 , p10_a11 out nocopy NUMBER
1265 , p10_a12 out nocopy VARCHAR2
1266 , p10_a13 out nocopy VARCHAR2
1267 , p10_a14 out nocopy VARCHAR2
1268 , p10_a15 out nocopy NUMBER
1269 , p10_a16 out nocopy NUMBER
1270 , p10_a17 out nocopy NUMBER
1271 , p10_a18 out nocopy VARCHAR2
1272 , p10_a19 out nocopy NUMBER
1273 , p10_a20 out nocopy NUMBER
1274 , p10_a21 out nocopy VARCHAR2
1275 , p10_a22 out nocopy VARCHAR2
1276 , p10_a23 out nocopy VARCHAR2
1277 , p10_a24 out nocopy VARCHAR2
1278 , p10_a25 out nocopy DATE
1279 , p10_a26 out nocopy DATE
1280 , p10_a27 out nocopy DATE
1281 , p10_a28 out nocopy NUMBER
1282 , p10_a29 out nocopy NUMBER
1283 , p10_a30 out nocopy NUMBER
1284 , p10_a31 out nocopy VARCHAR2
1285 , p10_a32 out nocopy NUMBER
1286 , p10_a33 out nocopy NUMBER
1287 , p10_a34 out nocopy NUMBER
1288 , p10_a35 out nocopy VARCHAR2
1289 , p10_a36 out nocopy VARCHAR2
1290 , p10_a37 out nocopy VARCHAR2
1291 , p10_a38 out nocopy VARCHAR2
1292 , p10_a39 out nocopy VARCHAR2
1293 , p10_a40 out nocopy VARCHAR2
1294 , p10_a41 out nocopy VARCHAR2
1295 , p10_a42 out nocopy VARCHAR2
1296 , p10_a43 out nocopy VARCHAR2
1297 , p10_a44 out nocopy VARCHAR2
1298 , p10_a45 out nocopy VARCHAR2
1299 , p10_a46 out nocopy VARCHAR2
1300 , p10_a47 out nocopy VARCHAR2
1301 , p10_a48 out nocopy VARCHAR2
1302 , p10_a49 out nocopy VARCHAR2
1303 , p10_a50 out nocopy VARCHAR2
1304 , p10_a51 out nocopy NUMBER
1305 , p10_a52 out nocopy DATE
1306 , p10_a53 out nocopy NUMBER
1307 , p10_a54 out nocopy DATE
1308 , p10_a55 out nocopy NUMBER
1309 , p10_a56 out nocopy VARCHAR2
1310 , p10_a57 out nocopy NUMBER
1311 , p10_a58 out nocopy NUMBER
1312 , p10_a59 out nocopy NUMBER
1313 , p10_a60 out nocopy NUMBER
1314 , p10_a61 out nocopy NUMBER
1315 , p10_a62 out nocopy NUMBER
1316 , p10_a63 out nocopy NUMBER
1317 , p10_a64 out nocopy NUMBER
1318 , p10_a65 out nocopy NUMBER
1319 , p10_a66 out nocopy DATE
1320 , p10_a67 out nocopy NUMBER
1321 , p10_a68 out nocopy NUMBER
1322 , p10_a69 out nocopy NUMBER
1323 , p10_a70 out nocopy VARCHAR2
1324 , p10_a71 out nocopy NUMBER
1325 , p10_a72 out nocopy VARCHAR2
1326 , p10_a73 out nocopy VARCHAR2
1327 , p10_a74 out nocopy NUMBER
1328 , p10_a75 out nocopy DATE
1329 , p11_a0 out nocopy NUMBER
1330 , p11_a1 out nocopy NUMBER
1331 , p11_a2 out nocopy NUMBER
1332 , p11_a3 out nocopy VARCHAR2
1333 , p11_a4 out nocopy VARCHAR2
1334 , p11_a5 out nocopy VARCHAR2
1335 , p11_a6 out nocopy VARCHAR2
1336 , p11_a7 out nocopy VARCHAR2
1337 , p11_a8 out nocopy VARCHAR2
1338 , p11_a9 out nocopy VARCHAR2
1339 , p11_a10 out nocopy VARCHAR2
1340 , p11_a11 out nocopy VARCHAR2
1341 , p11_a12 out nocopy VARCHAR2
1342 , p11_a13 out nocopy VARCHAR2
1343 , p11_a14 out nocopy VARCHAR2
1344 , p11_a15 out nocopy VARCHAR2
1345 , p11_a16 out nocopy VARCHAR2
1346 , p11_a17 out nocopy VARCHAR2
1347 , p11_a18 out nocopy VARCHAR2
1348 , p11_a19 out nocopy VARCHAR2
1349 , p11_a20 out nocopy NUMBER
1350 , p11_a21 out nocopy DATE
1351 , p11_a22 out nocopy NUMBER
1352 , p11_a23 out nocopy DATE
1353 , p11_a24 out nocopy NUMBER
1354 , p11_a25 out nocopy VARCHAR2
1355 , p11_a26 out nocopy NUMBER
1356 , p11_a27 out nocopy DATE
1357 , p11_a28 out nocopy NUMBER
1358 , p11_a29 out nocopy VARCHAR2
1359 , p11_a30 out nocopy NUMBER
1360 , p11_a31 out nocopy NUMBER
1361 , p11_a32 out nocopy NUMBER
1362 )
1363
1364 as
1365 ddp_trx_date date;
1366 ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1367 ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1368 ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1369 ddindx binary_integer; indx binary_integer;
1370 begin
1371
1372 -- copy data to the local IN or IN-OUT args, if any
1373
1374
1375
1376
1377
1378
1379
1380
1381 ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
1382
1383
1384
1385
1386 -- here's the delegated call to the old PL/SQL routine
1387 okl_split_asset_pvt.create_split_transaction(p_api_version,
1388 p_init_msg_list,
1389 x_return_status,
1390 x_msg_count,
1391 x_msg_data,
1392 p_cle_id,
1393 p_split_into_individuals_yn,
1394 p_split_into_units,
1395 ddp_trx_date,
1396 ddx_txdv_tbl,
1397 ddx_txlv_rec,
1398 ddx_trxv_rec);
1399
1400 -- copy data back from the local variables to OUT or IN-OUT args, if any
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410 okl_asd_pvt_w.rosetta_table_copy_out_p8(ddx_txdv_tbl, p9_a0
1411 , p9_a1
1412 , p9_a2
1413 , p9_a3
1414 , p9_a4
1415 , p9_a5
1416 , p9_a6
1417 , p9_a7
1418 , p9_a8
1419 , p9_a9
1420 , p9_a10
1421 , p9_a11
1422 , p9_a12
1423 , p9_a13
1424 , p9_a14
1425 , p9_a15
1426 , p9_a16
1427 , p9_a17
1428 , p9_a18
1429 , p9_a19
1430 , p9_a20
1431 , p9_a21
1432 , p9_a22
1433 , p9_a23
1434 , p9_a24
1435 , p9_a25
1436 , p9_a26
1437 , p9_a27
1438 , p9_a28
1439 , p9_a29
1440 , p9_a30
1441 , p9_a31
1442 , p9_a32
1443 , p9_a33
1444 , p9_a34
1445 , p9_a35
1446 , p9_a36
1447 , p9_a37
1448 , p9_a38
1449 , p9_a39
1450 , p9_a40
1451 , p9_a41
1452 );
1453
1454 p10_a0 := rosetta_g_miss_num_map(ddx_txlv_rec.id);
1455 p10_a1 := rosetta_g_miss_num_map(ddx_txlv_rec.object_version_number);
1456 p10_a2 := ddx_txlv_rec.sfwt_flag;
1457 p10_a3 := rosetta_g_miss_num_map(ddx_txlv_rec.tas_id);
1458 p10_a4 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id);
1459 p10_a5 := rosetta_g_miss_num_map(ddx_txlv_rec.ilo_id_old);
1460 p10_a6 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id);
1461 p10_a7 := rosetta_g_miss_num_map(ddx_txlv_rec.iay_id_new);
1462 p10_a8 := rosetta_g_miss_num_map(ddx_txlv_rec.kle_id);
1463 p10_a9 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_khr_id);
1464 p10_a10 := rosetta_g_miss_num_map(ddx_txlv_rec.line_number);
1465 p10_a11 := rosetta_g_miss_num_map(ddx_txlv_rec.org_id);
1466 p10_a12 := ddx_txlv_rec.tal_type;
1467 p10_a13 := ddx_txlv_rec.asset_number;
1468 p10_a14 := ddx_txlv_rec.description;
1469 p10_a15 := rosetta_g_miss_num_map(ddx_txlv_rec.fa_location_id);
1470 p10_a16 := rosetta_g_miss_num_map(ddx_txlv_rec.original_cost);
1471 p10_a17 := rosetta_g_miss_num_map(ddx_txlv_rec.current_units);
1472 p10_a18 := ddx_txlv_rec.manufacturer_name;
1473 p10_a19 := rosetta_g_miss_num_map(ddx_txlv_rec.year_manufactured);
1474 p10_a20 := rosetta_g_miss_num_map(ddx_txlv_rec.supplier_id);
1475 p10_a21 := ddx_txlv_rec.used_asset_yn;
1476 p10_a22 := ddx_txlv_rec.tag_number;
1477 p10_a23 := ddx_txlv_rec.model_number;
1478 p10_a24 := ddx_txlv_rec.corporate_book;
1479 p10_a25 := ddx_txlv_rec.date_purchased;
1480 p10_a26 := ddx_txlv_rec.date_delivery;
1481 p10_a27 := ddx_txlv_rec.in_service_date;
1482 p10_a28 := rosetta_g_miss_num_map(ddx_txlv_rec.life_in_months);
1483 p10_a29 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_id);
1484 p10_a30 := rosetta_g_miss_num_map(ddx_txlv_rec.depreciation_cost);
1485 p10_a31 := ddx_txlv_rec.deprn_method;
1486 p10_a32 := rosetta_g_miss_num_map(ddx_txlv_rec.deprn_rate);
1487 p10_a33 := rosetta_g_miss_num_map(ddx_txlv_rec.salvage_value);
1488 p10_a34 := rosetta_g_miss_num_map(ddx_txlv_rec.percent_salvage_value);
1489 p10_a35 := ddx_txlv_rec.attribute_category;
1490 p10_a36 := ddx_txlv_rec.attribute1;
1491 p10_a37 := ddx_txlv_rec.attribute2;
1492 p10_a38 := ddx_txlv_rec.attribute3;
1493 p10_a39 := ddx_txlv_rec.attribute4;
1494 p10_a40 := ddx_txlv_rec.attribute5;
1495 p10_a41 := ddx_txlv_rec.attribute6;
1496 p10_a42 := ddx_txlv_rec.attribute7;
1497 p10_a43 := ddx_txlv_rec.attribute8;
1498 p10_a44 := ddx_txlv_rec.attribute9;
1499 p10_a45 := ddx_txlv_rec.attribute10;
1500 p10_a46 := ddx_txlv_rec.attribute11;
1501 p10_a47 := ddx_txlv_rec.attribute12;
1502 p10_a48 := ddx_txlv_rec.attribute13;
1503 p10_a49 := ddx_txlv_rec.attribute14;
1504 p10_a50 := ddx_txlv_rec.attribute15;
1505 p10_a51 := rosetta_g_miss_num_map(ddx_txlv_rec.created_by);
1506 p10_a52 := ddx_txlv_rec.creation_date;
1507 p10_a53 := rosetta_g_miss_num_map(ddx_txlv_rec.last_updated_by);
1508 p10_a54 := ddx_txlv_rec.last_update_date;
1509 p10_a55 := rosetta_g_miss_num_map(ddx_txlv_rec.last_update_login);
1510 p10_a56 := ddx_txlv_rec.depreciate_yn;
1511 p10_a57 := rosetta_g_miss_num_map(ddx_txlv_rec.hold_period_days);
1512 p10_a58 := rosetta_g_miss_num_map(ddx_txlv_rec.old_salvage_value);
1513 p10_a59 := rosetta_g_miss_num_map(ddx_txlv_rec.new_residual_value);
1514 p10_a60 := rosetta_g_miss_num_map(ddx_txlv_rec.old_residual_value);
1515 p10_a61 := rosetta_g_miss_num_map(ddx_txlv_rec.units_retired);
1516 p10_a62 := rosetta_g_miss_num_map(ddx_txlv_rec.cost_retired);
1517 p10_a63 := rosetta_g_miss_num_map(ddx_txlv_rec.sale_proceeds);
1518 p10_a64 := rosetta_g_miss_num_map(ddx_txlv_rec.removal_cost);
1519 p10_a65 := rosetta_g_miss_num_map(ddx_txlv_rec.dnz_asset_id);
1520 p10_a66 := ddx_txlv_rec.date_due;
1521 p10_a67 := rosetta_g_miss_num_map(ddx_txlv_rec.rep_asset_id);
1522 p10_a68 := rosetta_g_miss_num_map(ddx_txlv_rec.lke_asset_id);
1523 p10_a69 := rosetta_g_miss_num_map(ddx_txlv_rec.match_amount);
1524 p10_a70 := ddx_txlv_rec.split_into_singles_flag;
1525 p10_a71 := rosetta_g_miss_num_map(ddx_txlv_rec.split_into_units);
1526 p10_a72 := ddx_txlv_rec.currency_code;
1527 p10_a73 := ddx_txlv_rec.currency_conversion_type;
1528 p10_a74 := rosetta_g_miss_num_map(ddx_txlv_rec.currency_conversion_rate);
1529 p10_a75 := ddx_txlv_rec.currency_conversion_date;
1530
1531 p11_a0 := rosetta_g_miss_num_map(ddx_trxv_rec.id);
1532 p11_a1 := rosetta_g_miss_num_map(ddx_trxv_rec.object_version_number);
1533 p11_a2 := rosetta_g_miss_num_map(ddx_trxv_rec.ica_id);
1534 p11_a3 := ddx_trxv_rec.attribute_category;
1535 p11_a4 := ddx_trxv_rec.attribute1;
1536 p11_a5 := ddx_trxv_rec.attribute2;
1537 p11_a6 := ddx_trxv_rec.attribute3;
1538 p11_a7 := ddx_trxv_rec.attribute4;
1539 p11_a8 := ddx_trxv_rec.attribute5;
1540 p11_a9 := ddx_trxv_rec.attribute6;
1541 p11_a10 := ddx_trxv_rec.attribute7;
1542 p11_a11 := ddx_trxv_rec.attribute8;
1543 p11_a12 := ddx_trxv_rec.attribute9;
1544 p11_a13 := ddx_trxv_rec.attribute10;
1545 p11_a14 := ddx_trxv_rec.attribute11;
1546 p11_a15 := ddx_trxv_rec.attribute12;
1547 p11_a16 := ddx_trxv_rec.attribute13;
1548 p11_a17 := ddx_trxv_rec.attribute14;
1549 p11_a18 := ddx_trxv_rec.attribute15;
1550 p11_a19 := ddx_trxv_rec.tas_type;
1551 p11_a20 := rosetta_g_miss_num_map(ddx_trxv_rec.created_by);
1552 p11_a21 := ddx_trxv_rec.creation_date;
1553 p11_a22 := rosetta_g_miss_num_map(ddx_trxv_rec.last_updated_by);
1554 p11_a23 := ddx_trxv_rec.last_update_date;
1555 p11_a24 := rosetta_g_miss_num_map(ddx_trxv_rec.last_update_login);
1556 p11_a25 := ddx_trxv_rec.tsu_code;
1557 p11_a26 := rosetta_g_miss_num_map(ddx_trxv_rec.try_id);
1558 p11_a27 := ddx_trxv_rec.date_trans_occurred;
1559 p11_a28 := rosetta_g_miss_num_map(ddx_trxv_rec.trans_number);
1560 p11_a29 := ddx_trxv_rec.comments;
1561 p11_a30 := rosetta_g_miss_num_map(ddx_trxv_rec.req_asset_id);
1562 p11_a31 := rosetta_g_miss_num_map(ddx_trxv_rec.total_match_amount);
1563 p11_a32 := rosetta_g_miss_num_map(ddx_trxv_rec.org_id);
1564 end;
1565
1566 procedure update_split_transaction(p_api_version NUMBER
1567 , p_init_msg_list VARCHAR2
1568 , x_return_status out nocopy VARCHAR2
1569 , x_msg_count out nocopy NUMBER
1570 , x_msg_data out nocopy VARCHAR2
1571 , p_cle_id NUMBER
1572 , p6_a0 JTF_NUMBER_TABLE
1573 , p6_a1 JTF_NUMBER_TABLE
1574 , p6_a2 JTF_VARCHAR2_TABLE_100
1575 , p6_a3 JTF_NUMBER_TABLE
1576 , p6_a4 JTF_NUMBER_TABLE
1577 , p6_a5 JTF_NUMBER_TABLE
1578 , p6_a6 JTF_VARCHAR2_TABLE_100
1579 , p6_a7 JTF_VARCHAR2_TABLE_2000
1580 , p6_a8 JTF_NUMBER_TABLE
1581 , p6_a9 JTF_NUMBER_TABLE
1582 , p6_a10 JTF_VARCHAR2_TABLE_100
1583 , p6_a11 JTF_NUMBER_TABLE
1584 , p6_a12 JTF_VARCHAR2_TABLE_100
1585 , p6_a13 JTF_NUMBER_TABLE
1586 , p6_a14 JTF_NUMBER_TABLE
1587 , p6_a15 JTF_NUMBER_TABLE
1588 , p6_a16 JTF_NUMBER_TABLE
1589 , p6_a17 JTF_VARCHAR2_TABLE_100
1590 , p6_a18 JTF_VARCHAR2_TABLE_500
1591 , p6_a19 JTF_VARCHAR2_TABLE_500
1592 , p6_a20 JTF_VARCHAR2_TABLE_500
1593 , p6_a21 JTF_VARCHAR2_TABLE_500
1594 , p6_a22 JTF_VARCHAR2_TABLE_500
1595 , p6_a23 JTF_VARCHAR2_TABLE_500
1596 , p6_a24 JTF_VARCHAR2_TABLE_500
1597 , p6_a25 JTF_VARCHAR2_TABLE_500
1598 , p6_a26 JTF_VARCHAR2_TABLE_500
1599 , p6_a27 JTF_VARCHAR2_TABLE_500
1600 , p6_a28 JTF_VARCHAR2_TABLE_500
1601 , p6_a29 JTF_VARCHAR2_TABLE_500
1602 , p6_a30 JTF_VARCHAR2_TABLE_500
1603 , p6_a31 JTF_VARCHAR2_TABLE_500
1604 , p6_a32 JTF_VARCHAR2_TABLE_500
1605 , p6_a33 JTF_NUMBER_TABLE
1606 , p6_a34 JTF_DATE_TABLE
1607 , p6_a35 JTF_NUMBER_TABLE
1608 , p6_a36 JTF_DATE_TABLE
1609 , p6_a37 JTF_NUMBER_TABLE
1610 , p6_a38 JTF_VARCHAR2_TABLE_100
1611 , p6_a39 JTF_VARCHAR2_TABLE_100
1612 , p6_a40 JTF_NUMBER_TABLE
1613 , p6_a41 JTF_DATE_TABLE
1614 , p7_a0 out nocopy JTF_NUMBER_TABLE
1615 , p7_a1 out nocopy JTF_NUMBER_TABLE
1616 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
1617 , p7_a3 out nocopy JTF_NUMBER_TABLE
1618 , p7_a4 out nocopy JTF_NUMBER_TABLE
1619 , p7_a5 out nocopy JTF_NUMBER_TABLE
1620 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_100
1621 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_2000
1622 , p7_a8 out nocopy JTF_NUMBER_TABLE
1623 , p7_a9 out nocopy JTF_NUMBER_TABLE
1624 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
1625 , p7_a11 out nocopy JTF_NUMBER_TABLE
1626 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_100
1627 , p7_a13 out nocopy JTF_NUMBER_TABLE
1628 , p7_a14 out nocopy JTF_NUMBER_TABLE
1629 , p7_a15 out nocopy JTF_NUMBER_TABLE
1630 , p7_a16 out nocopy JTF_NUMBER_TABLE
1631 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
1632 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
1633 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
1634 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
1635 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
1636 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
1637 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
1638 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
1639 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
1640 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
1641 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
1642 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
1643 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
1644 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_500
1645 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_500
1646 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_500
1647 , p7_a33 out nocopy JTF_NUMBER_TABLE
1648 , p7_a34 out nocopy JTF_DATE_TABLE
1649 , p7_a35 out nocopy JTF_NUMBER_TABLE
1650 , p7_a36 out nocopy JTF_DATE_TABLE
1651 , p7_a37 out nocopy JTF_NUMBER_TABLE
1652 , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
1653 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_100
1654 , p7_a40 out nocopy JTF_NUMBER_TABLE
1655 , p7_a41 out nocopy JTF_DATE_TABLE
1656 )
1657
1658 as
1659 ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1660 ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1661 ddindx binary_integer; indx binary_integer;
1662 begin
1663
1664 -- copy data to the local IN or IN-OUT args, if any
1665
1666
1667
1668
1669
1670
1671 okl_asd_pvt_w.rosetta_table_copy_in_p8(ddp_txdv_tbl, p6_a0
1672 , p6_a1
1673 , p6_a2
1674 , p6_a3
1675 , p6_a4
1676 , p6_a5
1677 , p6_a6
1678 , p6_a7
1679 , p6_a8
1680 , p6_a9
1681 , p6_a10
1682 , p6_a11
1683 , p6_a12
1684 , p6_a13
1685 , p6_a14
1686 , p6_a15
1687 , p6_a16
1688 , p6_a17
1689 , p6_a18
1690 , p6_a19
1691 , p6_a20
1692 , p6_a21
1693 , p6_a22
1694 , p6_a23
1695 , p6_a24
1696 , p6_a25
1697 , p6_a26
1698 , p6_a27
1699 , p6_a28
1700 , p6_a29
1701 , p6_a30
1702 , p6_a31
1703 , p6_a32
1704 , p6_a33
1705 , p6_a34
1706 , p6_a35
1707 , p6_a36
1708 , p6_a37
1709 , p6_a38
1710 , p6_a39
1711 , p6_a40
1712 , p6_a41
1713 );
1714
1715
1716 -- here's the delegated call to the old PL/SQL routine
1717 okl_split_asset_pvt.update_split_transaction(p_api_version,
1718 p_init_msg_list,
1719 x_return_status,
1720 x_msg_count,
1721 x_msg_data,
1722 p_cle_id,
1723 ddp_txdv_tbl,
1724 ddx_txdv_tbl);
1725
1726 -- copy data back from the local variables to OUT or IN-OUT args, if any
1727
1728
1729
1730
1731
1732
1733
1734 okl_asd_pvt_w.rosetta_table_copy_out_p8(ddx_txdv_tbl, p7_a0
1735 , p7_a1
1736 , p7_a2
1737 , p7_a3
1738 , p7_a4
1739 , p7_a5
1740 , p7_a6
1741 , p7_a7
1742 , p7_a8
1743 , p7_a9
1744 , p7_a10
1745 , p7_a11
1746 , p7_a12
1747 , p7_a13
1748 , p7_a14
1749 , p7_a15
1750 , p7_a16
1751 , p7_a17
1752 , p7_a18
1753 , p7_a19
1754 , p7_a20
1755 , p7_a21
1756 , p7_a22
1757 , p7_a23
1758 , p7_a24
1759 , p7_a25
1760 , p7_a26
1761 , p7_a27
1762 , p7_a28
1763 , p7_a29
1764 , p7_a30
1765 , p7_a31
1766 , p7_a32
1767 , p7_a33
1768 , p7_a34
1769 , p7_a35
1770 , p7_a36
1771 , p7_a37
1772 , p7_a38
1773 , p7_a39
1774 , p7_a40
1775 , p7_a41
1776 );
1777 end;
1778
1779 procedure split_fixed_asset(p_api_version NUMBER
1780 , p_init_msg_list VARCHAR2
1781 , x_return_status out nocopy VARCHAR2
1782 , x_msg_count out nocopy NUMBER
1783 , x_msg_data out nocopy VARCHAR2
1784 , p5_a0 JTF_NUMBER_TABLE
1785 , p5_a1 JTF_NUMBER_TABLE
1786 , p5_a2 JTF_VARCHAR2_TABLE_100
1787 , p5_a3 JTF_NUMBER_TABLE
1788 , p5_a4 JTF_NUMBER_TABLE
1789 , p5_a5 JTF_NUMBER_TABLE
1790 , p5_a6 JTF_VARCHAR2_TABLE_100
1791 , p5_a7 JTF_VARCHAR2_TABLE_2000
1792 , p5_a8 JTF_NUMBER_TABLE
1793 , p5_a9 JTF_NUMBER_TABLE
1794 , p5_a10 JTF_VARCHAR2_TABLE_100
1795 , p5_a11 JTF_NUMBER_TABLE
1796 , p5_a12 JTF_VARCHAR2_TABLE_100
1797 , p5_a13 JTF_NUMBER_TABLE
1798 , p5_a14 JTF_NUMBER_TABLE
1799 , p5_a15 JTF_NUMBER_TABLE
1800 , p5_a16 JTF_NUMBER_TABLE
1801 , p5_a17 JTF_VARCHAR2_TABLE_100
1802 , p5_a18 JTF_VARCHAR2_TABLE_500
1803 , p5_a19 JTF_VARCHAR2_TABLE_500
1804 , p5_a20 JTF_VARCHAR2_TABLE_500
1805 , p5_a21 JTF_VARCHAR2_TABLE_500
1806 , p5_a22 JTF_VARCHAR2_TABLE_500
1807 , p5_a23 JTF_VARCHAR2_TABLE_500
1808 , p5_a24 JTF_VARCHAR2_TABLE_500
1809 , p5_a25 JTF_VARCHAR2_TABLE_500
1810 , p5_a26 JTF_VARCHAR2_TABLE_500
1811 , p5_a27 JTF_VARCHAR2_TABLE_500
1812 , p5_a28 JTF_VARCHAR2_TABLE_500
1813 , p5_a29 JTF_VARCHAR2_TABLE_500
1814 , p5_a30 JTF_VARCHAR2_TABLE_500
1815 , p5_a31 JTF_VARCHAR2_TABLE_500
1816 , p5_a32 JTF_VARCHAR2_TABLE_500
1817 , p5_a33 JTF_NUMBER_TABLE
1818 , p5_a34 JTF_DATE_TABLE
1819 , p5_a35 JTF_NUMBER_TABLE
1820 , p5_a36 JTF_DATE_TABLE
1821 , p5_a37 JTF_NUMBER_TABLE
1822 , p5_a38 JTF_VARCHAR2_TABLE_100
1823 , p5_a39 JTF_VARCHAR2_TABLE_100
1824 , p5_a40 JTF_NUMBER_TABLE
1825 , p5_a41 JTF_DATE_TABLE
1826 , p7_a0 out nocopy JTF_NUMBER_TABLE
1827 , p6_a0 NUMBER := 0-1962.0724
1828 , p6_a1 NUMBER := 0-1962.0724
1829 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
1830 , p6_a3 NUMBER := 0-1962.0724
1831 , p6_a4 NUMBER := 0-1962.0724
1832 , p6_a5 NUMBER := 0-1962.0724
1833 , p6_a6 NUMBER := 0-1962.0724
1834 , p6_a7 NUMBER := 0-1962.0724
1835 , p6_a8 NUMBER := 0-1962.0724
1836 , p6_a9 NUMBER := 0-1962.0724
1837 , p6_a10 NUMBER := 0-1962.0724
1838 , p6_a11 NUMBER := 0-1962.0724
1839 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
1840 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
1841 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
1842 , p6_a15 NUMBER := 0-1962.0724
1843 , p6_a16 NUMBER := 0-1962.0724
1844 , p6_a17 NUMBER := 0-1962.0724
1845 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
1846 , p6_a19 NUMBER := 0-1962.0724
1847 , p6_a20 NUMBER := 0-1962.0724
1848 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
1849 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
1850 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
1851 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
1852 , p6_a25 DATE := fnd_api.g_miss_date
1853 , p6_a26 DATE := fnd_api.g_miss_date
1854 , p6_a27 DATE := fnd_api.g_miss_date
1855 , p6_a28 NUMBER := 0-1962.0724
1856 , p6_a29 NUMBER := 0-1962.0724
1857 , p6_a30 NUMBER := 0-1962.0724
1858 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
1859 , p6_a32 NUMBER := 0-1962.0724
1860 , p6_a33 NUMBER := 0-1962.0724
1861 , p6_a34 NUMBER := 0-1962.0724
1862 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
1863 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
1864 , p6_a37 VARCHAR2 := fnd_api.g_miss_char
1865 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
1866 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
1867 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
1868 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
1869 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
1870 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
1871 , p6_a44 VARCHAR2 := fnd_api.g_miss_char
1872 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
1873 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
1874 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
1875 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
1876 , p6_a49 VARCHAR2 := fnd_api.g_miss_char
1877 , p6_a50 VARCHAR2 := fnd_api.g_miss_char
1878 , p6_a51 NUMBER := 0-1962.0724
1879 , p6_a52 DATE := fnd_api.g_miss_date
1880 , p6_a53 NUMBER := 0-1962.0724
1881 , p6_a54 DATE := fnd_api.g_miss_date
1882 , p6_a55 NUMBER := 0-1962.0724
1883 , p6_a56 VARCHAR2 := fnd_api.g_miss_char
1884 , p6_a57 NUMBER := 0-1962.0724
1885 , p6_a58 NUMBER := 0-1962.0724
1886 , p6_a59 NUMBER := 0-1962.0724
1887 , p6_a60 NUMBER := 0-1962.0724
1888 , p6_a61 NUMBER := 0-1962.0724
1889 , p6_a62 NUMBER := 0-1962.0724
1890 , p6_a63 NUMBER := 0-1962.0724
1891 , p6_a64 NUMBER := 0-1962.0724
1892 , p6_a65 NUMBER := 0-1962.0724
1893 , p6_a66 DATE := fnd_api.g_miss_date
1894 , p6_a67 NUMBER := 0-1962.0724
1895 , p6_a68 NUMBER := 0-1962.0724
1896 , p6_a69 NUMBER := 0-1962.0724
1897 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
1898 , p6_a71 NUMBER := 0-1962.0724
1899 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
1900 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
1901 , p6_a74 NUMBER := 0-1962.0724
1902 , p6_a75 DATE := fnd_api.g_miss_date
1903 )
1904
1905 as
1906 ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1907 ddp_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1908 ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
1909 ddindx binary_integer; indx binary_integer;
1910 begin
1911
1912 -- copy data to the local IN or IN-OUT args, if any
1913
1914
1915
1916
1917
1918 okl_asd_pvt_w.rosetta_table_copy_in_p8(ddp_txdv_tbl, p5_a0
1919 , p5_a1
1920 , p5_a2
1921 , p5_a3
1922 , p5_a4
1923 , p5_a5
1924 , p5_a6
1925 , p5_a7
1926 , p5_a8
1927 , p5_a9
1928 , p5_a10
1929 , p5_a11
1930 , p5_a12
1931 , p5_a13
1932 , p5_a14
1933 , p5_a15
1934 , p5_a16
1935 , p5_a17
1936 , p5_a18
1937 , p5_a19
1938 , p5_a20
1939 , p5_a21
1940 , p5_a22
1941 , p5_a23
1942 , p5_a24
1943 , p5_a25
1944 , p5_a26
1945 , p5_a27
1946 , p5_a28
1947 , p5_a29
1948 , p5_a30
1949 , p5_a31
1950 , p5_a32
1951 , p5_a33
1952 , p5_a34
1953 , p5_a35
1954 , p5_a36
1955 , p5_a37
1956 , p5_a38
1957 , p5_a39
1958 , p5_a40
1959 , p5_a41
1960 );
1961
1962 ddp_txlv_rec.id := rosetta_g_miss_num_map(p6_a0);
1963 ddp_txlv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
1964 ddp_txlv_rec.sfwt_flag := p6_a2;
1965 ddp_txlv_rec.tas_id := rosetta_g_miss_num_map(p6_a3);
1966 ddp_txlv_rec.ilo_id := rosetta_g_miss_num_map(p6_a4);
1967 ddp_txlv_rec.ilo_id_old := rosetta_g_miss_num_map(p6_a5);
1968 ddp_txlv_rec.iay_id := rosetta_g_miss_num_map(p6_a6);
1969 ddp_txlv_rec.iay_id_new := rosetta_g_miss_num_map(p6_a7);
1970 ddp_txlv_rec.kle_id := rosetta_g_miss_num_map(p6_a8);
1971 ddp_txlv_rec.dnz_khr_id := rosetta_g_miss_num_map(p6_a9);
1972 ddp_txlv_rec.line_number := rosetta_g_miss_num_map(p6_a10);
1973 ddp_txlv_rec.org_id := rosetta_g_miss_num_map(p6_a11);
1974 ddp_txlv_rec.tal_type := p6_a12;
1975 ddp_txlv_rec.asset_number := p6_a13;
1976 ddp_txlv_rec.description := p6_a14;
1977 ddp_txlv_rec.fa_location_id := rosetta_g_miss_num_map(p6_a15);
1978 ddp_txlv_rec.original_cost := rosetta_g_miss_num_map(p6_a16);
1979 ddp_txlv_rec.current_units := rosetta_g_miss_num_map(p6_a17);
1980 ddp_txlv_rec.manufacturer_name := p6_a18;
1981 ddp_txlv_rec.year_manufactured := rosetta_g_miss_num_map(p6_a19);
1982 ddp_txlv_rec.supplier_id := rosetta_g_miss_num_map(p6_a20);
1983 ddp_txlv_rec.used_asset_yn := p6_a21;
1984 ddp_txlv_rec.tag_number := p6_a22;
1985 ddp_txlv_rec.model_number := p6_a23;
1986 ddp_txlv_rec.corporate_book := p6_a24;
1987 ddp_txlv_rec.date_purchased := rosetta_g_miss_date_in_map(p6_a25);
1988 ddp_txlv_rec.date_delivery := rosetta_g_miss_date_in_map(p6_a26);
1989 ddp_txlv_rec.in_service_date := rosetta_g_miss_date_in_map(p6_a27);
1990 ddp_txlv_rec.life_in_months := rosetta_g_miss_num_map(p6_a28);
1991 ddp_txlv_rec.depreciation_id := rosetta_g_miss_num_map(p6_a29);
1992 ddp_txlv_rec.depreciation_cost := rosetta_g_miss_num_map(p6_a30);
1993 ddp_txlv_rec.deprn_method := p6_a31;
1994 ddp_txlv_rec.deprn_rate := rosetta_g_miss_num_map(p6_a32);
1995 ddp_txlv_rec.salvage_value := rosetta_g_miss_num_map(p6_a33);
1996 ddp_txlv_rec.percent_salvage_value := rosetta_g_miss_num_map(p6_a34);
1997 ddp_txlv_rec.attribute_category := p6_a35;
1998 ddp_txlv_rec.attribute1 := p6_a36;
1999 ddp_txlv_rec.attribute2 := p6_a37;
2000 ddp_txlv_rec.attribute3 := p6_a38;
2001 ddp_txlv_rec.attribute4 := p6_a39;
2002 ddp_txlv_rec.attribute5 := p6_a40;
2003 ddp_txlv_rec.attribute6 := p6_a41;
2004 ddp_txlv_rec.attribute7 := p6_a42;
2005 ddp_txlv_rec.attribute8 := p6_a43;
2006 ddp_txlv_rec.attribute9 := p6_a44;
2007 ddp_txlv_rec.attribute10 := p6_a45;
2008 ddp_txlv_rec.attribute11 := p6_a46;
2009 ddp_txlv_rec.attribute12 := p6_a47;
2010 ddp_txlv_rec.attribute13 := p6_a48;
2011 ddp_txlv_rec.attribute14 := p6_a49;
2012 ddp_txlv_rec.attribute15 := p6_a50;
2013 ddp_txlv_rec.created_by := rosetta_g_miss_num_map(p6_a51);
2014 ddp_txlv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a52);
2015 ddp_txlv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a53);
2016 ddp_txlv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a54);
2017 ddp_txlv_rec.last_update_login := rosetta_g_miss_num_map(p6_a55);
2018 ddp_txlv_rec.depreciate_yn := p6_a56;
2019 ddp_txlv_rec.hold_period_days := rosetta_g_miss_num_map(p6_a57);
2020 ddp_txlv_rec.old_salvage_value := rosetta_g_miss_num_map(p6_a58);
2021 ddp_txlv_rec.new_residual_value := rosetta_g_miss_num_map(p6_a59);
2022 ddp_txlv_rec.old_residual_value := rosetta_g_miss_num_map(p6_a60);
2023 ddp_txlv_rec.units_retired := rosetta_g_miss_num_map(p6_a61);
2024 ddp_txlv_rec.cost_retired := rosetta_g_miss_num_map(p6_a62);
2025 ddp_txlv_rec.sale_proceeds := rosetta_g_miss_num_map(p6_a63);
2026 ddp_txlv_rec.removal_cost := rosetta_g_miss_num_map(p6_a64);
2027 ddp_txlv_rec.dnz_asset_id := rosetta_g_miss_num_map(p6_a65);
2028 ddp_txlv_rec.date_due := rosetta_g_miss_date_in_map(p6_a66);
2029 ddp_txlv_rec.rep_asset_id := rosetta_g_miss_num_map(p6_a67);
2030 ddp_txlv_rec.lke_asset_id := rosetta_g_miss_num_map(p6_a68);
2031 ddp_txlv_rec.match_amount := rosetta_g_miss_num_map(p6_a69);
2032 ddp_txlv_rec.split_into_singles_flag := p6_a70;
2033 ddp_txlv_rec.split_into_units := rosetta_g_miss_num_map(p6_a71);
2034 ddp_txlv_rec.currency_code := p6_a72;
2035 ddp_txlv_rec.currency_conversion_type := p6_a73;
2036 ddp_txlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a74);
2037 ddp_txlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a75);
2038
2039
2040 -- here's the delegated call to the old PL/SQL routine
2041 okl_split_asset_pvt.split_fixed_asset(p_api_version,
2042 p_init_msg_list,
2043 x_return_status,
2044 x_msg_count,
2045 x_msg_data,
2046 ddp_txdv_tbl,
2047 ddp_txlv_rec,
2048 ddx_cle_tbl);
2049
2050 -- copy data back from the local variables to OUT or IN-OUT args, if any
2051
2052
2053
2054
2055
2056
2057
2058 okl_split_asset_pvt_w.rosetta_table_copy_out_p10(ddx_cle_tbl, p7_a0
2059 );
2060 end;
2061
2062 procedure split_fixed_asset(p_api_version NUMBER
2063 , p_init_msg_list VARCHAR2
2064 , x_return_status out nocopy VARCHAR2
2065 , x_msg_count out nocopy NUMBER
2066 , x_msg_data out nocopy VARCHAR2
2067 , p_cle_id NUMBER
2068 , p6_a0 out nocopy JTF_NUMBER_TABLE
2069 )
2070
2071 as
2072 ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
2073 ddindx binary_integer; indx binary_integer;
2074 begin
2075
2076 -- copy data to the local IN or IN-OUT args, if any
2077
2078
2079
2080
2081
2082
2083
2084 -- here's the delegated call to the old PL/SQL routine
2085 okl_split_asset_pvt.split_fixed_asset(p_api_version,
2086 p_init_msg_list,
2087 x_return_status,
2088 x_msg_count,
2089 x_msg_data,
2090 p_cle_id,
2091 ddx_cle_tbl);
2092
2093 -- copy data back from the local variables to OUT or IN-OUT args, if any
2094
2095
2096
2097
2098
2099
2100 okl_split_asset_pvt_w.rosetta_table_copy_out_p10(ddx_cle_tbl, p6_a0
2101 );
2102 end;
2103
2104 procedure create_split_comp_srl_num(p_api_version NUMBER
2105 , p_init_msg_list VARCHAR2
2106 , x_return_status out nocopy VARCHAR2
2107 , x_msg_count out nocopy NUMBER
2108 , x_msg_data out nocopy VARCHAR2
2109 , p5_a0 JTF_NUMBER_TABLE
2110 , p5_a1 JTF_NUMBER_TABLE
2111 , p5_a2 JTF_NUMBER_TABLE
2112 , p5_a3 JTF_NUMBER_TABLE
2113 , p5_a4 JTF_NUMBER_TABLE
2114 , p5_a5 JTF_VARCHAR2_TABLE_100
2115 , p5_a6 JTF_NUMBER_TABLE
2116 , p5_a7 JTF_VARCHAR2_TABLE_100
2117 , p5_a8 JTF_VARCHAR2_TABLE_100
2118 , p5_a9 JTF_VARCHAR2_TABLE_200
2119 , p5_a10 JTF_VARCHAR2_TABLE_100
2120 , p5_a11 JTF_VARCHAR2_TABLE_100
2121 , p5_a12 JTF_VARCHAR2_TABLE_200
2122 , p5_a13 JTF_VARCHAR2_TABLE_100
2123 , p5_a14 JTF_NUMBER_TABLE
2124 , p5_a15 JTF_VARCHAR2_TABLE_100
2125 , p5_a16 JTF_VARCHAR2_TABLE_100
2126 , p5_a17 JTF_NUMBER_TABLE
2127 , p5_a18 JTF_NUMBER_TABLE
2128 , p5_a19 JTF_VARCHAR2_TABLE_100
2129 , p5_a20 JTF_VARCHAR2_TABLE_500
2130 , p5_a21 JTF_VARCHAR2_TABLE_500
2131 , p5_a22 JTF_VARCHAR2_TABLE_500
2132 , p5_a23 JTF_VARCHAR2_TABLE_500
2133 , p5_a24 JTF_VARCHAR2_TABLE_500
2134 , p5_a25 JTF_VARCHAR2_TABLE_500
2135 , p5_a26 JTF_VARCHAR2_TABLE_500
2136 , p5_a27 JTF_VARCHAR2_TABLE_500
2137 , p5_a28 JTF_VARCHAR2_TABLE_500
2138 , p5_a29 JTF_VARCHAR2_TABLE_500
2139 , p5_a30 JTF_VARCHAR2_TABLE_500
2140 , p5_a31 JTF_VARCHAR2_TABLE_500
2141 , p5_a32 JTF_VARCHAR2_TABLE_500
2142 , p5_a33 JTF_VARCHAR2_TABLE_500
2143 , p5_a34 JTF_VARCHAR2_TABLE_500
2144 , p5_a35 JTF_NUMBER_TABLE
2145 , p5_a36 JTF_DATE_TABLE
2146 , p5_a37 JTF_NUMBER_TABLE
2147 , p5_a38 JTF_DATE_TABLE
2148 , p5_a39 JTF_NUMBER_TABLE
2149 , p5_a40 JTF_NUMBER_TABLE
2150 , p5_a41 JTF_NUMBER_TABLE
2151 , p5_a42 JTF_VARCHAR2_TABLE_100
2152 , p5_a43 JTF_NUMBER_TABLE
2153 , p6_a0 out nocopy JTF_NUMBER_TABLE
2154 , p6_a1 out nocopy JTF_NUMBER_TABLE
2155 , p6_a2 out nocopy JTF_NUMBER_TABLE
2156 , p6_a3 out nocopy JTF_NUMBER_TABLE
2157 , p6_a4 out nocopy JTF_NUMBER_TABLE
2158 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
2159 , p6_a6 out nocopy JTF_NUMBER_TABLE
2160 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2161 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
2162 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_200
2163 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2164 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
2165 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_200
2166 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2167 , p6_a14 out nocopy JTF_NUMBER_TABLE
2168 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
2169 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
2170 , p6_a17 out nocopy JTF_NUMBER_TABLE
2171 , p6_a18 out nocopy JTF_NUMBER_TABLE
2172 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
2173 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2174 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2175 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2176 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2177 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2178 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2179 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2180 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2181 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2182 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
2183 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
2184 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
2185 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
2186 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
2187 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
2188 , p6_a35 out nocopy JTF_NUMBER_TABLE
2189 , p6_a36 out nocopy JTF_DATE_TABLE
2190 , p6_a37 out nocopy JTF_NUMBER_TABLE
2191 , p6_a38 out nocopy JTF_DATE_TABLE
2192 , p6_a39 out nocopy JTF_NUMBER_TABLE
2193 , p6_a40 out nocopy JTF_NUMBER_TABLE
2194 , p6_a41 out nocopy JTF_NUMBER_TABLE
2195 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
2196 , p6_a43 out nocopy JTF_NUMBER_TABLE
2197 )
2198
2199 as
2200 ddp_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2201 ddx_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2202 ddindx binary_integer; indx binary_integer;
2203 begin
2204
2205 -- copy data to the local IN or IN-OUT args, if any
2206
2207
2208
2209
2210
2211 okl_iti_pvt_w.rosetta_table_copy_in_p5(ddp_itiv_tbl, p5_a0
2212 , p5_a1
2213 , p5_a2
2214 , p5_a3
2215 , p5_a4
2216 , p5_a5
2217 , p5_a6
2218 , p5_a7
2219 , p5_a8
2220 , p5_a9
2221 , p5_a10
2222 , p5_a11
2223 , p5_a12
2224 , p5_a13
2225 , p5_a14
2226 , p5_a15
2227 , p5_a16
2228 , p5_a17
2229 , p5_a18
2230 , p5_a19
2231 , p5_a20
2232 , p5_a21
2233 , p5_a22
2234 , p5_a23
2235 , p5_a24
2236 , p5_a25
2237 , p5_a26
2238 , p5_a27
2239 , p5_a28
2240 , p5_a29
2241 , p5_a30
2242 , p5_a31
2243 , p5_a32
2244 , p5_a33
2245 , p5_a34
2246 , p5_a35
2247 , p5_a36
2248 , p5_a37
2249 , p5_a38
2250 , p5_a39
2251 , p5_a40
2252 , p5_a41
2253 , p5_a42
2254 , p5_a43
2255 );
2256
2257
2258 -- here's the delegated call to the old PL/SQL routine
2259 okl_split_asset_pvt.create_split_comp_srl_num(p_api_version,
2260 p_init_msg_list,
2261 x_return_status,
2262 x_msg_count,
2263 x_msg_data,
2264 ddp_itiv_tbl,
2265 ddx_itiv_tbl);
2266
2267 -- copy data back from the local variables to OUT or IN-OUT args, if any
2268
2269
2270
2271
2272
2273
2274 okl_iti_pvt_w.rosetta_table_copy_out_p5(ddx_itiv_tbl, p6_a0
2275 , p6_a1
2276 , p6_a2
2277 , p6_a3
2278 , p6_a4
2279 , p6_a5
2280 , p6_a6
2281 , p6_a7
2282 , p6_a8
2283 , p6_a9
2284 , p6_a10
2285 , p6_a11
2286 , p6_a12
2287 , p6_a13
2288 , p6_a14
2289 , p6_a15
2290 , p6_a16
2291 , p6_a17
2292 , p6_a18
2293 , p6_a19
2294 , p6_a20
2295 , p6_a21
2296 , p6_a22
2297 , p6_a23
2298 , p6_a24
2299 , p6_a25
2300 , p6_a26
2301 , p6_a27
2302 , p6_a28
2303 , p6_a29
2304 , p6_a30
2305 , p6_a31
2306 , p6_a32
2307 , p6_a33
2308 , p6_a34
2309 , p6_a35
2310 , p6_a36
2311 , p6_a37
2312 , p6_a38
2313 , p6_a39
2314 , p6_a40
2315 , p6_a41
2316 , p6_a42
2317 , p6_a43
2318 );
2319 end;
2320
2321 end okl_split_asset_pvt_w;