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