DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_TXL_ASSETS_PUB_W

Source


1 package body okl_txl_assets_pub_w as
2   /* $Header: OKLUTALB.pls 120.3 2007/11/06 07:41:54 veramach 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 create_txl_asset_def(p_api_version  NUMBER
26     , p_init_msg_list  VARCHAR2
27     , x_return_status out nocopy  VARCHAR2
28     , x_msg_count out nocopy  NUMBER
29     , x_msg_data out nocopy  VARCHAR2
30     , p6_a0 out nocopy  NUMBER
31     , p6_a1 out nocopy  NUMBER
32     , p6_a2 out nocopy  VARCHAR2
33     , p6_a3 out nocopy  NUMBER
34     , p6_a4 out nocopy  NUMBER
35     , p6_a5 out nocopy  NUMBER
36     , p6_a6 out nocopy  NUMBER
37     , p6_a7 out nocopy  NUMBER
38     , p6_a8 out nocopy  NUMBER
39     , p6_a9 out nocopy  NUMBER
40     , p6_a10 out nocopy  NUMBER
41     , p6_a11 out nocopy  NUMBER
42     , p6_a12 out nocopy  VARCHAR2
43     , p6_a13 out nocopy  VARCHAR2
44     , p6_a14 out nocopy  VARCHAR2
45     , p6_a15 out nocopy  NUMBER
46     , p6_a16 out nocopy  NUMBER
47     , p6_a17 out nocopy  NUMBER
48     , p6_a18 out nocopy  VARCHAR2
49     , p6_a19 out nocopy  NUMBER
50     , p6_a20 out nocopy  NUMBER
51     , p6_a21 out nocopy  VARCHAR2
52     , p6_a22 out nocopy  VARCHAR2
53     , p6_a23 out nocopy  VARCHAR2
54     , p6_a24 out nocopy  VARCHAR2
55     , p6_a25 out nocopy  DATE
56     , p6_a26 out nocopy  DATE
57     , p6_a27 out nocopy  DATE
58     , p6_a28 out nocopy  NUMBER
59     , p6_a29 out nocopy  NUMBER
60     , p6_a30 out nocopy  NUMBER
61     , p6_a31 out nocopy  VARCHAR2
62     , p6_a32 out nocopy  NUMBER
63     , p6_a33 out nocopy  NUMBER
64     , p6_a34 out nocopy  NUMBER
65     , p6_a35 out nocopy  NUMBER
66     , p6_a36 out nocopy  DATE
67     , p6_a37 out nocopy  NUMBER
68     , p6_a38 out nocopy  VARCHAR2
69     , p6_a39 out nocopy  VARCHAR2
70     , p6_a40 out nocopy  VARCHAR2
71     , p6_a41 out nocopy  VARCHAR2
72     , p6_a42 out nocopy  VARCHAR2
73     , p6_a43 out nocopy  VARCHAR2
74     , p6_a44 out nocopy  VARCHAR2
75     , p6_a45 out nocopy  VARCHAR2
76     , p6_a46 out nocopy  VARCHAR2
77     , p6_a47 out nocopy  VARCHAR2
78     , p6_a48 out nocopy  VARCHAR2
79     , p6_a49 out nocopy  VARCHAR2
80     , p6_a50 out nocopy  VARCHAR2
81     , p6_a51 out nocopy  VARCHAR2
82     , p6_a52 out nocopy  VARCHAR2
83     , p6_a53 out nocopy  VARCHAR2
84     , p6_a54 out nocopy  NUMBER
85     , p6_a55 out nocopy  DATE
86     , p6_a56 out nocopy  NUMBER
87     , p6_a57 out nocopy  DATE
88     , p6_a58 out nocopy  NUMBER
89     , p6_a59 out nocopy  VARCHAR2
90     , p6_a60 out nocopy  NUMBER
91     , p6_a61 out nocopy  NUMBER
92     , p6_a62 out nocopy  NUMBER
93     , p6_a63 out nocopy  NUMBER
94     , p6_a64 out nocopy  NUMBER
95     , p6_a65 out nocopy  NUMBER
96     , p6_a66 out nocopy  NUMBER
97     , p6_a67 out nocopy  NUMBER
98     , p6_a68 out nocopy  NUMBER
99     , p6_a69 out nocopy  DATE
100     , p6_a70 out nocopy  NUMBER
101     , p6_a71 out nocopy  NUMBER
102     , p6_a72 out nocopy  NUMBER
103     , p6_a73 out nocopy  VARCHAR2
104     , p6_a74 out nocopy  NUMBER
105     , p6_a75 out nocopy  VARCHAR2
106     , p6_a76 out nocopy  VARCHAR2
107     , p6_a77 out nocopy  NUMBER
108     , p6_a78 out nocopy  DATE
109     , p6_a79 out nocopy  NUMBER
110     , p6_a80 out nocopy  NUMBER
111     , p6_a81 out nocopy  NUMBER
112     , p5_a0  NUMBER := 0-1962.0724
113     , p5_a1  NUMBER := 0-1962.0724
114     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
115     , p5_a3  NUMBER := 0-1962.0724
116     , p5_a4  NUMBER := 0-1962.0724
117     , p5_a5  NUMBER := 0-1962.0724
118     , p5_a6  NUMBER := 0-1962.0724
119     , p5_a7  NUMBER := 0-1962.0724
120     , p5_a8  NUMBER := 0-1962.0724
121     , p5_a9  NUMBER := 0-1962.0724
122     , p5_a10  NUMBER := 0-1962.0724
123     , p5_a11  NUMBER := 0-1962.0724
124     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
125     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
126     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
127     , p5_a15  NUMBER := 0-1962.0724
128     , p5_a16  NUMBER := 0-1962.0724
129     , p5_a17  NUMBER := 0-1962.0724
130     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
131     , p5_a19  NUMBER := 0-1962.0724
132     , p5_a20  NUMBER := 0-1962.0724
133     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
134     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
135     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
136     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
137     , p5_a25  DATE := fnd_api.g_miss_date
138     , p5_a26  DATE := fnd_api.g_miss_date
139     , p5_a27  DATE := fnd_api.g_miss_date
140     , p5_a28  NUMBER := 0-1962.0724
141     , p5_a29  NUMBER := 0-1962.0724
142     , p5_a30  NUMBER := 0-1962.0724
143     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
144     , p5_a32  NUMBER := 0-1962.0724
145     , p5_a33  NUMBER := 0-1962.0724
146     , p5_a34  NUMBER := 0-1962.0724
147     , p5_a35  NUMBER := 0-1962.0724
148     , p5_a36  DATE := fnd_api.g_miss_date
149     , p5_a37  NUMBER := 0-1962.0724
150     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
151     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
152     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
153     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
154     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
155     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
156     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
157     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
158     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
159     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
160     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
161     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
162     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
163     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
164     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
165     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
166     , p5_a54  NUMBER := 0-1962.0724
167     , p5_a55  DATE := fnd_api.g_miss_date
168     , p5_a56  NUMBER := 0-1962.0724
169     , p5_a57  DATE := fnd_api.g_miss_date
170     , p5_a58  NUMBER := 0-1962.0724
171     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
172     , p5_a60  NUMBER := 0-1962.0724
173     , p5_a61  NUMBER := 0-1962.0724
174     , p5_a62  NUMBER := 0-1962.0724
175     , p5_a63  NUMBER := 0-1962.0724
176     , p5_a64  NUMBER := 0-1962.0724
177     , p5_a65  NUMBER := 0-1962.0724
178     , p5_a66  NUMBER := 0-1962.0724
179     , p5_a67  NUMBER := 0-1962.0724
180     , p5_a68  NUMBER := 0-1962.0724
181     , p5_a69  DATE := fnd_api.g_miss_date
182     , p5_a70  NUMBER := 0-1962.0724
183     , p5_a71  NUMBER := 0-1962.0724
184     , p5_a72  NUMBER := 0-1962.0724
185     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
186     , p5_a74  NUMBER := 0-1962.0724
187     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
188     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
189     , p5_a77  NUMBER := 0-1962.0724
190     , p5_a78  DATE := fnd_api.g_miss_date
191     , p5_a79  NUMBER := 0-1962.0724
192     , p5_a80  NUMBER := 0-1962.0724
193     , p5_a81  NUMBER := 0-1962.0724
194   )
195 
196   as
197     ddp_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
198     ddx_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
199     ddindx binary_integer; indx binary_integer;
200   begin
201 
202     -- copy data to the local IN or IN-OUT args, if any
203 
204 
205 
206 
207 
208     ddp_tlpv_rec.id := rosetta_g_miss_num_map(p5_a0);
209     ddp_tlpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
210     ddp_tlpv_rec.sfwt_flag := p5_a2;
211     ddp_tlpv_rec.tas_id := rosetta_g_miss_num_map(p5_a3);
212     ddp_tlpv_rec.ilo_id := rosetta_g_miss_num_map(p5_a4);
213     ddp_tlpv_rec.ilo_id_old := rosetta_g_miss_num_map(p5_a5);
214     ddp_tlpv_rec.iay_id := rosetta_g_miss_num_map(p5_a6);
215     ddp_tlpv_rec.iay_id_new := rosetta_g_miss_num_map(p5_a7);
216     ddp_tlpv_rec.kle_id := rosetta_g_miss_num_map(p5_a8);
217     ddp_tlpv_rec.dnz_khr_id := rosetta_g_miss_num_map(p5_a9);
218     ddp_tlpv_rec.line_number := rosetta_g_miss_num_map(p5_a10);
219     ddp_tlpv_rec.org_id := rosetta_g_miss_num_map(p5_a11);
220     ddp_tlpv_rec.tal_type := p5_a12;
221     ddp_tlpv_rec.asset_number := p5_a13;
222     ddp_tlpv_rec.description := p5_a14;
223     ddp_tlpv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a15);
224     ddp_tlpv_rec.original_cost := rosetta_g_miss_num_map(p5_a16);
225     ddp_tlpv_rec.current_units := rosetta_g_miss_num_map(p5_a17);
226     ddp_tlpv_rec.manufacturer_name := p5_a18;
227     ddp_tlpv_rec.year_manufactured := rosetta_g_miss_num_map(p5_a19);
228     ddp_tlpv_rec.supplier_id := rosetta_g_miss_num_map(p5_a20);
229     ddp_tlpv_rec.used_asset_yn := p5_a21;
230     ddp_tlpv_rec.tag_number := p5_a22;
231     ddp_tlpv_rec.model_number := p5_a23;
232     ddp_tlpv_rec.corporate_book := p5_a24;
233     ddp_tlpv_rec.date_purchased := rosetta_g_miss_date_in_map(p5_a25);
234     ddp_tlpv_rec.date_delivery := rosetta_g_miss_date_in_map(p5_a26);
235     ddp_tlpv_rec.in_service_date := rosetta_g_miss_date_in_map(p5_a27);
236     ddp_tlpv_rec.life_in_months := rosetta_g_miss_num_map(p5_a28);
237     ddp_tlpv_rec.depreciation_id := rosetta_g_miss_num_map(p5_a29);
238     ddp_tlpv_rec.depreciation_cost := rosetta_g_miss_num_map(p5_a30);
239     ddp_tlpv_rec.deprn_method := p5_a31;
240     ddp_tlpv_rec.deprn_rate := rosetta_g_miss_num_map(p5_a32);
241     ddp_tlpv_rec.salvage_value := rosetta_g_miss_num_map(p5_a33);
242     ddp_tlpv_rec.percent_salvage_value := rosetta_g_miss_num_map(p5_a34);
243     ddp_tlpv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a35);
244     ddp_tlpv_rec.fa_trx_date := rosetta_g_miss_date_in_map(p5_a36);
245     ddp_tlpv_rec.fa_cost := rosetta_g_miss_num_map(p5_a37);
246     ddp_tlpv_rec.attribute_category := p5_a38;
247     ddp_tlpv_rec.attribute1 := p5_a39;
248     ddp_tlpv_rec.attribute2 := p5_a40;
249     ddp_tlpv_rec.attribute3 := p5_a41;
250     ddp_tlpv_rec.attribute4 := p5_a42;
251     ddp_tlpv_rec.attribute5 := p5_a43;
252     ddp_tlpv_rec.attribute6 := p5_a44;
253     ddp_tlpv_rec.attribute7 := p5_a45;
254     ddp_tlpv_rec.attribute8 := p5_a46;
255     ddp_tlpv_rec.attribute9 := p5_a47;
256     ddp_tlpv_rec.attribute10 := p5_a48;
257     ddp_tlpv_rec.attribute11 := p5_a49;
258     ddp_tlpv_rec.attribute12 := p5_a50;
259     ddp_tlpv_rec.attribute13 := p5_a51;
260     ddp_tlpv_rec.attribute14 := p5_a52;
261     ddp_tlpv_rec.attribute15 := p5_a53;
262     ddp_tlpv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
263     ddp_tlpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
264     ddp_tlpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
265     ddp_tlpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
266     ddp_tlpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
267     ddp_tlpv_rec.depreciate_yn := p5_a59;
268     ddp_tlpv_rec.hold_period_days := rosetta_g_miss_num_map(p5_a60);
269     ddp_tlpv_rec.old_salvage_value := rosetta_g_miss_num_map(p5_a61);
270     ddp_tlpv_rec.new_residual_value := rosetta_g_miss_num_map(p5_a62);
271     ddp_tlpv_rec.old_residual_value := rosetta_g_miss_num_map(p5_a63);
272     ddp_tlpv_rec.units_retired := rosetta_g_miss_num_map(p5_a64);
273     ddp_tlpv_rec.cost_retired := rosetta_g_miss_num_map(p5_a65);
274     ddp_tlpv_rec.sale_proceeds := rosetta_g_miss_num_map(p5_a66);
275     ddp_tlpv_rec.removal_cost := rosetta_g_miss_num_map(p5_a67);
276     ddp_tlpv_rec.dnz_asset_id := rosetta_g_miss_num_map(p5_a68);
277     ddp_tlpv_rec.date_due := rosetta_g_miss_date_in_map(p5_a69);
278     ddp_tlpv_rec.rep_asset_id := rosetta_g_miss_num_map(p5_a70);
279     ddp_tlpv_rec.lke_asset_id := rosetta_g_miss_num_map(p5_a71);
280     ddp_tlpv_rec.match_amount := rosetta_g_miss_num_map(p5_a72);
281     ddp_tlpv_rec.split_into_singles_flag := p5_a73;
282     ddp_tlpv_rec.split_into_units := rosetta_g_miss_num_map(p5_a74);
283     ddp_tlpv_rec.currency_code := p5_a75;
284     ddp_tlpv_rec.currency_conversion_type := p5_a76;
285     ddp_tlpv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
286     ddp_tlpv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
287     ddp_tlpv_rec.residual_shr_party_id := rosetta_g_miss_num_map(p5_a79);
288     ddp_tlpv_rec.residual_shr_amount := rosetta_g_miss_num_map(p5_a80);
289     ddp_tlpv_rec.retirement_id := rosetta_g_miss_num_map(p5_a81);
290 
291 
292     -- here's the delegated call to the old PL/SQL routine
293     okl_txl_assets_pub.create_txl_asset_def(p_api_version,
294       p_init_msg_list,
295       x_return_status,
296       x_msg_count,
297       x_msg_data,
298       ddp_tlpv_rec,
299       ddx_tlpv_rec);
300 
301     -- copy data back from the local variables to OUT or IN-OUT args, if any
302 
303 
304 
305 
306 
307 
308     p6_a0 := rosetta_g_miss_num_map(ddx_tlpv_rec.id);
309     p6_a1 := rosetta_g_miss_num_map(ddx_tlpv_rec.object_version_number);
310     p6_a2 := ddx_tlpv_rec.sfwt_flag;
311     p6_a3 := rosetta_g_miss_num_map(ddx_tlpv_rec.tas_id);
312     p6_a4 := rosetta_g_miss_num_map(ddx_tlpv_rec.ilo_id);
313     p6_a5 := rosetta_g_miss_num_map(ddx_tlpv_rec.ilo_id_old);
314     p6_a6 := rosetta_g_miss_num_map(ddx_tlpv_rec.iay_id);
315     p6_a7 := rosetta_g_miss_num_map(ddx_tlpv_rec.iay_id_new);
316     p6_a8 := rosetta_g_miss_num_map(ddx_tlpv_rec.kle_id);
317     p6_a9 := rosetta_g_miss_num_map(ddx_tlpv_rec.dnz_khr_id);
318     p6_a10 := rosetta_g_miss_num_map(ddx_tlpv_rec.line_number);
319     p6_a11 := rosetta_g_miss_num_map(ddx_tlpv_rec.org_id);
320     p6_a12 := ddx_tlpv_rec.tal_type;
321     p6_a13 := ddx_tlpv_rec.asset_number;
322     p6_a14 := ddx_tlpv_rec.description;
323     p6_a15 := rosetta_g_miss_num_map(ddx_tlpv_rec.fa_location_id);
324     p6_a16 := rosetta_g_miss_num_map(ddx_tlpv_rec.original_cost);
325     p6_a17 := rosetta_g_miss_num_map(ddx_tlpv_rec.current_units);
326     p6_a18 := ddx_tlpv_rec.manufacturer_name;
327     p6_a19 := rosetta_g_miss_num_map(ddx_tlpv_rec.year_manufactured);
328     p6_a20 := rosetta_g_miss_num_map(ddx_tlpv_rec.supplier_id);
329     p6_a21 := ddx_tlpv_rec.used_asset_yn;
330     p6_a22 := ddx_tlpv_rec.tag_number;
331     p6_a23 := ddx_tlpv_rec.model_number;
332     p6_a24 := ddx_tlpv_rec.corporate_book;
333     p6_a25 := ddx_tlpv_rec.date_purchased;
334     p6_a26 := ddx_tlpv_rec.date_delivery;
335     p6_a27 := ddx_tlpv_rec.in_service_date;
336     p6_a28 := rosetta_g_miss_num_map(ddx_tlpv_rec.life_in_months);
337     p6_a29 := rosetta_g_miss_num_map(ddx_tlpv_rec.depreciation_id);
338     p6_a30 := rosetta_g_miss_num_map(ddx_tlpv_rec.depreciation_cost);
339     p6_a31 := ddx_tlpv_rec.deprn_method;
340     p6_a32 := rosetta_g_miss_num_map(ddx_tlpv_rec.deprn_rate);
341     p6_a33 := rosetta_g_miss_num_map(ddx_tlpv_rec.salvage_value);
342     p6_a34 := rosetta_g_miss_num_map(ddx_tlpv_rec.percent_salvage_value);
343     p6_a35 := rosetta_g_miss_num_map(ddx_tlpv_rec.asset_key_id);
344     p6_a36 := ddx_tlpv_rec.fa_trx_date;
345     p6_a37 := rosetta_g_miss_num_map(ddx_tlpv_rec.fa_cost);
346     p6_a38 := ddx_tlpv_rec.attribute_category;
347     p6_a39 := ddx_tlpv_rec.attribute1;
348     p6_a40 := ddx_tlpv_rec.attribute2;
349     p6_a41 := ddx_tlpv_rec.attribute3;
350     p6_a42 := ddx_tlpv_rec.attribute4;
351     p6_a43 := ddx_tlpv_rec.attribute5;
352     p6_a44 := ddx_tlpv_rec.attribute6;
353     p6_a45 := ddx_tlpv_rec.attribute7;
354     p6_a46 := ddx_tlpv_rec.attribute8;
355     p6_a47 := ddx_tlpv_rec.attribute9;
356     p6_a48 := ddx_tlpv_rec.attribute10;
357     p6_a49 := ddx_tlpv_rec.attribute11;
358     p6_a50 := ddx_tlpv_rec.attribute12;
359     p6_a51 := ddx_tlpv_rec.attribute13;
360     p6_a52 := ddx_tlpv_rec.attribute14;
361     p6_a53 := ddx_tlpv_rec.attribute15;
362     p6_a54 := rosetta_g_miss_num_map(ddx_tlpv_rec.created_by);
363     p6_a55 := ddx_tlpv_rec.creation_date;
364     p6_a56 := rosetta_g_miss_num_map(ddx_tlpv_rec.last_updated_by);
365     p6_a57 := ddx_tlpv_rec.last_update_date;
366     p6_a58 := rosetta_g_miss_num_map(ddx_tlpv_rec.last_update_login);
367     p6_a59 := ddx_tlpv_rec.depreciate_yn;
368     p6_a60 := rosetta_g_miss_num_map(ddx_tlpv_rec.hold_period_days);
369     p6_a61 := rosetta_g_miss_num_map(ddx_tlpv_rec.old_salvage_value);
370     p6_a62 := rosetta_g_miss_num_map(ddx_tlpv_rec.new_residual_value);
371     p6_a63 := rosetta_g_miss_num_map(ddx_tlpv_rec.old_residual_value);
372     p6_a64 := rosetta_g_miss_num_map(ddx_tlpv_rec.units_retired);
373     p6_a65 := rosetta_g_miss_num_map(ddx_tlpv_rec.cost_retired);
374     p6_a66 := rosetta_g_miss_num_map(ddx_tlpv_rec.sale_proceeds);
375     p6_a67 := rosetta_g_miss_num_map(ddx_tlpv_rec.removal_cost);
376     p6_a68 := rosetta_g_miss_num_map(ddx_tlpv_rec.dnz_asset_id);
377     p6_a69 := ddx_tlpv_rec.date_due;
378     p6_a70 := rosetta_g_miss_num_map(ddx_tlpv_rec.rep_asset_id);
379     p6_a71 := rosetta_g_miss_num_map(ddx_tlpv_rec.lke_asset_id);
380     p6_a72 := rosetta_g_miss_num_map(ddx_tlpv_rec.match_amount);
381     p6_a73 := ddx_tlpv_rec.split_into_singles_flag;
382     p6_a74 := rosetta_g_miss_num_map(ddx_tlpv_rec.split_into_units);
383     p6_a75 := ddx_tlpv_rec.currency_code;
384     p6_a76 := ddx_tlpv_rec.currency_conversion_type;
385     p6_a77 := rosetta_g_miss_num_map(ddx_tlpv_rec.currency_conversion_rate);
386     p6_a78 := ddx_tlpv_rec.currency_conversion_date;
387     p6_a79 := rosetta_g_miss_num_map(ddx_tlpv_rec.residual_shr_party_id);
388     p6_a80 := rosetta_g_miss_num_map(ddx_tlpv_rec.residual_shr_amount);
389     p6_a81 := rosetta_g_miss_num_map(ddx_tlpv_rec.retirement_id);
390   end;
391 
392   procedure create_txl_asset_def(p_api_version  NUMBER
393     , p_init_msg_list  VARCHAR2
394     , x_return_status out nocopy  VARCHAR2
395     , x_msg_count out nocopy  NUMBER
396     , x_msg_data out nocopy  VARCHAR2
397     , p5_a0 JTF_NUMBER_TABLE
398     , p5_a1 JTF_NUMBER_TABLE
399     , p5_a2 JTF_VARCHAR2_TABLE_100
400     , p5_a3 JTF_NUMBER_TABLE
401     , p5_a4 JTF_NUMBER_TABLE
402     , p5_a5 JTF_NUMBER_TABLE
403     , p5_a6 JTF_NUMBER_TABLE
404     , p5_a7 JTF_NUMBER_TABLE
405     , p5_a8 JTF_NUMBER_TABLE
406     , p5_a9 JTF_NUMBER_TABLE
407     , p5_a10 JTF_NUMBER_TABLE
408     , p5_a11 JTF_NUMBER_TABLE
409     , p5_a12 JTF_VARCHAR2_TABLE_100
410     , p5_a13 JTF_VARCHAR2_TABLE_100
411     , p5_a14 JTF_VARCHAR2_TABLE_2000
412     , p5_a15 JTF_NUMBER_TABLE
413     , p5_a16 JTF_NUMBER_TABLE
414     , p5_a17 JTF_NUMBER_TABLE
415     , p5_a18 JTF_VARCHAR2_TABLE_100
416     , p5_a19 JTF_NUMBER_TABLE
417     , p5_a20 JTF_NUMBER_TABLE
418     , p5_a21 JTF_VARCHAR2_TABLE_100
419     , p5_a22 JTF_VARCHAR2_TABLE_100
420     , p5_a23 JTF_VARCHAR2_TABLE_100
421     , p5_a24 JTF_VARCHAR2_TABLE_100
422     , p5_a25 JTF_DATE_TABLE
423     , p5_a26 JTF_DATE_TABLE
424     , p5_a27 JTF_DATE_TABLE
425     , p5_a28 JTF_NUMBER_TABLE
426     , p5_a29 JTF_NUMBER_TABLE
427     , p5_a30 JTF_NUMBER_TABLE
428     , p5_a31 JTF_VARCHAR2_TABLE_100
429     , p5_a32 JTF_NUMBER_TABLE
430     , p5_a33 JTF_NUMBER_TABLE
431     , p5_a34 JTF_NUMBER_TABLE
432     , p5_a35 JTF_NUMBER_TABLE
433     , p5_a36 JTF_DATE_TABLE
434     , p5_a37 JTF_NUMBER_TABLE
435     , p5_a38 JTF_VARCHAR2_TABLE_100
436     , p5_a39 JTF_VARCHAR2_TABLE_500
437     , p5_a40 JTF_VARCHAR2_TABLE_500
438     , p5_a41 JTF_VARCHAR2_TABLE_500
439     , p5_a42 JTF_VARCHAR2_TABLE_500
440     , p5_a43 JTF_VARCHAR2_TABLE_500
441     , p5_a44 JTF_VARCHAR2_TABLE_500
442     , p5_a45 JTF_VARCHAR2_TABLE_500
443     , p5_a46 JTF_VARCHAR2_TABLE_500
444     , p5_a47 JTF_VARCHAR2_TABLE_500
445     , p5_a48 JTF_VARCHAR2_TABLE_500
446     , p5_a49 JTF_VARCHAR2_TABLE_500
447     , p5_a50 JTF_VARCHAR2_TABLE_500
448     , p5_a51 JTF_VARCHAR2_TABLE_500
449     , p5_a52 JTF_VARCHAR2_TABLE_500
450     , p5_a53 JTF_VARCHAR2_TABLE_500
451     , p5_a54 JTF_NUMBER_TABLE
452     , p5_a55 JTF_DATE_TABLE
453     , p5_a56 JTF_NUMBER_TABLE
454     , p5_a57 JTF_DATE_TABLE
455     , p5_a58 JTF_NUMBER_TABLE
456     , p5_a59 JTF_VARCHAR2_TABLE_100
457     , p5_a60 JTF_NUMBER_TABLE
458     , p5_a61 JTF_NUMBER_TABLE
459     , p5_a62 JTF_NUMBER_TABLE
460     , p5_a63 JTF_NUMBER_TABLE
461     , p5_a64 JTF_NUMBER_TABLE
462     , p5_a65 JTF_NUMBER_TABLE
463     , p5_a66 JTF_NUMBER_TABLE
464     , p5_a67 JTF_NUMBER_TABLE
465     , p5_a68 JTF_NUMBER_TABLE
466     , p5_a69 JTF_DATE_TABLE
467     , p5_a70 JTF_NUMBER_TABLE
468     , p5_a71 JTF_NUMBER_TABLE
469     , p5_a72 JTF_NUMBER_TABLE
470     , p5_a73 JTF_VARCHAR2_TABLE_100
471     , p5_a74 JTF_NUMBER_TABLE
472     , p5_a75 JTF_VARCHAR2_TABLE_100
473     , p5_a76 JTF_VARCHAR2_TABLE_100
474     , p5_a77 JTF_NUMBER_TABLE
475     , p5_a78 JTF_DATE_TABLE
476     , p5_a79 JTF_NUMBER_TABLE
477     , p5_a80 JTF_NUMBER_TABLE
478     , p5_a81 JTF_NUMBER_TABLE
479     , p6_a0 out nocopy JTF_NUMBER_TABLE
480     , p6_a1 out nocopy JTF_NUMBER_TABLE
481     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
482     , p6_a3 out nocopy JTF_NUMBER_TABLE
483     , p6_a4 out nocopy JTF_NUMBER_TABLE
484     , p6_a5 out nocopy JTF_NUMBER_TABLE
485     , p6_a6 out nocopy JTF_NUMBER_TABLE
486     , p6_a7 out nocopy JTF_NUMBER_TABLE
487     , p6_a8 out nocopy JTF_NUMBER_TABLE
488     , p6_a9 out nocopy JTF_NUMBER_TABLE
489     , p6_a10 out nocopy JTF_NUMBER_TABLE
490     , p6_a11 out nocopy JTF_NUMBER_TABLE
491     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
492     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
493     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_2000
494     , p6_a15 out nocopy JTF_NUMBER_TABLE
495     , p6_a16 out nocopy JTF_NUMBER_TABLE
496     , p6_a17 out nocopy JTF_NUMBER_TABLE
497     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
498     , p6_a19 out nocopy JTF_NUMBER_TABLE
499     , p6_a20 out nocopy JTF_NUMBER_TABLE
500     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
501     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
502     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
503     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_100
504     , p6_a25 out nocopy JTF_DATE_TABLE
505     , p6_a26 out nocopy JTF_DATE_TABLE
506     , p6_a27 out nocopy JTF_DATE_TABLE
507     , p6_a28 out nocopy JTF_NUMBER_TABLE
508     , p6_a29 out nocopy JTF_NUMBER_TABLE
509     , p6_a30 out nocopy JTF_NUMBER_TABLE
510     , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
511     , p6_a32 out nocopy JTF_NUMBER_TABLE
512     , p6_a33 out nocopy JTF_NUMBER_TABLE
513     , p6_a34 out nocopy JTF_NUMBER_TABLE
514     , p6_a35 out nocopy JTF_NUMBER_TABLE
515     , p6_a36 out nocopy JTF_DATE_TABLE
516     , p6_a37 out nocopy JTF_NUMBER_TABLE
517     , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
518     , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
519     , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
520     , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
521     , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
522     , p6_a43 out nocopy JTF_VARCHAR2_TABLE_500
523     , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
524     , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
525     , p6_a46 out nocopy JTF_VARCHAR2_TABLE_500
526     , p6_a47 out nocopy JTF_VARCHAR2_TABLE_500
527     , p6_a48 out nocopy JTF_VARCHAR2_TABLE_500
528     , p6_a49 out nocopy JTF_VARCHAR2_TABLE_500
529     , p6_a50 out nocopy JTF_VARCHAR2_TABLE_500
530     , p6_a51 out nocopy JTF_VARCHAR2_TABLE_500
531     , p6_a52 out nocopy JTF_VARCHAR2_TABLE_500
532     , p6_a53 out nocopy JTF_VARCHAR2_TABLE_500
533     , p6_a54 out nocopy JTF_NUMBER_TABLE
534     , p6_a55 out nocopy JTF_DATE_TABLE
535     , p6_a56 out nocopy JTF_NUMBER_TABLE
536     , p6_a57 out nocopy JTF_DATE_TABLE
537     , p6_a58 out nocopy JTF_NUMBER_TABLE
538     , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
539     , p6_a60 out nocopy JTF_NUMBER_TABLE
540     , p6_a61 out nocopy JTF_NUMBER_TABLE
541     , p6_a62 out nocopy JTF_NUMBER_TABLE
542     , p6_a63 out nocopy JTF_NUMBER_TABLE
543     , p6_a64 out nocopy JTF_NUMBER_TABLE
544     , p6_a65 out nocopy JTF_NUMBER_TABLE
545     , p6_a66 out nocopy JTF_NUMBER_TABLE
546     , p6_a67 out nocopy JTF_NUMBER_TABLE
547     , p6_a68 out nocopy JTF_NUMBER_TABLE
548     , p6_a69 out nocopy JTF_DATE_TABLE
549     , p6_a70 out nocopy JTF_NUMBER_TABLE
550     , p6_a71 out nocopy JTF_NUMBER_TABLE
551     , p6_a72 out nocopy JTF_NUMBER_TABLE
552     , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
553     , p6_a74 out nocopy JTF_NUMBER_TABLE
554     , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
555     , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
556     , p6_a77 out nocopy JTF_NUMBER_TABLE
557     , p6_a78 out nocopy JTF_DATE_TABLE
558     , p6_a79 out nocopy JTF_NUMBER_TABLE
559     , p6_a80 out nocopy JTF_NUMBER_TABLE
560     , p6_a81 out nocopy JTF_NUMBER_TABLE
561   )
562 
563   as
564     ddp_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
565     ddx_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
566     ddindx binary_integer; indx binary_integer;
567   begin
568 
569     -- copy data to the local IN or IN-OUT args, if any
570 
571 
572 
573 
574 
575     okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_tlpv_tbl, p5_a0
576       , p5_a1
577       , p5_a2
578       , p5_a3
579       , p5_a4
580       , p5_a5
581       , p5_a6
582       , p5_a7
583       , p5_a8
584       , p5_a9
585       , p5_a10
586       , p5_a11
587       , p5_a12
588       , p5_a13
589       , p5_a14
590       , p5_a15
591       , p5_a16
592       , p5_a17
593       , p5_a18
594       , p5_a19
595       , p5_a20
596       , p5_a21
597       , p5_a22
598       , p5_a23
599       , p5_a24
600       , p5_a25
601       , p5_a26
602       , p5_a27
603       , p5_a28
604       , p5_a29
605       , p5_a30
606       , p5_a31
607       , p5_a32
608       , p5_a33
609       , p5_a34
610       , p5_a35
611       , p5_a36
612       , p5_a37
613       , p5_a38
614       , p5_a39
615       , p5_a40
616       , p5_a41
617       , p5_a42
618       , p5_a43
619       , p5_a44
620       , p5_a45
621       , p5_a46
622       , p5_a47
623       , p5_a48
624       , p5_a49
625       , p5_a50
626       , p5_a51
627       , p5_a52
628       , p5_a53
629       , p5_a54
630       , p5_a55
631       , p5_a56
632       , p5_a57
633       , p5_a58
634       , p5_a59
635       , p5_a60
636       , p5_a61
637       , p5_a62
638       , p5_a63
639       , p5_a64
640       , p5_a65
641       , p5_a66
642       , p5_a67
643       , p5_a68
644       , p5_a69
645       , p5_a70
646       , p5_a71
647       , p5_a72
648       , p5_a73
649       , p5_a74
650       , p5_a75
651       , p5_a76
652       , p5_a77
653       , p5_a78
654       , p5_a79
655       , p5_a80
656       , p5_a81
657       );
658 
659 
660     -- here's the delegated call to the old PL/SQL routine
661     okl_txl_assets_pub.create_txl_asset_def(p_api_version,
662       p_init_msg_list,
663       x_return_status,
664       x_msg_count,
665       x_msg_data,
666       ddp_tlpv_tbl,
667       ddx_tlpv_tbl);
668 
669     -- copy data back from the local variables to OUT or IN-OUT args, if any
670 
671 
672 
673 
674 
675 
676     okl_tal_pvt_w.rosetta_table_copy_out_p8(ddx_tlpv_tbl, p6_a0
677       , p6_a1
678       , p6_a2
679       , p6_a3
680       , p6_a4
681       , p6_a5
682       , p6_a6
683       , p6_a7
684       , p6_a8
685       , p6_a9
686       , p6_a10
687       , p6_a11
688       , p6_a12
689       , p6_a13
690       , p6_a14
691       , p6_a15
692       , p6_a16
693       , p6_a17
694       , p6_a18
695       , p6_a19
696       , p6_a20
697       , p6_a21
698       , p6_a22
699       , p6_a23
700       , p6_a24
701       , p6_a25
702       , p6_a26
703       , p6_a27
704       , p6_a28
705       , p6_a29
706       , p6_a30
707       , p6_a31
708       , p6_a32
709       , p6_a33
710       , p6_a34
711       , p6_a35
712       , p6_a36
713       , p6_a37
714       , p6_a38
715       , p6_a39
716       , p6_a40
717       , p6_a41
718       , p6_a42
719       , p6_a43
720       , p6_a44
721       , p6_a45
722       , p6_a46
723       , p6_a47
724       , p6_a48
725       , p6_a49
726       , p6_a50
727       , p6_a51
728       , p6_a52
729       , p6_a53
730       , p6_a54
731       , p6_a55
732       , p6_a56
733       , p6_a57
734       , p6_a58
735       , p6_a59
736       , p6_a60
737       , p6_a61
738       , p6_a62
739       , p6_a63
740       , p6_a64
741       , p6_a65
742       , p6_a66
743       , p6_a67
744       , p6_a68
745       , p6_a69
746       , p6_a70
747       , p6_a71
748       , p6_a72
749       , p6_a73
750       , p6_a74
751       , p6_a75
752       , p6_a76
753       , p6_a77
754       , p6_a78
755       , p6_a79
756       , p6_a80
757       , p6_a81
758       );
759   end;
760 
761   procedure update_txl_asset_def(p_api_version  NUMBER
762     , p_init_msg_list  VARCHAR2
763     , x_return_status out nocopy  VARCHAR2
764     , x_msg_count out nocopy  NUMBER
765     , x_msg_data out nocopy  VARCHAR2
766     , p6_a0 out nocopy  NUMBER
767     , p6_a1 out nocopy  NUMBER
768     , p6_a2 out nocopy  VARCHAR2
769     , p6_a3 out nocopy  NUMBER
770     , p6_a4 out nocopy  NUMBER
771     , p6_a5 out nocopy  NUMBER
772     , p6_a6 out nocopy  NUMBER
773     , p6_a7 out nocopy  NUMBER
774     , p6_a8 out nocopy  NUMBER
775     , p6_a9 out nocopy  NUMBER
776     , p6_a10 out nocopy  NUMBER
777     , p6_a11 out nocopy  NUMBER
778     , p6_a12 out nocopy  VARCHAR2
779     , p6_a13 out nocopy  VARCHAR2
780     , p6_a14 out nocopy  VARCHAR2
781     , p6_a15 out nocopy  NUMBER
782     , p6_a16 out nocopy  NUMBER
783     , p6_a17 out nocopy  NUMBER
784     , p6_a18 out nocopy  VARCHAR2
785     , p6_a19 out nocopy  NUMBER
786     , p6_a20 out nocopy  NUMBER
787     , p6_a21 out nocopy  VARCHAR2
788     , p6_a22 out nocopy  VARCHAR2
789     , p6_a23 out nocopy  VARCHAR2
790     , p6_a24 out nocopy  VARCHAR2
791     , p6_a25 out nocopy  DATE
792     , p6_a26 out nocopy  DATE
793     , p6_a27 out nocopy  DATE
794     , p6_a28 out nocopy  NUMBER
795     , p6_a29 out nocopy  NUMBER
796     , p6_a30 out nocopy  NUMBER
797     , p6_a31 out nocopy  VARCHAR2
798     , p6_a32 out nocopy  NUMBER
799     , p6_a33 out nocopy  NUMBER
800     , p6_a34 out nocopy  NUMBER
801     , p6_a35 out nocopy  NUMBER
802     , p6_a36 out nocopy  DATE
803     , p6_a37 out nocopy  NUMBER
804     , p6_a38 out nocopy  VARCHAR2
805     , p6_a39 out nocopy  VARCHAR2
806     , p6_a40 out nocopy  VARCHAR2
807     , p6_a41 out nocopy  VARCHAR2
808     , p6_a42 out nocopy  VARCHAR2
809     , p6_a43 out nocopy  VARCHAR2
810     , p6_a44 out nocopy  VARCHAR2
811     , p6_a45 out nocopy  VARCHAR2
812     , p6_a46 out nocopy  VARCHAR2
813     , p6_a47 out nocopy  VARCHAR2
814     , p6_a48 out nocopy  VARCHAR2
815     , p6_a49 out nocopy  VARCHAR2
816     , p6_a50 out nocopy  VARCHAR2
817     , p6_a51 out nocopy  VARCHAR2
818     , p6_a52 out nocopy  VARCHAR2
819     , p6_a53 out nocopy  VARCHAR2
820     , p6_a54 out nocopy  NUMBER
821     , p6_a55 out nocopy  DATE
822     , p6_a56 out nocopy  NUMBER
823     , p6_a57 out nocopy  DATE
824     , p6_a58 out nocopy  NUMBER
825     , p6_a59 out nocopy  VARCHAR2
826     , p6_a60 out nocopy  NUMBER
827     , p6_a61 out nocopy  NUMBER
828     , p6_a62 out nocopy  NUMBER
829     , p6_a63 out nocopy  NUMBER
830     , p6_a64 out nocopy  NUMBER
831     , p6_a65 out nocopy  NUMBER
832     , p6_a66 out nocopy  NUMBER
833     , p6_a67 out nocopy  NUMBER
834     , p6_a68 out nocopy  NUMBER
835     , p6_a69 out nocopy  DATE
836     , p6_a70 out nocopy  NUMBER
837     , p6_a71 out nocopy  NUMBER
838     , p6_a72 out nocopy  NUMBER
839     , p6_a73 out nocopy  VARCHAR2
840     , p6_a74 out nocopy  NUMBER
841     , p6_a75 out nocopy  VARCHAR2
842     , p6_a76 out nocopy  VARCHAR2
843     , p6_a77 out nocopy  NUMBER
844     , p6_a78 out nocopy  DATE
845     , p6_a79 out nocopy  NUMBER
846     , p6_a80 out nocopy  NUMBER
847     , p6_a81 out nocopy  NUMBER
848     , p5_a0  NUMBER := 0-1962.0724
849     , p5_a1  NUMBER := 0-1962.0724
850     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
851     , p5_a3  NUMBER := 0-1962.0724
852     , p5_a4  NUMBER := 0-1962.0724
853     , p5_a5  NUMBER := 0-1962.0724
854     , p5_a6  NUMBER := 0-1962.0724
855     , p5_a7  NUMBER := 0-1962.0724
856     , p5_a8  NUMBER := 0-1962.0724
857     , p5_a9  NUMBER := 0-1962.0724
858     , p5_a10  NUMBER := 0-1962.0724
859     , p5_a11  NUMBER := 0-1962.0724
860     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
861     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
862     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
863     , p5_a15  NUMBER := 0-1962.0724
864     , p5_a16  NUMBER := 0-1962.0724
865     , p5_a17  NUMBER := 0-1962.0724
866     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
867     , p5_a19  NUMBER := 0-1962.0724
868     , p5_a20  NUMBER := 0-1962.0724
869     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
870     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
871     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
872     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
873     , p5_a25  DATE := fnd_api.g_miss_date
874     , p5_a26  DATE := fnd_api.g_miss_date
875     , p5_a27  DATE := fnd_api.g_miss_date
876     , p5_a28  NUMBER := 0-1962.0724
877     , p5_a29  NUMBER := 0-1962.0724
878     , p5_a30  NUMBER := 0-1962.0724
879     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
880     , p5_a32  NUMBER := 0-1962.0724
881     , p5_a33  NUMBER := 0-1962.0724
882     , p5_a34  NUMBER := 0-1962.0724
883     , p5_a35  NUMBER := 0-1962.0724
884     , p5_a36  DATE := fnd_api.g_miss_date
885     , p5_a37  NUMBER := 0-1962.0724
886     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
887     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
888     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
889     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
890     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
891     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
892     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
893     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
894     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
895     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
896     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
897     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
898     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
899     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
900     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
901     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
902     , p5_a54  NUMBER := 0-1962.0724
903     , p5_a55  DATE := fnd_api.g_miss_date
904     , p5_a56  NUMBER := 0-1962.0724
905     , p5_a57  DATE := fnd_api.g_miss_date
906     , p5_a58  NUMBER := 0-1962.0724
907     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
908     , p5_a60  NUMBER := 0-1962.0724
909     , p5_a61  NUMBER := 0-1962.0724
910     , p5_a62  NUMBER := 0-1962.0724
911     , p5_a63  NUMBER := 0-1962.0724
912     , p5_a64  NUMBER := 0-1962.0724
913     , p5_a65  NUMBER := 0-1962.0724
914     , p5_a66  NUMBER := 0-1962.0724
915     , p5_a67  NUMBER := 0-1962.0724
916     , p5_a68  NUMBER := 0-1962.0724
917     , p5_a69  DATE := fnd_api.g_miss_date
918     , p5_a70  NUMBER := 0-1962.0724
919     , p5_a71  NUMBER := 0-1962.0724
920     , p5_a72  NUMBER := 0-1962.0724
921     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
922     , p5_a74  NUMBER := 0-1962.0724
923     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
924     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
925     , p5_a77  NUMBER := 0-1962.0724
926     , p5_a78  DATE := fnd_api.g_miss_date
927     , p5_a79  NUMBER := 0-1962.0724
928     , p5_a80  NUMBER := 0-1962.0724
929     , p5_a81  NUMBER := 0-1962.0724
930   )
931 
932   as
933     ddp_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
934     ddx_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
935     ddindx binary_integer; indx binary_integer;
936   begin
937 
938     -- copy data to the local IN or IN-OUT args, if any
939 
940 
941 
942 
943 
944     ddp_tlpv_rec.id := rosetta_g_miss_num_map(p5_a0);
945     ddp_tlpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
946     ddp_tlpv_rec.sfwt_flag := p5_a2;
947     ddp_tlpv_rec.tas_id := rosetta_g_miss_num_map(p5_a3);
948     ddp_tlpv_rec.ilo_id := rosetta_g_miss_num_map(p5_a4);
949     ddp_tlpv_rec.ilo_id_old := rosetta_g_miss_num_map(p5_a5);
950     ddp_tlpv_rec.iay_id := rosetta_g_miss_num_map(p5_a6);
951     ddp_tlpv_rec.iay_id_new := rosetta_g_miss_num_map(p5_a7);
952     ddp_tlpv_rec.kle_id := rosetta_g_miss_num_map(p5_a8);
953     ddp_tlpv_rec.dnz_khr_id := rosetta_g_miss_num_map(p5_a9);
954     ddp_tlpv_rec.line_number := rosetta_g_miss_num_map(p5_a10);
955     ddp_tlpv_rec.org_id := rosetta_g_miss_num_map(p5_a11);
956     ddp_tlpv_rec.tal_type := p5_a12;
957     ddp_tlpv_rec.asset_number := p5_a13;
958     ddp_tlpv_rec.description := p5_a14;
959     ddp_tlpv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a15);
960     ddp_tlpv_rec.original_cost := rosetta_g_miss_num_map(p5_a16);
961     ddp_tlpv_rec.current_units := rosetta_g_miss_num_map(p5_a17);
962     ddp_tlpv_rec.manufacturer_name := p5_a18;
963     ddp_tlpv_rec.year_manufactured := rosetta_g_miss_num_map(p5_a19);
964     ddp_tlpv_rec.supplier_id := rosetta_g_miss_num_map(p5_a20);
965     ddp_tlpv_rec.used_asset_yn := p5_a21;
966     ddp_tlpv_rec.tag_number := p5_a22;
967     ddp_tlpv_rec.model_number := p5_a23;
968     ddp_tlpv_rec.corporate_book := p5_a24;
969     ddp_tlpv_rec.date_purchased := rosetta_g_miss_date_in_map(p5_a25);
970     ddp_tlpv_rec.date_delivery := rosetta_g_miss_date_in_map(p5_a26);
971     ddp_tlpv_rec.in_service_date := rosetta_g_miss_date_in_map(p5_a27);
972     ddp_tlpv_rec.life_in_months := rosetta_g_miss_num_map(p5_a28);
973     ddp_tlpv_rec.depreciation_id := rosetta_g_miss_num_map(p5_a29);
974     ddp_tlpv_rec.depreciation_cost := rosetta_g_miss_num_map(p5_a30);
975     ddp_tlpv_rec.deprn_method := p5_a31;
976     ddp_tlpv_rec.deprn_rate := rosetta_g_miss_num_map(p5_a32);
977     ddp_tlpv_rec.salvage_value := rosetta_g_miss_num_map(p5_a33);
978     ddp_tlpv_rec.percent_salvage_value := rosetta_g_miss_num_map(p5_a34);
979     ddp_tlpv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a35);
980     ddp_tlpv_rec.fa_trx_date := rosetta_g_miss_date_in_map(p5_a36);
981     ddp_tlpv_rec.fa_cost := rosetta_g_miss_num_map(p5_a37);
982     ddp_tlpv_rec.attribute_category := p5_a38;
983     ddp_tlpv_rec.attribute1 := p5_a39;
984     ddp_tlpv_rec.attribute2 := p5_a40;
985     ddp_tlpv_rec.attribute3 := p5_a41;
986     ddp_tlpv_rec.attribute4 := p5_a42;
987     ddp_tlpv_rec.attribute5 := p5_a43;
988     ddp_tlpv_rec.attribute6 := p5_a44;
989     ddp_tlpv_rec.attribute7 := p5_a45;
990     ddp_tlpv_rec.attribute8 := p5_a46;
991     ddp_tlpv_rec.attribute9 := p5_a47;
992     ddp_tlpv_rec.attribute10 := p5_a48;
993     ddp_tlpv_rec.attribute11 := p5_a49;
994     ddp_tlpv_rec.attribute12 := p5_a50;
995     ddp_tlpv_rec.attribute13 := p5_a51;
996     ddp_tlpv_rec.attribute14 := p5_a52;
997     ddp_tlpv_rec.attribute15 := p5_a53;
998     ddp_tlpv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
999     ddp_tlpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
1000     ddp_tlpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
1001     ddp_tlpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
1002     ddp_tlpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
1003     ddp_tlpv_rec.depreciate_yn := p5_a59;
1004     ddp_tlpv_rec.hold_period_days := rosetta_g_miss_num_map(p5_a60);
1005     ddp_tlpv_rec.old_salvage_value := rosetta_g_miss_num_map(p5_a61);
1006     ddp_tlpv_rec.new_residual_value := rosetta_g_miss_num_map(p5_a62);
1007     ddp_tlpv_rec.old_residual_value := rosetta_g_miss_num_map(p5_a63);
1008     ddp_tlpv_rec.units_retired := rosetta_g_miss_num_map(p5_a64);
1009     ddp_tlpv_rec.cost_retired := rosetta_g_miss_num_map(p5_a65);
1010     ddp_tlpv_rec.sale_proceeds := rosetta_g_miss_num_map(p5_a66);
1011     ddp_tlpv_rec.removal_cost := rosetta_g_miss_num_map(p5_a67);
1012     ddp_tlpv_rec.dnz_asset_id := rosetta_g_miss_num_map(p5_a68);
1013     ddp_tlpv_rec.date_due := rosetta_g_miss_date_in_map(p5_a69);
1014     ddp_tlpv_rec.rep_asset_id := rosetta_g_miss_num_map(p5_a70);
1015     ddp_tlpv_rec.lke_asset_id := rosetta_g_miss_num_map(p5_a71);
1016     ddp_tlpv_rec.match_amount := rosetta_g_miss_num_map(p5_a72);
1017     ddp_tlpv_rec.split_into_singles_flag := p5_a73;
1018     ddp_tlpv_rec.split_into_units := rosetta_g_miss_num_map(p5_a74);
1019     ddp_tlpv_rec.currency_code := p5_a75;
1020     ddp_tlpv_rec.currency_conversion_type := p5_a76;
1021     ddp_tlpv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
1022     ddp_tlpv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
1023     ddp_tlpv_rec.residual_shr_party_id := rosetta_g_miss_num_map(p5_a79);
1024     ddp_tlpv_rec.residual_shr_amount := rosetta_g_miss_num_map(p5_a80);
1025     ddp_tlpv_rec.retirement_id := rosetta_g_miss_num_map(p5_a81);
1026 
1027 
1028     -- here's the delegated call to the old PL/SQL routine
1029     okl_txl_assets_pub.update_txl_asset_def(p_api_version,
1030       p_init_msg_list,
1031       x_return_status,
1032       x_msg_count,
1033       x_msg_data,
1034       ddp_tlpv_rec,
1035       ddx_tlpv_rec);
1036 
1037     -- copy data back from the local variables to OUT or IN-OUT args, if any
1038 
1039 
1040 
1041 
1042 
1043 
1044     p6_a0 := rosetta_g_miss_num_map(ddx_tlpv_rec.id);
1045     p6_a1 := rosetta_g_miss_num_map(ddx_tlpv_rec.object_version_number);
1046     p6_a2 := ddx_tlpv_rec.sfwt_flag;
1047     p6_a3 := rosetta_g_miss_num_map(ddx_tlpv_rec.tas_id);
1048     p6_a4 := rosetta_g_miss_num_map(ddx_tlpv_rec.ilo_id);
1049     p6_a5 := rosetta_g_miss_num_map(ddx_tlpv_rec.ilo_id_old);
1050     p6_a6 := rosetta_g_miss_num_map(ddx_tlpv_rec.iay_id);
1051     p6_a7 := rosetta_g_miss_num_map(ddx_tlpv_rec.iay_id_new);
1052     p6_a8 := rosetta_g_miss_num_map(ddx_tlpv_rec.kle_id);
1053     p6_a9 := rosetta_g_miss_num_map(ddx_tlpv_rec.dnz_khr_id);
1054     p6_a10 := rosetta_g_miss_num_map(ddx_tlpv_rec.line_number);
1055     p6_a11 := rosetta_g_miss_num_map(ddx_tlpv_rec.org_id);
1056     p6_a12 := ddx_tlpv_rec.tal_type;
1057     p6_a13 := ddx_tlpv_rec.asset_number;
1058     p6_a14 := ddx_tlpv_rec.description;
1059     p6_a15 := rosetta_g_miss_num_map(ddx_tlpv_rec.fa_location_id);
1060     p6_a16 := rosetta_g_miss_num_map(ddx_tlpv_rec.original_cost);
1061     p6_a17 := rosetta_g_miss_num_map(ddx_tlpv_rec.current_units);
1062     p6_a18 := ddx_tlpv_rec.manufacturer_name;
1063     p6_a19 := rosetta_g_miss_num_map(ddx_tlpv_rec.year_manufactured);
1064     p6_a20 := rosetta_g_miss_num_map(ddx_tlpv_rec.supplier_id);
1065     p6_a21 := ddx_tlpv_rec.used_asset_yn;
1066     p6_a22 := ddx_tlpv_rec.tag_number;
1067     p6_a23 := ddx_tlpv_rec.model_number;
1068     p6_a24 := ddx_tlpv_rec.corporate_book;
1069     p6_a25 := ddx_tlpv_rec.date_purchased;
1070     p6_a26 := ddx_tlpv_rec.date_delivery;
1071     p6_a27 := ddx_tlpv_rec.in_service_date;
1072     p6_a28 := rosetta_g_miss_num_map(ddx_tlpv_rec.life_in_months);
1073     p6_a29 := rosetta_g_miss_num_map(ddx_tlpv_rec.depreciation_id);
1074     p6_a30 := rosetta_g_miss_num_map(ddx_tlpv_rec.depreciation_cost);
1075     p6_a31 := ddx_tlpv_rec.deprn_method;
1076     p6_a32 := rosetta_g_miss_num_map(ddx_tlpv_rec.deprn_rate);
1077     p6_a33 := rosetta_g_miss_num_map(ddx_tlpv_rec.salvage_value);
1078     p6_a34 := rosetta_g_miss_num_map(ddx_tlpv_rec.percent_salvage_value);
1079     p6_a35 := rosetta_g_miss_num_map(ddx_tlpv_rec.asset_key_id);
1080     p6_a36 := ddx_tlpv_rec.fa_trx_date;
1081     p6_a37 := rosetta_g_miss_num_map(ddx_tlpv_rec.fa_cost);
1082     p6_a38 := ddx_tlpv_rec.attribute_category;
1083     p6_a39 := ddx_tlpv_rec.attribute1;
1084     p6_a40 := ddx_tlpv_rec.attribute2;
1085     p6_a41 := ddx_tlpv_rec.attribute3;
1086     p6_a42 := ddx_tlpv_rec.attribute4;
1087     p6_a43 := ddx_tlpv_rec.attribute5;
1088     p6_a44 := ddx_tlpv_rec.attribute6;
1089     p6_a45 := ddx_tlpv_rec.attribute7;
1090     p6_a46 := ddx_tlpv_rec.attribute8;
1091     p6_a47 := ddx_tlpv_rec.attribute9;
1092     p6_a48 := ddx_tlpv_rec.attribute10;
1093     p6_a49 := ddx_tlpv_rec.attribute11;
1094     p6_a50 := ddx_tlpv_rec.attribute12;
1095     p6_a51 := ddx_tlpv_rec.attribute13;
1096     p6_a52 := ddx_tlpv_rec.attribute14;
1097     p6_a53 := ddx_tlpv_rec.attribute15;
1098     p6_a54 := rosetta_g_miss_num_map(ddx_tlpv_rec.created_by);
1099     p6_a55 := ddx_tlpv_rec.creation_date;
1100     p6_a56 := rosetta_g_miss_num_map(ddx_tlpv_rec.last_updated_by);
1101     p6_a57 := ddx_tlpv_rec.last_update_date;
1102     p6_a58 := rosetta_g_miss_num_map(ddx_tlpv_rec.last_update_login);
1103     p6_a59 := ddx_tlpv_rec.depreciate_yn;
1104     p6_a60 := rosetta_g_miss_num_map(ddx_tlpv_rec.hold_period_days);
1105     p6_a61 := rosetta_g_miss_num_map(ddx_tlpv_rec.old_salvage_value);
1106     p6_a62 := rosetta_g_miss_num_map(ddx_tlpv_rec.new_residual_value);
1107     p6_a63 := rosetta_g_miss_num_map(ddx_tlpv_rec.old_residual_value);
1108     p6_a64 := rosetta_g_miss_num_map(ddx_tlpv_rec.units_retired);
1109     p6_a65 := rosetta_g_miss_num_map(ddx_tlpv_rec.cost_retired);
1110     p6_a66 := rosetta_g_miss_num_map(ddx_tlpv_rec.sale_proceeds);
1111     p6_a67 := rosetta_g_miss_num_map(ddx_tlpv_rec.removal_cost);
1112     p6_a68 := rosetta_g_miss_num_map(ddx_tlpv_rec.dnz_asset_id);
1113     p6_a69 := ddx_tlpv_rec.date_due;
1114     p6_a70 := rosetta_g_miss_num_map(ddx_tlpv_rec.rep_asset_id);
1115     p6_a71 := rosetta_g_miss_num_map(ddx_tlpv_rec.lke_asset_id);
1116     p6_a72 := rosetta_g_miss_num_map(ddx_tlpv_rec.match_amount);
1117     p6_a73 := ddx_tlpv_rec.split_into_singles_flag;
1118     p6_a74 := rosetta_g_miss_num_map(ddx_tlpv_rec.split_into_units);
1119     p6_a75 := ddx_tlpv_rec.currency_code;
1120     p6_a76 := ddx_tlpv_rec.currency_conversion_type;
1121     p6_a77 := rosetta_g_miss_num_map(ddx_tlpv_rec.currency_conversion_rate);
1122     p6_a78 := ddx_tlpv_rec.currency_conversion_date;
1123     p6_a79 := rosetta_g_miss_num_map(ddx_tlpv_rec.residual_shr_party_id);
1124     p6_a80 := rosetta_g_miss_num_map(ddx_tlpv_rec.residual_shr_amount);
1125     p6_a81 := rosetta_g_miss_num_map(ddx_tlpv_rec.retirement_id);
1126   end;
1127 
1128   procedure update_txl_asset_def(p_api_version  NUMBER
1129     , p_init_msg_list  VARCHAR2
1130     , x_return_status out nocopy  VARCHAR2
1131     , x_msg_count out nocopy  NUMBER
1132     , x_msg_data out nocopy  VARCHAR2
1133     , p5_a0 JTF_NUMBER_TABLE
1134     , p5_a1 JTF_NUMBER_TABLE
1135     , p5_a2 JTF_VARCHAR2_TABLE_100
1136     , p5_a3 JTF_NUMBER_TABLE
1137     , p5_a4 JTF_NUMBER_TABLE
1138     , p5_a5 JTF_NUMBER_TABLE
1139     , p5_a6 JTF_NUMBER_TABLE
1140     , p5_a7 JTF_NUMBER_TABLE
1141     , p5_a8 JTF_NUMBER_TABLE
1142     , p5_a9 JTF_NUMBER_TABLE
1143     , p5_a10 JTF_NUMBER_TABLE
1144     , p5_a11 JTF_NUMBER_TABLE
1145     , p5_a12 JTF_VARCHAR2_TABLE_100
1146     , p5_a13 JTF_VARCHAR2_TABLE_100
1147     , p5_a14 JTF_VARCHAR2_TABLE_2000
1148     , p5_a15 JTF_NUMBER_TABLE
1149     , p5_a16 JTF_NUMBER_TABLE
1150     , p5_a17 JTF_NUMBER_TABLE
1151     , p5_a18 JTF_VARCHAR2_TABLE_100
1152     , p5_a19 JTF_NUMBER_TABLE
1153     , p5_a20 JTF_NUMBER_TABLE
1154     , p5_a21 JTF_VARCHAR2_TABLE_100
1155     , p5_a22 JTF_VARCHAR2_TABLE_100
1156     , p5_a23 JTF_VARCHAR2_TABLE_100
1157     , p5_a24 JTF_VARCHAR2_TABLE_100
1158     , p5_a25 JTF_DATE_TABLE
1159     , p5_a26 JTF_DATE_TABLE
1160     , p5_a27 JTF_DATE_TABLE
1161     , p5_a28 JTF_NUMBER_TABLE
1162     , p5_a29 JTF_NUMBER_TABLE
1163     , p5_a30 JTF_NUMBER_TABLE
1164     , p5_a31 JTF_VARCHAR2_TABLE_100
1165     , p5_a32 JTF_NUMBER_TABLE
1166     , p5_a33 JTF_NUMBER_TABLE
1167     , p5_a34 JTF_NUMBER_TABLE
1168     , p5_a35 JTF_NUMBER_TABLE
1169     , p5_a36 JTF_DATE_TABLE
1170     , p5_a37 JTF_NUMBER_TABLE
1171     , p5_a38 JTF_VARCHAR2_TABLE_100
1172     , p5_a39 JTF_VARCHAR2_TABLE_500
1173     , p5_a40 JTF_VARCHAR2_TABLE_500
1174     , p5_a41 JTF_VARCHAR2_TABLE_500
1175     , p5_a42 JTF_VARCHAR2_TABLE_500
1176     , p5_a43 JTF_VARCHAR2_TABLE_500
1177     , p5_a44 JTF_VARCHAR2_TABLE_500
1178     , p5_a45 JTF_VARCHAR2_TABLE_500
1179     , p5_a46 JTF_VARCHAR2_TABLE_500
1180     , p5_a47 JTF_VARCHAR2_TABLE_500
1181     , p5_a48 JTF_VARCHAR2_TABLE_500
1182     , p5_a49 JTF_VARCHAR2_TABLE_500
1183     , p5_a50 JTF_VARCHAR2_TABLE_500
1184     , p5_a51 JTF_VARCHAR2_TABLE_500
1185     , p5_a52 JTF_VARCHAR2_TABLE_500
1186     , p5_a53 JTF_VARCHAR2_TABLE_500
1187     , p5_a54 JTF_NUMBER_TABLE
1188     , p5_a55 JTF_DATE_TABLE
1189     , p5_a56 JTF_NUMBER_TABLE
1190     , p5_a57 JTF_DATE_TABLE
1191     , p5_a58 JTF_NUMBER_TABLE
1192     , p5_a59 JTF_VARCHAR2_TABLE_100
1193     , p5_a60 JTF_NUMBER_TABLE
1194     , p5_a61 JTF_NUMBER_TABLE
1195     , p5_a62 JTF_NUMBER_TABLE
1196     , p5_a63 JTF_NUMBER_TABLE
1197     , p5_a64 JTF_NUMBER_TABLE
1198     , p5_a65 JTF_NUMBER_TABLE
1199     , p5_a66 JTF_NUMBER_TABLE
1200     , p5_a67 JTF_NUMBER_TABLE
1201     , p5_a68 JTF_NUMBER_TABLE
1202     , p5_a69 JTF_DATE_TABLE
1203     , p5_a70 JTF_NUMBER_TABLE
1204     , p5_a71 JTF_NUMBER_TABLE
1205     , p5_a72 JTF_NUMBER_TABLE
1206     , p5_a73 JTF_VARCHAR2_TABLE_100
1207     , p5_a74 JTF_NUMBER_TABLE
1208     , p5_a75 JTF_VARCHAR2_TABLE_100
1209     , p5_a76 JTF_VARCHAR2_TABLE_100
1210     , p5_a77 JTF_NUMBER_TABLE
1211     , p5_a78 JTF_DATE_TABLE
1212     , p5_a79 JTF_NUMBER_TABLE
1213     , p5_a80 JTF_NUMBER_TABLE
1214     , p5_a81 JTF_NUMBER_TABLE
1215     , p6_a0 out nocopy JTF_NUMBER_TABLE
1216     , p6_a1 out nocopy JTF_NUMBER_TABLE
1217     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1218     , p6_a3 out nocopy JTF_NUMBER_TABLE
1219     , p6_a4 out nocopy JTF_NUMBER_TABLE
1220     , p6_a5 out nocopy JTF_NUMBER_TABLE
1221     , p6_a6 out nocopy JTF_NUMBER_TABLE
1222     , p6_a7 out nocopy JTF_NUMBER_TABLE
1223     , p6_a8 out nocopy JTF_NUMBER_TABLE
1224     , p6_a9 out nocopy JTF_NUMBER_TABLE
1225     , p6_a10 out nocopy JTF_NUMBER_TABLE
1226     , p6_a11 out nocopy JTF_NUMBER_TABLE
1227     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1228     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1229     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_2000
1230     , p6_a15 out nocopy JTF_NUMBER_TABLE
1231     , p6_a16 out nocopy JTF_NUMBER_TABLE
1232     , p6_a17 out nocopy JTF_NUMBER_TABLE
1233     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
1234     , p6_a19 out nocopy JTF_NUMBER_TABLE
1235     , p6_a20 out nocopy JTF_NUMBER_TABLE
1236     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
1237     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
1238     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
1239     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_100
1240     , p6_a25 out nocopy JTF_DATE_TABLE
1241     , p6_a26 out nocopy JTF_DATE_TABLE
1242     , p6_a27 out nocopy JTF_DATE_TABLE
1243     , p6_a28 out nocopy JTF_NUMBER_TABLE
1244     , p6_a29 out nocopy JTF_NUMBER_TABLE
1245     , p6_a30 out nocopy JTF_NUMBER_TABLE
1246     , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
1247     , p6_a32 out nocopy JTF_NUMBER_TABLE
1248     , p6_a33 out nocopy JTF_NUMBER_TABLE
1249     , p6_a34 out nocopy JTF_NUMBER_TABLE
1250     , p6_a35 out nocopy JTF_NUMBER_TABLE
1251     , p6_a36 out nocopy JTF_DATE_TABLE
1252     , p6_a37 out nocopy JTF_NUMBER_TABLE
1253     , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
1254     , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
1255     , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
1256     , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
1257     , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
1258     , p6_a43 out nocopy JTF_VARCHAR2_TABLE_500
1259     , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
1260     , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
1261     , p6_a46 out nocopy JTF_VARCHAR2_TABLE_500
1262     , p6_a47 out nocopy JTF_VARCHAR2_TABLE_500
1263     , p6_a48 out nocopy JTF_VARCHAR2_TABLE_500
1264     , p6_a49 out nocopy JTF_VARCHAR2_TABLE_500
1265     , p6_a50 out nocopy JTF_VARCHAR2_TABLE_500
1266     , p6_a51 out nocopy JTF_VARCHAR2_TABLE_500
1267     , p6_a52 out nocopy JTF_VARCHAR2_TABLE_500
1268     , p6_a53 out nocopy JTF_VARCHAR2_TABLE_500
1269     , p6_a54 out nocopy JTF_NUMBER_TABLE
1270     , p6_a55 out nocopy JTF_DATE_TABLE
1271     , p6_a56 out nocopy JTF_NUMBER_TABLE
1272     , p6_a57 out nocopy JTF_DATE_TABLE
1273     , p6_a58 out nocopy JTF_NUMBER_TABLE
1274     , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
1275     , p6_a60 out nocopy JTF_NUMBER_TABLE
1276     , p6_a61 out nocopy JTF_NUMBER_TABLE
1277     , p6_a62 out nocopy JTF_NUMBER_TABLE
1278     , p6_a63 out nocopy JTF_NUMBER_TABLE
1279     , p6_a64 out nocopy JTF_NUMBER_TABLE
1280     , p6_a65 out nocopy JTF_NUMBER_TABLE
1281     , p6_a66 out nocopy JTF_NUMBER_TABLE
1282     , p6_a67 out nocopy JTF_NUMBER_TABLE
1283     , p6_a68 out nocopy JTF_NUMBER_TABLE
1284     , p6_a69 out nocopy JTF_DATE_TABLE
1285     , p6_a70 out nocopy JTF_NUMBER_TABLE
1286     , p6_a71 out nocopy JTF_NUMBER_TABLE
1287     , p6_a72 out nocopy JTF_NUMBER_TABLE
1288     , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
1289     , p6_a74 out nocopy JTF_NUMBER_TABLE
1290     , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
1291     , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
1292     , p6_a77 out nocopy JTF_NUMBER_TABLE
1293     , p6_a78 out nocopy JTF_DATE_TABLE
1294     , p6_a79 out nocopy JTF_NUMBER_TABLE
1295     , p6_a80 out nocopy JTF_NUMBER_TABLE
1296     , p6_a81 out nocopy JTF_NUMBER_TABLE
1297   )
1298 
1299   as
1300     ddp_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
1301     ddx_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
1302     ddindx binary_integer; indx binary_integer;
1303   begin
1304 
1305     -- copy data to the local IN or IN-OUT args, if any
1306 
1307 
1308 
1309 
1310 
1311     okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_tlpv_tbl, p5_a0
1312       , p5_a1
1313       , p5_a2
1314       , p5_a3
1315       , p5_a4
1316       , p5_a5
1317       , p5_a6
1318       , p5_a7
1319       , p5_a8
1320       , p5_a9
1321       , p5_a10
1322       , p5_a11
1323       , p5_a12
1324       , p5_a13
1325       , p5_a14
1326       , p5_a15
1327       , p5_a16
1328       , p5_a17
1329       , p5_a18
1330       , p5_a19
1331       , p5_a20
1332       , p5_a21
1333       , p5_a22
1334       , p5_a23
1335       , p5_a24
1336       , p5_a25
1337       , p5_a26
1338       , p5_a27
1339       , p5_a28
1340       , p5_a29
1341       , p5_a30
1342       , p5_a31
1343       , p5_a32
1344       , p5_a33
1345       , p5_a34
1346       , p5_a35
1347       , p5_a36
1348       , p5_a37
1349       , p5_a38
1350       , p5_a39
1351       , p5_a40
1352       , p5_a41
1353       , p5_a42
1354       , p5_a43
1355       , p5_a44
1356       , p5_a45
1357       , p5_a46
1358       , p5_a47
1359       , p5_a48
1360       , p5_a49
1361       , p5_a50
1362       , p5_a51
1363       , p5_a52
1364       , p5_a53
1365       , p5_a54
1366       , p5_a55
1367       , p5_a56
1368       , p5_a57
1369       , p5_a58
1370       , p5_a59
1371       , p5_a60
1372       , p5_a61
1373       , p5_a62
1374       , p5_a63
1375       , p5_a64
1376       , p5_a65
1377       , p5_a66
1378       , p5_a67
1379       , p5_a68
1380       , p5_a69
1381       , p5_a70
1382       , p5_a71
1383       , p5_a72
1384       , p5_a73
1385       , p5_a74
1386       , p5_a75
1387       , p5_a76
1388       , p5_a77
1389       , p5_a78
1390       , p5_a79
1391       , p5_a80
1392       , p5_a81
1393       );
1394 
1395 
1396     -- here's the delegated call to the old PL/SQL routine
1397     okl_txl_assets_pub.update_txl_asset_def(p_api_version,
1398       p_init_msg_list,
1399       x_return_status,
1400       x_msg_count,
1401       x_msg_data,
1402       ddp_tlpv_tbl,
1403       ddx_tlpv_tbl);
1404 
1405     -- copy data back from the local variables to OUT or IN-OUT args, if any
1406 
1407 
1408 
1409 
1410 
1411 
1412     okl_tal_pvt_w.rosetta_table_copy_out_p8(ddx_tlpv_tbl, p6_a0
1413       , p6_a1
1414       , p6_a2
1415       , p6_a3
1416       , p6_a4
1417       , p6_a5
1418       , p6_a6
1419       , p6_a7
1420       , p6_a8
1421       , p6_a9
1422       , p6_a10
1423       , p6_a11
1424       , p6_a12
1425       , p6_a13
1426       , p6_a14
1427       , p6_a15
1428       , p6_a16
1429       , p6_a17
1430       , p6_a18
1431       , p6_a19
1432       , p6_a20
1433       , p6_a21
1434       , p6_a22
1435       , p6_a23
1436       , p6_a24
1437       , p6_a25
1438       , p6_a26
1439       , p6_a27
1440       , p6_a28
1441       , p6_a29
1442       , p6_a30
1443       , p6_a31
1444       , p6_a32
1445       , p6_a33
1446       , p6_a34
1447       , p6_a35
1448       , p6_a36
1449       , p6_a37
1450       , p6_a38
1451       , p6_a39
1452       , p6_a40
1453       , p6_a41
1454       , p6_a42
1455       , p6_a43
1456       , p6_a44
1457       , p6_a45
1458       , p6_a46
1459       , p6_a47
1460       , p6_a48
1461       , p6_a49
1462       , p6_a50
1463       , p6_a51
1464       , p6_a52
1465       , p6_a53
1466       , p6_a54
1467       , p6_a55
1468       , p6_a56
1469       , p6_a57
1470       , p6_a58
1471       , p6_a59
1472       , p6_a60
1473       , p6_a61
1474       , p6_a62
1475       , p6_a63
1476       , p6_a64
1477       , p6_a65
1478       , p6_a66
1479       , p6_a67
1480       , p6_a68
1481       , p6_a69
1482       , p6_a70
1483       , p6_a71
1484       , p6_a72
1485       , p6_a73
1486       , p6_a74
1487       , p6_a75
1488       , p6_a76
1489       , p6_a77
1490       , p6_a78
1491       , p6_a79
1492       , p6_a80
1493       , p6_a81
1494       );
1495   end;
1496 
1497   procedure delete_txl_asset_def(p_api_version  NUMBER
1498     , p_init_msg_list  VARCHAR2
1499     , x_return_status out nocopy  VARCHAR2
1500     , x_msg_count out nocopy  NUMBER
1501     , x_msg_data out nocopy  VARCHAR2
1502     , p5_a0  NUMBER := 0-1962.0724
1503     , p5_a1  NUMBER := 0-1962.0724
1504     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1505     , p5_a3  NUMBER := 0-1962.0724
1506     , p5_a4  NUMBER := 0-1962.0724
1507     , p5_a5  NUMBER := 0-1962.0724
1508     , p5_a6  NUMBER := 0-1962.0724
1509     , p5_a7  NUMBER := 0-1962.0724
1510     , p5_a8  NUMBER := 0-1962.0724
1511     , p5_a9  NUMBER := 0-1962.0724
1512     , p5_a10  NUMBER := 0-1962.0724
1513     , p5_a11  NUMBER := 0-1962.0724
1514     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
1515     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
1516     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1517     , p5_a15  NUMBER := 0-1962.0724
1518     , p5_a16  NUMBER := 0-1962.0724
1519     , p5_a17  NUMBER := 0-1962.0724
1520     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1521     , p5_a19  NUMBER := 0-1962.0724
1522     , p5_a20  NUMBER := 0-1962.0724
1523     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
1524     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
1525     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
1526     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
1527     , p5_a25  DATE := fnd_api.g_miss_date
1528     , p5_a26  DATE := fnd_api.g_miss_date
1529     , p5_a27  DATE := fnd_api.g_miss_date
1530     , p5_a28  NUMBER := 0-1962.0724
1531     , p5_a29  NUMBER := 0-1962.0724
1532     , p5_a30  NUMBER := 0-1962.0724
1533     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1534     , p5_a32  NUMBER := 0-1962.0724
1535     , p5_a33  NUMBER := 0-1962.0724
1536     , p5_a34  NUMBER := 0-1962.0724
1537     , p5_a35  NUMBER := 0-1962.0724
1538     , p5_a36  DATE := fnd_api.g_miss_date
1539     , p5_a37  NUMBER := 0-1962.0724
1540     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
1541     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1542     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1543     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
1544     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1545     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
1546     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
1547     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
1548     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
1549     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1550     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1551     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1552     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1553     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1554     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1555     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1556     , p5_a54  NUMBER := 0-1962.0724
1557     , p5_a55  DATE := fnd_api.g_miss_date
1558     , p5_a56  NUMBER := 0-1962.0724
1559     , p5_a57  DATE := fnd_api.g_miss_date
1560     , p5_a58  NUMBER := 0-1962.0724
1561     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1562     , p5_a60  NUMBER := 0-1962.0724
1563     , p5_a61  NUMBER := 0-1962.0724
1564     , p5_a62  NUMBER := 0-1962.0724
1565     , p5_a63  NUMBER := 0-1962.0724
1566     , p5_a64  NUMBER := 0-1962.0724
1567     , p5_a65  NUMBER := 0-1962.0724
1568     , p5_a66  NUMBER := 0-1962.0724
1569     , p5_a67  NUMBER := 0-1962.0724
1570     , p5_a68  NUMBER := 0-1962.0724
1571     , p5_a69  DATE := fnd_api.g_miss_date
1572     , p5_a70  NUMBER := 0-1962.0724
1573     , p5_a71  NUMBER := 0-1962.0724
1574     , p5_a72  NUMBER := 0-1962.0724
1575     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
1576     , p5_a74  NUMBER := 0-1962.0724
1577     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
1578     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
1579     , p5_a77  NUMBER := 0-1962.0724
1580     , p5_a78  DATE := fnd_api.g_miss_date
1581     , p5_a79  NUMBER := 0-1962.0724
1582     , p5_a80  NUMBER := 0-1962.0724
1583     , p5_a81  NUMBER := 0-1962.0724
1584   )
1585 
1586   as
1587     ddp_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
1588     ddindx binary_integer; indx binary_integer;
1589   begin
1590 
1591     -- copy data to the local IN or IN-OUT args, if any
1592 
1593 
1594 
1595 
1596 
1597     ddp_tlpv_rec.id := rosetta_g_miss_num_map(p5_a0);
1598     ddp_tlpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1599     ddp_tlpv_rec.sfwt_flag := p5_a2;
1600     ddp_tlpv_rec.tas_id := rosetta_g_miss_num_map(p5_a3);
1601     ddp_tlpv_rec.ilo_id := rosetta_g_miss_num_map(p5_a4);
1602     ddp_tlpv_rec.ilo_id_old := rosetta_g_miss_num_map(p5_a5);
1603     ddp_tlpv_rec.iay_id := rosetta_g_miss_num_map(p5_a6);
1604     ddp_tlpv_rec.iay_id_new := rosetta_g_miss_num_map(p5_a7);
1605     ddp_tlpv_rec.kle_id := rosetta_g_miss_num_map(p5_a8);
1606     ddp_tlpv_rec.dnz_khr_id := rosetta_g_miss_num_map(p5_a9);
1607     ddp_tlpv_rec.line_number := rosetta_g_miss_num_map(p5_a10);
1608     ddp_tlpv_rec.org_id := rosetta_g_miss_num_map(p5_a11);
1609     ddp_tlpv_rec.tal_type := p5_a12;
1610     ddp_tlpv_rec.asset_number := p5_a13;
1611     ddp_tlpv_rec.description := p5_a14;
1612     ddp_tlpv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a15);
1613     ddp_tlpv_rec.original_cost := rosetta_g_miss_num_map(p5_a16);
1614     ddp_tlpv_rec.current_units := rosetta_g_miss_num_map(p5_a17);
1615     ddp_tlpv_rec.manufacturer_name := p5_a18;
1616     ddp_tlpv_rec.year_manufactured := rosetta_g_miss_num_map(p5_a19);
1617     ddp_tlpv_rec.supplier_id := rosetta_g_miss_num_map(p5_a20);
1618     ddp_tlpv_rec.used_asset_yn := p5_a21;
1619     ddp_tlpv_rec.tag_number := p5_a22;
1620     ddp_tlpv_rec.model_number := p5_a23;
1621     ddp_tlpv_rec.corporate_book := p5_a24;
1622     ddp_tlpv_rec.date_purchased := rosetta_g_miss_date_in_map(p5_a25);
1623     ddp_tlpv_rec.date_delivery := rosetta_g_miss_date_in_map(p5_a26);
1624     ddp_tlpv_rec.in_service_date := rosetta_g_miss_date_in_map(p5_a27);
1625     ddp_tlpv_rec.life_in_months := rosetta_g_miss_num_map(p5_a28);
1626     ddp_tlpv_rec.depreciation_id := rosetta_g_miss_num_map(p5_a29);
1627     ddp_tlpv_rec.depreciation_cost := rosetta_g_miss_num_map(p5_a30);
1628     ddp_tlpv_rec.deprn_method := p5_a31;
1629     ddp_tlpv_rec.deprn_rate := rosetta_g_miss_num_map(p5_a32);
1630     ddp_tlpv_rec.salvage_value := rosetta_g_miss_num_map(p5_a33);
1631     ddp_tlpv_rec.percent_salvage_value := rosetta_g_miss_num_map(p5_a34);
1632     ddp_tlpv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a35);
1633     ddp_tlpv_rec.fa_trx_date := rosetta_g_miss_date_in_map(p5_a36);
1634     ddp_tlpv_rec.fa_cost := rosetta_g_miss_num_map(p5_a37);
1635     ddp_tlpv_rec.attribute_category := p5_a38;
1636     ddp_tlpv_rec.attribute1 := p5_a39;
1637     ddp_tlpv_rec.attribute2 := p5_a40;
1638     ddp_tlpv_rec.attribute3 := p5_a41;
1639     ddp_tlpv_rec.attribute4 := p5_a42;
1640     ddp_tlpv_rec.attribute5 := p5_a43;
1641     ddp_tlpv_rec.attribute6 := p5_a44;
1642     ddp_tlpv_rec.attribute7 := p5_a45;
1643     ddp_tlpv_rec.attribute8 := p5_a46;
1644     ddp_tlpv_rec.attribute9 := p5_a47;
1645     ddp_tlpv_rec.attribute10 := p5_a48;
1646     ddp_tlpv_rec.attribute11 := p5_a49;
1647     ddp_tlpv_rec.attribute12 := p5_a50;
1648     ddp_tlpv_rec.attribute13 := p5_a51;
1649     ddp_tlpv_rec.attribute14 := p5_a52;
1650     ddp_tlpv_rec.attribute15 := p5_a53;
1651     ddp_tlpv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
1652     ddp_tlpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
1653     ddp_tlpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
1654     ddp_tlpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
1655     ddp_tlpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
1656     ddp_tlpv_rec.depreciate_yn := p5_a59;
1657     ddp_tlpv_rec.hold_period_days := rosetta_g_miss_num_map(p5_a60);
1658     ddp_tlpv_rec.old_salvage_value := rosetta_g_miss_num_map(p5_a61);
1659     ddp_tlpv_rec.new_residual_value := rosetta_g_miss_num_map(p5_a62);
1660     ddp_tlpv_rec.old_residual_value := rosetta_g_miss_num_map(p5_a63);
1661     ddp_tlpv_rec.units_retired := rosetta_g_miss_num_map(p5_a64);
1662     ddp_tlpv_rec.cost_retired := rosetta_g_miss_num_map(p5_a65);
1663     ddp_tlpv_rec.sale_proceeds := rosetta_g_miss_num_map(p5_a66);
1664     ddp_tlpv_rec.removal_cost := rosetta_g_miss_num_map(p5_a67);
1665     ddp_tlpv_rec.dnz_asset_id := rosetta_g_miss_num_map(p5_a68);
1666     ddp_tlpv_rec.date_due := rosetta_g_miss_date_in_map(p5_a69);
1667     ddp_tlpv_rec.rep_asset_id := rosetta_g_miss_num_map(p5_a70);
1668     ddp_tlpv_rec.lke_asset_id := rosetta_g_miss_num_map(p5_a71);
1669     ddp_tlpv_rec.match_amount := rosetta_g_miss_num_map(p5_a72);
1670     ddp_tlpv_rec.split_into_singles_flag := p5_a73;
1671     ddp_tlpv_rec.split_into_units := rosetta_g_miss_num_map(p5_a74);
1672     ddp_tlpv_rec.currency_code := p5_a75;
1673     ddp_tlpv_rec.currency_conversion_type := p5_a76;
1674     ddp_tlpv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
1675     ddp_tlpv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
1676     ddp_tlpv_rec.residual_shr_party_id := rosetta_g_miss_num_map(p5_a79);
1677     ddp_tlpv_rec.residual_shr_amount := rosetta_g_miss_num_map(p5_a80);
1678     ddp_tlpv_rec.retirement_id := rosetta_g_miss_num_map(p5_a81);
1679 
1680     -- here's the delegated call to the old PL/SQL routine
1681     okl_txl_assets_pub.delete_txl_asset_def(p_api_version,
1682       p_init_msg_list,
1683       x_return_status,
1684       x_msg_count,
1685       x_msg_data,
1686       ddp_tlpv_rec);
1687 
1688     -- copy data back from the local variables to OUT or IN-OUT args, if any
1689 
1690 
1691 
1692 
1693 
1694   end;
1695 
1696   procedure delete_txl_asset_def(p_api_version  NUMBER
1697     , p_init_msg_list  VARCHAR2
1698     , x_return_status out nocopy  VARCHAR2
1699     , x_msg_count out nocopy  NUMBER
1700     , x_msg_data out nocopy  VARCHAR2
1701     , p5_a0 JTF_NUMBER_TABLE
1702     , p5_a1 JTF_NUMBER_TABLE
1703     , p5_a2 JTF_VARCHAR2_TABLE_100
1704     , p5_a3 JTF_NUMBER_TABLE
1705     , p5_a4 JTF_NUMBER_TABLE
1706     , p5_a5 JTF_NUMBER_TABLE
1707     , p5_a6 JTF_NUMBER_TABLE
1708     , p5_a7 JTF_NUMBER_TABLE
1709     , p5_a8 JTF_NUMBER_TABLE
1710     , p5_a9 JTF_NUMBER_TABLE
1711     , p5_a10 JTF_NUMBER_TABLE
1712     , p5_a11 JTF_NUMBER_TABLE
1713     , p5_a12 JTF_VARCHAR2_TABLE_100
1714     , p5_a13 JTF_VARCHAR2_TABLE_100
1715     , p5_a14 JTF_VARCHAR2_TABLE_2000
1716     , p5_a15 JTF_NUMBER_TABLE
1717     , p5_a16 JTF_NUMBER_TABLE
1718     , p5_a17 JTF_NUMBER_TABLE
1719     , p5_a18 JTF_VARCHAR2_TABLE_100
1720     , p5_a19 JTF_NUMBER_TABLE
1721     , p5_a20 JTF_NUMBER_TABLE
1722     , p5_a21 JTF_VARCHAR2_TABLE_100
1723     , p5_a22 JTF_VARCHAR2_TABLE_100
1724     , p5_a23 JTF_VARCHAR2_TABLE_100
1725     , p5_a24 JTF_VARCHAR2_TABLE_100
1726     , p5_a25 JTF_DATE_TABLE
1727     , p5_a26 JTF_DATE_TABLE
1728     , p5_a27 JTF_DATE_TABLE
1729     , p5_a28 JTF_NUMBER_TABLE
1730     , p5_a29 JTF_NUMBER_TABLE
1731     , p5_a30 JTF_NUMBER_TABLE
1732     , p5_a31 JTF_VARCHAR2_TABLE_100
1733     , p5_a32 JTF_NUMBER_TABLE
1734     , p5_a33 JTF_NUMBER_TABLE
1735     , p5_a34 JTF_NUMBER_TABLE
1736     , p5_a35 JTF_NUMBER_TABLE
1737     , p5_a36 JTF_DATE_TABLE
1738     , p5_a37 JTF_NUMBER_TABLE
1739     , p5_a38 JTF_VARCHAR2_TABLE_100
1740     , p5_a39 JTF_VARCHAR2_TABLE_500
1741     , p5_a40 JTF_VARCHAR2_TABLE_500
1742     , p5_a41 JTF_VARCHAR2_TABLE_500
1743     , p5_a42 JTF_VARCHAR2_TABLE_500
1744     , p5_a43 JTF_VARCHAR2_TABLE_500
1745     , p5_a44 JTF_VARCHAR2_TABLE_500
1746     , p5_a45 JTF_VARCHAR2_TABLE_500
1747     , p5_a46 JTF_VARCHAR2_TABLE_500
1748     , p5_a47 JTF_VARCHAR2_TABLE_500
1749     , p5_a48 JTF_VARCHAR2_TABLE_500
1750     , p5_a49 JTF_VARCHAR2_TABLE_500
1751     , p5_a50 JTF_VARCHAR2_TABLE_500
1752     , p5_a51 JTF_VARCHAR2_TABLE_500
1753     , p5_a52 JTF_VARCHAR2_TABLE_500
1754     , p5_a53 JTF_VARCHAR2_TABLE_500
1755     , p5_a54 JTF_NUMBER_TABLE
1756     , p5_a55 JTF_DATE_TABLE
1757     , p5_a56 JTF_NUMBER_TABLE
1758     , p5_a57 JTF_DATE_TABLE
1759     , p5_a58 JTF_NUMBER_TABLE
1760     , p5_a59 JTF_VARCHAR2_TABLE_100
1761     , p5_a60 JTF_NUMBER_TABLE
1762     , p5_a61 JTF_NUMBER_TABLE
1763     , p5_a62 JTF_NUMBER_TABLE
1764     , p5_a63 JTF_NUMBER_TABLE
1765     , p5_a64 JTF_NUMBER_TABLE
1766     , p5_a65 JTF_NUMBER_TABLE
1767     , p5_a66 JTF_NUMBER_TABLE
1768     , p5_a67 JTF_NUMBER_TABLE
1769     , p5_a68 JTF_NUMBER_TABLE
1770     , p5_a69 JTF_DATE_TABLE
1771     , p5_a70 JTF_NUMBER_TABLE
1772     , p5_a71 JTF_NUMBER_TABLE
1773     , p5_a72 JTF_NUMBER_TABLE
1774     , p5_a73 JTF_VARCHAR2_TABLE_100
1775     , p5_a74 JTF_NUMBER_TABLE
1776     , p5_a75 JTF_VARCHAR2_TABLE_100
1777     , p5_a76 JTF_VARCHAR2_TABLE_100
1778     , p5_a77 JTF_NUMBER_TABLE
1779     , p5_a78 JTF_DATE_TABLE
1780     , p5_a79 JTF_NUMBER_TABLE
1781     , p5_a80 JTF_NUMBER_TABLE
1782     , p5_a81 JTF_NUMBER_TABLE
1783   )
1784 
1785   as
1786     ddp_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
1787     ddindx binary_integer; indx binary_integer;
1788   begin
1789 
1790     -- copy data to the local IN or IN-OUT args, if any
1791 
1792 
1793 
1794 
1795 
1796     okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_tlpv_tbl, p5_a0
1797       , p5_a1
1798       , p5_a2
1799       , p5_a3
1800       , p5_a4
1801       , p5_a5
1802       , p5_a6
1803       , p5_a7
1804       , p5_a8
1805       , p5_a9
1806       , p5_a10
1807       , p5_a11
1808       , p5_a12
1809       , p5_a13
1810       , p5_a14
1811       , p5_a15
1812       , p5_a16
1813       , p5_a17
1814       , p5_a18
1815       , p5_a19
1816       , p5_a20
1817       , p5_a21
1818       , p5_a22
1819       , p5_a23
1820       , p5_a24
1821       , p5_a25
1822       , p5_a26
1823       , p5_a27
1824       , p5_a28
1825       , p5_a29
1826       , p5_a30
1827       , p5_a31
1828       , p5_a32
1829       , p5_a33
1830       , p5_a34
1831       , p5_a35
1832       , p5_a36
1833       , p5_a37
1834       , p5_a38
1835       , p5_a39
1836       , p5_a40
1837       , p5_a41
1838       , p5_a42
1839       , p5_a43
1840       , p5_a44
1841       , p5_a45
1842       , p5_a46
1843       , p5_a47
1844       , p5_a48
1845       , p5_a49
1846       , p5_a50
1847       , p5_a51
1848       , p5_a52
1849       , p5_a53
1850       , p5_a54
1851       , p5_a55
1852       , p5_a56
1853       , p5_a57
1854       , p5_a58
1855       , p5_a59
1856       , p5_a60
1857       , p5_a61
1858       , p5_a62
1859       , p5_a63
1860       , p5_a64
1861       , p5_a65
1862       , p5_a66
1863       , p5_a67
1864       , p5_a68
1865       , p5_a69
1866       , p5_a70
1867       , p5_a71
1868       , p5_a72
1869       , p5_a73
1870       , p5_a74
1871       , p5_a75
1872       , p5_a76
1873       , p5_a77
1874       , p5_a78
1875       , p5_a79
1876       , p5_a80
1877       , p5_a81
1878       );
1879 
1880     -- here's the delegated call to the old PL/SQL routine
1881     okl_txl_assets_pub.delete_txl_asset_def(p_api_version,
1882       p_init_msg_list,
1883       x_return_status,
1884       x_msg_count,
1885       x_msg_data,
1886       ddp_tlpv_tbl);
1887 
1888     -- copy data back from the local variables to OUT or IN-OUT args, if any
1889 
1890 
1891 
1892 
1893 
1894   end;
1895 
1896   procedure lock_txl_asset_def(p_api_version  NUMBER
1897     , p_init_msg_list  VARCHAR2
1898     , x_return_status out nocopy  VARCHAR2
1899     , x_msg_count out nocopy  NUMBER
1900     , x_msg_data out nocopy  VARCHAR2
1901     , p5_a0  NUMBER := 0-1962.0724
1902     , p5_a1  NUMBER := 0-1962.0724
1903     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1904     , p5_a3  NUMBER := 0-1962.0724
1905     , p5_a4  NUMBER := 0-1962.0724
1906     , p5_a5  NUMBER := 0-1962.0724
1907     , p5_a6  NUMBER := 0-1962.0724
1908     , p5_a7  NUMBER := 0-1962.0724
1909     , p5_a8  NUMBER := 0-1962.0724
1910     , p5_a9  NUMBER := 0-1962.0724
1911     , p5_a10  NUMBER := 0-1962.0724
1912     , p5_a11  NUMBER := 0-1962.0724
1913     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
1914     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
1915     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1916     , p5_a15  NUMBER := 0-1962.0724
1917     , p5_a16  NUMBER := 0-1962.0724
1918     , p5_a17  NUMBER := 0-1962.0724
1919     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1920     , p5_a19  NUMBER := 0-1962.0724
1921     , p5_a20  NUMBER := 0-1962.0724
1922     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
1923     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
1924     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
1925     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
1926     , p5_a25  DATE := fnd_api.g_miss_date
1927     , p5_a26  DATE := fnd_api.g_miss_date
1928     , p5_a27  DATE := fnd_api.g_miss_date
1929     , p5_a28  NUMBER := 0-1962.0724
1930     , p5_a29  NUMBER := 0-1962.0724
1931     , p5_a30  NUMBER := 0-1962.0724
1932     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1933     , p5_a32  NUMBER := 0-1962.0724
1934     , p5_a33  NUMBER := 0-1962.0724
1935     , p5_a34  NUMBER := 0-1962.0724
1936     , p5_a35  NUMBER := 0-1962.0724
1937     , p5_a36  DATE := fnd_api.g_miss_date
1938     , p5_a37  NUMBER := 0-1962.0724
1939     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
1940     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1941     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1942     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
1943     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1944     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
1945     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
1946     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
1947     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
1948     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1949     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1950     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1951     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1952     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1953     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1954     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1955     , p5_a54  NUMBER := 0-1962.0724
1956     , p5_a55  DATE := fnd_api.g_miss_date
1957     , p5_a56  NUMBER := 0-1962.0724
1958     , p5_a57  DATE := fnd_api.g_miss_date
1959     , p5_a58  NUMBER := 0-1962.0724
1960     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1961     , p5_a60  NUMBER := 0-1962.0724
1962     , p5_a61  NUMBER := 0-1962.0724
1963     , p5_a62  NUMBER := 0-1962.0724
1964     , p5_a63  NUMBER := 0-1962.0724
1965     , p5_a64  NUMBER := 0-1962.0724
1966     , p5_a65  NUMBER := 0-1962.0724
1967     , p5_a66  NUMBER := 0-1962.0724
1968     , p5_a67  NUMBER := 0-1962.0724
1969     , p5_a68  NUMBER := 0-1962.0724
1970     , p5_a69  DATE := fnd_api.g_miss_date
1971     , p5_a70  NUMBER := 0-1962.0724
1972     , p5_a71  NUMBER := 0-1962.0724
1973     , p5_a72  NUMBER := 0-1962.0724
1974     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
1975     , p5_a74  NUMBER := 0-1962.0724
1976     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
1977     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
1978     , p5_a77  NUMBER := 0-1962.0724
1979     , p5_a78  DATE := fnd_api.g_miss_date
1980     , p5_a79  NUMBER := 0-1962.0724
1981     , p5_a80  NUMBER := 0-1962.0724
1982     , p5_a81  NUMBER := 0-1962.0724
1983   )
1984 
1985   as
1986     ddp_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
1987     ddindx binary_integer; indx binary_integer;
1988   begin
1989 
1990     -- copy data to the local IN or IN-OUT args, if any
1991 
1992 
1993 
1994 
1995 
1996     ddp_tlpv_rec.id := rosetta_g_miss_num_map(p5_a0);
1997     ddp_tlpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1998     ddp_tlpv_rec.sfwt_flag := p5_a2;
1999     ddp_tlpv_rec.tas_id := rosetta_g_miss_num_map(p5_a3);
2000     ddp_tlpv_rec.ilo_id := rosetta_g_miss_num_map(p5_a4);
2001     ddp_tlpv_rec.ilo_id_old := rosetta_g_miss_num_map(p5_a5);
2002     ddp_tlpv_rec.iay_id := rosetta_g_miss_num_map(p5_a6);
2003     ddp_tlpv_rec.iay_id_new := rosetta_g_miss_num_map(p5_a7);
2004     ddp_tlpv_rec.kle_id := rosetta_g_miss_num_map(p5_a8);
2005     ddp_tlpv_rec.dnz_khr_id := rosetta_g_miss_num_map(p5_a9);
2006     ddp_tlpv_rec.line_number := rosetta_g_miss_num_map(p5_a10);
2007     ddp_tlpv_rec.org_id := rosetta_g_miss_num_map(p5_a11);
2008     ddp_tlpv_rec.tal_type := p5_a12;
2009     ddp_tlpv_rec.asset_number := p5_a13;
2010     ddp_tlpv_rec.description := p5_a14;
2011     ddp_tlpv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a15);
2012     ddp_tlpv_rec.original_cost := rosetta_g_miss_num_map(p5_a16);
2013     ddp_tlpv_rec.current_units := rosetta_g_miss_num_map(p5_a17);
2014     ddp_tlpv_rec.manufacturer_name := p5_a18;
2015     ddp_tlpv_rec.year_manufactured := rosetta_g_miss_num_map(p5_a19);
2016     ddp_tlpv_rec.supplier_id := rosetta_g_miss_num_map(p5_a20);
2017     ddp_tlpv_rec.used_asset_yn := p5_a21;
2018     ddp_tlpv_rec.tag_number := p5_a22;
2019     ddp_tlpv_rec.model_number := p5_a23;
2020     ddp_tlpv_rec.corporate_book := p5_a24;
2021     ddp_tlpv_rec.date_purchased := rosetta_g_miss_date_in_map(p5_a25);
2022     ddp_tlpv_rec.date_delivery := rosetta_g_miss_date_in_map(p5_a26);
2023     ddp_tlpv_rec.in_service_date := rosetta_g_miss_date_in_map(p5_a27);
2024     ddp_tlpv_rec.life_in_months := rosetta_g_miss_num_map(p5_a28);
2025     ddp_tlpv_rec.depreciation_id := rosetta_g_miss_num_map(p5_a29);
2026     ddp_tlpv_rec.depreciation_cost := rosetta_g_miss_num_map(p5_a30);
2027     ddp_tlpv_rec.deprn_method := p5_a31;
2028     ddp_tlpv_rec.deprn_rate := rosetta_g_miss_num_map(p5_a32);
2029     ddp_tlpv_rec.salvage_value := rosetta_g_miss_num_map(p5_a33);
2030     ddp_tlpv_rec.percent_salvage_value := rosetta_g_miss_num_map(p5_a34);
2031     ddp_tlpv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a35);
2032     ddp_tlpv_rec.fa_trx_date := rosetta_g_miss_date_in_map(p5_a36);
2033     ddp_tlpv_rec.fa_cost := rosetta_g_miss_num_map(p5_a37);
2034     ddp_tlpv_rec.attribute_category := p5_a38;
2035     ddp_tlpv_rec.attribute1 := p5_a39;
2036     ddp_tlpv_rec.attribute2 := p5_a40;
2037     ddp_tlpv_rec.attribute3 := p5_a41;
2038     ddp_tlpv_rec.attribute4 := p5_a42;
2039     ddp_tlpv_rec.attribute5 := p5_a43;
2040     ddp_tlpv_rec.attribute6 := p5_a44;
2041     ddp_tlpv_rec.attribute7 := p5_a45;
2042     ddp_tlpv_rec.attribute8 := p5_a46;
2043     ddp_tlpv_rec.attribute9 := p5_a47;
2044     ddp_tlpv_rec.attribute10 := p5_a48;
2045     ddp_tlpv_rec.attribute11 := p5_a49;
2046     ddp_tlpv_rec.attribute12 := p5_a50;
2047     ddp_tlpv_rec.attribute13 := p5_a51;
2048     ddp_tlpv_rec.attribute14 := p5_a52;
2049     ddp_tlpv_rec.attribute15 := p5_a53;
2050     ddp_tlpv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
2051     ddp_tlpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
2052     ddp_tlpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
2053     ddp_tlpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
2054     ddp_tlpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
2055     ddp_tlpv_rec.depreciate_yn := p5_a59;
2056     ddp_tlpv_rec.hold_period_days := rosetta_g_miss_num_map(p5_a60);
2057     ddp_tlpv_rec.old_salvage_value := rosetta_g_miss_num_map(p5_a61);
2058     ddp_tlpv_rec.new_residual_value := rosetta_g_miss_num_map(p5_a62);
2059     ddp_tlpv_rec.old_residual_value := rosetta_g_miss_num_map(p5_a63);
2060     ddp_tlpv_rec.units_retired := rosetta_g_miss_num_map(p5_a64);
2061     ddp_tlpv_rec.cost_retired := rosetta_g_miss_num_map(p5_a65);
2062     ddp_tlpv_rec.sale_proceeds := rosetta_g_miss_num_map(p5_a66);
2063     ddp_tlpv_rec.removal_cost := rosetta_g_miss_num_map(p5_a67);
2064     ddp_tlpv_rec.dnz_asset_id := rosetta_g_miss_num_map(p5_a68);
2065     ddp_tlpv_rec.date_due := rosetta_g_miss_date_in_map(p5_a69);
2066     ddp_tlpv_rec.rep_asset_id := rosetta_g_miss_num_map(p5_a70);
2067     ddp_tlpv_rec.lke_asset_id := rosetta_g_miss_num_map(p5_a71);
2068     ddp_tlpv_rec.match_amount := rosetta_g_miss_num_map(p5_a72);
2069     ddp_tlpv_rec.split_into_singles_flag := p5_a73;
2070     ddp_tlpv_rec.split_into_units := rosetta_g_miss_num_map(p5_a74);
2071     ddp_tlpv_rec.currency_code := p5_a75;
2072     ddp_tlpv_rec.currency_conversion_type := p5_a76;
2073     ddp_tlpv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
2074     ddp_tlpv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
2075     ddp_tlpv_rec.residual_shr_party_id := rosetta_g_miss_num_map(p5_a79);
2076     ddp_tlpv_rec.residual_shr_amount := rosetta_g_miss_num_map(p5_a80);
2077     ddp_tlpv_rec.retirement_id := rosetta_g_miss_num_map(p5_a81);
2078 
2079     -- here's the delegated call to the old PL/SQL routine
2080     okl_txl_assets_pub.lock_txl_asset_def(p_api_version,
2081       p_init_msg_list,
2082       x_return_status,
2083       x_msg_count,
2084       x_msg_data,
2085       ddp_tlpv_rec);
2086 
2087     -- copy data back from the local variables to OUT or IN-OUT args, if any
2088 
2089 
2090 
2091 
2092 
2093   end;
2094 
2095   procedure lock_txl_asset_def(p_api_version  NUMBER
2096     , p_init_msg_list  VARCHAR2
2097     , x_return_status out nocopy  VARCHAR2
2098     , x_msg_count out nocopy  NUMBER
2099     , x_msg_data out nocopy  VARCHAR2
2100     , p5_a0 JTF_NUMBER_TABLE
2101     , p5_a1 JTF_NUMBER_TABLE
2102     , p5_a2 JTF_VARCHAR2_TABLE_100
2103     , p5_a3 JTF_NUMBER_TABLE
2104     , p5_a4 JTF_NUMBER_TABLE
2105     , p5_a5 JTF_NUMBER_TABLE
2106     , p5_a6 JTF_NUMBER_TABLE
2107     , p5_a7 JTF_NUMBER_TABLE
2108     , p5_a8 JTF_NUMBER_TABLE
2109     , p5_a9 JTF_NUMBER_TABLE
2110     , p5_a10 JTF_NUMBER_TABLE
2111     , p5_a11 JTF_NUMBER_TABLE
2112     , p5_a12 JTF_VARCHAR2_TABLE_100
2113     , p5_a13 JTF_VARCHAR2_TABLE_100
2114     , p5_a14 JTF_VARCHAR2_TABLE_2000
2115     , p5_a15 JTF_NUMBER_TABLE
2116     , p5_a16 JTF_NUMBER_TABLE
2117     , p5_a17 JTF_NUMBER_TABLE
2118     , p5_a18 JTF_VARCHAR2_TABLE_100
2119     , p5_a19 JTF_NUMBER_TABLE
2120     , p5_a20 JTF_NUMBER_TABLE
2121     , p5_a21 JTF_VARCHAR2_TABLE_100
2122     , p5_a22 JTF_VARCHAR2_TABLE_100
2123     , p5_a23 JTF_VARCHAR2_TABLE_100
2124     , p5_a24 JTF_VARCHAR2_TABLE_100
2125     , p5_a25 JTF_DATE_TABLE
2126     , p5_a26 JTF_DATE_TABLE
2127     , p5_a27 JTF_DATE_TABLE
2128     , p5_a28 JTF_NUMBER_TABLE
2129     , p5_a29 JTF_NUMBER_TABLE
2130     , p5_a30 JTF_NUMBER_TABLE
2131     , p5_a31 JTF_VARCHAR2_TABLE_100
2132     , p5_a32 JTF_NUMBER_TABLE
2133     , p5_a33 JTF_NUMBER_TABLE
2134     , p5_a34 JTF_NUMBER_TABLE
2135     , p5_a35 JTF_NUMBER_TABLE
2136     , p5_a36 JTF_DATE_TABLE
2137     , p5_a37 JTF_NUMBER_TABLE
2138     , p5_a38 JTF_VARCHAR2_TABLE_100
2139     , p5_a39 JTF_VARCHAR2_TABLE_500
2140     , p5_a40 JTF_VARCHAR2_TABLE_500
2141     , p5_a41 JTF_VARCHAR2_TABLE_500
2142     , p5_a42 JTF_VARCHAR2_TABLE_500
2143     , p5_a43 JTF_VARCHAR2_TABLE_500
2144     , p5_a44 JTF_VARCHAR2_TABLE_500
2145     , p5_a45 JTF_VARCHAR2_TABLE_500
2146     , p5_a46 JTF_VARCHAR2_TABLE_500
2147     , p5_a47 JTF_VARCHAR2_TABLE_500
2148     , p5_a48 JTF_VARCHAR2_TABLE_500
2149     , p5_a49 JTF_VARCHAR2_TABLE_500
2150     , p5_a50 JTF_VARCHAR2_TABLE_500
2151     , p5_a51 JTF_VARCHAR2_TABLE_500
2152     , p5_a52 JTF_VARCHAR2_TABLE_500
2153     , p5_a53 JTF_VARCHAR2_TABLE_500
2154     , p5_a54 JTF_NUMBER_TABLE
2155     , p5_a55 JTF_DATE_TABLE
2156     , p5_a56 JTF_NUMBER_TABLE
2157     , p5_a57 JTF_DATE_TABLE
2158     , p5_a58 JTF_NUMBER_TABLE
2159     , p5_a59 JTF_VARCHAR2_TABLE_100
2160     , p5_a60 JTF_NUMBER_TABLE
2161     , p5_a61 JTF_NUMBER_TABLE
2162     , p5_a62 JTF_NUMBER_TABLE
2163     , p5_a63 JTF_NUMBER_TABLE
2164     , p5_a64 JTF_NUMBER_TABLE
2165     , p5_a65 JTF_NUMBER_TABLE
2166     , p5_a66 JTF_NUMBER_TABLE
2167     , p5_a67 JTF_NUMBER_TABLE
2168     , p5_a68 JTF_NUMBER_TABLE
2169     , p5_a69 JTF_DATE_TABLE
2170     , p5_a70 JTF_NUMBER_TABLE
2171     , p5_a71 JTF_NUMBER_TABLE
2172     , p5_a72 JTF_NUMBER_TABLE
2173     , p5_a73 JTF_VARCHAR2_TABLE_100
2174     , p5_a74 JTF_NUMBER_TABLE
2175     , p5_a75 JTF_VARCHAR2_TABLE_100
2176     , p5_a76 JTF_VARCHAR2_TABLE_100
2177     , p5_a77 JTF_NUMBER_TABLE
2178     , p5_a78 JTF_DATE_TABLE
2179     , p5_a79 JTF_NUMBER_TABLE
2180     , p5_a80 JTF_NUMBER_TABLE
2181     , p5_a81 JTF_NUMBER_TABLE
2182   )
2183 
2184   as
2185     ddp_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
2186     ddindx binary_integer; indx binary_integer;
2187   begin
2188 
2189     -- copy data to the local IN or IN-OUT args, if any
2190 
2191 
2192 
2193 
2194 
2195     okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_tlpv_tbl, p5_a0
2196       , p5_a1
2197       , p5_a2
2198       , p5_a3
2199       , p5_a4
2200       , p5_a5
2201       , p5_a6
2202       , p5_a7
2203       , p5_a8
2204       , p5_a9
2205       , p5_a10
2206       , p5_a11
2207       , p5_a12
2208       , p5_a13
2209       , p5_a14
2210       , p5_a15
2211       , p5_a16
2212       , p5_a17
2213       , p5_a18
2214       , p5_a19
2215       , p5_a20
2216       , p5_a21
2217       , p5_a22
2218       , p5_a23
2219       , p5_a24
2220       , p5_a25
2221       , p5_a26
2222       , p5_a27
2223       , p5_a28
2224       , p5_a29
2225       , p5_a30
2226       , p5_a31
2227       , p5_a32
2228       , p5_a33
2229       , p5_a34
2230       , p5_a35
2231       , p5_a36
2232       , p5_a37
2233       , p5_a38
2234       , p5_a39
2235       , p5_a40
2236       , p5_a41
2237       , p5_a42
2238       , p5_a43
2239       , p5_a44
2240       , p5_a45
2241       , p5_a46
2242       , p5_a47
2243       , p5_a48
2244       , p5_a49
2245       , p5_a50
2246       , p5_a51
2247       , p5_a52
2248       , p5_a53
2249       , p5_a54
2250       , p5_a55
2251       , p5_a56
2252       , p5_a57
2253       , p5_a58
2254       , p5_a59
2255       , p5_a60
2256       , p5_a61
2257       , p5_a62
2258       , p5_a63
2259       , p5_a64
2260       , p5_a65
2261       , p5_a66
2262       , p5_a67
2263       , p5_a68
2264       , p5_a69
2265       , p5_a70
2266       , p5_a71
2267       , p5_a72
2268       , p5_a73
2269       , p5_a74
2270       , p5_a75
2271       , p5_a76
2272       , p5_a77
2273       , p5_a78
2274       , p5_a79
2275       , p5_a80
2276       , p5_a81
2277       );
2278 
2279     -- here's the delegated call to the old PL/SQL routine
2280     okl_txl_assets_pub.lock_txl_asset_def(p_api_version,
2281       p_init_msg_list,
2282       x_return_status,
2283       x_msg_count,
2284       x_msg_data,
2285       ddp_tlpv_tbl);
2286 
2287     -- copy data back from the local variables to OUT or IN-OUT args, if any
2288 
2289 
2290 
2291 
2292 
2293   end;
2294 
2295   procedure validate_txl_asset_def(p_api_version  NUMBER
2296     , p_init_msg_list  VARCHAR2
2297     , x_return_status out nocopy  VARCHAR2
2298     , x_msg_count out nocopy  NUMBER
2299     , x_msg_data out nocopy  VARCHAR2
2300     , p5_a0  NUMBER := 0-1962.0724
2301     , p5_a1  NUMBER := 0-1962.0724
2302     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
2303     , p5_a3  NUMBER := 0-1962.0724
2304     , p5_a4  NUMBER := 0-1962.0724
2305     , p5_a5  NUMBER := 0-1962.0724
2306     , p5_a6  NUMBER := 0-1962.0724
2307     , p5_a7  NUMBER := 0-1962.0724
2308     , p5_a8  NUMBER := 0-1962.0724
2309     , p5_a9  NUMBER := 0-1962.0724
2310     , p5_a10  NUMBER := 0-1962.0724
2311     , p5_a11  NUMBER := 0-1962.0724
2312     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
2313     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
2314     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
2315     , p5_a15  NUMBER := 0-1962.0724
2316     , p5_a16  NUMBER := 0-1962.0724
2317     , p5_a17  NUMBER := 0-1962.0724
2318     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
2319     , p5_a19  NUMBER := 0-1962.0724
2320     , p5_a20  NUMBER := 0-1962.0724
2321     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
2322     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
2323     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
2324     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
2325     , p5_a25  DATE := fnd_api.g_miss_date
2326     , p5_a26  DATE := fnd_api.g_miss_date
2327     , p5_a27  DATE := fnd_api.g_miss_date
2328     , p5_a28  NUMBER := 0-1962.0724
2329     , p5_a29  NUMBER := 0-1962.0724
2330     , p5_a30  NUMBER := 0-1962.0724
2331     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
2332     , p5_a32  NUMBER := 0-1962.0724
2333     , p5_a33  NUMBER := 0-1962.0724
2334     , p5_a34  NUMBER := 0-1962.0724
2335     , p5_a35  NUMBER := 0-1962.0724
2336     , p5_a36  DATE := fnd_api.g_miss_date
2337     , p5_a37  NUMBER := 0-1962.0724
2338     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
2339     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
2340     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
2341     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
2342     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
2343     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
2344     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
2345     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
2346     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
2347     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
2348     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
2349     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
2350     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
2351     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
2352     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
2353     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
2354     , p5_a54  NUMBER := 0-1962.0724
2355     , p5_a55  DATE := fnd_api.g_miss_date
2356     , p5_a56  NUMBER := 0-1962.0724
2357     , p5_a57  DATE := fnd_api.g_miss_date
2358     , p5_a58  NUMBER := 0-1962.0724
2359     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
2360     , p5_a60  NUMBER := 0-1962.0724
2361     , p5_a61  NUMBER := 0-1962.0724
2362     , p5_a62  NUMBER := 0-1962.0724
2363     , p5_a63  NUMBER := 0-1962.0724
2364     , p5_a64  NUMBER := 0-1962.0724
2365     , p5_a65  NUMBER := 0-1962.0724
2366     , p5_a66  NUMBER := 0-1962.0724
2367     , p5_a67  NUMBER := 0-1962.0724
2368     , p5_a68  NUMBER := 0-1962.0724
2369     , p5_a69  DATE := fnd_api.g_miss_date
2370     , p5_a70  NUMBER := 0-1962.0724
2371     , p5_a71  NUMBER := 0-1962.0724
2372     , p5_a72  NUMBER := 0-1962.0724
2373     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
2374     , p5_a74  NUMBER := 0-1962.0724
2375     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
2376     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
2377     , p5_a77  NUMBER := 0-1962.0724
2378     , p5_a78  DATE := fnd_api.g_miss_date
2379     , p5_a79  NUMBER := 0-1962.0724
2380     , p5_a80  NUMBER := 0-1962.0724
2381     , p5_a81  NUMBER := 0-1962.0724
2382   )
2383 
2384   as
2385     ddp_tlpv_rec okl_txl_assets_pub.tlpv_rec_type;
2386     ddindx binary_integer; indx binary_integer;
2387   begin
2388 
2389     -- copy data to the local IN or IN-OUT args, if any
2390 
2391 
2392 
2393 
2394 
2395     ddp_tlpv_rec.id := rosetta_g_miss_num_map(p5_a0);
2396     ddp_tlpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2397     ddp_tlpv_rec.sfwt_flag := p5_a2;
2398     ddp_tlpv_rec.tas_id := rosetta_g_miss_num_map(p5_a3);
2399     ddp_tlpv_rec.ilo_id := rosetta_g_miss_num_map(p5_a4);
2400     ddp_tlpv_rec.ilo_id_old := rosetta_g_miss_num_map(p5_a5);
2401     ddp_tlpv_rec.iay_id := rosetta_g_miss_num_map(p5_a6);
2402     ddp_tlpv_rec.iay_id_new := rosetta_g_miss_num_map(p5_a7);
2403     ddp_tlpv_rec.kle_id := rosetta_g_miss_num_map(p5_a8);
2404     ddp_tlpv_rec.dnz_khr_id := rosetta_g_miss_num_map(p5_a9);
2405     ddp_tlpv_rec.line_number := rosetta_g_miss_num_map(p5_a10);
2406     ddp_tlpv_rec.org_id := rosetta_g_miss_num_map(p5_a11);
2407     ddp_tlpv_rec.tal_type := p5_a12;
2408     ddp_tlpv_rec.asset_number := p5_a13;
2409     ddp_tlpv_rec.description := p5_a14;
2410     ddp_tlpv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a15);
2411     ddp_tlpv_rec.original_cost := rosetta_g_miss_num_map(p5_a16);
2412     ddp_tlpv_rec.current_units := rosetta_g_miss_num_map(p5_a17);
2413     ddp_tlpv_rec.manufacturer_name := p5_a18;
2414     ddp_tlpv_rec.year_manufactured := rosetta_g_miss_num_map(p5_a19);
2415     ddp_tlpv_rec.supplier_id := rosetta_g_miss_num_map(p5_a20);
2416     ddp_tlpv_rec.used_asset_yn := p5_a21;
2417     ddp_tlpv_rec.tag_number := p5_a22;
2418     ddp_tlpv_rec.model_number := p5_a23;
2419     ddp_tlpv_rec.corporate_book := p5_a24;
2420     ddp_tlpv_rec.date_purchased := rosetta_g_miss_date_in_map(p5_a25);
2421     ddp_tlpv_rec.date_delivery := rosetta_g_miss_date_in_map(p5_a26);
2422     ddp_tlpv_rec.in_service_date := rosetta_g_miss_date_in_map(p5_a27);
2423     ddp_tlpv_rec.life_in_months := rosetta_g_miss_num_map(p5_a28);
2424     ddp_tlpv_rec.depreciation_id := rosetta_g_miss_num_map(p5_a29);
2425     ddp_tlpv_rec.depreciation_cost := rosetta_g_miss_num_map(p5_a30);
2426     ddp_tlpv_rec.deprn_method := p5_a31;
2427     ddp_tlpv_rec.deprn_rate := rosetta_g_miss_num_map(p5_a32);
2428     ddp_tlpv_rec.salvage_value := rosetta_g_miss_num_map(p5_a33);
2429     ddp_tlpv_rec.percent_salvage_value := rosetta_g_miss_num_map(p5_a34);
2430     ddp_tlpv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a35);
2431     ddp_tlpv_rec.fa_trx_date := rosetta_g_miss_date_in_map(p5_a36);
2432     ddp_tlpv_rec.fa_cost := rosetta_g_miss_num_map(p5_a37);
2433     ddp_tlpv_rec.attribute_category := p5_a38;
2434     ddp_tlpv_rec.attribute1 := p5_a39;
2435     ddp_tlpv_rec.attribute2 := p5_a40;
2436     ddp_tlpv_rec.attribute3 := p5_a41;
2437     ddp_tlpv_rec.attribute4 := p5_a42;
2438     ddp_tlpv_rec.attribute5 := p5_a43;
2439     ddp_tlpv_rec.attribute6 := p5_a44;
2440     ddp_tlpv_rec.attribute7 := p5_a45;
2441     ddp_tlpv_rec.attribute8 := p5_a46;
2442     ddp_tlpv_rec.attribute9 := p5_a47;
2443     ddp_tlpv_rec.attribute10 := p5_a48;
2444     ddp_tlpv_rec.attribute11 := p5_a49;
2445     ddp_tlpv_rec.attribute12 := p5_a50;
2446     ddp_tlpv_rec.attribute13 := p5_a51;
2447     ddp_tlpv_rec.attribute14 := p5_a52;
2448     ddp_tlpv_rec.attribute15 := p5_a53;
2449     ddp_tlpv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
2450     ddp_tlpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
2451     ddp_tlpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
2452     ddp_tlpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
2453     ddp_tlpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
2454     ddp_tlpv_rec.depreciate_yn := p5_a59;
2455     ddp_tlpv_rec.hold_period_days := rosetta_g_miss_num_map(p5_a60);
2456     ddp_tlpv_rec.old_salvage_value := rosetta_g_miss_num_map(p5_a61);
2457     ddp_tlpv_rec.new_residual_value := rosetta_g_miss_num_map(p5_a62);
2458     ddp_tlpv_rec.old_residual_value := rosetta_g_miss_num_map(p5_a63);
2459     ddp_tlpv_rec.units_retired := rosetta_g_miss_num_map(p5_a64);
2460     ddp_tlpv_rec.cost_retired := rosetta_g_miss_num_map(p5_a65);
2461     ddp_tlpv_rec.sale_proceeds := rosetta_g_miss_num_map(p5_a66);
2462     ddp_tlpv_rec.removal_cost := rosetta_g_miss_num_map(p5_a67);
2463     ddp_tlpv_rec.dnz_asset_id := rosetta_g_miss_num_map(p5_a68);
2464     ddp_tlpv_rec.date_due := rosetta_g_miss_date_in_map(p5_a69);
2465     ddp_tlpv_rec.rep_asset_id := rosetta_g_miss_num_map(p5_a70);
2466     ddp_tlpv_rec.lke_asset_id := rosetta_g_miss_num_map(p5_a71);
2467     ddp_tlpv_rec.match_amount := rosetta_g_miss_num_map(p5_a72);
2468     ddp_tlpv_rec.split_into_singles_flag := p5_a73;
2469     ddp_tlpv_rec.split_into_units := rosetta_g_miss_num_map(p5_a74);
2470     ddp_tlpv_rec.currency_code := p5_a75;
2471     ddp_tlpv_rec.currency_conversion_type := p5_a76;
2472     ddp_tlpv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
2473     ddp_tlpv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
2474     ddp_tlpv_rec.residual_shr_party_id := rosetta_g_miss_num_map(p5_a79);
2475     ddp_tlpv_rec.residual_shr_amount := rosetta_g_miss_num_map(p5_a80);
2476     ddp_tlpv_rec.retirement_id := rosetta_g_miss_num_map(p5_a81);
2477 
2478     -- here's the delegated call to the old PL/SQL routine
2479     okl_txl_assets_pub.validate_txl_asset_def(p_api_version,
2480       p_init_msg_list,
2481       x_return_status,
2482       x_msg_count,
2483       x_msg_data,
2484       ddp_tlpv_rec);
2485 
2486     -- copy data back from the local variables to OUT or IN-OUT args, if any
2487 
2488 
2489 
2490 
2491 
2492   end;
2493 
2494   procedure validate_txl_asset_def(p_api_version  NUMBER
2495     , p_init_msg_list  VARCHAR2
2496     , x_return_status out nocopy  VARCHAR2
2497     , x_msg_count out nocopy  NUMBER
2498     , x_msg_data out nocopy  VARCHAR2
2499     , p5_a0 JTF_NUMBER_TABLE
2500     , p5_a1 JTF_NUMBER_TABLE
2501     , p5_a2 JTF_VARCHAR2_TABLE_100
2502     , p5_a3 JTF_NUMBER_TABLE
2503     , p5_a4 JTF_NUMBER_TABLE
2504     , p5_a5 JTF_NUMBER_TABLE
2505     , p5_a6 JTF_NUMBER_TABLE
2506     , p5_a7 JTF_NUMBER_TABLE
2507     , p5_a8 JTF_NUMBER_TABLE
2508     , p5_a9 JTF_NUMBER_TABLE
2509     , p5_a10 JTF_NUMBER_TABLE
2510     , p5_a11 JTF_NUMBER_TABLE
2511     , p5_a12 JTF_VARCHAR2_TABLE_100
2512     , p5_a13 JTF_VARCHAR2_TABLE_100
2513     , p5_a14 JTF_VARCHAR2_TABLE_2000
2514     , p5_a15 JTF_NUMBER_TABLE
2515     , p5_a16 JTF_NUMBER_TABLE
2516     , p5_a17 JTF_NUMBER_TABLE
2517     , p5_a18 JTF_VARCHAR2_TABLE_100
2518     , p5_a19 JTF_NUMBER_TABLE
2519     , p5_a20 JTF_NUMBER_TABLE
2520     , p5_a21 JTF_VARCHAR2_TABLE_100
2521     , p5_a22 JTF_VARCHAR2_TABLE_100
2522     , p5_a23 JTF_VARCHAR2_TABLE_100
2523     , p5_a24 JTF_VARCHAR2_TABLE_100
2524     , p5_a25 JTF_DATE_TABLE
2525     , p5_a26 JTF_DATE_TABLE
2526     , p5_a27 JTF_DATE_TABLE
2527     , p5_a28 JTF_NUMBER_TABLE
2528     , p5_a29 JTF_NUMBER_TABLE
2529     , p5_a30 JTF_NUMBER_TABLE
2530     , p5_a31 JTF_VARCHAR2_TABLE_100
2531     , p5_a32 JTF_NUMBER_TABLE
2532     , p5_a33 JTF_NUMBER_TABLE
2533     , p5_a34 JTF_NUMBER_TABLE
2534     , p5_a35 JTF_NUMBER_TABLE
2535     , p5_a36 JTF_DATE_TABLE
2536     , p5_a37 JTF_NUMBER_TABLE
2537     , p5_a38 JTF_VARCHAR2_TABLE_100
2538     , p5_a39 JTF_VARCHAR2_TABLE_500
2539     , p5_a40 JTF_VARCHAR2_TABLE_500
2540     , p5_a41 JTF_VARCHAR2_TABLE_500
2541     , p5_a42 JTF_VARCHAR2_TABLE_500
2542     , p5_a43 JTF_VARCHAR2_TABLE_500
2543     , p5_a44 JTF_VARCHAR2_TABLE_500
2544     , p5_a45 JTF_VARCHAR2_TABLE_500
2545     , p5_a46 JTF_VARCHAR2_TABLE_500
2546     , p5_a47 JTF_VARCHAR2_TABLE_500
2547     , p5_a48 JTF_VARCHAR2_TABLE_500
2548     , p5_a49 JTF_VARCHAR2_TABLE_500
2549     , p5_a50 JTF_VARCHAR2_TABLE_500
2550     , p5_a51 JTF_VARCHAR2_TABLE_500
2551     , p5_a52 JTF_VARCHAR2_TABLE_500
2552     , p5_a53 JTF_VARCHAR2_TABLE_500
2553     , p5_a54 JTF_NUMBER_TABLE
2554     , p5_a55 JTF_DATE_TABLE
2555     , p5_a56 JTF_NUMBER_TABLE
2556     , p5_a57 JTF_DATE_TABLE
2557     , p5_a58 JTF_NUMBER_TABLE
2558     , p5_a59 JTF_VARCHAR2_TABLE_100
2559     , p5_a60 JTF_NUMBER_TABLE
2560     , p5_a61 JTF_NUMBER_TABLE
2561     , p5_a62 JTF_NUMBER_TABLE
2562     , p5_a63 JTF_NUMBER_TABLE
2563     , p5_a64 JTF_NUMBER_TABLE
2564     , p5_a65 JTF_NUMBER_TABLE
2565     , p5_a66 JTF_NUMBER_TABLE
2566     , p5_a67 JTF_NUMBER_TABLE
2567     , p5_a68 JTF_NUMBER_TABLE
2568     , p5_a69 JTF_DATE_TABLE
2569     , p5_a70 JTF_NUMBER_TABLE
2570     , p5_a71 JTF_NUMBER_TABLE
2571     , p5_a72 JTF_NUMBER_TABLE
2572     , p5_a73 JTF_VARCHAR2_TABLE_100
2573     , p5_a74 JTF_NUMBER_TABLE
2574     , p5_a75 JTF_VARCHAR2_TABLE_100
2575     , p5_a76 JTF_VARCHAR2_TABLE_100
2576     , p5_a77 JTF_NUMBER_TABLE
2577     , p5_a78 JTF_DATE_TABLE
2578     , p5_a79 JTF_NUMBER_TABLE
2579     , p5_a80 JTF_NUMBER_TABLE
2580     , p5_a81 JTF_NUMBER_TABLE
2581   )
2582 
2583   as
2584     ddp_tlpv_tbl okl_txl_assets_pub.tlpv_tbl_type;
2585     ddindx binary_integer; indx binary_integer;
2586   begin
2587 
2588     -- copy data to the local IN or IN-OUT args, if any
2589 
2590 
2591 
2592 
2593 
2594     okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_tlpv_tbl, p5_a0
2595       , p5_a1
2596       , p5_a2
2597       , p5_a3
2598       , p5_a4
2599       , p5_a5
2600       , p5_a6
2601       , p5_a7
2602       , p5_a8
2603       , p5_a9
2604       , p5_a10
2605       , p5_a11
2606       , p5_a12
2607       , p5_a13
2608       , p5_a14
2609       , p5_a15
2610       , p5_a16
2611       , p5_a17
2612       , p5_a18
2613       , p5_a19
2614       , p5_a20
2615       , p5_a21
2616       , p5_a22
2617       , p5_a23
2618       , p5_a24
2619       , p5_a25
2620       , p5_a26
2621       , p5_a27
2622       , p5_a28
2623       , p5_a29
2624       , p5_a30
2625       , p5_a31
2626       , p5_a32
2627       , p5_a33
2628       , p5_a34
2629       , p5_a35
2630       , p5_a36
2631       , p5_a37
2632       , p5_a38
2633       , p5_a39
2634       , p5_a40
2635       , p5_a41
2636       , p5_a42
2637       , p5_a43
2638       , p5_a44
2639       , p5_a45
2640       , p5_a46
2641       , p5_a47
2642       , p5_a48
2643       , p5_a49
2644       , p5_a50
2645       , p5_a51
2646       , p5_a52
2647       , p5_a53
2648       , p5_a54
2649       , p5_a55
2650       , p5_a56
2651       , p5_a57
2652       , p5_a58
2653       , p5_a59
2654       , p5_a60
2655       , p5_a61
2656       , p5_a62
2657       , p5_a63
2658       , p5_a64
2659       , p5_a65
2660       , p5_a66
2661       , p5_a67
2662       , p5_a68
2663       , p5_a69
2664       , p5_a70
2665       , p5_a71
2666       , p5_a72
2667       , p5_a73
2668       , p5_a74
2669       , p5_a75
2670       , p5_a76
2671       , p5_a77
2672       , p5_a78
2673       , p5_a79
2674       , p5_a80
2675       , p5_a81
2676       );
2677 
2678     -- here's the delegated call to the old PL/SQL routine
2679     okl_txl_assets_pub.validate_txl_asset_def(p_api_version,
2680       p_init_msg_list,
2681       x_return_status,
2682       x_msg_count,
2683       x_msg_data,
2684       ddp_tlpv_tbl);
2685 
2686     -- copy data back from the local variables to OUT or IN-OUT args, if any
2687 
2688 
2689 
2690 
2691 
2692   end;
2693 
2694 end okl_txl_assets_pub_w;