[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_AMORTIZE_PUB_W
Source
1 package body okl_am_amortize_pub_w as
2 /* $Header: OKLUTATB.pls 120.5.12010000.2 2010/04/29 15:43:53 rpillay 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_offlease_asset_trx(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 , p_kle_id NUMBER
31 , p_early_termination_yn VARCHAR2
32 , p_quote_eff_date date
33 , p_quote_accpt_date date
34 )
35
36 as
37 ddp_quote_eff_date date;
38 ddp_quote_accpt_date date;
39 ddindx binary_integer; indx binary_integer;
40 begin
41
42 -- copy data to the local IN or IN-OUT args, if any
43
44
45
46
47
48
49
50 ddp_quote_eff_date := rosetta_g_miss_date_in_map(p_quote_eff_date);
51
52 ddp_quote_accpt_date := rosetta_g_miss_date_in_map(p_quote_accpt_date);
53
54 -- here's the delegated call to the old PL/SQL routine
55 okl_am_amortize_pub.create_offlease_asset_trx(p_api_version => p_api_version,
56 p_init_msg_list => p_init_msg_list,
57 x_return_status => x_return_status,
58 x_msg_count => x_msg_count,
59 x_msg_data => x_msg_data,
60 p_kle_id => p_kle_id,
61 p_early_termination_yn => p_early_termination_yn,
62 p_quote_eff_date => ddp_quote_eff_date,
63 p_quote_accpt_date => ddp_quote_accpt_date);
64
65 -- copy data back from the local variables to OUT or IN-OUT args, if any
66
67
68
69
70
71
72
73
74 end;
75
76 procedure create_offlease_asset_trx(p_api_version NUMBER
77 , p_init_msg_list VARCHAR2
78 , x_return_status out nocopy VARCHAR2
79 , x_msg_count out nocopy NUMBER
80 , x_msg_data out nocopy VARCHAR2
81 , p_contract_id NUMBER
82 , p_early_termination_yn VARCHAR2
83 , p_quote_eff_date date
84 , p_quote_accpt_date date
85 )
86
87 as
88 ddp_quote_eff_date date;
89 ddp_quote_accpt_date date;
90 ddindx binary_integer; indx binary_integer;
91 begin
92
93 -- copy data to the local IN or IN-OUT args, if any
94
95
96
97
98
99
100
101 ddp_quote_eff_date := rosetta_g_miss_date_in_map(p_quote_eff_date);
102
103 ddp_quote_accpt_date := rosetta_g_miss_date_in_map(p_quote_accpt_date);
104
105 -- here's the delegated call to the old PL/SQL routine
106 okl_am_amortize_pub.create_offlease_asset_trx(p_api_version => p_api_version,
107 p_init_msg_list => p_init_msg_list,
108 x_return_status => x_return_status,
109 x_msg_count => x_msg_count,
110 x_msg_data => x_msg_data,
111 p_contract_id => p_contract_id,
112 p_early_termination_yn => p_early_termination_yn,
113 p_quote_eff_date => ddp_quote_eff_date,
114 p_quote_accpt_date => ddp_quote_accpt_date);
115
116 -- copy data back from the local variables to OUT or IN-OUT args, if any
117
118
119
120
121
122
123
124
125 end;
126
127 procedure update_offlease_asset_trx(p_api_version NUMBER
128 , p_init_msg_list VARCHAR2
129 , x_return_status out nocopy VARCHAR2
130 , x_msg_count out nocopy NUMBER
131 , x_msg_data out nocopy VARCHAR2
132 , p5_a0 NUMBER := 0-1962.0724
133 , p5_a1 NUMBER := 0-1962.0724
134 , p5_a2 NUMBER := 0-1962.0724
135 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
136 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
137 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
138 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
139 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
141 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
143 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
144 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
145 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
146 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
147 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
148 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
149 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
150 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
151 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
152 , p5_a20 NUMBER := 0-1962.0724
153 , p5_a21 DATE := fnd_api.g_miss_date
154 , p5_a22 NUMBER := 0-1962.0724
155 , p5_a23 DATE := fnd_api.g_miss_date
156 , p5_a24 NUMBER := 0-1962.0724
157 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
158 , p5_a26 NUMBER := 0-1962.0724
159 , p5_a27 DATE := fnd_api.g_miss_date
160 , p5_a28 NUMBER := 0-1962.0724
161 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
162 , p5_a30 NUMBER := 0-1962.0724
163 , p5_a31 NUMBER := 0-1962.0724
164 , p5_a32 NUMBER := 0-1962.0724
165 , p5_a33 NUMBER := 0-1962.0724
166 , p5_a34 DATE := fnd_api.g_miss_date
167 , p6_a0 NUMBER := 0-1962.0724
168 , p6_a1 NUMBER := 0-1962.0724
169 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
170 , p6_a3 NUMBER := 0-1962.0724
171 , p6_a4 NUMBER := 0-1962.0724
172 , p6_a5 NUMBER := 0-1962.0724
173 , p6_a6 NUMBER := 0-1962.0724
174 , p6_a7 NUMBER := 0-1962.0724
175 , p6_a8 NUMBER := 0-1962.0724
176 , p6_a9 NUMBER := 0-1962.0724
177 , p6_a10 NUMBER := 0-1962.0724
178 , p6_a11 NUMBER := 0-1962.0724
179 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
180 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
181 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
182 , p6_a15 NUMBER := 0-1962.0724
183 , p6_a16 NUMBER := 0-1962.0724
184 , p6_a17 NUMBER := 0-1962.0724
185 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
186 , p6_a19 NUMBER := 0-1962.0724
187 , p6_a20 NUMBER := 0-1962.0724
188 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
189 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
190 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
191 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
192 , p6_a25 DATE := fnd_api.g_miss_date
193 , p6_a26 DATE := fnd_api.g_miss_date
194 , p6_a27 DATE := fnd_api.g_miss_date
195 , p6_a28 NUMBER := 0-1962.0724
196 , p6_a29 NUMBER := 0-1962.0724
197 , p6_a30 NUMBER := 0-1962.0724
198 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
199 , p6_a32 NUMBER := 0-1962.0724
200 , p6_a33 NUMBER := 0-1962.0724
201 , p6_a34 NUMBER := 0-1962.0724
202 , p6_a35 NUMBER := 0-1962.0724
203 , p6_a36 DATE := fnd_api.g_miss_date
204 , p6_a37 NUMBER := 0-1962.0724
205 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
206 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
207 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
208 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
209 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
210 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
211 , p6_a44 VARCHAR2 := fnd_api.g_miss_char
212 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
213 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
214 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
215 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
216 , p6_a49 VARCHAR2 := fnd_api.g_miss_char
217 , p6_a50 VARCHAR2 := fnd_api.g_miss_char
218 , p6_a51 VARCHAR2 := fnd_api.g_miss_char
219 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
220 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
221 , p6_a54 NUMBER := 0-1962.0724
222 , p6_a55 DATE := fnd_api.g_miss_date
223 , p6_a56 NUMBER := 0-1962.0724
224 , p6_a57 DATE := fnd_api.g_miss_date
225 , p6_a58 NUMBER := 0-1962.0724
226 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
227 , p6_a60 NUMBER := 0-1962.0724
228 , p6_a61 NUMBER := 0-1962.0724
229 , p6_a62 NUMBER := 0-1962.0724
230 , p6_a63 NUMBER := 0-1962.0724
231 , p6_a64 NUMBER := 0-1962.0724
232 , p6_a65 NUMBER := 0-1962.0724
233 , p6_a66 NUMBER := 0-1962.0724
234 , p6_a67 NUMBER := 0-1962.0724
235 , p6_a68 NUMBER := 0-1962.0724
236 , p6_a69 DATE := fnd_api.g_miss_date
237 , p6_a70 NUMBER := 0-1962.0724
238 , p6_a71 NUMBER := 0-1962.0724
239 , p6_a72 NUMBER := 0-1962.0724
240 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
241 , p6_a74 NUMBER := 0-1962.0724
242 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
243 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
244 , p6_a77 NUMBER := 0-1962.0724
245 , p6_a78 DATE := fnd_api.g_miss_date
246 , p6_a79 NUMBER := 0-1962.0724
247 , p6_a80 NUMBER := 0-1962.0724
248 , p6_a81 NUMBER := 0-1962.0724
249 )
250
251 as
252 ddp_header_rec okl_am_amortize_pub.thpv_rec_type;
253 ddp_lines_rec okl_am_amortize_pub.tlpv_rec_type;
254 ddindx binary_integer; indx binary_integer;
255 begin
256
257 -- copy data to the local IN or IN-OUT args, if any
258
259
260
261
262
263 ddp_header_rec.id := rosetta_g_miss_num_map(p5_a0);
264 ddp_header_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
265 ddp_header_rec.ica_id := rosetta_g_miss_num_map(p5_a2);
266 ddp_header_rec.attribute_category := p5_a3;
267 ddp_header_rec.attribute1 := p5_a4;
268 ddp_header_rec.attribute2 := p5_a5;
269 ddp_header_rec.attribute3 := p5_a6;
270 ddp_header_rec.attribute4 := p5_a7;
271 ddp_header_rec.attribute5 := p5_a8;
272 ddp_header_rec.attribute6 := p5_a9;
273 ddp_header_rec.attribute7 := p5_a10;
274 ddp_header_rec.attribute8 := p5_a11;
275 ddp_header_rec.attribute9 := p5_a12;
276 ddp_header_rec.attribute10 := p5_a13;
277 ddp_header_rec.attribute11 := p5_a14;
278 ddp_header_rec.attribute12 := p5_a15;
279 ddp_header_rec.attribute13 := p5_a16;
280 ddp_header_rec.attribute14 := p5_a17;
281 ddp_header_rec.attribute15 := p5_a18;
282 ddp_header_rec.tas_type := p5_a19;
283 ddp_header_rec.created_by := rosetta_g_miss_num_map(p5_a20);
284 ddp_header_rec.creation_date := rosetta_g_miss_date_in_map(p5_a21);
285 ddp_header_rec.last_updated_by := rosetta_g_miss_num_map(p5_a22);
286 ddp_header_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
287 ddp_header_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
288 ddp_header_rec.tsu_code := p5_a25;
289 ddp_header_rec.try_id := rosetta_g_miss_num_map(p5_a26);
290 ddp_header_rec.date_trans_occurred := rosetta_g_miss_date_in_map(p5_a27);
291 ddp_header_rec.trans_number := rosetta_g_miss_num_map(p5_a28);
292 ddp_header_rec.comments := p5_a29;
293 ddp_header_rec.req_asset_id := rosetta_g_miss_num_map(p5_a30);
294 ddp_header_rec.total_match_amount := rosetta_g_miss_num_map(p5_a31);
295 ddp_header_rec.org_id := rosetta_g_miss_num_map(p5_a32);
296 ddp_header_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a33);
297 ddp_header_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
298
299 ddp_lines_rec.id := rosetta_g_miss_num_map(p6_a0);
300 ddp_lines_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
301 ddp_lines_rec.sfwt_flag := p6_a2;
302 ddp_lines_rec.tas_id := rosetta_g_miss_num_map(p6_a3);
303 ddp_lines_rec.ilo_id := rosetta_g_miss_num_map(p6_a4);
304 ddp_lines_rec.ilo_id_old := rosetta_g_miss_num_map(p6_a5);
305 ddp_lines_rec.iay_id := rosetta_g_miss_num_map(p6_a6);
306 ddp_lines_rec.iay_id_new := rosetta_g_miss_num_map(p6_a7);
307 ddp_lines_rec.kle_id := rosetta_g_miss_num_map(p6_a8);
308 ddp_lines_rec.dnz_khr_id := rosetta_g_miss_num_map(p6_a9);
309 ddp_lines_rec.line_number := rosetta_g_miss_num_map(p6_a10);
310 ddp_lines_rec.org_id := rosetta_g_miss_num_map(p6_a11);
311 ddp_lines_rec.tal_type := p6_a12;
312 ddp_lines_rec.asset_number := p6_a13;
313 ddp_lines_rec.description := p6_a14;
314 ddp_lines_rec.fa_location_id := rosetta_g_miss_num_map(p6_a15);
315 ddp_lines_rec.original_cost := rosetta_g_miss_num_map(p6_a16);
316 ddp_lines_rec.current_units := rosetta_g_miss_num_map(p6_a17);
317 ddp_lines_rec.manufacturer_name := p6_a18;
318 ddp_lines_rec.year_manufactured := rosetta_g_miss_num_map(p6_a19);
319 ddp_lines_rec.supplier_id := rosetta_g_miss_num_map(p6_a20);
320 ddp_lines_rec.used_asset_yn := p6_a21;
321 ddp_lines_rec.tag_number := p6_a22;
322 ddp_lines_rec.model_number := p6_a23;
323 ddp_lines_rec.corporate_book := p6_a24;
324 ddp_lines_rec.date_purchased := rosetta_g_miss_date_in_map(p6_a25);
325 ddp_lines_rec.date_delivery := rosetta_g_miss_date_in_map(p6_a26);
326 ddp_lines_rec.in_service_date := rosetta_g_miss_date_in_map(p6_a27);
327 ddp_lines_rec.life_in_months := rosetta_g_miss_num_map(p6_a28);
328 ddp_lines_rec.depreciation_id := rosetta_g_miss_num_map(p6_a29);
329 ddp_lines_rec.depreciation_cost := rosetta_g_miss_num_map(p6_a30);
330 ddp_lines_rec.deprn_method := p6_a31;
331 ddp_lines_rec.deprn_rate := rosetta_g_miss_num_map(p6_a32);
332 ddp_lines_rec.salvage_value := rosetta_g_miss_num_map(p6_a33);
333 ddp_lines_rec.percent_salvage_value := rosetta_g_miss_num_map(p6_a34);
334 ddp_lines_rec.asset_key_id := rosetta_g_miss_num_map(p6_a35);
335 ddp_lines_rec.fa_trx_date := rosetta_g_miss_date_in_map(p6_a36);
336 ddp_lines_rec.fa_cost := rosetta_g_miss_num_map(p6_a37);
337 ddp_lines_rec.attribute_category := p6_a38;
338 ddp_lines_rec.attribute1 := p6_a39;
339 ddp_lines_rec.attribute2 := p6_a40;
340 ddp_lines_rec.attribute3 := p6_a41;
341 ddp_lines_rec.attribute4 := p6_a42;
342 ddp_lines_rec.attribute5 := p6_a43;
343 ddp_lines_rec.attribute6 := p6_a44;
344 ddp_lines_rec.attribute7 := p6_a45;
345 ddp_lines_rec.attribute8 := p6_a46;
346 ddp_lines_rec.attribute9 := p6_a47;
347 ddp_lines_rec.attribute10 := p6_a48;
348 ddp_lines_rec.attribute11 := p6_a49;
349 ddp_lines_rec.attribute12 := p6_a50;
350 ddp_lines_rec.attribute13 := p6_a51;
351 ddp_lines_rec.attribute14 := p6_a52;
352 ddp_lines_rec.attribute15 := p6_a53;
353 ddp_lines_rec.created_by := rosetta_g_miss_num_map(p6_a54);
354 ddp_lines_rec.creation_date := rosetta_g_miss_date_in_map(p6_a55);
355 ddp_lines_rec.last_updated_by := rosetta_g_miss_num_map(p6_a56);
356 ddp_lines_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a57);
357 ddp_lines_rec.last_update_login := rosetta_g_miss_num_map(p6_a58);
358 ddp_lines_rec.depreciate_yn := p6_a59;
359 ddp_lines_rec.hold_period_days := rosetta_g_miss_num_map(p6_a60);
360 ddp_lines_rec.old_salvage_value := rosetta_g_miss_num_map(p6_a61);
361 ddp_lines_rec.new_residual_value := rosetta_g_miss_num_map(p6_a62);
362 ddp_lines_rec.old_residual_value := rosetta_g_miss_num_map(p6_a63);
363 ddp_lines_rec.units_retired := rosetta_g_miss_num_map(p6_a64);
364 ddp_lines_rec.cost_retired := rosetta_g_miss_num_map(p6_a65);
365 ddp_lines_rec.sale_proceeds := rosetta_g_miss_num_map(p6_a66);
366 ddp_lines_rec.removal_cost := rosetta_g_miss_num_map(p6_a67);
367 ddp_lines_rec.dnz_asset_id := rosetta_g_miss_num_map(p6_a68);
368 ddp_lines_rec.date_due := rosetta_g_miss_date_in_map(p6_a69);
369 ddp_lines_rec.rep_asset_id := rosetta_g_miss_num_map(p6_a70);
370 ddp_lines_rec.lke_asset_id := rosetta_g_miss_num_map(p6_a71);
371 ddp_lines_rec.match_amount := rosetta_g_miss_num_map(p6_a72);
372 ddp_lines_rec.split_into_singles_flag := p6_a73;
373 ddp_lines_rec.split_into_units := rosetta_g_miss_num_map(p6_a74);
374 ddp_lines_rec.currency_code := p6_a75;
375 ddp_lines_rec.currency_conversion_type := p6_a76;
376 ddp_lines_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a77);
377 ddp_lines_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a78);
378 ddp_lines_rec.residual_shr_party_id := rosetta_g_miss_num_map(p6_a79);
379 ddp_lines_rec.residual_shr_amount := rosetta_g_miss_num_map(p6_a80);
380 ddp_lines_rec.retirement_id := rosetta_g_miss_num_map(p6_a81);
381
382 -- here's the delegated call to the old PL/SQL routine
383 okl_am_amortize_pub.update_offlease_asset_trx(p_api_version,
384 p_init_msg_list,
385 x_return_status,
386 x_msg_count,
387 x_msg_data,
388 ddp_header_rec,
389 ddp_lines_rec);
390
391 -- copy data back from the local variables to OUT or IN-OUT args, if any
392
393
394
395
396
397
398 end;
399
400 procedure update_offlease_asset_trx(p_api_version NUMBER
401 , p_init_msg_list VARCHAR2
402 , x_return_status out nocopy VARCHAR2
403 , x_msg_count out nocopy NUMBER
404 , x_msg_data out nocopy VARCHAR2
405 , p5_a0 JTF_NUMBER_TABLE
406 , p5_a1 JTF_NUMBER_TABLE
407 , p5_a2 JTF_NUMBER_TABLE
408 , p5_a3 JTF_VARCHAR2_TABLE_100
409 , p5_a4 JTF_VARCHAR2_TABLE_500
410 , p5_a5 JTF_VARCHAR2_TABLE_500
411 , p5_a6 JTF_VARCHAR2_TABLE_500
412 , p5_a7 JTF_VARCHAR2_TABLE_500
413 , p5_a8 JTF_VARCHAR2_TABLE_500
414 , p5_a9 JTF_VARCHAR2_TABLE_500
415 , p5_a10 JTF_VARCHAR2_TABLE_500
416 , p5_a11 JTF_VARCHAR2_TABLE_500
417 , p5_a12 JTF_VARCHAR2_TABLE_500
418 , p5_a13 JTF_VARCHAR2_TABLE_500
419 , p5_a14 JTF_VARCHAR2_TABLE_500
420 , p5_a15 JTF_VARCHAR2_TABLE_500
421 , p5_a16 JTF_VARCHAR2_TABLE_500
422 , p5_a17 JTF_VARCHAR2_TABLE_500
423 , p5_a18 JTF_VARCHAR2_TABLE_500
424 , p5_a19 JTF_VARCHAR2_TABLE_100
425 , p5_a20 JTF_NUMBER_TABLE
426 , p5_a21 JTF_DATE_TABLE
427 , p5_a22 JTF_NUMBER_TABLE
428 , p5_a23 JTF_DATE_TABLE
429 , p5_a24 JTF_NUMBER_TABLE
430 , p5_a25 JTF_VARCHAR2_TABLE_100
431 , p5_a26 JTF_NUMBER_TABLE
432 , p5_a27 JTF_DATE_TABLE
433 , p5_a28 JTF_NUMBER_TABLE
434 , p5_a29 JTF_VARCHAR2_TABLE_4000
435 , p5_a30 JTF_NUMBER_TABLE
436 , p5_a31 JTF_NUMBER_TABLE
437 , p5_a32 JTF_NUMBER_TABLE
438 , p5_a33 JTF_NUMBER_TABLE
439 , p5_a34 JTF_DATE_TABLE
440 , p6_a0 JTF_NUMBER_TABLE
441 , p6_a1 JTF_NUMBER_TABLE
442 , p6_a2 JTF_VARCHAR2_TABLE_100
443 , p6_a3 JTF_NUMBER_TABLE
444 , p6_a4 JTF_NUMBER_TABLE
445 , p6_a5 JTF_NUMBER_TABLE
446 , p6_a6 JTF_NUMBER_TABLE
447 , p6_a7 JTF_NUMBER_TABLE
448 , p6_a8 JTF_NUMBER_TABLE
449 , p6_a9 JTF_NUMBER_TABLE
450 , p6_a10 JTF_NUMBER_TABLE
451 , p6_a11 JTF_NUMBER_TABLE
452 , p6_a12 JTF_VARCHAR2_TABLE_100
453 , p6_a13 JTF_VARCHAR2_TABLE_100
454 , p6_a14 JTF_VARCHAR2_TABLE_2000
455 , p6_a15 JTF_NUMBER_TABLE
456 , p6_a16 JTF_NUMBER_TABLE
457 , p6_a17 JTF_NUMBER_TABLE
458 , p6_a18 JTF_VARCHAR2_TABLE_400
459 , p6_a19 JTF_NUMBER_TABLE
460 , p6_a20 JTF_NUMBER_TABLE
461 , p6_a21 JTF_VARCHAR2_TABLE_100
462 , p6_a22 JTF_VARCHAR2_TABLE_100
463 , p6_a23 JTF_VARCHAR2_TABLE_100
464 , p6_a24 JTF_VARCHAR2_TABLE_100
465 , p6_a25 JTF_DATE_TABLE
466 , p6_a26 JTF_DATE_TABLE
467 , p6_a27 JTF_DATE_TABLE
468 , p6_a28 JTF_NUMBER_TABLE
469 , p6_a29 JTF_NUMBER_TABLE
470 , p6_a30 JTF_NUMBER_TABLE
471 , p6_a31 JTF_VARCHAR2_TABLE_100
472 , p6_a32 JTF_NUMBER_TABLE
473 , p6_a33 JTF_NUMBER_TABLE
474 , p6_a34 JTF_NUMBER_TABLE
475 , p6_a35 JTF_NUMBER_TABLE
476 , p6_a36 JTF_DATE_TABLE
477 , p6_a37 JTF_NUMBER_TABLE
478 , p6_a38 JTF_VARCHAR2_TABLE_100
479 , p6_a39 JTF_VARCHAR2_TABLE_500
480 , p6_a40 JTF_VARCHAR2_TABLE_500
481 , p6_a41 JTF_VARCHAR2_TABLE_500
482 , p6_a42 JTF_VARCHAR2_TABLE_500
483 , p6_a43 JTF_VARCHAR2_TABLE_500
484 , p6_a44 JTF_VARCHAR2_TABLE_500
485 , p6_a45 JTF_VARCHAR2_TABLE_500
486 , p6_a46 JTF_VARCHAR2_TABLE_500
487 , p6_a47 JTF_VARCHAR2_TABLE_500
488 , p6_a48 JTF_VARCHAR2_TABLE_500
489 , p6_a49 JTF_VARCHAR2_TABLE_500
490 , p6_a50 JTF_VARCHAR2_TABLE_500
491 , p6_a51 JTF_VARCHAR2_TABLE_500
492 , p6_a52 JTF_VARCHAR2_TABLE_500
493 , p6_a53 JTF_VARCHAR2_TABLE_500
494 , p6_a54 JTF_NUMBER_TABLE
495 , p6_a55 JTF_DATE_TABLE
496 , p6_a56 JTF_NUMBER_TABLE
497 , p6_a57 JTF_DATE_TABLE
498 , p6_a58 JTF_NUMBER_TABLE
499 , p6_a59 JTF_VARCHAR2_TABLE_100
500 , p6_a60 JTF_NUMBER_TABLE
501 , p6_a61 JTF_NUMBER_TABLE
502 , p6_a62 JTF_NUMBER_TABLE
503 , p6_a63 JTF_NUMBER_TABLE
504 , p6_a64 JTF_NUMBER_TABLE
505 , p6_a65 JTF_NUMBER_TABLE
506 , p6_a66 JTF_NUMBER_TABLE
507 , p6_a67 JTF_NUMBER_TABLE
508 , p6_a68 JTF_NUMBER_TABLE
509 , p6_a69 JTF_DATE_TABLE
510 , p6_a70 JTF_NUMBER_TABLE
511 , p6_a71 JTF_NUMBER_TABLE
512 , p6_a72 JTF_NUMBER_TABLE
513 , p6_a73 JTF_VARCHAR2_TABLE_100
514 , p6_a74 JTF_NUMBER_TABLE
515 , p6_a75 JTF_VARCHAR2_TABLE_100
516 , p6_a76 JTF_VARCHAR2_TABLE_100
517 , p6_a77 JTF_NUMBER_TABLE
518 , p6_a78 JTF_DATE_TABLE
519 , p6_a79 JTF_NUMBER_TABLE
520 , p6_a80 JTF_NUMBER_TABLE
521 , p6_a81 JTF_NUMBER_TABLE
522 , x_record_status out nocopy VARCHAR2
523 )
524
525 as
526 ddp_header_tbl okl_am_amortize_pub.thpv_tbl_type;
527 ddp_lines_tbl okl_am_amortize_pub.tlpv_tbl_type;
528 ddindx binary_integer; indx binary_integer;
529 begin
530
531 -- copy data to the local IN or IN-OUT args, if any
532
533
534
535
536
537 okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_header_tbl, p5_a0
538 , p5_a1
539 , p5_a2
540 , p5_a3
541 , p5_a4
542 , p5_a5
543 , p5_a6
544 , p5_a7
545 , p5_a8
546 , p5_a9
547 , p5_a10
548 , p5_a11
549 , p5_a12
550 , p5_a13
551 , p5_a14
552 , p5_a15
553 , p5_a16
554 , p5_a17
555 , p5_a18
556 , p5_a19
557 , p5_a20
558 , p5_a21
559 , p5_a22
560 , p5_a23
561 , p5_a24
562 , p5_a25
563 , p5_a26
564 , p5_a27
565 , p5_a28
566 , p5_a29
567 , p5_a30
568 , p5_a31
569 , p5_a32
570 , p5_a33
571 , p5_a34
572 );
573
574 okl_tal_pvt_w.rosetta_table_copy_in_p8(ddp_lines_tbl, p6_a0
575 , p6_a1
576 , p6_a2
577 , p6_a3
578 , p6_a4
579 , p6_a5
580 , p6_a6
581 , p6_a7
582 , p6_a8
583 , p6_a9
584 , p6_a10
585 , p6_a11
586 , p6_a12
587 , p6_a13
588 , p6_a14
589 , p6_a15
590 , p6_a16
591 , p6_a17
592 , p6_a18
593 , p6_a19
594 , p6_a20
595 , p6_a21
596 , p6_a22
597 , p6_a23
598 , p6_a24
599 , p6_a25
600 , p6_a26
601 , p6_a27
602 , p6_a28
603 , p6_a29
604 , p6_a30
605 , p6_a31
606 , p6_a32
607 , p6_a33
608 , p6_a34
609 , p6_a35
610 , p6_a36
611 , p6_a37
612 , p6_a38
613 , p6_a39
614 , p6_a40
615 , p6_a41
616 , p6_a42
617 , p6_a43
618 , p6_a44
619 , p6_a45
620 , p6_a46
621 , p6_a47
622 , p6_a48
623 , p6_a49
624 , p6_a50
625 , p6_a51
626 , p6_a52
627 , p6_a53
628 , p6_a54
629 , p6_a55
630 , p6_a56
631 , p6_a57
632 , p6_a58
633 , p6_a59
634 , p6_a60
635 , p6_a61
636 , p6_a62
637 , p6_a63
638 , p6_a64
639 , p6_a65
640 , p6_a66
641 , p6_a67
642 , p6_a68
643 , p6_a69
644 , p6_a70
645 , p6_a71
646 , p6_a72
647 , p6_a73
648 , p6_a74
649 , p6_a75
650 , p6_a76
651 , p6_a77
652 , p6_a78
653 , p6_a79
654 , p6_a80
655 , p6_a81
656 );
657
658
659 -- here's the delegated call to the old PL/SQL routine
660 okl_am_amortize_pub.update_offlease_asset_trx(p_api_version,
661 p_init_msg_list,
662 x_return_status,
663 x_msg_count,
664 x_msg_data,
665 ddp_header_tbl,
666 ddp_lines_tbl,
667 x_record_status);
668
669 -- copy data back from the local variables to OUT or IN-OUT args, if any
670
671
672
673
674
675
676
677 end;
678
679 procedure update_depreciation(p_api_version NUMBER
680 , p_init_msg_list VARCHAR2
681 , x_return_status out nocopy VARCHAR2
682 , x_msg_count out nocopy NUMBER
683 , x_msg_data out nocopy VARCHAR2
684 , p5_a0 NUMBER := 0-1962.0724
685 , p5_a1 NUMBER := 0-1962.0724
686 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
687 , p5_a3 NUMBER := 0-1962.0724
688 , p5_a4 NUMBER := 0-1962.0724
689 , p5_a5 DATE := fnd_api.g_miss_date
690 , p5_a6 NUMBER := 0-1962.0724
691 )
692
693 as
694 ddp_deprn_rec okl_am_amortize_pub.deprn_rec_type;
695 ddindx binary_integer; indx binary_integer;
696 begin
697
698 -- copy data to the local IN or IN-OUT args, if any
699
700
701
702
703
704 ddp_deprn_rec.p_tas_id := rosetta_g_miss_num_map(p5_a0);
705 ddp_deprn_rec.p_tal_id := rosetta_g_miss_num_map(p5_a1);
706 ddp_deprn_rec.p_dep_method := p5_a2;
707 ddp_deprn_rec.p_life_in_months := rosetta_g_miss_num_map(p5_a3);
708 ddp_deprn_rec.p_deprn_rate_percent := rosetta_g_miss_num_map(p5_a4);
709 ddp_deprn_rec.p_date_trns_occured := rosetta_g_miss_date_in_map(p5_a5);
710 ddp_deprn_rec.p_salvage_value := rosetta_g_miss_num_map(p5_a6);
711
712 -- here's the delegated call to the old PL/SQL routine
713 okl_am_amortize_pub.update_depreciation(p_api_version,
714 p_init_msg_list,
715 x_return_status,
716 x_msg_count,
717 x_msg_data,
718 ddp_deprn_rec);
719
720 -- copy data back from the local variables to OUT or IN-OUT args, if any
721
722
723
724
725
726 end;
727
728 end okl_am_amortize_pub_w;