[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_LEASE_LOAN_TRMNT_PVT_W
Source
1 package body okl_am_lease_loan_trmnt_pvt_w as
2 /* $Header: OKLELLTB.pls 120.7.12010000.5 2008/11/18 10:35:42 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 rosetta_table_copy_in_p13(t out nocopy okl_am_lease_loan_trmnt_pvt.term_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_200
27 , a2 JTF_VARCHAR2_TABLE_200
28 , a3 JTF_DATE_TABLE
29 , a4 JTF_VARCHAR2_TABLE_200
30 , a5 JTF_DATE_TABLE
31 , a6 JTF_VARCHAR2_TABLE_200
32 , a7 JTF_NUMBER_TABLE
33 , a8 JTF_VARCHAR2_TABLE_2000
34 , a9 JTF_VARCHAR2_TABLE_2000
35 , a10 JTF_VARCHAR2_TABLE_100
36 , a11 JTF_VARCHAR2_TABLE_200
37 , a12 JTF_VARCHAR2_TABLE_100
38 ) as
39 ddindx binary_integer; indx binary_integer;
40 begin
41 if a0 is not null and a0.count > 0 then
42 if a0.count > 0 then
43 indx := a0.first;
44 ddindx := 1;
45 while true loop
46 t(ddindx).p_contract_id := rosetta_g_miss_num_map(a0(indx));
47 t(ddindx).p_contract_number := a1(indx);
48 t(ddindx).p_contract_modifier := a2(indx);
49 t(ddindx).p_orig_end_date := rosetta_g_miss_date_in_map(a3(indx));
50 t(ddindx).p_contract_version := a4(indx);
51 t(ddindx).p_termination_date := rosetta_g_miss_date_in_map(a5(indx));
52 t(ddindx).p_termination_reason := a6(indx);
53 t(ddindx).p_quote_id := rosetta_g_miss_num_map(a7(indx));
54 t(ddindx).p_quote_type := a8(indx);
55 t(ddindx).p_quote_reason := a9(indx);
56 t(ddindx).p_early_termination_yn := a10(indx);
57 t(ddindx).p_control_flag := a11(indx);
58 t(ddindx).p_recycle_flag := a12(indx);
59 ddindx := ddindx+1;
60 if a0.last =indx
61 then exit;
62 end if;
63 indx := a0.next(indx);
64 end loop;
65 end if;
66 end if;
67 end rosetta_table_copy_in_p13;
68 procedure rosetta_table_copy_out_p13(t okl_am_lease_loan_trmnt_pvt.term_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69 , a1 out nocopy JTF_VARCHAR2_TABLE_200
70 , a2 out nocopy JTF_VARCHAR2_TABLE_200
71 , a3 out nocopy JTF_DATE_TABLE
72 , a4 out nocopy JTF_VARCHAR2_TABLE_200
73 , a5 out nocopy JTF_DATE_TABLE
74 , a6 out nocopy JTF_VARCHAR2_TABLE_200
75 , a7 out nocopy JTF_NUMBER_TABLE
76 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
77 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
78 , a10 out nocopy JTF_VARCHAR2_TABLE_100
79 , a11 out nocopy JTF_VARCHAR2_TABLE_200
80 , a12 out nocopy JTF_VARCHAR2_TABLE_100
81 ) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if t is null or t.count = 0 then
85 a0 := JTF_NUMBER_TABLE();
86 a1 := JTF_VARCHAR2_TABLE_200();
87 a2 := JTF_VARCHAR2_TABLE_200();
88 a3 := JTF_DATE_TABLE();
89 a4 := JTF_VARCHAR2_TABLE_200();
90 a5 := JTF_DATE_TABLE();
91 a6 := JTF_VARCHAR2_TABLE_200();
92 a7 := JTF_NUMBER_TABLE();
93 a8 := JTF_VARCHAR2_TABLE_2000();
94 a9 := JTF_VARCHAR2_TABLE_2000();
95 a10 := JTF_VARCHAR2_TABLE_100();
96 a11 := JTF_VARCHAR2_TABLE_200();
97 a12 := JTF_VARCHAR2_TABLE_100();
98 else
99 a0 := JTF_NUMBER_TABLE();
100 a1 := JTF_VARCHAR2_TABLE_200();
101 a2 := JTF_VARCHAR2_TABLE_200();
102 a3 := JTF_DATE_TABLE();
103 a4 := JTF_VARCHAR2_TABLE_200();
104 a5 := JTF_DATE_TABLE();
105 a6 := JTF_VARCHAR2_TABLE_200();
106 a7 := JTF_NUMBER_TABLE();
107 a8 := JTF_VARCHAR2_TABLE_2000();
108 a9 := JTF_VARCHAR2_TABLE_2000();
109 a10 := JTF_VARCHAR2_TABLE_100();
110 a11 := JTF_VARCHAR2_TABLE_200();
111 a12 := JTF_VARCHAR2_TABLE_100();
112 if t.count > 0 then
113 a0.extend(t.count);
114 a1.extend(t.count);
115 a2.extend(t.count);
116 a3.extend(t.count);
117 a4.extend(t.count);
118 a5.extend(t.count);
119 a6.extend(t.count);
120 a7.extend(t.count);
121 a8.extend(t.count);
122 a9.extend(t.count);
123 a10.extend(t.count);
124 a11.extend(t.count);
125 a12.extend(t.count);
126 ddindx := t.first;
127 indx := 1;
128 while true loop
129 a0(indx) := rosetta_g_miss_num_map(t(ddindx).p_contract_id);
130 a1(indx) := t(ddindx).p_contract_number;
131 a2(indx) := t(ddindx).p_contract_modifier;
132 a3(indx) := t(ddindx).p_orig_end_date;
133 a4(indx) := t(ddindx).p_contract_version;
134 a5(indx) := t(ddindx).p_termination_date;
135 a6(indx) := t(ddindx).p_termination_reason;
136 a7(indx) := rosetta_g_miss_num_map(t(ddindx).p_quote_id);
137 a8(indx) := t(ddindx).p_quote_type;
138 a9(indx) := t(ddindx).p_quote_reason;
139 a10(indx) := t(ddindx).p_early_termination_yn;
140 a11(indx) := t(ddindx).p_control_flag;
141 a12(indx) := t(ddindx).p_recycle_flag;
142 indx := indx+1;
143 if t.last =ddindx
144 then exit;
145 end if;
146 ddindx := t.next(ddindx);
147 end loop;
148 end if;
149 end if;
150 end rosetta_table_copy_out_p13;
151
152 procedure lease_loan_termination(p_api_version NUMBER
153 , p_init_msg_list VARCHAR2
154 , x_return_status out nocopy VARCHAR2
155 , x_msg_count out nocopy NUMBER
156 , x_msg_data out nocopy VARCHAR2
157 , p5_a0 NUMBER := 0-1962.0724
158 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
159 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
160 , p5_a3 DATE := fnd_api.g_miss_date
161 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
162 , p5_a5 DATE := fnd_api.g_miss_date
163 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
164 , p5_a7 NUMBER := 0-1962.0724
165 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
166 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
167 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
168 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
169 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
170 , p6_a0 NUMBER := 0-1962.0724
171 , p6_a1 NUMBER := 0-1962.0724
172 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
173 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
174 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
175 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
176 , p6_a6 NUMBER := 0-1962.0724
177 , p6_a7 NUMBER := 0-1962.0724
178 , p6_a8 NUMBER := 0-1962.0724
179 , p6_a9 NUMBER := 0-1962.0724
180 , p6_a10 NUMBER := 0-1962.0724
181 , p6_a11 NUMBER := 0-1962.0724
182 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
183 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
184 , p6_a14 DATE := fnd_api.g_miss_date
185 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
186 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
187 , p6_a17 NUMBER := 0-1962.0724
188 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
189 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
190 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
191 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
192 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
193 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
194 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
195 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
196 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
197 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
198 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
199 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
200 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
201 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
202 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
203 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
204 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
205 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
206 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
207 , p6_a37 NUMBER := 0-1962.0724
208 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
209 , p6_a39 NUMBER := 0-1962.0724
210 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
211 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
212 , p6_a42 NUMBER := 0-1962.0724
213 , p6_a43 NUMBER := 0-1962.0724
214 , p6_a44 NUMBER := 0-1962.0724
215 , p6_a45 NUMBER := 0-1962.0724
216 , p6_a46 NUMBER := 0-1962.0724
217 , p6_a47 NUMBER := 0-1962.0724
218 , p6_a48 DATE := fnd_api.g_miss_date
219 , p6_a49 NUMBER := 0-1962.0724
220 , p6_a50 DATE := fnd_api.g_miss_date
221 , p6_a51 NUMBER := 0-1962.0724
222 , p6_a52 DATE := fnd_api.g_miss_date
223 , p6_a53 NUMBER := 0-1962.0724
224 , p6_a54 NUMBER := 0-1962.0724
225 , p6_a55 VARCHAR2 := fnd_api.g_miss_char
226 , p6_a56 NUMBER := 0-1962.0724
227 , p6_a57 VARCHAR2 := fnd_api.g_miss_char
228 , p6_a58 DATE := fnd_api.g_miss_date
229 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
230 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
231 , p6_a61 VARCHAR2 := fnd_api.g_miss_char
232 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
233 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
234 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
235 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
236 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
237 , p6_a67 VARCHAR2 := fnd_api.g_miss_char
238 , p6_a68 VARCHAR2 := fnd_api.g_miss_char
239 , p6_a69 VARCHAR2 := fnd_api.g_miss_char
240 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
241 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
242 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
243 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
244 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
245 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
246 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
247 , p6_a77 NUMBER := 0-1962.0724
248 , p6_a78 DATE := fnd_api.g_miss_date
249 , p6_a79 NUMBER := 0-1962.0724
250 , p6_a80 NUMBER := 0-1962.0724
251 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
252 , p6_a82 DATE := fnd_api.g_miss_date
253 , p6_a83 NUMBER := 0-1962.0724
254 , p6_a84 DATE := fnd_api.g_miss_date
255 , p6_a85 VARCHAR2 := fnd_api.g_miss_char
256 , p6_a86 VARCHAR2 := fnd_api.g_miss_char
257 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
258 , p6_a88 VARCHAR2 := fnd_api.g_miss_char
259 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
260 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
261 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
262 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
263 , p6_a93 DATE := fnd_api.g_miss_date
264 )
265
266 as
267 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
268 ddp_tcnv_rec okl_am_lease_loan_trmnt_pvt.tcnv_rec_type;
269 ddindx binary_integer; indx binary_integer;
270 begin
271
272 -- copy data to the local IN or IN-OUT args, if any
273
274
275
276
277
278 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
279 ddp_term_rec.p_contract_number := p5_a1;
280 ddp_term_rec.p_contract_modifier := p5_a2;
281 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p5_a3);
282 ddp_term_rec.p_contract_version := p5_a4;
283 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p5_a5);
284 ddp_term_rec.p_termination_reason := p5_a6;
285 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p5_a7);
286 ddp_term_rec.p_quote_type := p5_a8;
287 ddp_term_rec.p_quote_reason := p5_a9;
288 ddp_term_rec.p_early_termination_yn := p5_a10;
289 ddp_term_rec.p_control_flag := p5_a11;
290 ddp_term_rec.p_recycle_flag := p5_a12;
291
292 ddp_tcnv_rec.id := rosetta_g_miss_num_map(p6_a0);
293 ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
294 ddp_tcnv_rec.rbr_code := p6_a2;
295 ddp_tcnv_rec.rpy_code := p6_a3;
296 ddp_tcnv_rec.rvn_code := p6_a4;
297 ddp_tcnv_rec.trn_code := p6_a5;
298 ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p6_a6);
299 ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p6_a7);
300 ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
301 ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p6_a9);
302 ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p6_a10);
303 ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p6_a11);
304 ddp_tcnv_rec.tax_deductible_local := p6_a12;
305 ddp_tcnv_rec.tax_deductible_corporate := p6_a13;
306 ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p6_a14);
307 ddp_tcnv_rec.accrual_status_yn := p6_a15;
308 ddp_tcnv_rec.update_status_yn := p6_a16;
309 ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p6_a17);
310 ddp_tcnv_rec.currency_code := p6_a18;
311 ddp_tcnv_rec.attribute_category := p6_a19;
312 ddp_tcnv_rec.attribute1 := p6_a20;
313 ddp_tcnv_rec.attribute2 := p6_a21;
314 ddp_tcnv_rec.attribute3 := p6_a22;
315 ddp_tcnv_rec.attribute4 := p6_a23;
316 ddp_tcnv_rec.attribute5 := p6_a24;
317 ddp_tcnv_rec.attribute6 := p6_a25;
318 ddp_tcnv_rec.attribute7 := p6_a26;
319 ddp_tcnv_rec.attribute8 := p6_a27;
320 ddp_tcnv_rec.attribute9 := p6_a28;
321 ddp_tcnv_rec.attribute10 := p6_a29;
322 ddp_tcnv_rec.attribute11 := p6_a30;
323 ddp_tcnv_rec.attribute12 := p6_a31;
324 ddp_tcnv_rec.attribute13 := p6_a32;
325 ddp_tcnv_rec.attribute14 := p6_a33;
326 ddp_tcnv_rec.attribute15 := p6_a34;
327 ddp_tcnv_rec.tcn_type := p6_a35;
328 ddp_tcnv_rec.rjn_code := p6_a36;
329 ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p6_a37);
330 ddp_tcnv_rec.party_rel_id2_old := p6_a38;
331 ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p6_a39);
332 ddp_tcnv_rec.party_rel_id2_new := p6_a40;
333 ddp_tcnv_rec.complete_transfer_yn := p6_a41;
334 ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p6_a42);
335 ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p6_a43);
336 ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p6_a44);
337 ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p6_a45);
338 ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p6_a46);
339 ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p6_a47);
340 ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a48);
341 ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p6_a49);
342 ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a50);
343 ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a51);
344 ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a52);
345 ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p6_a53);
346 ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p6_a54);
347 ddp_tcnv_rec.tsu_code := p6_a55;
348 ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p6_a56);
349 ddp_tcnv_rec.description := p6_a57;
350 ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p6_a58);
351 ddp_tcnv_rec.trx_number := p6_a59;
352 ddp_tcnv_rec.tmt_evergreen_yn := p6_a60;
353 ddp_tcnv_rec.tmt_close_balances_yn := p6_a61;
354 ddp_tcnv_rec.tmt_accounting_entries_yn := p6_a62;
355 ddp_tcnv_rec.tmt_cancel_insurance_yn := p6_a63;
356 ddp_tcnv_rec.tmt_asset_disposition_yn := p6_a64;
357 ddp_tcnv_rec.tmt_amortization_yn := p6_a65;
358 ddp_tcnv_rec.tmt_asset_return_yn := p6_a66;
359 ddp_tcnv_rec.tmt_contract_updated_yn := p6_a67;
360 ddp_tcnv_rec.tmt_recycle_yn := p6_a68;
361 ddp_tcnv_rec.tmt_validated_yn := p6_a69;
362 ddp_tcnv_rec.tmt_streams_updated_yn := p6_a70;
363 ddp_tcnv_rec.accrual_activity := p6_a71;
364 ddp_tcnv_rec.tmt_split_asset_yn := p6_a72;
365 ddp_tcnv_rec.tmt_generic_flag1_yn := p6_a73;
366 ddp_tcnv_rec.tmt_generic_flag2_yn := p6_a74;
367 ddp_tcnv_rec.tmt_generic_flag3_yn := p6_a75;
368 ddp_tcnv_rec.currency_conversion_type := p6_a76;
369 ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a77);
370 ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a78);
371 ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p6_a79);
372 ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p6_a80);
373 ddp_tcnv_rec.source_trx_type := p6_a81;
374 ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p6_a82);
375 ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p6_a83);
376 ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p6_a84);
377 ddp_tcnv_rec.accounting_reversal_yn := p6_a85;
378 ddp_tcnv_rec.product_name := p6_a86;
379 ddp_tcnv_rec.book_classification_code := p6_a87;
380 ddp_tcnv_rec.tax_owner_code := p6_a88;
381 ddp_tcnv_rec.tmt_status_code := p6_a89;
382 ddp_tcnv_rec.representation_name := p6_a90;
383 ddp_tcnv_rec.representation_code := p6_a91;
384 ddp_tcnv_rec.upgrade_status_flag := p6_a92;
385 ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p6_a93);
386
387 -- here's the delegated call to the old PL/SQL routine
388 okl_am_lease_loan_trmnt_pvt.lease_loan_termination(p_api_version,
389 p_init_msg_list,
390 x_return_status,
391 x_msg_count,
392 x_msg_data,
393 ddp_term_rec,
394 ddp_tcnv_rec);
395
396 -- copy data back from the local variables to OUT or IN-OUT args, if any
397
398
399
400
401
402
403 end;
404
405 procedure lease_loan_termination(p_api_version NUMBER
406 , p_init_msg_list VARCHAR2
407 , x_return_status out nocopy VARCHAR2
408 , x_msg_count out nocopy NUMBER
409 , x_msg_data out nocopy VARCHAR2
410 , p5_a0 JTF_NUMBER_TABLE
411 , p5_a1 JTF_VARCHAR2_TABLE_200
412 , p5_a2 JTF_VARCHAR2_TABLE_200
413 , p5_a3 JTF_DATE_TABLE
414 , p5_a4 JTF_VARCHAR2_TABLE_200
415 , p5_a5 JTF_DATE_TABLE
416 , p5_a6 JTF_VARCHAR2_TABLE_200
417 , p5_a7 JTF_NUMBER_TABLE
418 , p5_a8 JTF_VARCHAR2_TABLE_2000
419 , p5_a9 JTF_VARCHAR2_TABLE_2000
420 , p5_a10 JTF_VARCHAR2_TABLE_100
421 , p5_a11 JTF_VARCHAR2_TABLE_200
422 , p5_a12 JTF_VARCHAR2_TABLE_100
423 , p6_a0 JTF_NUMBER_TABLE
424 , p6_a1 JTF_NUMBER_TABLE
425 , p6_a2 JTF_VARCHAR2_TABLE_100
426 , p6_a3 JTF_VARCHAR2_TABLE_100
427 , p6_a4 JTF_VARCHAR2_TABLE_100
428 , p6_a5 JTF_VARCHAR2_TABLE_100
429 , p6_a6 JTF_NUMBER_TABLE
430 , p6_a7 JTF_NUMBER_TABLE
431 , p6_a8 JTF_NUMBER_TABLE
432 , p6_a9 JTF_NUMBER_TABLE
433 , p6_a10 JTF_NUMBER_TABLE
434 , p6_a11 JTF_NUMBER_TABLE
435 , p6_a12 JTF_VARCHAR2_TABLE_100
436 , p6_a13 JTF_VARCHAR2_TABLE_100
437 , p6_a14 JTF_DATE_TABLE
438 , p6_a15 JTF_VARCHAR2_TABLE_100
439 , p6_a16 JTF_VARCHAR2_TABLE_100
440 , p6_a17 JTF_NUMBER_TABLE
441 , p6_a18 JTF_VARCHAR2_TABLE_200
442 , p6_a19 JTF_VARCHAR2_TABLE_100
443 , p6_a20 JTF_VARCHAR2_TABLE_500
444 , p6_a21 JTF_VARCHAR2_TABLE_500
445 , p6_a22 JTF_VARCHAR2_TABLE_500
446 , p6_a23 JTF_VARCHAR2_TABLE_500
447 , p6_a24 JTF_VARCHAR2_TABLE_500
448 , p6_a25 JTF_VARCHAR2_TABLE_500
449 , p6_a26 JTF_VARCHAR2_TABLE_500
450 , p6_a27 JTF_VARCHAR2_TABLE_500
451 , p6_a28 JTF_VARCHAR2_TABLE_500
452 , p6_a29 JTF_VARCHAR2_TABLE_500
453 , p6_a30 JTF_VARCHAR2_TABLE_500
454 , p6_a31 JTF_VARCHAR2_TABLE_500
455 , p6_a32 JTF_VARCHAR2_TABLE_500
456 , p6_a33 JTF_VARCHAR2_TABLE_500
457 , p6_a34 JTF_VARCHAR2_TABLE_500
458 , p6_a35 JTF_VARCHAR2_TABLE_100
459 , p6_a36 JTF_VARCHAR2_TABLE_100
460 , p6_a37 JTF_NUMBER_TABLE
461 , p6_a38 JTF_VARCHAR2_TABLE_100
462 , p6_a39 JTF_NUMBER_TABLE
463 , p6_a40 JTF_VARCHAR2_TABLE_100
464 , p6_a41 JTF_VARCHAR2_TABLE_100
465 , p6_a42 JTF_NUMBER_TABLE
466 , p6_a43 JTF_NUMBER_TABLE
467 , p6_a44 JTF_NUMBER_TABLE
468 , p6_a45 JTF_NUMBER_TABLE
469 , p6_a46 JTF_NUMBER_TABLE
470 , p6_a47 JTF_NUMBER_TABLE
471 , p6_a48 JTF_DATE_TABLE
472 , p6_a49 JTF_NUMBER_TABLE
473 , p6_a50 JTF_DATE_TABLE
474 , p6_a51 JTF_NUMBER_TABLE
475 , p6_a52 JTF_DATE_TABLE
476 , p6_a53 JTF_NUMBER_TABLE
477 , p6_a54 JTF_NUMBER_TABLE
478 , p6_a55 JTF_VARCHAR2_TABLE_100
479 , p6_a56 JTF_NUMBER_TABLE
480 , p6_a57 JTF_VARCHAR2_TABLE_2000
481 , p6_a58 JTF_DATE_TABLE
482 , p6_a59 JTF_VARCHAR2_TABLE_100
483 , p6_a60 JTF_VARCHAR2_TABLE_100
484 , p6_a61 JTF_VARCHAR2_TABLE_100
485 , p6_a62 JTF_VARCHAR2_TABLE_100
486 , p6_a63 JTF_VARCHAR2_TABLE_100
487 , p6_a64 JTF_VARCHAR2_TABLE_100
488 , p6_a65 JTF_VARCHAR2_TABLE_100
489 , p6_a66 JTF_VARCHAR2_TABLE_100
490 , p6_a67 JTF_VARCHAR2_TABLE_100
491 , p6_a68 JTF_VARCHAR2_TABLE_100
492 , p6_a69 JTF_VARCHAR2_TABLE_100
493 , p6_a70 JTF_VARCHAR2_TABLE_100
494 , p6_a71 JTF_VARCHAR2_TABLE_100
495 , p6_a72 JTF_VARCHAR2_TABLE_100
496 , p6_a73 JTF_VARCHAR2_TABLE_100
497 , p6_a74 JTF_VARCHAR2_TABLE_100
498 , p6_a75 JTF_VARCHAR2_TABLE_100
499 , p6_a76 JTF_VARCHAR2_TABLE_100
500 , p6_a77 JTF_NUMBER_TABLE
501 , p6_a78 JTF_DATE_TABLE
502 , p6_a79 JTF_NUMBER_TABLE
503 , p6_a80 JTF_NUMBER_TABLE
504 , p6_a81 JTF_VARCHAR2_TABLE_100
505 , p6_a82 JTF_DATE_TABLE
506 , p6_a83 JTF_NUMBER_TABLE
507 , p6_a84 JTF_DATE_TABLE
508 , p6_a85 JTF_VARCHAR2_TABLE_100
509 , p6_a86 JTF_VARCHAR2_TABLE_200
510 , p6_a87 JTF_VARCHAR2_TABLE_100
511 , p6_a88 JTF_VARCHAR2_TABLE_200
512 , p6_a89 JTF_VARCHAR2_TABLE_100
513 , p6_a90 JTF_VARCHAR2_TABLE_100
514 , p6_a91 JTF_VARCHAR2_TABLE_100
515 , p6_a92 JTF_VARCHAR2_TABLE_100
516 , p6_a93 JTF_DATE_TABLE
517 )
518
519 as
520 ddp_term_tbl okl_am_lease_loan_trmnt_pvt.term_tbl_type;
521 ddp_tcnv_tbl okl_am_lease_loan_trmnt_pvt.tcnv_tbl_type;
522 ddindx binary_integer; indx binary_integer;
523 begin
524
525 -- copy data to the local IN or IN-OUT args, if any
526
527
528
529
530
531 okl_am_lease_loan_trmnt_pvt_w.rosetta_table_copy_in_p13(ddp_term_tbl, p5_a0
532 , p5_a1
533 , p5_a2
534 , p5_a3
535 , p5_a4
536 , p5_a5
537 , p5_a6
538 , p5_a7
539 , p5_a8
540 , p5_a9
541 , p5_a10
542 , p5_a11
543 , p5_a12
544 );
545
546 okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p6_a0
547 , p6_a1
548 , p6_a2
549 , p6_a3
550 , p6_a4
551 , p6_a5
552 , p6_a6
553 , p6_a7
554 , p6_a8
555 , p6_a9
556 , p6_a10
557 , p6_a11
558 , p6_a12
559 , p6_a13
560 , p6_a14
561 , p6_a15
562 , p6_a16
563 , p6_a17
564 , p6_a18
565 , p6_a19
566 , p6_a20
567 , p6_a21
568 , p6_a22
569 , p6_a23
570 , p6_a24
571 , p6_a25
572 , p6_a26
573 , p6_a27
574 , p6_a28
575 , p6_a29
576 , p6_a30
577 , p6_a31
578 , p6_a32
579 , p6_a33
580 , p6_a34
581 , p6_a35
582 , p6_a36
583 , p6_a37
584 , p6_a38
585 , p6_a39
586 , p6_a40
587 , p6_a41
588 , p6_a42
589 , p6_a43
590 , p6_a44
591 , p6_a45
592 , p6_a46
593 , p6_a47
594 , p6_a48
595 , p6_a49
596 , p6_a50
597 , p6_a51
598 , p6_a52
599 , p6_a53
600 , p6_a54
601 , p6_a55
602 , p6_a56
603 , p6_a57
604 , p6_a58
605 , p6_a59
606 , p6_a60
607 , p6_a61
608 , p6_a62
609 , p6_a63
610 , p6_a64
611 , p6_a65
612 , p6_a66
613 , p6_a67
614 , p6_a68
615 , p6_a69
616 , p6_a70
617 , p6_a71
618 , p6_a72
619 , p6_a73
620 , p6_a74
621 , p6_a75
622 , p6_a76
623 , p6_a77
624 , p6_a78
625 , p6_a79
626 , p6_a80
627 , p6_a81
628 , p6_a82
629 , p6_a83
630 , p6_a84
631 , p6_a85
632 , p6_a86
633 , p6_a87
634 , p6_a88
635 , p6_a89
636 , p6_a90
637 , p6_a91
638 , p6_a92
639 , p6_a93
640 );
641
642 -- here's the delegated call to the old PL/SQL routine
643 okl_am_lease_loan_trmnt_pvt.lease_loan_termination(p_api_version,
644 p_init_msg_list,
645 x_return_status,
646 x_msg_count,
647 x_msg_data,
648 ddp_term_tbl,
649 ddp_tcnv_tbl);
650
651 -- copy data back from the local variables to OUT or IN-OUT args, if any
652
653
654
655
656
657
658 end;
659
660 procedure process_discount_subsidy(p_api_version NUMBER
661 , p_init_msg_list VARCHAR2
662 , x_return_status out nocopy VARCHAR2
663 , x_msg_count out nocopy NUMBER
664 , x_msg_data out nocopy VARCHAR2
665 , p_call_origin VARCHAR2
666 , p_termination_date date
667 , p5_a0 NUMBER := 0-1962.0724
668 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
669 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
670 , p5_a3 DATE := fnd_api.g_miss_date
671 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
672 , p5_a5 DATE := fnd_api.g_miss_date
673 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
674 , p5_a7 NUMBER := 0-1962.0724
675 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
676 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
677 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
678 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
679 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
680 )
681
682 as
683 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
684 ddp_termination_date date;
685 ddindx binary_integer; indx binary_integer;
686 begin
687
688 -- copy data to the local IN or IN-OUT args, if any
689
690
691
692
693
694 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
695 ddp_term_rec.p_contract_number := p5_a1;
696 ddp_term_rec.p_contract_modifier := p5_a2;
697 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p5_a3);
698 ddp_term_rec.p_contract_version := p5_a4;
699 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p5_a5);
700 ddp_term_rec.p_termination_reason := p5_a6;
701 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p5_a7);
702 ddp_term_rec.p_quote_type := p5_a8;
703 ddp_term_rec.p_quote_reason := p5_a9;
704 ddp_term_rec.p_early_termination_yn := p5_a10;
705 ddp_term_rec.p_control_flag := p5_a11;
706 ddp_term_rec.p_recycle_flag := p5_a12;
707
708
709 ddp_termination_date := rosetta_g_miss_date_in_map(p_termination_date);
710
711 -- here's the delegated call to the old PL/SQL routine
712 okl_am_lease_loan_trmnt_pvt.process_discount_subsidy(p_api_version,
713 p_init_msg_list,
714 x_return_status,
715 x_msg_count,
716 x_msg_data,
717 ddp_term_rec,
718 p_call_origin,
719 ddp_termination_date);
720
721 -- copy data back from the local variables to OUT or IN-OUT args, if any
722
723
724
725
726
727
728
729 end;
730
731 function check_service_k_int_needed(p_partial_yn VARCHAR2
732 , p_asset_id NUMBER
733 , p_source VARCHAR2
734 , p0_a0 NUMBER := 0-1962.0724
735 , p0_a1 VARCHAR2 := fnd_api.g_miss_char
736 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
737 , p0_a3 DATE := fnd_api.g_miss_date
738 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
739 , p0_a5 DATE := fnd_api.g_miss_date
740 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
741 , p0_a7 NUMBER := 0-1962.0724
742 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
743 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
744 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
745 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
746 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
747 , p1_a0 NUMBER := 0-1962.0724
748 , p1_a1 NUMBER := 0-1962.0724
749 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
750 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
751 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
752 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
753 , p1_a6 NUMBER := 0-1962.0724
754 , p1_a7 NUMBER := 0-1962.0724
755 , p1_a8 NUMBER := 0-1962.0724
756 , p1_a9 NUMBER := 0-1962.0724
757 , p1_a10 NUMBER := 0-1962.0724
758 , p1_a11 NUMBER := 0-1962.0724
759 , p1_a12 VARCHAR2 := fnd_api.g_miss_char
760 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
761 , p1_a14 DATE := fnd_api.g_miss_date
762 , p1_a15 VARCHAR2 := fnd_api.g_miss_char
763 , p1_a16 VARCHAR2 := fnd_api.g_miss_char
764 , p1_a17 NUMBER := 0-1962.0724
765 , p1_a18 VARCHAR2 := fnd_api.g_miss_char
766 , p1_a19 VARCHAR2 := fnd_api.g_miss_char
767 , p1_a20 VARCHAR2 := fnd_api.g_miss_char
768 , p1_a21 VARCHAR2 := fnd_api.g_miss_char
769 , p1_a22 VARCHAR2 := fnd_api.g_miss_char
770 , p1_a23 VARCHAR2 := fnd_api.g_miss_char
771 , p1_a24 VARCHAR2 := fnd_api.g_miss_char
772 , p1_a25 VARCHAR2 := fnd_api.g_miss_char
773 , p1_a26 VARCHAR2 := fnd_api.g_miss_char
774 , p1_a27 VARCHAR2 := fnd_api.g_miss_char
775 , p1_a28 VARCHAR2 := fnd_api.g_miss_char
776 , p1_a29 VARCHAR2 := fnd_api.g_miss_char
777 , p1_a30 VARCHAR2 := fnd_api.g_miss_char
778 , p1_a31 VARCHAR2 := fnd_api.g_miss_char
779 , p1_a32 VARCHAR2 := fnd_api.g_miss_char
780 , p1_a33 VARCHAR2 := fnd_api.g_miss_char
781 , p1_a34 VARCHAR2 := fnd_api.g_miss_char
782 , p1_a35 VARCHAR2 := fnd_api.g_miss_char
783 , p1_a36 VARCHAR2 := fnd_api.g_miss_char
784 , p1_a37 NUMBER := 0-1962.0724
785 , p1_a38 VARCHAR2 := fnd_api.g_miss_char
786 , p1_a39 NUMBER := 0-1962.0724
787 , p1_a40 VARCHAR2 := fnd_api.g_miss_char
788 , p1_a41 VARCHAR2 := fnd_api.g_miss_char
789 , p1_a42 NUMBER := 0-1962.0724
790 , p1_a43 NUMBER := 0-1962.0724
791 , p1_a44 NUMBER := 0-1962.0724
792 , p1_a45 NUMBER := 0-1962.0724
793 , p1_a46 NUMBER := 0-1962.0724
794 , p1_a47 NUMBER := 0-1962.0724
795 , p1_a48 DATE := fnd_api.g_miss_date
796 , p1_a49 NUMBER := 0-1962.0724
797 , p1_a50 DATE := fnd_api.g_miss_date
798 , p1_a51 NUMBER := 0-1962.0724
799 , p1_a52 DATE := fnd_api.g_miss_date
800 , p1_a53 NUMBER := 0-1962.0724
801 , p1_a54 NUMBER := 0-1962.0724
802 , p1_a55 VARCHAR2 := fnd_api.g_miss_char
803 , p1_a56 NUMBER := 0-1962.0724
804 , p1_a57 VARCHAR2 := fnd_api.g_miss_char
805 , p1_a58 DATE := fnd_api.g_miss_date
806 , p1_a59 VARCHAR2 := fnd_api.g_miss_char
807 , p1_a60 VARCHAR2 := fnd_api.g_miss_char
808 , p1_a61 VARCHAR2 := fnd_api.g_miss_char
809 , p1_a62 VARCHAR2 := fnd_api.g_miss_char
810 , p1_a63 VARCHAR2 := fnd_api.g_miss_char
811 , p1_a64 VARCHAR2 := fnd_api.g_miss_char
812 , p1_a65 VARCHAR2 := fnd_api.g_miss_char
813 , p1_a66 VARCHAR2 := fnd_api.g_miss_char
814 , p1_a67 VARCHAR2 := fnd_api.g_miss_char
815 , p1_a68 VARCHAR2 := fnd_api.g_miss_char
816 , p1_a69 VARCHAR2 := fnd_api.g_miss_char
817 , p1_a70 VARCHAR2 := fnd_api.g_miss_char
818 , p1_a71 VARCHAR2 := fnd_api.g_miss_char
819 , p1_a72 VARCHAR2 := fnd_api.g_miss_char
820 , p1_a73 VARCHAR2 := fnd_api.g_miss_char
821 , p1_a74 VARCHAR2 := fnd_api.g_miss_char
822 , p1_a75 VARCHAR2 := fnd_api.g_miss_char
823 , p1_a76 VARCHAR2 := fnd_api.g_miss_char
824 , p1_a77 NUMBER := 0-1962.0724
825 , p1_a78 DATE := fnd_api.g_miss_date
826 , p1_a79 NUMBER := 0-1962.0724
827 , p1_a80 NUMBER := 0-1962.0724
828 , p1_a81 VARCHAR2 := fnd_api.g_miss_char
829 , p1_a82 DATE := fnd_api.g_miss_date
830 , p1_a83 NUMBER := 0-1962.0724
831 , p1_a84 DATE := fnd_api.g_miss_date
832 , p1_a85 VARCHAR2 := fnd_api.g_miss_char
833 , p1_a86 VARCHAR2 := fnd_api.g_miss_char
834 , p1_a87 VARCHAR2 := fnd_api.g_miss_char
835 , p1_a88 VARCHAR2 := fnd_api.g_miss_char
836 , p1_a89 VARCHAR2 := fnd_api.g_miss_char
837 , p1_a90 VARCHAR2 := fnd_api.g_miss_char
838 , p1_a91 VARCHAR2 := fnd_api.g_miss_char
839 , p1_a92 VARCHAR2 := fnd_api.g_miss_char
840 , p1_a93 DATE := fnd_api.g_miss_date
841 ) return varchar2
842
843 as
844 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
845 ddp_tcnv_rec okl_am_lease_loan_trmnt_pvt.tcnv_rec_type;
846 ddindx binary_integer; indx binary_integer;
847 ddrosetta_retval varchar2(4000);
848 begin
849
850 -- copy data to the local IN or IN-OUT args, if any
851 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p0_a0);
852 ddp_term_rec.p_contract_number := p0_a1;
853 ddp_term_rec.p_contract_modifier := p0_a2;
854 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p0_a3);
855 ddp_term_rec.p_contract_version := p0_a4;
856 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p0_a5);
857 ddp_term_rec.p_termination_reason := p0_a6;
858 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p0_a7);
859 ddp_term_rec.p_quote_type := p0_a8;
860 ddp_term_rec.p_quote_reason := p0_a9;
861 ddp_term_rec.p_early_termination_yn := p0_a10;
862 ddp_term_rec.p_control_flag := p0_a11;
863 ddp_term_rec.p_recycle_flag := p0_a12;
864
865 ddp_tcnv_rec.id := rosetta_g_miss_num_map(p1_a0);
866 ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p1_a1);
867 ddp_tcnv_rec.rbr_code := p1_a2;
868 ddp_tcnv_rec.rpy_code := p1_a3;
869 ddp_tcnv_rec.rvn_code := p1_a4;
870 ddp_tcnv_rec.trn_code := p1_a5;
871 ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p1_a6);
872 ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p1_a7);
873 ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p1_a8);
874 ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p1_a9);
875 ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p1_a10);
876 ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p1_a11);
877 ddp_tcnv_rec.tax_deductible_local := p1_a12;
878 ddp_tcnv_rec.tax_deductible_corporate := p1_a13;
879 ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p1_a14);
880 ddp_tcnv_rec.accrual_status_yn := p1_a15;
881 ddp_tcnv_rec.update_status_yn := p1_a16;
882 ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p1_a17);
883 ddp_tcnv_rec.currency_code := p1_a18;
884 ddp_tcnv_rec.attribute_category := p1_a19;
885 ddp_tcnv_rec.attribute1 := p1_a20;
886 ddp_tcnv_rec.attribute2 := p1_a21;
887 ddp_tcnv_rec.attribute3 := p1_a22;
888 ddp_tcnv_rec.attribute4 := p1_a23;
889 ddp_tcnv_rec.attribute5 := p1_a24;
890 ddp_tcnv_rec.attribute6 := p1_a25;
891 ddp_tcnv_rec.attribute7 := p1_a26;
892 ddp_tcnv_rec.attribute8 := p1_a27;
893 ddp_tcnv_rec.attribute9 := p1_a28;
894 ddp_tcnv_rec.attribute10 := p1_a29;
895 ddp_tcnv_rec.attribute11 := p1_a30;
896 ddp_tcnv_rec.attribute12 := p1_a31;
897 ddp_tcnv_rec.attribute13 := p1_a32;
898 ddp_tcnv_rec.attribute14 := p1_a33;
899 ddp_tcnv_rec.attribute15 := p1_a34;
900 ddp_tcnv_rec.tcn_type := p1_a35;
901 ddp_tcnv_rec.rjn_code := p1_a36;
902 ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p1_a37);
903 ddp_tcnv_rec.party_rel_id2_old := p1_a38;
904 ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p1_a39);
905 ddp_tcnv_rec.party_rel_id2_new := p1_a40;
906 ddp_tcnv_rec.complete_transfer_yn := p1_a41;
907 ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p1_a42);
908 ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p1_a43);
909 ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p1_a44);
910 ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p1_a45);
911 ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p1_a46);
912 ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p1_a47);
913 ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p1_a48);
914 ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p1_a49);
915 ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p1_a50);
916 ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p1_a51);
917 ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a52);
918 ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p1_a53);
919 ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p1_a54);
920 ddp_tcnv_rec.tsu_code := p1_a55;
921 ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p1_a56);
922 ddp_tcnv_rec.description := p1_a57;
923 ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p1_a58);
924 ddp_tcnv_rec.trx_number := p1_a59;
925 ddp_tcnv_rec.tmt_evergreen_yn := p1_a60;
926 ddp_tcnv_rec.tmt_close_balances_yn := p1_a61;
927 ddp_tcnv_rec.tmt_accounting_entries_yn := p1_a62;
928 ddp_tcnv_rec.tmt_cancel_insurance_yn := p1_a63;
929 ddp_tcnv_rec.tmt_asset_disposition_yn := p1_a64;
930 ddp_tcnv_rec.tmt_amortization_yn := p1_a65;
931 ddp_tcnv_rec.tmt_asset_return_yn := p1_a66;
932 ddp_tcnv_rec.tmt_contract_updated_yn := p1_a67;
933 ddp_tcnv_rec.tmt_recycle_yn := p1_a68;
934 ddp_tcnv_rec.tmt_validated_yn := p1_a69;
935 ddp_tcnv_rec.tmt_streams_updated_yn := p1_a70;
936 ddp_tcnv_rec.accrual_activity := p1_a71;
937 ddp_tcnv_rec.tmt_split_asset_yn := p1_a72;
938 ddp_tcnv_rec.tmt_generic_flag1_yn := p1_a73;
939 ddp_tcnv_rec.tmt_generic_flag2_yn := p1_a74;
940 ddp_tcnv_rec.tmt_generic_flag3_yn := p1_a75;
941 ddp_tcnv_rec.currency_conversion_type := p1_a76;
942 ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p1_a77);
943 ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p1_a78);
944 ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p1_a79);
945 ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p1_a80);
946 ddp_tcnv_rec.source_trx_type := p1_a81;
947 ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p1_a82);
948 ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p1_a83);
949 ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p1_a84);
950 ddp_tcnv_rec.accounting_reversal_yn := p1_a85;
951 ddp_tcnv_rec.product_name := p1_a86;
952 ddp_tcnv_rec.book_classification_code := p1_a87;
953 ddp_tcnv_rec.tax_owner_code := p1_a88;
954 ddp_tcnv_rec.tmt_status_code := p1_a89;
955 ddp_tcnv_rec.representation_name := p1_a90;
956 ddp_tcnv_rec.representation_code := p1_a91;
957 ddp_tcnv_rec.upgrade_status_flag := p1_a92;
958 ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p1_a93);
959
960
961
962
963 -- here's the delegated call to the old PL/SQL routine
964 ddrosetta_retval := okl_am_lease_loan_trmnt_pvt.check_service_k_int_needed(ddp_term_rec,
965 ddp_tcnv_rec,
966 p_partial_yn,
967 p_asset_id,
968 p_source);
969
970 -- copy data back from the local variables to OUT or IN-OUT args, if any
971
972
973
974
975
976 return ddrosetta_retval;
977 end;
978
979 procedure service_k_integration(p_transaction_id NUMBER
980 , p_transaction_date date
981 , p_source VARCHAR2
982 , p_service_integration_needed VARCHAR2
983 , p0_a0 NUMBER := 0-1962.0724
984 , p0_a1 VARCHAR2 := fnd_api.g_miss_char
985 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
986 , p0_a3 DATE := fnd_api.g_miss_date
987 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
988 , p0_a5 DATE := fnd_api.g_miss_date
989 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
990 , p0_a7 NUMBER := 0-1962.0724
991 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
992 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
993 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
994 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
995 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
996 )
997
998 as
999 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
1000 ddp_transaction_date date;
1001 ddindx binary_integer; indx binary_integer;
1002 begin
1003
1004 -- copy data to the local IN or IN-OUT args, if any
1005 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p0_a0);
1006 ddp_term_rec.p_contract_number := p0_a1;
1007 ddp_term_rec.p_contract_modifier := p0_a2;
1008 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p0_a3);
1009 ddp_term_rec.p_contract_version := p0_a4;
1010 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p0_a5);
1011 ddp_term_rec.p_termination_reason := p0_a6;
1012 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p0_a7);
1013 ddp_term_rec.p_quote_type := p0_a8;
1014 ddp_term_rec.p_quote_reason := p0_a9;
1015 ddp_term_rec.p_early_termination_yn := p0_a10;
1016 ddp_term_rec.p_control_flag := p0_a11;
1017 ddp_term_rec.p_recycle_flag := p0_a12;
1018
1019
1020 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1021
1022
1023
1024 -- here's the delegated call to the old PL/SQL routine
1025 okl_am_lease_loan_trmnt_pvt.service_k_integration(ddp_term_rec,
1026 p_transaction_id,
1027 ddp_transaction_date,
1028 p_source,
1029 p_service_integration_needed);
1030
1031 -- copy data back from the local variables to OUT or IN-OUT args, if any
1032
1033
1034
1035
1036 end;
1037
1038 function check_billing_done(p_contract_id NUMBER
1039 , p_contract_number VARCHAR2
1040 , p_quote_number NUMBER
1041 , p_trn_date date
1042 ) return varchar2
1043
1044 as
1045 ddp_trn_date date;
1046 ddindx binary_integer; indx binary_integer;
1047 ddrosetta_retval varchar2(4000);
1048 begin
1049
1050 -- copy data to the local IN or IN-OUT args, if any
1051
1052
1053
1054 ddp_trn_date := rosetta_g_miss_date_in_map(p_trn_date);
1055
1056 -- here's the delegated call to the old PL/SQL routine
1057 ddrosetta_retval := okl_am_lease_loan_trmnt_pvt.check_billing_done(p_contract_id,
1058 p_contract_number,
1059 p_quote_number,
1060 ddp_trn_date);
1061
1062 -- copy data back from the local variables to OUT or IN-OUT args, if any
1063
1064
1065
1066
1067 return ddrosetta_retval;
1068 end;
1069
1070 procedure get_set_quote_dates(p_qte_id NUMBER
1071 , p_trn_date date
1072 , x_return_status out nocopy VARCHAR2
1073 )
1074
1075 as
1076 ddp_trn_date date;
1077 ddindx binary_integer; indx binary_integer;
1078 begin
1079
1080 -- copy data to the local IN or IN-OUT args, if any
1081
1082 ddp_trn_date := rosetta_g_miss_date_in_map(p_trn_date);
1083
1084
1085 -- here's the delegated call to the old PL/SQL routine
1086 okl_am_lease_loan_trmnt_pvt.get_set_quote_dates(p_qte_id,
1087 ddp_trn_date,
1088 x_return_status);
1089
1090 -- copy data back from the local variables to OUT or IN-OUT args, if any
1091
1092
1093 end;
1094
1095 procedure process_adjustments(p_api_version NUMBER
1096 , p_init_msg_list VARCHAR2
1097 , x_return_status out nocopy VARCHAR2
1098 , x_msg_count out nocopy NUMBER
1099 , x_msg_data out nocopy VARCHAR2
1100 , p_call_origin VARCHAR2
1101 , p_termination_date date
1102 , p5_a0 NUMBER := 0-1962.0724
1103 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1104 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1105 , p5_a3 DATE := fnd_api.g_miss_date
1106 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1107 , p5_a5 DATE := fnd_api.g_miss_date
1108 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1109 , p5_a7 NUMBER := 0-1962.0724
1110 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1111 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1112 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1113 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1114 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1115 , p6_a0 NUMBER := 0-1962.0724
1116 , p6_a1 NUMBER := 0-1962.0724
1117 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
1118 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
1119 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
1120 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
1121 , p6_a6 NUMBER := 0-1962.0724
1122 , p6_a7 NUMBER := 0-1962.0724
1123 , p6_a8 NUMBER := 0-1962.0724
1124 , p6_a9 NUMBER := 0-1962.0724
1125 , p6_a10 NUMBER := 0-1962.0724
1126 , p6_a11 NUMBER := 0-1962.0724
1127 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
1128 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
1129 , p6_a14 DATE := fnd_api.g_miss_date
1130 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
1131 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
1132 , p6_a17 NUMBER := 0-1962.0724
1133 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
1134 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
1135 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
1136 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
1137 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
1138 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
1139 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
1140 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
1141 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
1142 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
1143 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
1144 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
1145 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
1146 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
1147 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
1148 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
1149 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
1150 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
1151 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
1152 , p6_a37 NUMBER := 0-1962.0724
1153 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
1154 , p6_a39 NUMBER := 0-1962.0724
1155 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
1156 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
1157 , p6_a42 NUMBER := 0-1962.0724
1158 , p6_a43 NUMBER := 0-1962.0724
1159 , p6_a44 NUMBER := 0-1962.0724
1160 , p6_a45 NUMBER := 0-1962.0724
1161 , p6_a46 NUMBER := 0-1962.0724
1162 , p6_a47 NUMBER := 0-1962.0724
1163 , p6_a48 DATE := fnd_api.g_miss_date
1164 , p6_a49 NUMBER := 0-1962.0724
1165 , p6_a50 DATE := fnd_api.g_miss_date
1166 , p6_a51 NUMBER := 0-1962.0724
1167 , p6_a52 DATE := fnd_api.g_miss_date
1168 , p6_a53 NUMBER := 0-1962.0724
1169 , p6_a54 NUMBER := 0-1962.0724
1170 , p6_a55 VARCHAR2 := fnd_api.g_miss_char
1171 , p6_a56 NUMBER := 0-1962.0724
1172 , p6_a57 VARCHAR2 := fnd_api.g_miss_char
1173 , p6_a58 DATE := fnd_api.g_miss_date
1174 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
1175 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
1176 , p6_a61 VARCHAR2 := fnd_api.g_miss_char
1177 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
1178 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
1179 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
1180 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
1181 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
1182 , p6_a67 VARCHAR2 := fnd_api.g_miss_char
1183 , p6_a68 VARCHAR2 := fnd_api.g_miss_char
1184 , p6_a69 VARCHAR2 := fnd_api.g_miss_char
1185 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
1186 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
1187 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
1188 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
1189 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
1190 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
1191 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
1192 , p6_a77 NUMBER := 0-1962.0724
1193 , p6_a78 DATE := fnd_api.g_miss_date
1194 , p6_a79 NUMBER := 0-1962.0724
1195 , p6_a80 NUMBER := 0-1962.0724
1196 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
1197 , p6_a82 DATE := fnd_api.g_miss_date
1198 , p6_a83 NUMBER := 0-1962.0724
1199 , p6_a84 DATE := fnd_api.g_miss_date
1200 , p6_a85 VARCHAR2 := fnd_api.g_miss_char
1201 , p6_a86 VARCHAR2 := fnd_api.g_miss_char
1202 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
1203 , p6_a88 VARCHAR2 := fnd_api.g_miss_char
1204 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
1205 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
1206 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
1207 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
1208 , p6_a93 DATE := fnd_api.g_miss_date
1209 )
1210
1211 as
1212 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
1213 ddp_tcnv_rec okl_am_lease_loan_trmnt_pvt.tcnv_rec_type;
1214 ddp_termination_date date;
1215 ddindx binary_integer; indx binary_integer;
1216 begin
1217
1218 -- copy data to the local IN or IN-OUT args, if any
1219
1220
1221
1222
1223
1224 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
1225 ddp_term_rec.p_contract_number := p5_a1;
1226 ddp_term_rec.p_contract_modifier := p5_a2;
1227 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p5_a3);
1228 ddp_term_rec.p_contract_version := p5_a4;
1229 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p5_a5);
1230 ddp_term_rec.p_termination_reason := p5_a6;
1231 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p5_a7);
1232 ddp_term_rec.p_quote_type := p5_a8;
1233 ddp_term_rec.p_quote_reason := p5_a9;
1234 ddp_term_rec.p_early_termination_yn := p5_a10;
1235 ddp_term_rec.p_control_flag := p5_a11;
1236 ddp_term_rec.p_recycle_flag := p5_a12;
1237
1238 ddp_tcnv_rec.id := rosetta_g_miss_num_map(p6_a0);
1239 ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
1240 ddp_tcnv_rec.rbr_code := p6_a2;
1241 ddp_tcnv_rec.rpy_code := p6_a3;
1242 ddp_tcnv_rec.rvn_code := p6_a4;
1243 ddp_tcnv_rec.trn_code := p6_a5;
1244 ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p6_a6);
1245 ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p6_a7);
1246 ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
1247 ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p6_a9);
1248 ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p6_a10);
1249 ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p6_a11);
1250 ddp_tcnv_rec.tax_deductible_local := p6_a12;
1251 ddp_tcnv_rec.tax_deductible_corporate := p6_a13;
1252 ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p6_a14);
1253 ddp_tcnv_rec.accrual_status_yn := p6_a15;
1254 ddp_tcnv_rec.update_status_yn := p6_a16;
1255 ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p6_a17);
1256 ddp_tcnv_rec.currency_code := p6_a18;
1257 ddp_tcnv_rec.attribute_category := p6_a19;
1258 ddp_tcnv_rec.attribute1 := p6_a20;
1259 ddp_tcnv_rec.attribute2 := p6_a21;
1260 ddp_tcnv_rec.attribute3 := p6_a22;
1261 ddp_tcnv_rec.attribute4 := p6_a23;
1262 ddp_tcnv_rec.attribute5 := p6_a24;
1263 ddp_tcnv_rec.attribute6 := p6_a25;
1264 ddp_tcnv_rec.attribute7 := p6_a26;
1265 ddp_tcnv_rec.attribute8 := p6_a27;
1266 ddp_tcnv_rec.attribute9 := p6_a28;
1267 ddp_tcnv_rec.attribute10 := p6_a29;
1268 ddp_tcnv_rec.attribute11 := p6_a30;
1269 ddp_tcnv_rec.attribute12 := p6_a31;
1270 ddp_tcnv_rec.attribute13 := p6_a32;
1271 ddp_tcnv_rec.attribute14 := p6_a33;
1272 ddp_tcnv_rec.attribute15 := p6_a34;
1273 ddp_tcnv_rec.tcn_type := p6_a35;
1274 ddp_tcnv_rec.rjn_code := p6_a36;
1275 ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p6_a37);
1276 ddp_tcnv_rec.party_rel_id2_old := p6_a38;
1277 ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p6_a39);
1278 ddp_tcnv_rec.party_rel_id2_new := p6_a40;
1279 ddp_tcnv_rec.complete_transfer_yn := p6_a41;
1280 ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p6_a42);
1281 ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p6_a43);
1282 ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p6_a44);
1283 ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p6_a45);
1284 ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p6_a46);
1285 ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p6_a47);
1286 ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a48);
1287 ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p6_a49);
1288 ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a50);
1289 ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a51);
1290 ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a52);
1291 ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p6_a53);
1292 ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p6_a54);
1293 ddp_tcnv_rec.tsu_code := p6_a55;
1294 ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p6_a56);
1295 ddp_tcnv_rec.description := p6_a57;
1296 ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p6_a58);
1297 ddp_tcnv_rec.trx_number := p6_a59;
1298 ddp_tcnv_rec.tmt_evergreen_yn := p6_a60;
1299 ddp_tcnv_rec.tmt_close_balances_yn := p6_a61;
1300 ddp_tcnv_rec.tmt_accounting_entries_yn := p6_a62;
1301 ddp_tcnv_rec.tmt_cancel_insurance_yn := p6_a63;
1302 ddp_tcnv_rec.tmt_asset_disposition_yn := p6_a64;
1303 ddp_tcnv_rec.tmt_amortization_yn := p6_a65;
1304 ddp_tcnv_rec.tmt_asset_return_yn := p6_a66;
1305 ddp_tcnv_rec.tmt_contract_updated_yn := p6_a67;
1306 ddp_tcnv_rec.tmt_recycle_yn := p6_a68;
1307 ddp_tcnv_rec.tmt_validated_yn := p6_a69;
1308 ddp_tcnv_rec.tmt_streams_updated_yn := p6_a70;
1309 ddp_tcnv_rec.accrual_activity := p6_a71;
1310 ddp_tcnv_rec.tmt_split_asset_yn := p6_a72;
1311 ddp_tcnv_rec.tmt_generic_flag1_yn := p6_a73;
1312 ddp_tcnv_rec.tmt_generic_flag2_yn := p6_a74;
1313 ddp_tcnv_rec.tmt_generic_flag3_yn := p6_a75;
1314 ddp_tcnv_rec.currency_conversion_type := p6_a76;
1315 ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a77);
1316 ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a78);
1317 ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p6_a79);
1318 ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p6_a80);
1319 ddp_tcnv_rec.source_trx_type := p6_a81;
1320 ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p6_a82);
1321 ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p6_a83);
1322 ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p6_a84);
1323 ddp_tcnv_rec.accounting_reversal_yn := p6_a85;
1324 ddp_tcnv_rec.product_name := p6_a86;
1325 ddp_tcnv_rec.book_classification_code := p6_a87;
1326 ddp_tcnv_rec.tax_owner_code := p6_a88;
1327 ddp_tcnv_rec.tmt_status_code := p6_a89;
1328 ddp_tcnv_rec.representation_name := p6_a90;
1329 ddp_tcnv_rec.representation_code := p6_a91;
1330 ddp_tcnv_rec.upgrade_status_flag := p6_a92;
1331 ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p6_a93);
1332
1333
1334 ddp_termination_date := rosetta_g_miss_date_in_map(p_termination_date);
1335
1336 -- here's the delegated call to the old PL/SQL routine
1337 okl_am_lease_loan_trmnt_pvt.process_adjustments(p_api_version,
1338 p_init_msg_list,
1339 x_return_status,
1340 x_msg_count,
1341 x_msg_data,
1342 ddp_term_rec,
1343 ddp_tcnv_rec,
1344 p_call_origin,
1345 ddp_termination_date);
1346
1347 -- copy data back from the local variables to OUT or IN-OUT args, if any
1348
1349
1350
1351
1352
1353
1354
1355
1356 end;
1357
1358 function check_int_calc_done(p_contract_id NUMBER
1359 , p_contract_number VARCHAR2
1360 , p_quote_number NUMBER
1361 , p_source VARCHAR2
1362 , p_trn_date date
1363 ) return varchar2
1364
1365 as
1366 ddp_trn_date date;
1367 ddindx binary_integer; indx binary_integer;
1368 ddrosetta_retval varchar2(4000);
1369 begin
1370
1371 -- copy data to the local IN or IN-OUT args, if any
1372
1373
1374
1375
1376 ddp_trn_date := rosetta_g_miss_date_in_map(p_trn_date);
1377
1378 -- here's the delegated call to the old PL/SQL routine
1379 ddrosetta_retval := okl_am_lease_loan_trmnt_pvt.check_int_calc_done(p_contract_id,
1380 p_contract_number,
1381 p_quote_number,
1382 p_source,
1383 ddp_trn_date);
1384
1385 -- copy data back from the local variables to OUT or IN-OUT args, if any
1386
1387
1388
1389
1390
1391 return ddrosetta_retval;
1392 end;
1393
1394 procedure process_loan_refunds(p_api_version NUMBER
1395 , p_init_msg_list VARCHAR2
1396 , x_return_status out nocopy VARCHAR2
1397 , x_msg_count out nocopy NUMBER
1398 , x_msg_data out nocopy VARCHAR2
1399 , p_call_origin VARCHAR2
1400 , p_termination_date date
1401 , p5_a0 NUMBER := 0-1962.0724
1402 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1403 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1404 , p5_a3 DATE := fnd_api.g_miss_date
1405 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1406 , p5_a5 DATE := fnd_api.g_miss_date
1407 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1408 , p5_a7 NUMBER := 0-1962.0724
1409 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1410 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1411 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1412 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1413 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1414 , p6_a0 NUMBER := 0-1962.0724
1415 , p6_a1 NUMBER := 0-1962.0724
1416 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
1417 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
1418 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
1419 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
1420 , p6_a6 NUMBER := 0-1962.0724
1421 , p6_a7 NUMBER := 0-1962.0724
1422 , p6_a8 NUMBER := 0-1962.0724
1423 , p6_a9 NUMBER := 0-1962.0724
1424 , p6_a10 NUMBER := 0-1962.0724
1425 , p6_a11 NUMBER := 0-1962.0724
1426 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
1427 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
1428 , p6_a14 DATE := fnd_api.g_miss_date
1429 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
1430 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
1431 , p6_a17 NUMBER := 0-1962.0724
1432 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
1433 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
1434 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
1435 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
1436 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
1437 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
1438 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
1439 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
1440 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
1441 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
1442 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
1443 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
1444 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
1445 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
1446 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
1447 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
1448 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
1449 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
1450 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
1451 , p6_a37 NUMBER := 0-1962.0724
1452 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
1453 , p6_a39 NUMBER := 0-1962.0724
1454 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
1455 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
1456 , p6_a42 NUMBER := 0-1962.0724
1457 , p6_a43 NUMBER := 0-1962.0724
1458 , p6_a44 NUMBER := 0-1962.0724
1459 , p6_a45 NUMBER := 0-1962.0724
1460 , p6_a46 NUMBER := 0-1962.0724
1461 , p6_a47 NUMBER := 0-1962.0724
1462 , p6_a48 DATE := fnd_api.g_miss_date
1463 , p6_a49 NUMBER := 0-1962.0724
1464 , p6_a50 DATE := fnd_api.g_miss_date
1465 , p6_a51 NUMBER := 0-1962.0724
1466 , p6_a52 DATE := fnd_api.g_miss_date
1467 , p6_a53 NUMBER := 0-1962.0724
1468 , p6_a54 NUMBER := 0-1962.0724
1469 , p6_a55 VARCHAR2 := fnd_api.g_miss_char
1470 , p6_a56 NUMBER := 0-1962.0724
1471 , p6_a57 VARCHAR2 := fnd_api.g_miss_char
1472 , p6_a58 DATE := fnd_api.g_miss_date
1473 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
1474 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
1475 , p6_a61 VARCHAR2 := fnd_api.g_miss_char
1476 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
1477 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
1478 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
1479 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
1480 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
1481 , p6_a67 VARCHAR2 := fnd_api.g_miss_char
1482 , p6_a68 VARCHAR2 := fnd_api.g_miss_char
1483 , p6_a69 VARCHAR2 := fnd_api.g_miss_char
1484 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
1485 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
1486 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
1487 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
1488 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
1489 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
1490 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
1491 , p6_a77 NUMBER := 0-1962.0724
1492 , p6_a78 DATE := fnd_api.g_miss_date
1493 , p6_a79 NUMBER := 0-1962.0724
1494 , p6_a80 NUMBER := 0-1962.0724
1495 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
1496 , p6_a82 DATE := fnd_api.g_miss_date
1497 , p6_a83 NUMBER := 0-1962.0724
1498 , p6_a84 DATE := fnd_api.g_miss_date
1499 , p6_a85 VARCHAR2 := fnd_api.g_miss_char
1500 , p6_a86 VARCHAR2 := fnd_api.g_miss_char
1501 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
1502 , p6_a88 VARCHAR2 := fnd_api.g_miss_char
1503 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
1504 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
1505 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
1506 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
1507 , p6_a93 DATE := fnd_api.g_miss_date
1508 )
1509
1510 as
1511 ddp_term_rec okl_am_lease_loan_trmnt_pvt.term_rec_type;
1512 ddp_tcnv_rec okl_am_lease_loan_trmnt_pvt.tcnv_rec_type;
1513 ddp_termination_date date;
1514 ddindx binary_integer; indx binary_integer;
1515 begin
1516
1517 -- copy data to the local IN or IN-OUT args, if any
1518
1519
1520
1521
1522
1523 ddp_term_rec.p_contract_id := rosetta_g_miss_num_map(p5_a0);
1524 ddp_term_rec.p_contract_number := p5_a1;
1525 ddp_term_rec.p_contract_modifier := p5_a2;
1526 ddp_term_rec.p_orig_end_date := rosetta_g_miss_date_in_map(p5_a3);
1527 ddp_term_rec.p_contract_version := p5_a4;
1528 ddp_term_rec.p_termination_date := rosetta_g_miss_date_in_map(p5_a5);
1529 ddp_term_rec.p_termination_reason := p5_a6;
1530 ddp_term_rec.p_quote_id := rosetta_g_miss_num_map(p5_a7);
1531 ddp_term_rec.p_quote_type := p5_a8;
1532 ddp_term_rec.p_quote_reason := p5_a9;
1533 ddp_term_rec.p_early_termination_yn := p5_a10;
1534 ddp_term_rec.p_control_flag := p5_a11;
1535 ddp_term_rec.p_recycle_flag := p5_a12;
1536
1537 ddp_tcnv_rec.id := rosetta_g_miss_num_map(p6_a0);
1538 ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
1539 ddp_tcnv_rec.rbr_code := p6_a2;
1540 ddp_tcnv_rec.rpy_code := p6_a3;
1541 ddp_tcnv_rec.rvn_code := p6_a4;
1542 ddp_tcnv_rec.trn_code := p6_a5;
1543 ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p6_a6);
1544 ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p6_a7);
1545 ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
1546 ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p6_a9);
1547 ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p6_a10);
1548 ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p6_a11);
1549 ddp_tcnv_rec.tax_deductible_local := p6_a12;
1550 ddp_tcnv_rec.tax_deductible_corporate := p6_a13;
1551 ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p6_a14);
1552 ddp_tcnv_rec.accrual_status_yn := p6_a15;
1553 ddp_tcnv_rec.update_status_yn := p6_a16;
1554 ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p6_a17);
1555 ddp_tcnv_rec.currency_code := p6_a18;
1556 ddp_tcnv_rec.attribute_category := p6_a19;
1557 ddp_tcnv_rec.attribute1 := p6_a20;
1558 ddp_tcnv_rec.attribute2 := p6_a21;
1559 ddp_tcnv_rec.attribute3 := p6_a22;
1560 ddp_tcnv_rec.attribute4 := p6_a23;
1561 ddp_tcnv_rec.attribute5 := p6_a24;
1562 ddp_tcnv_rec.attribute6 := p6_a25;
1563 ddp_tcnv_rec.attribute7 := p6_a26;
1564 ddp_tcnv_rec.attribute8 := p6_a27;
1565 ddp_tcnv_rec.attribute9 := p6_a28;
1566 ddp_tcnv_rec.attribute10 := p6_a29;
1567 ddp_tcnv_rec.attribute11 := p6_a30;
1568 ddp_tcnv_rec.attribute12 := p6_a31;
1569 ddp_tcnv_rec.attribute13 := p6_a32;
1570 ddp_tcnv_rec.attribute14 := p6_a33;
1571 ddp_tcnv_rec.attribute15 := p6_a34;
1572 ddp_tcnv_rec.tcn_type := p6_a35;
1573 ddp_tcnv_rec.rjn_code := p6_a36;
1574 ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p6_a37);
1575 ddp_tcnv_rec.party_rel_id2_old := p6_a38;
1576 ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p6_a39);
1577 ddp_tcnv_rec.party_rel_id2_new := p6_a40;
1578 ddp_tcnv_rec.complete_transfer_yn := p6_a41;
1579 ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p6_a42);
1580 ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p6_a43);
1581 ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p6_a44);
1582 ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p6_a45);
1583 ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p6_a46);
1584 ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p6_a47);
1585 ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a48);
1586 ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p6_a49);
1587 ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a50);
1588 ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a51);
1589 ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a52);
1590 ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p6_a53);
1591 ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p6_a54);
1592 ddp_tcnv_rec.tsu_code := p6_a55;
1593 ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p6_a56);
1594 ddp_tcnv_rec.description := p6_a57;
1595 ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p6_a58);
1596 ddp_tcnv_rec.trx_number := p6_a59;
1597 ddp_tcnv_rec.tmt_evergreen_yn := p6_a60;
1598 ddp_tcnv_rec.tmt_close_balances_yn := p6_a61;
1599 ddp_tcnv_rec.tmt_accounting_entries_yn := p6_a62;
1600 ddp_tcnv_rec.tmt_cancel_insurance_yn := p6_a63;
1601 ddp_tcnv_rec.tmt_asset_disposition_yn := p6_a64;
1602 ddp_tcnv_rec.tmt_amortization_yn := p6_a65;
1603 ddp_tcnv_rec.tmt_asset_return_yn := p6_a66;
1604 ddp_tcnv_rec.tmt_contract_updated_yn := p6_a67;
1605 ddp_tcnv_rec.tmt_recycle_yn := p6_a68;
1606 ddp_tcnv_rec.tmt_validated_yn := p6_a69;
1607 ddp_tcnv_rec.tmt_streams_updated_yn := p6_a70;
1608 ddp_tcnv_rec.accrual_activity := p6_a71;
1609 ddp_tcnv_rec.tmt_split_asset_yn := p6_a72;
1610 ddp_tcnv_rec.tmt_generic_flag1_yn := p6_a73;
1611 ddp_tcnv_rec.tmt_generic_flag2_yn := p6_a74;
1612 ddp_tcnv_rec.tmt_generic_flag3_yn := p6_a75;
1613 ddp_tcnv_rec.currency_conversion_type := p6_a76;
1614 ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a77);
1615 ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a78);
1616 ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p6_a79);
1617 ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p6_a80);
1618 ddp_tcnv_rec.source_trx_type := p6_a81;
1619 ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p6_a82);
1620 ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p6_a83);
1621 ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p6_a84);
1622 ddp_tcnv_rec.accounting_reversal_yn := p6_a85;
1623 ddp_tcnv_rec.product_name := p6_a86;
1624 ddp_tcnv_rec.book_classification_code := p6_a87;
1625 ddp_tcnv_rec.tax_owner_code := p6_a88;
1626 ddp_tcnv_rec.tmt_status_code := p6_a89;
1627 ddp_tcnv_rec.representation_name := p6_a90;
1628 ddp_tcnv_rec.representation_code := p6_a91;
1629 ddp_tcnv_rec.upgrade_status_flag := p6_a92;
1630 ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p6_a93);
1631
1632
1633 ddp_termination_date := rosetta_g_miss_date_in_map(p_termination_date);
1634
1635 -- here's the delegated call to the old PL/SQL routine
1636 okl_am_lease_loan_trmnt_pvt.process_loan_refunds(p_api_version,
1637 p_init_msg_list,
1638 x_return_status,
1639 x_msg_count,
1640 x_msg_data,
1641 ddp_term_rec,
1642 ddp_tcnv_rec,
1643 p_call_origin,
1644 ddp_termination_date);
1645
1646 -- copy data back from the local variables to OUT or IN-OUT args, if any
1647
1648
1649
1650
1651
1652
1653
1654
1655 end;
1656
1657 end okl_am_lease_loan_trmnt_pvt_w;