[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_LEASE_LOAN_TRMNT_PUB_W
Source
1 package body okl_am_lease_loan_trmnt_pub_w as
2 /* $Header: OKLULLTB.pls 120.7.12010000.5 2008/12/03 12:34:38 sosharma 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 lease_loan_termination(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 , p5_a0 NUMBER := 0-1962.0724
31 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
32 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
33 , p5_a3 DATE := fnd_api.g_miss_date
34 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
35 , p5_a5 DATE := fnd_api.g_miss_date
36 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
37 , p5_a7 NUMBER := 0-1962.0724
38 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
40 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
41 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
42 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
43 , p6_a0 NUMBER := 0-1962.0724
44 , p6_a1 NUMBER := 0-1962.0724
45 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
46 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
47 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
48 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
49 , p6_a6 NUMBER := 0-1962.0724
50 , p6_a7 NUMBER := 0-1962.0724
51 , p6_a8 NUMBER := 0-1962.0724
52 , p6_a9 NUMBER := 0-1962.0724
53 , p6_a10 NUMBER := 0-1962.0724
54 , p6_a11 NUMBER := 0-1962.0724
55 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
56 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
57 , p6_a14 DATE := fnd_api.g_miss_date
58 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
59 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
60 , p6_a17 NUMBER := 0-1962.0724
61 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
62 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
63 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
64 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
65 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
66 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
67 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
68 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
69 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
70 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
71 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
72 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
73 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
74 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
75 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
76 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
77 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
78 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
79 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
80 , p6_a37 NUMBER := 0-1962.0724
81 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
82 , p6_a39 NUMBER := 0-1962.0724
83 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
84 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
85 , p6_a42 NUMBER := 0-1962.0724
86 , p6_a43 NUMBER := 0-1962.0724
87 , p6_a44 NUMBER := 0-1962.0724
88 , p6_a45 NUMBER := 0-1962.0724
89 , p6_a46 NUMBER := 0-1962.0724
90 , p6_a47 NUMBER := 0-1962.0724
91 , p6_a48 DATE := fnd_api.g_miss_date
92 , p6_a49 NUMBER := 0-1962.0724
93 , p6_a50 DATE := fnd_api.g_miss_date
94 , p6_a51 NUMBER := 0-1962.0724
95 , p6_a52 DATE := fnd_api.g_miss_date
96 , p6_a53 NUMBER := 0-1962.0724
97 , p6_a54 NUMBER := 0-1962.0724
98 , p6_a55 VARCHAR2 := fnd_api.g_miss_char
99 , p6_a56 NUMBER := 0-1962.0724
100 , p6_a57 VARCHAR2 := fnd_api.g_miss_char
101 , p6_a58 DATE := fnd_api.g_miss_date
102 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
103 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
104 , p6_a61 VARCHAR2 := fnd_api.g_miss_char
105 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
106 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
107 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
108 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
109 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
110 , p6_a67 VARCHAR2 := fnd_api.g_miss_char
111 , p6_a68 VARCHAR2 := fnd_api.g_miss_char
112 , p6_a69 VARCHAR2 := fnd_api.g_miss_char
113 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
114 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
115 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
116 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
117 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
118 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
119 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
120 , p6_a77 NUMBER := 0-1962.0724
121 , p6_a78 DATE := fnd_api.g_miss_date
122 , p6_a79 NUMBER := 0-1962.0724
123 , p6_a80 NUMBER := 0-1962.0724
124 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
125 , p6_a82 DATE := fnd_api.g_miss_date
126 , p6_a83 NUMBER := 0-1962.0724
127 , p6_a84 DATE := fnd_api.g_miss_date
128 , p6_a85 VARCHAR2 := fnd_api.g_miss_char
129 , p6_a86 VARCHAR2 := fnd_api.g_miss_char
130 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
131 , p6_a88 VARCHAR2 := fnd_api.g_miss_char
132 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
133 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
134 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
135 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
136 , p6_a93 DATE := fnd_api.g_miss_date
137 )
138
139 as
140 ddp_term_rec okl_am_lease_loan_trmnt_pub.term_rec_type;
141 ddp_tcnv_rec okl_am_lease_loan_trmnt_pub.tcnv_rec_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
152 ddp_term_rec.p_contract_number := p5_a1;
153 ddp_term_rec.p_contract_modifier := p5_a2;
154 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p5_a3);
155 ddp_term_rec.p_contract_version := p5_a4;
156 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p5_a5);
157 ddp_term_rec.p_termination_reason := p5_a6;
158 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p5_a7);
159 ddp_term_rec.p_quote_type := p5_a8;
160 ddp_term_rec.p_quote_reason := p5_a9;
161 ddp_term_rec.p_early_termination_yn := p5_a10;
162 ddp_term_rec.p_control_flag := p5_a11;
163 ddp_term_rec.p_recycle_flag := p5_a12;
164
165 ddp_tcnv_rec.id := rosetta_g_miss_num_map(p6_a0);
166 ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
167 ddp_tcnv_rec.rbr_code := p6_a2;
168 ddp_tcnv_rec.rpy_code := p6_a3;
169 ddp_tcnv_rec.rvn_code := p6_a4;
170 ddp_tcnv_rec.trn_code := p6_a5;
171 ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p6_a6);
172 ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p6_a7);
173 ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
174 ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p6_a9);
175 ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p6_a10);
176 ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p6_a11);
177 ddp_tcnv_rec.tax_deductible_local := p6_a12;
178 ddp_tcnv_rec.tax_deductible_corporate := p6_a13;
179 ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p6_a14);
180 ddp_tcnv_rec.accrual_status_yn := p6_a15;
181 ddp_tcnv_rec.update_status_yn := p6_a16;
182 ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p6_a17);
183 ddp_tcnv_rec.currency_code := p6_a18;
184 ddp_tcnv_rec.attribute_category := p6_a19;
185 ddp_tcnv_rec.attribute1 := p6_a20;
186 ddp_tcnv_rec.attribute2 := p6_a21;
187 ddp_tcnv_rec.attribute3 := p6_a22;
188 ddp_tcnv_rec.attribute4 := p6_a23;
189 ddp_tcnv_rec.attribute5 := p6_a24;
190 ddp_tcnv_rec.attribute6 := p6_a25;
191 ddp_tcnv_rec.attribute7 := p6_a26;
192 ddp_tcnv_rec.attribute8 := p6_a27;
193 ddp_tcnv_rec.attribute9 := p6_a28;
194 ddp_tcnv_rec.attribute10 := p6_a29;
195 ddp_tcnv_rec.attribute11 := p6_a30;
196 ddp_tcnv_rec.attribute12 := p6_a31;
197 ddp_tcnv_rec.attribute13 := p6_a32;
198 ddp_tcnv_rec.attribute14 := p6_a33;
199 ddp_tcnv_rec.attribute15 := p6_a34;
200 ddp_tcnv_rec.tcn_type := p6_a35;
201 ddp_tcnv_rec.rjn_code := p6_a36;
202 ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p6_a37);
203 ddp_tcnv_rec.party_rel_id2_old := p6_a38;
204 ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p6_a39);
205 ddp_tcnv_rec.party_rel_id2_new := p6_a40;
206 ddp_tcnv_rec.complete_transfer_yn := p6_a41;
207 ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p6_a42);
208 ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p6_a43);
209 ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p6_a44);
210 ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p6_a45);
211 ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p6_a46);
212 ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p6_a47);
213 ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a48);
214 ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p6_a49);
215 ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a50);
216 ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a51);
217 ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a52);
218 ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p6_a53);
219 ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p6_a54);
220 ddp_tcnv_rec.tsu_code := p6_a55;
221 ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p6_a56);
222 ddp_tcnv_rec.description := p6_a57;
223 ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p6_a58);
224 ddp_tcnv_rec.trx_number := p6_a59;
225 ddp_tcnv_rec.tmt_evergreen_yn := p6_a60;
226 ddp_tcnv_rec.tmt_close_balances_yn := p6_a61;
227 ddp_tcnv_rec.tmt_accounting_entries_yn := p6_a62;
228 ddp_tcnv_rec.tmt_cancel_insurance_yn := p6_a63;
229 ddp_tcnv_rec.tmt_asset_disposition_yn := p6_a64;
230 ddp_tcnv_rec.tmt_amortization_yn := p6_a65;
231 ddp_tcnv_rec.tmt_asset_return_yn := p6_a66;
232 ddp_tcnv_rec.tmt_contract_updated_yn := p6_a67;
233 ddp_tcnv_rec.tmt_recycle_yn := p6_a68;
234 ddp_tcnv_rec.tmt_validated_yn := p6_a69;
235 ddp_tcnv_rec.tmt_streams_updated_yn := p6_a70;
236 ddp_tcnv_rec.accrual_activity := p6_a71;
237 ddp_tcnv_rec.tmt_split_asset_yn := p6_a72;
238 ddp_tcnv_rec.tmt_generic_flag1_yn := p6_a73;
239 ddp_tcnv_rec.tmt_generic_flag2_yn := p6_a74;
240 ddp_tcnv_rec.tmt_generic_flag3_yn := p6_a75;
241 ddp_tcnv_rec.currency_conversion_type := p6_a76;
242 ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a77);
243 ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a78);
244 ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p6_a79);
245 ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p6_a80);
246 ddp_tcnv_rec.source_trx_type := p6_a81;
247 ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p6_a82);
248 ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p6_a83);
249 ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p6_a84);
250 ddp_tcnv_rec.accounting_reversal_yn := p6_a85;
251 ddp_tcnv_rec.product_name := p6_a86;
252 ddp_tcnv_rec.book_classification_code := p6_a87;
253 ddp_tcnv_rec.tax_owner_code := p6_a88;
254 ddp_tcnv_rec.tmt_status_code := p6_a89;
255 ddp_tcnv_rec.representation_name := p6_a90;
256 ddp_tcnv_rec.representation_code := p6_a91;
257 ddp_tcnv_rec.upgrade_status_flag := p6_a92;
258 ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p6_a93);
259
260 -- here's the delegated call to the old PL/SQL routine
261 okl_am_lease_loan_trmnt_pub.lease_loan_termination(p_api_version,
262 p_init_msg_list,
263 x_return_status,
264 x_msg_count,
265 x_msg_data,
266 ddp_term_rec,
267 ddp_tcnv_rec);
268
269 -- copy data back from the local variables to OUT or IN-OUT args, if any
270
271
272
273
274
275
276 end;
277
278 procedure lease_loan_termination(p_api_version NUMBER
279 , p_init_msg_list VARCHAR2
280 , x_return_status out nocopy VARCHAR2
281 , x_msg_count out nocopy NUMBER
282 , x_msg_data out nocopy VARCHAR2
283 , p5_a0 JTF_NUMBER_TABLE
284 , p5_a1 JTF_VARCHAR2_TABLE_200
285 , p5_a2 JTF_VARCHAR2_TABLE_200
286 , p5_a3 JTF_DATE_TABLE
287 , p5_a4 JTF_VARCHAR2_TABLE_200
288 , p5_a5 JTF_DATE_TABLE
289 , p5_a6 JTF_VARCHAR2_TABLE_200
290 , p5_a7 JTF_NUMBER_TABLE
291 , p5_a8 JTF_VARCHAR2_TABLE_2000
292 , p5_a9 JTF_VARCHAR2_TABLE_2000
293 , p5_a10 JTF_VARCHAR2_TABLE_100
294 , p5_a11 JTF_VARCHAR2_TABLE_200
295 , p5_a12 JTF_VARCHAR2_TABLE_100
296 , p6_a0 JTF_NUMBER_TABLE
297 , p6_a1 JTF_NUMBER_TABLE
298 , p6_a2 JTF_VARCHAR2_TABLE_100
299 , p6_a3 JTF_VARCHAR2_TABLE_100
300 , p6_a4 JTF_VARCHAR2_TABLE_100
301 , p6_a5 JTF_VARCHAR2_TABLE_100
302 , p6_a6 JTF_NUMBER_TABLE
303 , p6_a7 JTF_NUMBER_TABLE
304 , p6_a8 JTF_NUMBER_TABLE
305 , p6_a9 JTF_NUMBER_TABLE
306 , p6_a10 JTF_NUMBER_TABLE
307 , p6_a11 JTF_NUMBER_TABLE
308 , p6_a12 JTF_VARCHAR2_TABLE_100
309 , p6_a13 JTF_VARCHAR2_TABLE_100
310 , p6_a14 JTF_DATE_TABLE
311 , p6_a15 JTF_VARCHAR2_TABLE_100
312 , p6_a16 JTF_VARCHAR2_TABLE_100
313 , p6_a17 JTF_NUMBER_TABLE
314 , p6_a18 JTF_VARCHAR2_TABLE_200
315 , p6_a19 JTF_VARCHAR2_TABLE_100
316 , p6_a20 JTF_VARCHAR2_TABLE_500
317 , p6_a21 JTF_VARCHAR2_TABLE_500
318 , p6_a22 JTF_VARCHAR2_TABLE_500
319 , p6_a23 JTF_VARCHAR2_TABLE_500
320 , p6_a24 JTF_VARCHAR2_TABLE_500
321 , p6_a25 JTF_VARCHAR2_TABLE_500
322 , p6_a26 JTF_VARCHAR2_TABLE_500
323 , p6_a27 JTF_VARCHAR2_TABLE_500
324 , p6_a28 JTF_VARCHAR2_TABLE_500
325 , p6_a29 JTF_VARCHAR2_TABLE_500
326 , p6_a30 JTF_VARCHAR2_TABLE_500
327 , p6_a31 JTF_VARCHAR2_TABLE_500
328 , p6_a32 JTF_VARCHAR2_TABLE_500
329 , p6_a33 JTF_VARCHAR2_TABLE_500
330 , p6_a34 JTF_VARCHAR2_TABLE_500
331 , p6_a35 JTF_VARCHAR2_TABLE_100
332 , p6_a36 JTF_VARCHAR2_TABLE_100
333 , p6_a37 JTF_NUMBER_TABLE
334 , p6_a38 JTF_VARCHAR2_TABLE_100
335 , p6_a39 JTF_NUMBER_TABLE
336 , p6_a40 JTF_VARCHAR2_TABLE_100
337 , p6_a41 JTF_VARCHAR2_TABLE_100
338 , p6_a42 JTF_NUMBER_TABLE
339 , p6_a43 JTF_NUMBER_TABLE
340 , p6_a44 JTF_NUMBER_TABLE
341 , p6_a45 JTF_NUMBER_TABLE
342 , p6_a46 JTF_NUMBER_TABLE
343 , p6_a47 JTF_NUMBER_TABLE
344 , p6_a48 JTF_DATE_TABLE
345 , p6_a49 JTF_NUMBER_TABLE
346 , p6_a50 JTF_DATE_TABLE
347 , p6_a51 JTF_NUMBER_TABLE
348 , p6_a52 JTF_DATE_TABLE
349 , p6_a53 JTF_NUMBER_TABLE
350 , p6_a54 JTF_NUMBER_TABLE
351 , p6_a55 JTF_VARCHAR2_TABLE_100
352 , p6_a56 JTF_NUMBER_TABLE
353 , p6_a57 JTF_VARCHAR2_TABLE_2000
354 , p6_a58 JTF_DATE_TABLE
355 , p6_a59 JTF_VARCHAR2_TABLE_100
356 , p6_a60 JTF_VARCHAR2_TABLE_100
357 , p6_a61 JTF_VARCHAR2_TABLE_100
358 , p6_a62 JTF_VARCHAR2_TABLE_100
359 , p6_a63 JTF_VARCHAR2_TABLE_100
360 , p6_a64 JTF_VARCHAR2_TABLE_100
361 , p6_a65 JTF_VARCHAR2_TABLE_100
362 , p6_a66 JTF_VARCHAR2_TABLE_100
363 , p6_a67 JTF_VARCHAR2_TABLE_100
364 , p6_a68 JTF_VARCHAR2_TABLE_100
365 , p6_a69 JTF_VARCHAR2_TABLE_100
366 , p6_a70 JTF_VARCHAR2_TABLE_100
367 , p6_a71 JTF_VARCHAR2_TABLE_100
368 , p6_a72 JTF_VARCHAR2_TABLE_100
369 , p6_a73 JTF_VARCHAR2_TABLE_100
370 , p6_a74 JTF_VARCHAR2_TABLE_100
371 , p6_a75 JTF_VARCHAR2_TABLE_100
372 , p6_a76 JTF_VARCHAR2_TABLE_100
373 , p6_a77 JTF_NUMBER_TABLE
374 , p6_a78 JTF_DATE_TABLE
375 , p6_a79 JTF_NUMBER_TABLE
376 , p6_a80 JTF_NUMBER_TABLE
377 , p6_a81 JTF_VARCHAR2_TABLE_100
378 , p6_a82 JTF_DATE_TABLE
379 , p6_a83 JTF_NUMBER_TABLE
380 , p6_a84 JTF_DATE_TABLE
381 , p6_a85 JTF_VARCHAR2_TABLE_100
382 , p6_a86 JTF_VARCHAR2_TABLE_200
383 , p6_a87 JTF_VARCHAR2_TABLE_100
384 , p6_a88 JTF_VARCHAR2_TABLE_200
385 , p6_a89 JTF_VARCHAR2_TABLE_100
386 , p6_a90 JTF_VARCHAR2_TABLE_100
387 , p6_a91 JTF_VARCHAR2_TABLE_100
388 , p6_a92 JTF_VARCHAR2_TABLE_100
389 , p6_a93 JTF_DATE_TABLE
390 )
391
392 as
393 ddp_term_tbl okl_am_lease_loan_trmnt_pub.term_tbl_type;
394 ddp_tcnv_tbl okl_am_lease_loan_trmnt_pub.tcnv_tbl_type;
395 ddindx binary_integer; indx binary_integer;
396 begin
397
398 -- copy data to the local IN or IN-OUT args, if any
399
400
401
402
403
404 okl_am_lease_loan_trmnt_pvt_w.rosetta_table_copy_in_p13(ddp_term_tbl, p5_a0
405 , p5_a1
406 , p5_a2
407 , p5_a3
408 , p5_a4
409 , p5_a5
410 , p5_a6
411 , p5_a7
412 , p5_a8
413 , p5_a9
414 , p5_a10
415 , p5_a11
416 , p5_a12
417 );
418
419 okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p6_a0
420 , p6_a1
421 , p6_a2
422 , p6_a3
423 , p6_a4
424 , p6_a5
425 , p6_a6
426 , p6_a7
427 , p6_a8
428 , p6_a9
429 , p6_a10
430 , p6_a11
431 , p6_a12
432 , p6_a13
433 , p6_a14
434 , p6_a15
435 , p6_a16
436 , p6_a17
437 , p6_a18
438 , p6_a19
439 , p6_a20
440 , p6_a21
441 , p6_a22
442 , p6_a23
443 , p6_a24
444 , p6_a25
445 , p6_a26
446 , p6_a27
447 , p6_a28
448 , p6_a29
449 , p6_a30
450 , p6_a31
451 , p6_a32
452 , p6_a33
453 , p6_a34
454 , p6_a35
455 , p6_a36
456 , p6_a37
457 , p6_a38
458 , p6_a39
459 , p6_a40
460 , p6_a41
461 , p6_a42
462 , p6_a43
463 , p6_a44
464 , p6_a45
465 , p6_a46
466 , p6_a47
467 , p6_a48
468 , p6_a49
469 , p6_a50
470 , p6_a51
471 , p6_a52
472 , p6_a53
473 , p6_a54
474 , p6_a55
475 , p6_a56
476 , p6_a57
477 , p6_a58
478 , p6_a59
479 , p6_a60
480 , p6_a61
481 , p6_a62
482 , p6_a63
483 , p6_a64
484 , p6_a65
485 , p6_a66
486 , p6_a67
487 , p6_a68
488 , p6_a69
489 , p6_a70
490 , p6_a71
491 , p6_a72
492 , p6_a73
493 , p6_a74
494 , p6_a75
495 , p6_a76
496 , p6_a77
497 , p6_a78
498 , p6_a79
499 , p6_a80
500 , p6_a81
501 , p6_a82
502 , p6_a83
503 , p6_a84
504 , p6_a85
505 , p6_a86
506 , p6_a87
507 , p6_a88
508 , p6_a89
509 , p6_a90
510 , p6_a91
511 , p6_a92
512 , p6_a93
513 );
514
515 -- here's the delegated call to the old PL/SQL routine
516 okl_am_lease_loan_trmnt_pub.lease_loan_termination(p_api_version,
517 p_init_msg_list,
518 x_return_status,
519 x_msg_count,
520 x_msg_data,
521 ddp_term_tbl,
522 ddp_tcnv_tbl);
523
524 -- copy data back from the local variables to OUT or IN-OUT args, if any
525
526
527
528
529
530
531 end;
532
533 end okl_am_lease_loan_trmnt_pub_w;