[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ASSET_RETURN_PUB_W
Source
1 package body okl_am_asset_return_pub_w as
2 /* $Header: OKLUARRB.pls 120.4 2007/11/14 19:36:26 rmunjulu 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure create_asset_return(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy NUMBER
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy NUMBER
35 , p6_a8 out nocopy NUMBER
36 , p6_a9 out nocopy VARCHAR2
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy DATE
39 , p6_a12 out nocopy DATE
40 , p6_a13 out nocopy DATE
41 , p6_a14 out nocopy DATE
42 , p6_a15 out nocopy VARCHAR2
43 , p6_a16 out nocopy VARCHAR2
44 , p6_a17 out nocopy DATE
45 , p6_a18 out nocopy DATE
46 , p6_a19 out nocopy DATE
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy VARCHAR2
51 , p6_a24 out nocopy VARCHAR2
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy VARCHAR2
55 , p6_a28 out nocopy VARCHAR2
56 , p6_a29 out nocopy VARCHAR2
57 , p6_a30 out nocopy VARCHAR2
58 , p6_a31 out nocopy VARCHAR2
59 , p6_a32 out nocopy VARCHAR2
60 , p6_a33 out nocopy VARCHAR2
61 , p6_a34 out nocopy VARCHAR2
62 , p6_a35 out nocopy VARCHAR2
63 , p6_a36 out nocopy VARCHAR2
64 , p6_a37 out nocopy VARCHAR2
65 , p6_a38 out nocopy NUMBER
66 , p6_a39 out nocopy NUMBER
67 , p6_a40 out nocopy NUMBER
68 , p6_a41 out nocopy NUMBER
69 , p6_a42 out nocopy DATE
70 , p6_a43 out nocopy NUMBER
71 , p6_a44 out nocopy DATE
72 , p6_a45 out nocopy NUMBER
73 , p6_a46 out nocopy DATE
74 , p6_a47 out nocopy NUMBER
75 , p6_a48 out nocopy NUMBER
76 , p6_a49 out nocopy VARCHAR2
77 , p6_a50 out nocopy NUMBER
78 , p6_a51 out nocopy VARCHAR2
79 , p6_a52 out nocopy VARCHAR2
80 , p6_a53 out nocopy VARCHAR2
81 , p6_a54 out nocopy VARCHAR2
82 , p6_a55 out nocopy VARCHAR2
83 , p6_a56 out nocopy VARCHAR2
84 , p6_a57 out nocopy VARCHAR2
85 , p6_a58 out nocopy NUMBER
86 , p6_a59 out nocopy DATE
87 , p6_a60 out nocopy NUMBER
88 , p6_a61 out nocopy NUMBER
89 , p_quote_id NUMBER
90 , p5_a0 NUMBER := 0-1962.0724
91 , p5_a1 NUMBER := 0-1962.0724
92 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a3 NUMBER := 0-1962.0724
94 , p5_a4 NUMBER := 0-1962.0724
95 , p5_a5 NUMBER := 0-1962.0724
96 , p5_a6 NUMBER := 0-1962.0724
97 , p5_a7 NUMBER := 0-1962.0724
98 , p5_a8 NUMBER := 0-1962.0724
99 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a11 DATE := fnd_api.g_miss_date
102 , p5_a12 DATE := fnd_api.g_miss_date
103 , p5_a13 DATE := fnd_api.g_miss_date
104 , p5_a14 DATE := fnd_api.g_miss_date
105 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
106 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
107 , p5_a17 DATE := fnd_api.g_miss_date
108 , p5_a18 DATE := fnd_api.g_miss_date
109 , p5_a19 DATE := fnd_api.g_miss_date
110 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
111 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
112 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
113 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
114 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
115 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
117 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
118 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
120 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
121 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
122 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
123 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
124 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
126 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
127 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
128 , p5_a38 NUMBER := 0-1962.0724
129 , p5_a39 NUMBER := 0-1962.0724
130 , p5_a40 NUMBER := 0-1962.0724
131 , p5_a41 NUMBER := 0-1962.0724
132 , p5_a42 DATE := fnd_api.g_miss_date
133 , p5_a43 NUMBER := 0-1962.0724
134 , p5_a44 DATE := fnd_api.g_miss_date
135 , p5_a45 NUMBER := 0-1962.0724
136 , p5_a46 DATE := fnd_api.g_miss_date
137 , p5_a47 NUMBER := 0-1962.0724
138 , p5_a48 NUMBER := 0-1962.0724
139 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a50 NUMBER := 0-1962.0724
141 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
143 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
144 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
145 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
146 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
147 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
148 , p5_a58 NUMBER := 0-1962.0724
149 , p5_a59 DATE := fnd_api.g_miss_date
150 , p5_a60 NUMBER := 0-1962.0724
151 , p5_a61 NUMBER := 0-1962.0724
152 )
153
154 as
155 ddp_artv_rec okl_am_asset_return_pub.artv_rec_type;
156 ddx_artv_rec okl_am_asset_return_pub.artv_rec_type;
157 ddindx binary_integer; indx binary_integer;
158 begin
159
160 -- copy data to the local IN or IN-OUT args, if any
161
162
163
164
165
166 ddp_artv_rec.id := rosetta_g_miss_num_map(p5_a0);
167 ddp_artv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
168 ddp_artv_rec.sfwt_flag := p5_a2;
169 ddp_artv_rec.rmr_id := rosetta_g_miss_num_map(p5_a3);
170 ddp_artv_rec.imr_id := rosetta_g_miss_num_map(p5_a4);
171 ddp_artv_rec.rna_id := rosetta_g_miss_num_map(p5_a5);
172 ddp_artv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
173 ddp_artv_rec.iso_id := rosetta_g_miss_num_map(p5_a7);
174 ddp_artv_rec.security_dep_trx_ap_id := rosetta_g_miss_num_map(p5_a8);
175 ddp_artv_rec.ars_code := p5_a9;
176 ddp_artv_rec.art1_code := p5_a10;
177 ddp_artv_rec.date_returned := rosetta_g_miss_date_in_map(p5_a11);
178 ddp_artv_rec.date_title_returned := rosetta_g_miss_date_in_map(p5_a12);
179 ddp_artv_rec.date_return_due := rosetta_g_miss_date_in_map(p5_a13);
180 ddp_artv_rec.date_return_notified := rosetta_g_miss_date_in_map(p5_a14);
181 ddp_artv_rec.relocate_asset_yn := p5_a15;
182 ddp_artv_rec.voluntary_yn := p5_a16;
183 ddp_artv_rec.date_repossession_required := rosetta_g_miss_date_in_map(p5_a17);
184 ddp_artv_rec.date_repossession_actual := rosetta_g_miss_date_in_map(p5_a18);
185 ddp_artv_rec.date_hold_until := rosetta_g_miss_date_in_map(p5_a19);
186 ddp_artv_rec.commmercially_reas_sale_yn := p5_a20;
187 ddp_artv_rec.comments := p5_a21;
188 ddp_artv_rec.attribute_category := p5_a22;
189 ddp_artv_rec.attribute1 := p5_a23;
190 ddp_artv_rec.attribute2 := p5_a24;
191 ddp_artv_rec.attribute3 := p5_a25;
192 ddp_artv_rec.attribute4 := p5_a26;
193 ddp_artv_rec.attribute5 := p5_a27;
194 ddp_artv_rec.attribute6 := p5_a28;
195 ddp_artv_rec.attribute7 := p5_a29;
196 ddp_artv_rec.attribute8 := p5_a30;
197 ddp_artv_rec.attribute9 := p5_a31;
198 ddp_artv_rec.attribute10 := p5_a32;
199 ddp_artv_rec.attribute11 := p5_a33;
200 ddp_artv_rec.attribute12 := p5_a34;
201 ddp_artv_rec.attribute13 := p5_a35;
202 ddp_artv_rec.attribute14 := p5_a36;
203 ddp_artv_rec.attribute15 := p5_a37;
204 ddp_artv_rec.org_id := rosetta_g_miss_num_map(p5_a38);
205 ddp_artv_rec.request_id := rosetta_g_miss_num_map(p5_a39);
206 ddp_artv_rec.program_application_id := rosetta_g_miss_num_map(p5_a40);
207 ddp_artv_rec.program_id := rosetta_g_miss_num_map(p5_a41);
208 ddp_artv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a42);
209 ddp_artv_rec.created_by := rosetta_g_miss_num_map(p5_a43);
210 ddp_artv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a44);
211 ddp_artv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a45);
212 ddp_artv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a46);
213 ddp_artv_rec.last_update_login := rosetta_g_miss_num_map(p5_a47);
214 ddp_artv_rec.floor_price := rosetta_g_miss_num_map(p5_a48);
215 ddp_artv_rec.new_item_number := p5_a49;
216 ddp_artv_rec.new_item_price := rosetta_g_miss_num_map(p5_a50);
217 ddp_artv_rec.asset_relocated_yn := p5_a51;
218 ddp_artv_rec.new_item_description := p5_a52;
219 ddp_artv_rec.repurchase_agmt_yn := p5_a53;
220 ddp_artv_rec.like_kind_yn := p5_a54;
221 ddp_artv_rec.currency_code := p5_a55;
222 ddp_artv_rec.currency_conversion_code := p5_a56;
223 ddp_artv_rec.currency_conversion_type := p5_a57;
224 ddp_artv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a58);
225 ddp_artv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a59);
226 ddp_artv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a60);
227 ddp_artv_rec.asset_fmv_amount := rosetta_g_miss_num_map(p5_a61);
228
229
230
231 -- here's the delegated call to the old PL/SQL routine
232 okl_am_asset_return_pub.create_asset_return(p_api_version,
233 p_init_msg_list,
234 x_return_status,
235 x_msg_count,
236 x_msg_data,
237 ddp_artv_rec,
238 ddx_artv_rec,
239 p_quote_id);
240
241 -- copy data back from the local variables to OUT or IN-OUT args, if any
242
243
244
245
246
247
248 p6_a0 := rosetta_g_miss_num_map(ddx_artv_rec.id);
249 p6_a1 := rosetta_g_miss_num_map(ddx_artv_rec.object_version_number);
250 p6_a2 := ddx_artv_rec.sfwt_flag;
251 p6_a3 := rosetta_g_miss_num_map(ddx_artv_rec.rmr_id);
252 p6_a4 := rosetta_g_miss_num_map(ddx_artv_rec.imr_id);
253 p6_a5 := rosetta_g_miss_num_map(ddx_artv_rec.rna_id);
254 p6_a6 := rosetta_g_miss_num_map(ddx_artv_rec.kle_id);
255 p6_a7 := rosetta_g_miss_num_map(ddx_artv_rec.iso_id);
256 p6_a8 := rosetta_g_miss_num_map(ddx_artv_rec.security_dep_trx_ap_id);
257 p6_a9 := ddx_artv_rec.ars_code;
258 p6_a10 := ddx_artv_rec.art1_code;
259 p6_a11 := ddx_artv_rec.date_returned;
260 p6_a12 := ddx_artv_rec.date_title_returned;
261 p6_a13 := ddx_artv_rec.date_return_due;
262 p6_a14 := ddx_artv_rec.date_return_notified;
263 p6_a15 := ddx_artv_rec.relocate_asset_yn;
264 p6_a16 := ddx_artv_rec.voluntary_yn;
265 p6_a17 := ddx_artv_rec.date_repossession_required;
266 p6_a18 := ddx_artv_rec.date_repossession_actual;
267 p6_a19 := ddx_artv_rec.date_hold_until;
268 p6_a20 := ddx_artv_rec.commmercially_reas_sale_yn;
269 p6_a21 := ddx_artv_rec.comments;
270 p6_a22 := ddx_artv_rec.attribute_category;
271 p6_a23 := ddx_artv_rec.attribute1;
272 p6_a24 := ddx_artv_rec.attribute2;
273 p6_a25 := ddx_artv_rec.attribute3;
274 p6_a26 := ddx_artv_rec.attribute4;
275 p6_a27 := ddx_artv_rec.attribute5;
276 p6_a28 := ddx_artv_rec.attribute6;
277 p6_a29 := ddx_artv_rec.attribute7;
278 p6_a30 := ddx_artv_rec.attribute8;
279 p6_a31 := ddx_artv_rec.attribute9;
280 p6_a32 := ddx_artv_rec.attribute10;
281 p6_a33 := ddx_artv_rec.attribute11;
282 p6_a34 := ddx_artv_rec.attribute12;
283 p6_a35 := ddx_artv_rec.attribute13;
284 p6_a36 := ddx_artv_rec.attribute14;
285 p6_a37 := ddx_artv_rec.attribute15;
286 p6_a38 := rosetta_g_miss_num_map(ddx_artv_rec.org_id);
287 p6_a39 := rosetta_g_miss_num_map(ddx_artv_rec.request_id);
288 p6_a40 := rosetta_g_miss_num_map(ddx_artv_rec.program_application_id);
289 p6_a41 := rosetta_g_miss_num_map(ddx_artv_rec.program_id);
290 p6_a42 := ddx_artv_rec.program_update_date;
291 p6_a43 := rosetta_g_miss_num_map(ddx_artv_rec.created_by);
292 p6_a44 := ddx_artv_rec.creation_date;
293 p6_a45 := rosetta_g_miss_num_map(ddx_artv_rec.last_updated_by);
294 p6_a46 := ddx_artv_rec.last_update_date;
295 p6_a47 := rosetta_g_miss_num_map(ddx_artv_rec.last_update_login);
296 p6_a48 := rosetta_g_miss_num_map(ddx_artv_rec.floor_price);
297 p6_a49 := ddx_artv_rec.new_item_number;
298 p6_a50 := rosetta_g_miss_num_map(ddx_artv_rec.new_item_price);
299 p6_a51 := ddx_artv_rec.asset_relocated_yn;
300 p6_a52 := ddx_artv_rec.new_item_description;
301 p6_a53 := ddx_artv_rec.repurchase_agmt_yn;
302 p6_a54 := ddx_artv_rec.like_kind_yn;
303 p6_a55 := ddx_artv_rec.currency_code;
304 p6_a56 := ddx_artv_rec.currency_conversion_code;
305 p6_a57 := ddx_artv_rec.currency_conversion_type;
306 p6_a58 := rosetta_g_miss_num_map(ddx_artv_rec.currency_conversion_rate);
307 p6_a59 := ddx_artv_rec.currency_conversion_date;
308 p6_a60 := rosetta_g_miss_num_map(ddx_artv_rec.legal_entity_id);
309 p6_a61 := rosetta_g_miss_num_map(ddx_artv_rec.asset_fmv_amount);
310
311 end;
312
313 procedure update_asset_return(p_api_version NUMBER
314 , p_init_msg_list VARCHAR2
315 , x_return_status out nocopy VARCHAR2
316 , x_msg_count out nocopy NUMBER
317 , x_msg_data out nocopy VARCHAR2
318 , p6_a0 out nocopy NUMBER
319 , p6_a1 out nocopy NUMBER
320 , p6_a2 out nocopy VARCHAR2
321 , p6_a3 out nocopy NUMBER
322 , p6_a4 out nocopy NUMBER
323 , p6_a5 out nocopy NUMBER
324 , p6_a6 out nocopy NUMBER
325 , p6_a7 out nocopy NUMBER
326 , p6_a8 out nocopy NUMBER
327 , p6_a9 out nocopy VARCHAR2
328 , p6_a10 out nocopy VARCHAR2
329 , p6_a11 out nocopy DATE
330 , p6_a12 out nocopy DATE
331 , p6_a13 out nocopy DATE
332 , p6_a14 out nocopy DATE
333 , p6_a15 out nocopy VARCHAR2
334 , p6_a16 out nocopy VARCHAR2
335 , p6_a17 out nocopy DATE
336 , p6_a18 out nocopy DATE
337 , p6_a19 out nocopy DATE
338 , p6_a20 out nocopy VARCHAR2
339 , p6_a21 out nocopy VARCHAR2
340 , p6_a22 out nocopy VARCHAR2
341 , p6_a23 out nocopy VARCHAR2
342 , p6_a24 out nocopy VARCHAR2
343 , p6_a25 out nocopy VARCHAR2
344 , p6_a26 out nocopy VARCHAR2
345 , p6_a27 out nocopy VARCHAR2
346 , p6_a28 out nocopy VARCHAR2
347 , p6_a29 out nocopy VARCHAR2
348 , p6_a30 out nocopy VARCHAR2
349 , p6_a31 out nocopy VARCHAR2
350 , p6_a32 out nocopy VARCHAR2
351 , p6_a33 out nocopy VARCHAR2
352 , p6_a34 out nocopy VARCHAR2
353 , p6_a35 out nocopy VARCHAR2
354 , p6_a36 out nocopy VARCHAR2
355 , p6_a37 out nocopy VARCHAR2
356 , p6_a38 out nocopy NUMBER
357 , p6_a39 out nocopy NUMBER
358 , p6_a40 out nocopy NUMBER
359 , p6_a41 out nocopy NUMBER
360 , p6_a42 out nocopy DATE
361 , p6_a43 out nocopy NUMBER
362 , p6_a44 out nocopy DATE
363 , p6_a45 out nocopy NUMBER
364 , p6_a46 out nocopy DATE
365 , p6_a47 out nocopy NUMBER
366 , p6_a48 out nocopy NUMBER
367 , p6_a49 out nocopy VARCHAR2
368 , p6_a50 out nocopy NUMBER
369 , p6_a51 out nocopy VARCHAR2
370 , p6_a52 out nocopy VARCHAR2
371 , p6_a53 out nocopy VARCHAR2
372 , p6_a54 out nocopy VARCHAR2
373 , p6_a55 out nocopy VARCHAR2
374 , p6_a56 out nocopy VARCHAR2
375 , p6_a57 out nocopy VARCHAR2
376 , p6_a58 out nocopy NUMBER
377 , p6_a59 out nocopy DATE
378 , p6_a60 out nocopy NUMBER
379 , p6_a61 out nocopy NUMBER
380 , p5_a0 NUMBER := 0-1962.0724
381 , p5_a1 NUMBER := 0-1962.0724
382 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
383 , p5_a3 NUMBER := 0-1962.0724
384 , p5_a4 NUMBER := 0-1962.0724
385 , p5_a5 NUMBER := 0-1962.0724
386 , p5_a6 NUMBER := 0-1962.0724
387 , p5_a7 NUMBER := 0-1962.0724
388 , p5_a8 NUMBER := 0-1962.0724
389 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
390 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
391 , p5_a11 DATE := fnd_api.g_miss_date
392 , p5_a12 DATE := fnd_api.g_miss_date
393 , p5_a13 DATE := fnd_api.g_miss_date
394 , p5_a14 DATE := fnd_api.g_miss_date
395 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
396 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
397 , p5_a17 DATE := fnd_api.g_miss_date
398 , p5_a18 DATE := fnd_api.g_miss_date
399 , p5_a19 DATE := fnd_api.g_miss_date
400 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
401 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
402 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
403 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
404 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
405 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
406 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
407 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
408 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
409 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
410 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
411 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
412 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
413 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
414 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
415 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
416 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
417 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
418 , p5_a38 NUMBER := 0-1962.0724
419 , p5_a39 NUMBER := 0-1962.0724
420 , p5_a40 NUMBER := 0-1962.0724
421 , p5_a41 NUMBER := 0-1962.0724
422 , p5_a42 DATE := fnd_api.g_miss_date
423 , p5_a43 NUMBER := 0-1962.0724
424 , p5_a44 DATE := fnd_api.g_miss_date
425 , p5_a45 NUMBER := 0-1962.0724
426 , p5_a46 DATE := fnd_api.g_miss_date
427 , p5_a47 NUMBER := 0-1962.0724
428 , p5_a48 NUMBER := 0-1962.0724
429 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
430 , p5_a50 NUMBER := 0-1962.0724
431 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
432 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
433 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
434 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
435 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
436 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
437 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
438 , p5_a58 NUMBER := 0-1962.0724
439 , p5_a59 DATE := fnd_api.g_miss_date
440 , p5_a60 NUMBER := 0-1962.0724
441 , p5_a61 NUMBER := 0-1962.0724
442 )
443
444 as
445 ddp_artv_rec okl_am_asset_return_pub.artv_rec_type;
446 ddx_artv_rec okl_am_asset_return_pub.artv_rec_type;
447 ddindx binary_integer; indx binary_integer;
448 begin
449
450 -- copy data to the local IN or IN-OUT args, if any
451
452
453
454
455
456 ddp_artv_rec.id := rosetta_g_miss_num_map(p5_a0);
457 ddp_artv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
458 ddp_artv_rec.sfwt_flag := p5_a2;
459 ddp_artv_rec.rmr_id := rosetta_g_miss_num_map(p5_a3);
460 ddp_artv_rec.imr_id := rosetta_g_miss_num_map(p5_a4);
461 ddp_artv_rec.rna_id := rosetta_g_miss_num_map(p5_a5);
462 ddp_artv_rec.kle_id := rosetta_g_miss_num_map(p5_a6);
463 ddp_artv_rec.iso_id := rosetta_g_miss_num_map(p5_a7);
464 ddp_artv_rec.security_dep_trx_ap_id := rosetta_g_miss_num_map(p5_a8);
465 ddp_artv_rec.ars_code := p5_a9;
466 ddp_artv_rec.art1_code := p5_a10;
467 ddp_artv_rec.date_returned := rosetta_g_miss_date_in_map(p5_a11);
468 ddp_artv_rec.date_title_returned := rosetta_g_miss_date_in_map(p5_a12);
469 ddp_artv_rec.date_return_due := rosetta_g_miss_date_in_map(p5_a13);
470 ddp_artv_rec.date_return_notified := rosetta_g_miss_date_in_map(p5_a14);
471 ddp_artv_rec.relocate_asset_yn := p5_a15;
472 ddp_artv_rec.voluntary_yn := p5_a16;
473 ddp_artv_rec.date_repossession_required := rosetta_g_miss_date_in_map(p5_a17);
474 ddp_artv_rec.date_repossession_actual := rosetta_g_miss_date_in_map(p5_a18);
475 ddp_artv_rec.date_hold_until := rosetta_g_miss_date_in_map(p5_a19);
476 ddp_artv_rec.commmercially_reas_sale_yn := p5_a20;
477 ddp_artv_rec.comments := p5_a21;
478 ddp_artv_rec.attribute_category := p5_a22;
479 ddp_artv_rec.attribute1 := p5_a23;
480 ddp_artv_rec.attribute2 := p5_a24;
481 ddp_artv_rec.attribute3 := p5_a25;
482 ddp_artv_rec.attribute4 := p5_a26;
483 ddp_artv_rec.attribute5 := p5_a27;
484 ddp_artv_rec.attribute6 := p5_a28;
485 ddp_artv_rec.attribute7 := p5_a29;
486 ddp_artv_rec.attribute8 := p5_a30;
487 ddp_artv_rec.attribute9 := p5_a31;
488 ddp_artv_rec.attribute10 := p5_a32;
489 ddp_artv_rec.attribute11 := p5_a33;
490 ddp_artv_rec.attribute12 := p5_a34;
491 ddp_artv_rec.attribute13 := p5_a35;
492 ddp_artv_rec.attribute14 := p5_a36;
493 ddp_artv_rec.attribute15 := p5_a37;
494 ddp_artv_rec.org_id := rosetta_g_miss_num_map(p5_a38);
495 ddp_artv_rec.request_id := rosetta_g_miss_num_map(p5_a39);
496 ddp_artv_rec.program_application_id := rosetta_g_miss_num_map(p5_a40);
497 ddp_artv_rec.program_id := rosetta_g_miss_num_map(p5_a41);
498 ddp_artv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a42);
499 ddp_artv_rec.created_by := rosetta_g_miss_num_map(p5_a43);
500 ddp_artv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a44);
501 ddp_artv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a45);
502 ddp_artv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a46);
503 ddp_artv_rec.last_update_login := rosetta_g_miss_num_map(p5_a47);
504 ddp_artv_rec.floor_price := rosetta_g_miss_num_map(p5_a48);
505 ddp_artv_rec.new_item_number := p5_a49;
506 ddp_artv_rec.new_item_price := rosetta_g_miss_num_map(p5_a50);
507 ddp_artv_rec.asset_relocated_yn := p5_a51;
508 ddp_artv_rec.new_item_description := p5_a52;
509 ddp_artv_rec.repurchase_agmt_yn := p5_a53;
510 ddp_artv_rec.like_kind_yn := p5_a54;
511 ddp_artv_rec.currency_code := p5_a55;
512 ddp_artv_rec.currency_conversion_code := p5_a56;
513 ddp_artv_rec.currency_conversion_type := p5_a57;
514 ddp_artv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a58);
515 ddp_artv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a59);
516 ddp_artv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a60);
517 ddp_artv_rec.asset_fmv_amount := rosetta_g_miss_num_map(p5_a61);
518
519
520 -- here's the delegated call to the old PL/SQL routine
521 okl_am_asset_return_pub.update_asset_return(p_api_version,
522 p_init_msg_list,
523 x_return_status,
524 x_msg_count,
525 x_msg_data,
526 ddp_artv_rec,
527 ddx_artv_rec);
528
529 -- copy data back from the local variables to OUT or IN-OUT args, if any
530
531
532
533
534
535
536 p6_a0 := rosetta_g_miss_num_map(ddx_artv_rec.id);
537 p6_a1 := rosetta_g_miss_num_map(ddx_artv_rec.object_version_number);
538 p6_a2 := ddx_artv_rec.sfwt_flag;
539 p6_a3 := rosetta_g_miss_num_map(ddx_artv_rec.rmr_id);
540 p6_a4 := rosetta_g_miss_num_map(ddx_artv_rec.imr_id);
541 p6_a5 := rosetta_g_miss_num_map(ddx_artv_rec.rna_id);
542 p6_a6 := rosetta_g_miss_num_map(ddx_artv_rec.kle_id);
543 p6_a7 := rosetta_g_miss_num_map(ddx_artv_rec.iso_id);
544 p6_a8 := rosetta_g_miss_num_map(ddx_artv_rec.security_dep_trx_ap_id);
545 p6_a9 := ddx_artv_rec.ars_code;
546 p6_a10 := ddx_artv_rec.art1_code;
547 p6_a11 := ddx_artv_rec.date_returned;
548 p6_a12 := ddx_artv_rec.date_title_returned;
549 p6_a13 := ddx_artv_rec.date_return_due;
550 p6_a14 := ddx_artv_rec.date_return_notified;
551 p6_a15 := ddx_artv_rec.relocate_asset_yn;
552 p6_a16 := ddx_artv_rec.voluntary_yn;
553 p6_a17 := ddx_artv_rec.date_repossession_required;
554 p6_a18 := ddx_artv_rec.date_repossession_actual;
555 p6_a19 := ddx_artv_rec.date_hold_until;
556 p6_a20 := ddx_artv_rec.commmercially_reas_sale_yn;
557 p6_a21 := ddx_artv_rec.comments;
558 p6_a22 := ddx_artv_rec.attribute_category;
559 p6_a23 := ddx_artv_rec.attribute1;
560 p6_a24 := ddx_artv_rec.attribute2;
561 p6_a25 := ddx_artv_rec.attribute3;
562 p6_a26 := ddx_artv_rec.attribute4;
563 p6_a27 := ddx_artv_rec.attribute5;
564 p6_a28 := ddx_artv_rec.attribute6;
565 p6_a29 := ddx_artv_rec.attribute7;
566 p6_a30 := ddx_artv_rec.attribute8;
567 p6_a31 := ddx_artv_rec.attribute9;
568 p6_a32 := ddx_artv_rec.attribute10;
569 p6_a33 := ddx_artv_rec.attribute11;
570 p6_a34 := ddx_artv_rec.attribute12;
571 p6_a35 := ddx_artv_rec.attribute13;
572 p6_a36 := ddx_artv_rec.attribute14;
573 p6_a37 := ddx_artv_rec.attribute15;
574 p6_a38 := rosetta_g_miss_num_map(ddx_artv_rec.org_id);
575 p6_a39 := rosetta_g_miss_num_map(ddx_artv_rec.request_id);
576 p6_a40 := rosetta_g_miss_num_map(ddx_artv_rec.program_application_id);
577 p6_a41 := rosetta_g_miss_num_map(ddx_artv_rec.program_id);
578 p6_a42 := ddx_artv_rec.program_update_date;
579 p6_a43 := rosetta_g_miss_num_map(ddx_artv_rec.created_by);
580 p6_a44 := ddx_artv_rec.creation_date;
581 p6_a45 := rosetta_g_miss_num_map(ddx_artv_rec.last_updated_by);
582 p6_a46 := ddx_artv_rec.last_update_date;
583 p6_a47 := rosetta_g_miss_num_map(ddx_artv_rec.last_update_login);
584 p6_a48 := rosetta_g_miss_num_map(ddx_artv_rec.floor_price);
585 p6_a49 := ddx_artv_rec.new_item_number;
586 p6_a50 := rosetta_g_miss_num_map(ddx_artv_rec.new_item_price);
587 p6_a51 := ddx_artv_rec.asset_relocated_yn;
588 p6_a52 := ddx_artv_rec.new_item_description;
589 p6_a53 := ddx_artv_rec.repurchase_agmt_yn;
590 p6_a54 := ddx_artv_rec.like_kind_yn;
591 p6_a55 := ddx_artv_rec.currency_code;
592 p6_a56 := ddx_artv_rec.currency_conversion_code;
593 p6_a57 := ddx_artv_rec.currency_conversion_type;
594 p6_a58 := rosetta_g_miss_num_map(ddx_artv_rec.currency_conversion_rate);
595 p6_a59 := ddx_artv_rec.currency_conversion_date;
596 p6_a60 := rosetta_g_miss_num_map(ddx_artv_rec.legal_entity_id);
597 p6_a61 := rosetta_g_miss_num_map(ddx_artv_rec.asset_fmv_amount);
598 end;
599
600 procedure create_asset_return(p_api_version NUMBER
601 , p_init_msg_list VARCHAR2
602 , x_return_status out nocopy VARCHAR2
603 , x_msg_count out nocopy NUMBER
604 , x_msg_data out nocopy VARCHAR2
605 , p5_a0 JTF_NUMBER_TABLE
606 , p5_a1 JTF_NUMBER_TABLE
607 , p5_a2 JTF_VARCHAR2_TABLE_100
608 , p5_a3 JTF_NUMBER_TABLE
609 , p5_a4 JTF_NUMBER_TABLE
610 , p5_a5 JTF_NUMBER_TABLE
611 , p5_a6 JTF_NUMBER_TABLE
612 , p5_a7 JTF_NUMBER_TABLE
613 , p5_a8 JTF_NUMBER_TABLE
614 , p5_a9 JTF_VARCHAR2_TABLE_100
615 , p5_a10 JTF_VARCHAR2_TABLE_100
616 , p5_a11 JTF_DATE_TABLE
617 , p5_a12 JTF_DATE_TABLE
618 , p5_a13 JTF_DATE_TABLE
619 , p5_a14 JTF_DATE_TABLE
620 , p5_a15 JTF_VARCHAR2_TABLE_100
621 , p5_a16 JTF_VARCHAR2_TABLE_100
622 , p5_a17 JTF_DATE_TABLE
623 , p5_a18 JTF_DATE_TABLE
624 , p5_a19 JTF_DATE_TABLE
625 , p5_a20 JTF_VARCHAR2_TABLE_100
626 , p5_a21 JTF_VARCHAR2_TABLE_2000
627 , p5_a22 JTF_VARCHAR2_TABLE_100
628 , p5_a23 JTF_VARCHAR2_TABLE_500
629 , p5_a24 JTF_VARCHAR2_TABLE_500
630 , p5_a25 JTF_VARCHAR2_TABLE_500
631 , p5_a26 JTF_VARCHAR2_TABLE_500
632 , p5_a27 JTF_VARCHAR2_TABLE_500
633 , p5_a28 JTF_VARCHAR2_TABLE_500
634 , p5_a29 JTF_VARCHAR2_TABLE_500
635 , p5_a30 JTF_VARCHAR2_TABLE_500
636 , p5_a31 JTF_VARCHAR2_TABLE_500
637 , p5_a32 JTF_VARCHAR2_TABLE_500
638 , p5_a33 JTF_VARCHAR2_TABLE_500
639 , p5_a34 JTF_VARCHAR2_TABLE_500
640 , p5_a35 JTF_VARCHAR2_TABLE_500
641 , p5_a36 JTF_VARCHAR2_TABLE_500
642 , p5_a37 JTF_VARCHAR2_TABLE_500
643 , p5_a38 JTF_NUMBER_TABLE
644 , p5_a39 JTF_NUMBER_TABLE
645 , p5_a40 JTF_NUMBER_TABLE
646 , p5_a41 JTF_NUMBER_TABLE
647 , p5_a42 JTF_DATE_TABLE
648 , p5_a43 JTF_NUMBER_TABLE
649 , p5_a44 JTF_DATE_TABLE
650 , p5_a45 JTF_NUMBER_TABLE
651 , p5_a46 JTF_DATE_TABLE
652 , p5_a47 JTF_NUMBER_TABLE
653 , p5_a48 JTF_NUMBER_TABLE
654 , p5_a49 JTF_VARCHAR2_TABLE_100
655 , p5_a50 JTF_NUMBER_TABLE
656 , p5_a51 JTF_VARCHAR2_TABLE_100
657 , p5_a52 JTF_VARCHAR2_TABLE_2000
658 , p5_a53 JTF_VARCHAR2_TABLE_100
659 , p5_a54 JTF_VARCHAR2_TABLE_100
660 , p5_a55 JTF_VARCHAR2_TABLE_100
661 , p5_a56 JTF_VARCHAR2_TABLE_100
662 , p5_a57 JTF_VARCHAR2_TABLE_100
663 , p5_a58 JTF_NUMBER_TABLE
664 , p5_a59 JTF_DATE_TABLE
665 , p5_a60 JTF_NUMBER_TABLE
666 , p5_a61 JTF_NUMBER_TABLE
667 , p6_a0 out nocopy JTF_NUMBER_TABLE
668 , p6_a1 out nocopy JTF_NUMBER_TABLE
669 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
670 , p6_a3 out nocopy JTF_NUMBER_TABLE
671 , p6_a4 out nocopy JTF_NUMBER_TABLE
672 , p6_a5 out nocopy JTF_NUMBER_TABLE
673 , p6_a6 out nocopy JTF_NUMBER_TABLE
674 , p6_a7 out nocopy JTF_NUMBER_TABLE
675 , p6_a8 out nocopy JTF_NUMBER_TABLE
676 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
677 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
678 , p6_a11 out nocopy JTF_DATE_TABLE
679 , p6_a12 out nocopy JTF_DATE_TABLE
680 , p6_a13 out nocopy JTF_DATE_TABLE
681 , p6_a14 out nocopy JTF_DATE_TABLE
682 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
683 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
684 , p6_a17 out nocopy JTF_DATE_TABLE
685 , p6_a18 out nocopy JTF_DATE_TABLE
686 , p6_a19 out nocopy JTF_DATE_TABLE
687 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
688 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_2000
689 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
690 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
691 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
692 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
693 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
694 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
695 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
696 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
697 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
698 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
699 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
700 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
701 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
702 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
703 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
704 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
705 , p6_a38 out nocopy JTF_NUMBER_TABLE
706 , p6_a39 out nocopy JTF_NUMBER_TABLE
707 , p6_a40 out nocopy JTF_NUMBER_TABLE
708 , p6_a41 out nocopy JTF_NUMBER_TABLE
709 , p6_a42 out nocopy JTF_DATE_TABLE
710 , p6_a43 out nocopy JTF_NUMBER_TABLE
711 , p6_a44 out nocopy JTF_DATE_TABLE
712 , p6_a45 out nocopy JTF_NUMBER_TABLE
713 , p6_a46 out nocopy JTF_DATE_TABLE
714 , p6_a47 out nocopy JTF_NUMBER_TABLE
715 , p6_a48 out nocopy JTF_NUMBER_TABLE
716 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_100
717 , p6_a50 out nocopy JTF_NUMBER_TABLE
718 , p6_a51 out nocopy JTF_VARCHAR2_TABLE_100
719 , p6_a52 out nocopy JTF_VARCHAR2_TABLE_2000
720 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_100
721 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
722 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
723 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
724 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
725 , p6_a58 out nocopy JTF_NUMBER_TABLE
726 , p6_a59 out nocopy JTF_DATE_TABLE
727 , p6_a60 out nocopy JTF_NUMBER_TABLE
728 , p6_a61 out nocopy JTF_NUMBER_TABLE
729 , p_quote_id NUMBER
730 )
731
732 as
733 ddp_artv_tbl okl_am_asset_return_pub.artv_tbl_type;
734 ddx_artv_tbl okl_am_asset_return_pub.artv_tbl_type;
735 ddindx binary_integer; indx binary_integer;
736 begin
737
738 -- copy data to the local IN or IN-OUT args, if any
739
740
741
742
743
744 okl_art_pvt_w.rosetta_table_copy_in_p8(ddp_artv_tbl, p5_a0
745 , p5_a1
746 , p5_a2
747 , p5_a3
748 , p5_a4
749 , p5_a5
750 , p5_a6
751 , p5_a7
752 , p5_a8
753 , p5_a9
754 , p5_a10
755 , p5_a11
756 , p5_a12
757 , p5_a13
758 , p5_a14
759 , p5_a15
760 , p5_a16
761 , p5_a17
762 , p5_a18
763 , p5_a19
764 , p5_a20
765 , p5_a21
766 , p5_a22
767 , p5_a23
768 , p5_a24
769 , p5_a25
770 , p5_a26
771 , p5_a27
772 , p5_a28
773 , p5_a29
774 , p5_a30
775 , p5_a31
776 , p5_a32
777 , p5_a33
778 , p5_a34
779 , p5_a35
780 , p5_a36
781 , p5_a37
782 , p5_a38
783 , p5_a39
784 , p5_a40
785 , p5_a41
786 , p5_a42
787 , p5_a43
788 , p5_a44
789 , p5_a45
790 , p5_a46
791 , p5_a47
792 , p5_a48
793 , p5_a49
794 , p5_a50
795 , p5_a51
796 , p5_a52
797 , p5_a53
798 , p5_a54
799 , p5_a55
800 , p5_a56
801 , p5_a57
802 , p5_a58
803 , p5_a59
804 , p5_a60
805 , p5_a61
806 );
807
808
809
810 -- here's the delegated call to the old PL/SQL routine
811 okl_am_asset_return_pub.create_asset_return(p_api_version,
812 p_init_msg_list,
813 x_return_status,
814 x_msg_count,
815 x_msg_data,
816 ddp_artv_tbl,
817 ddx_artv_tbl,
818 p_quote_id);
819
820 -- copy data back from the local variables to OUT or IN-OUT args, if any
821
822
823
824
825
826
827 okl_art_pvt_w.rosetta_table_copy_out_p8(ddx_artv_tbl, p6_a0
828 , p6_a1
829 , p6_a2
830 , p6_a3
831 , p6_a4
832 , p6_a5
833 , p6_a6
834 , p6_a7
835 , p6_a8
836 , p6_a9
837 , p6_a10
838 , p6_a11
839 , p6_a12
840 , p6_a13
841 , p6_a14
842 , p6_a15
843 , p6_a16
844 , p6_a17
845 , p6_a18
846 , p6_a19
847 , p6_a20
848 , p6_a21
849 , p6_a22
850 , p6_a23
851 , p6_a24
852 , p6_a25
853 , p6_a26
854 , p6_a27
855 , p6_a28
856 , p6_a29
857 , p6_a30
858 , p6_a31
859 , p6_a32
860 , p6_a33
861 , p6_a34
862 , p6_a35
863 , p6_a36
864 , p6_a37
865 , p6_a38
866 , p6_a39
867 , p6_a40
868 , p6_a41
869 , p6_a42
870 , p6_a43
871 , p6_a44
872 , p6_a45
873 , p6_a46
874 , p6_a47
875 , p6_a48
876 , p6_a49
877 , p6_a50
878 , p6_a51
879 , p6_a52
880 , p6_a53
881 , p6_a54
882 , p6_a55
883 , p6_a56
884 , p6_a57
885 , p6_a58
886 , p6_a59
887 , p6_a60
888 , p6_a61
889 );
890
891 end;
892
893 procedure update_asset_return(p_api_version NUMBER
894 , p_init_msg_list VARCHAR2
895 , x_return_status out nocopy VARCHAR2
896 , x_msg_count out nocopy NUMBER
897 , x_msg_data out nocopy VARCHAR2
898 , p5_a0 JTF_NUMBER_TABLE
899 , p5_a1 JTF_NUMBER_TABLE
900 , p5_a2 JTF_VARCHAR2_TABLE_100
901 , p5_a3 JTF_NUMBER_TABLE
902 , p5_a4 JTF_NUMBER_TABLE
903 , p5_a5 JTF_NUMBER_TABLE
904 , p5_a6 JTF_NUMBER_TABLE
905 , p5_a7 JTF_NUMBER_TABLE
906 , p5_a8 JTF_NUMBER_TABLE
907 , p5_a9 JTF_VARCHAR2_TABLE_100
908 , p5_a10 JTF_VARCHAR2_TABLE_100
909 , p5_a11 JTF_DATE_TABLE
910 , p5_a12 JTF_DATE_TABLE
911 , p5_a13 JTF_DATE_TABLE
912 , p5_a14 JTF_DATE_TABLE
913 , p5_a15 JTF_VARCHAR2_TABLE_100
914 , p5_a16 JTF_VARCHAR2_TABLE_100
915 , p5_a17 JTF_DATE_TABLE
916 , p5_a18 JTF_DATE_TABLE
917 , p5_a19 JTF_DATE_TABLE
918 , p5_a20 JTF_VARCHAR2_TABLE_100
919 , p5_a21 JTF_VARCHAR2_TABLE_2000
920 , p5_a22 JTF_VARCHAR2_TABLE_100
921 , p5_a23 JTF_VARCHAR2_TABLE_500
922 , p5_a24 JTF_VARCHAR2_TABLE_500
923 , p5_a25 JTF_VARCHAR2_TABLE_500
924 , p5_a26 JTF_VARCHAR2_TABLE_500
925 , p5_a27 JTF_VARCHAR2_TABLE_500
926 , p5_a28 JTF_VARCHAR2_TABLE_500
927 , p5_a29 JTF_VARCHAR2_TABLE_500
928 , p5_a30 JTF_VARCHAR2_TABLE_500
929 , p5_a31 JTF_VARCHAR2_TABLE_500
930 , p5_a32 JTF_VARCHAR2_TABLE_500
931 , p5_a33 JTF_VARCHAR2_TABLE_500
932 , p5_a34 JTF_VARCHAR2_TABLE_500
933 , p5_a35 JTF_VARCHAR2_TABLE_500
934 , p5_a36 JTF_VARCHAR2_TABLE_500
935 , p5_a37 JTF_VARCHAR2_TABLE_500
936 , p5_a38 JTF_NUMBER_TABLE
937 , p5_a39 JTF_NUMBER_TABLE
938 , p5_a40 JTF_NUMBER_TABLE
939 , p5_a41 JTF_NUMBER_TABLE
940 , p5_a42 JTF_DATE_TABLE
941 , p5_a43 JTF_NUMBER_TABLE
942 , p5_a44 JTF_DATE_TABLE
943 , p5_a45 JTF_NUMBER_TABLE
944 , p5_a46 JTF_DATE_TABLE
945 , p5_a47 JTF_NUMBER_TABLE
946 , p5_a48 JTF_NUMBER_TABLE
947 , p5_a49 JTF_VARCHAR2_TABLE_100
948 , p5_a50 JTF_NUMBER_TABLE
949 , p5_a51 JTF_VARCHAR2_TABLE_100
950 , p5_a52 JTF_VARCHAR2_TABLE_2000
951 , p5_a53 JTF_VARCHAR2_TABLE_100
952 , p5_a54 JTF_VARCHAR2_TABLE_100
953 , p5_a55 JTF_VARCHAR2_TABLE_100
954 , p5_a56 JTF_VARCHAR2_TABLE_100
955 , p5_a57 JTF_VARCHAR2_TABLE_100
956 , p5_a58 JTF_NUMBER_TABLE
957 , p5_a59 JTF_DATE_TABLE
958 , p5_a60 JTF_NUMBER_TABLE
959 , p5_a61 JTF_NUMBER_TABLE
960 , p6_a0 out nocopy JTF_NUMBER_TABLE
961 , p6_a1 out nocopy JTF_NUMBER_TABLE
962 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
963 , p6_a3 out nocopy JTF_NUMBER_TABLE
964 , p6_a4 out nocopy JTF_NUMBER_TABLE
965 , p6_a5 out nocopy JTF_NUMBER_TABLE
966 , p6_a6 out nocopy JTF_NUMBER_TABLE
967 , p6_a7 out nocopy JTF_NUMBER_TABLE
968 , p6_a8 out nocopy JTF_NUMBER_TABLE
969 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
970 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
971 , p6_a11 out nocopy JTF_DATE_TABLE
972 , p6_a12 out nocopy JTF_DATE_TABLE
973 , p6_a13 out nocopy JTF_DATE_TABLE
974 , p6_a14 out nocopy JTF_DATE_TABLE
975 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
976 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
977 , p6_a17 out nocopy JTF_DATE_TABLE
978 , p6_a18 out nocopy JTF_DATE_TABLE
979 , p6_a19 out nocopy JTF_DATE_TABLE
980 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
981 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_2000
982 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
983 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
984 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
985 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
986 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
987 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
988 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
989 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
990 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
991 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
992 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
993 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
994 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
995 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
996 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
997 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
998 , p6_a38 out nocopy JTF_NUMBER_TABLE
999 , p6_a39 out nocopy JTF_NUMBER_TABLE
1000 , p6_a40 out nocopy JTF_NUMBER_TABLE
1001 , p6_a41 out nocopy JTF_NUMBER_TABLE
1002 , p6_a42 out nocopy JTF_DATE_TABLE
1003 , p6_a43 out nocopy JTF_NUMBER_TABLE
1004 , p6_a44 out nocopy JTF_DATE_TABLE
1005 , p6_a45 out nocopy JTF_NUMBER_TABLE
1006 , p6_a46 out nocopy JTF_DATE_TABLE
1007 , p6_a47 out nocopy JTF_NUMBER_TABLE
1008 , p6_a48 out nocopy JTF_NUMBER_TABLE
1009 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_100
1010 , p6_a50 out nocopy JTF_NUMBER_TABLE
1011 , p6_a51 out nocopy JTF_VARCHAR2_TABLE_100
1012 , p6_a52 out nocopy JTF_VARCHAR2_TABLE_2000
1013 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_100
1014 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
1015 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
1016 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
1017 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
1018 , p6_a58 out nocopy JTF_NUMBER_TABLE
1019 , p6_a59 out nocopy JTF_DATE_TABLE
1020 , p6_a60 out nocopy JTF_NUMBER_TABLE
1021 , p6_a61 out nocopy JTF_NUMBER_TABLE
1022 )
1023
1024 as
1025 ddp_artv_tbl okl_am_asset_return_pub.artv_tbl_type;
1026 ddx_artv_tbl okl_am_asset_return_pub.artv_tbl_type;
1027 ddindx binary_integer; indx binary_integer;
1028 begin
1029
1030 -- copy data to the local IN or IN-OUT args, if any
1031
1032
1033
1034
1035
1036 okl_art_pvt_w.rosetta_table_copy_in_p8(ddp_artv_tbl, p5_a0
1037 , p5_a1
1038 , p5_a2
1039 , p5_a3
1040 , p5_a4
1041 , p5_a5
1042 , p5_a6
1043 , p5_a7
1044 , p5_a8
1045 , p5_a9
1046 , p5_a10
1047 , p5_a11
1048 , p5_a12
1049 , p5_a13
1050 , p5_a14
1051 , p5_a15
1052 , p5_a16
1053 , p5_a17
1054 , p5_a18
1055 , p5_a19
1056 , p5_a20
1057 , p5_a21
1058 , p5_a22
1059 , p5_a23
1060 , p5_a24
1061 , p5_a25
1062 , p5_a26
1063 , p5_a27
1064 , p5_a28
1065 , p5_a29
1066 , p5_a30
1067 , p5_a31
1068 , p5_a32
1069 , p5_a33
1070 , p5_a34
1071 , p5_a35
1072 , p5_a36
1073 , p5_a37
1074 , p5_a38
1075 , p5_a39
1076 , p5_a40
1077 , p5_a41
1078 , p5_a42
1079 , p5_a43
1080 , p5_a44
1081 , p5_a45
1082 , p5_a46
1083 , p5_a47
1084 , p5_a48
1085 , p5_a49
1086 , p5_a50
1087 , p5_a51
1088 , p5_a52
1089 , p5_a53
1090 , p5_a54
1091 , p5_a55
1092 , p5_a56
1093 , p5_a57
1094 , p5_a58
1095 , p5_a59
1096 , p5_a60
1097 , p5_a61
1098 );
1099
1100
1101 -- here's the delegated call to the old PL/SQL routine
1102 okl_am_asset_return_pub.update_asset_return(p_api_version,
1103 p_init_msg_list,
1104 x_return_status,
1105 x_msg_count,
1106 x_msg_data,
1107 ddp_artv_tbl,
1108 ddx_artv_tbl);
1109
1110 -- copy data back from the local variables to OUT or IN-OUT args, if any
1111
1112
1113
1114
1115
1116
1117 okl_art_pvt_w.rosetta_table_copy_out_p8(ddx_artv_tbl, p6_a0
1118 , p6_a1
1119 , p6_a2
1120 , p6_a3
1121 , p6_a4
1122 , p6_a5
1123 , p6_a6
1124 , p6_a7
1125 , p6_a8
1126 , p6_a9
1127 , p6_a10
1128 , p6_a11
1129 , p6_a12
1130 , p6_a13
1131 , p6_a14
1132 , p6_a15
1133 , p6_a16
1134 , p6_a17
1135 , p6_a18
1136 , p6_a19
1137 , p6_a20
1138 , p6_a21
1139 , p6_a22
1140 , p6_a23
1141 , p6_a24
1142 , p6_a25
1143 , p6_a26
1144 , p6_a27
1145 , p6_a28
1146 , p6_a29
1147 , p6_a30
1148 , p6_a31
1149 , p6_a32
1150 , p6_a33
1151 , p6_a34
1152 , p6_a35
1153 , p6_a36
1154 , p6_a37
1155 , p6_a38
1156 , p6_a39
1157 , p6_a40
1158 , p6_a41
1159 , p6_a42
1160 , p6_a43
1161 , p6_a44
1162 , p6_a45
1163 , p6_a46
1164 , p6_a47
1165 , p6_a48
1166 , p6_a49
1167 , p6_a50
1168 , p6_a51
1169 , p6_a52
1170 , p6_a53
1171 , p6_a54
1172 , p6_a55
1173 , p6_a56
1174 , p6_a57
1175 , p6_a58
1176 , p6_a59
1177 , p6_a60
1178 , p6_a61
1179 );
1180 end;
1181
1182 end okl_am_asset_return_pub_w;