[Home] [Help]
PACKAGE BODY: APPS.OKL_SEC_AGREEMENT_PVT_W
Source
1 package body okl_sec_agreement_pvt_w as
2 /* $Header: OKLESZAB.pls 120.4 2008/01/07 11:08:13 sosharma noship $ */
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_p11(t out nocopy okl_sec_agreement_pvt.secagreement_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_200
27 , a2 JTF_NUMBER_TABLE
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_VARCHAR2_TABLE_600
30 , a5 JTF_DATE_TABLE
31 , a6 JTF_DATE_TABLE
32 , a7 JTF_DATE_TABLE
33 , a8 JTF_VARCHAR2_TABLE_100
34 , a9 JTF_VARCHAR2_TABLE_100
35 , a10 JTF_VARCHAR2_TABLE_100
36 , a11 JTF_VARCHAR2_TABLE_100
37 , a12 JTF_VARCHAR2_TABLE_100
38 , a13 JTF_VARCHAR2_TABLE_100
39 , a14 JTF_NUMBER_TABLE
40 , a15 JTF_DATE_TABLE
41 , a16 JTF_NUMBER_TABLE
42 , a17 JTF_VARCHAR2_TABLE_100
43 , a18 JTF_VARCHAR2_TABLE_100
44 , a19 JTF_VARCHAR2_TABLE_100
45 , a20 JTF_NUMBER_TABLE
46 , a21 JTF_VARCHAR2_TABLE_100
47 , a22 JTF_VARCHAR2_TABLE_500
48 , a23 JTF_VARCHAR2_TABLE_500
49 , a24 JTF_VARCHAR2_TABLE_500
50 , a25 JTF_VARCHAR2_TABLE_500
51 , a26 JTF_VARCHAR2_TABLE_500
52 , a27 JTF_VARCHAR2_TABLE_500
53 , a28 JTF_VARCHAR2_TABLE_500
54 , a29 JTF_VARCHAR2_TABLE_500
55 , a30 JTF_VARCHAR2_TABLE_500
56 , a31 JTF_VARCHAR2_TABLE_500
57 , a32 JTF_VARCHAR2_TABLE_500
58 , a33 JTF_VARCHAR2_TABLE_500
59 , a34 JTF_VARCHAR2_TABLE_500
60 , a35 JTF_VARCHAR2_TABLE_500
61 , a36 JTF_VARCHAR2_TABLE_500
62 , a37 JTF_NUMBER_TABLE
63 ) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
72 t(ddindx).contract_number := a1(indx);
73 t(ddindx).pdt_id := rosetta_g_miss_num_map(a2(indx));
74 t(ddindx).pol_id := rosetta_g_miss_num_map(a3(indx));
75 t(ddindx).short_description := a4(indx);
76 t(ddindx).start_date := rosetta_g_miss_date_in_map(a5(indx));
77 t(ddindx).end_date := rosetta_g_miss_date_in_map(a6(indx));
78 t(ddindx).date_approved := rosetta_g_miss_date_in_map(a7(indx));
79 t(ddindx).securitization_type := a8(indx);
80 t(ddindx).lessor_serv_org_code := a9(indx);
81 t(ddindx).recourse_code := a10(indx);
82 t(ddindx).sts_code := a11(indx);
83 t(ddindx).currency_code := a12(indx);
84 t(ddindx).currency_conversion_type := a13(indx);
85 t(ddindx).currency_conversion_rate := rosetta_g_miss_num_map(a14(indx));
86 t(ddindx).currency_conversion_date := rosetta_g_miss_date_in_map(a15(indx));
87 t(ddindx).trustee_party_roles_id := rosetta_g_miss_num_map(a16(indx));
88 t(ddindx).trustee_object1_id1 := a17(indx);
89 t(ddindx).trustee_object1_id2 := a18(indx);
90 t(ddindx).trustee_jtot_object1_code := a19(indx);
91 t(ddindx).after_tax_yield := rosetta_g_miss_num_map(a20(indx));
92 t(ddindx).attribute_category := a21(indx);
93 t(ddindx).attribute1 := a22(indx);
94 t(ddindx).attribute2 := a23(indx);
95 t(ddindx).attribute3 := a24(indx);
96 t(ddindx).attribute4 := a25(indx);
97 t(ddindx).attribute5 := a26(indx);
98 t(ddindx).attribute6 := a27(indx);
99 t(ddindx).attribute7 := a28(indx);
100 t(ddindx).attribute8 := a29(indx);
101 t(ddindx).attribute9 := a30(indx);
102 t(ddindx).attribute10 := a31(indx);
103 t(ddindx).attribute11 := a32(indx);
104 t(ddindx).attribute12 := a33(indx);
105 t(ddindx).attribute13 := a34(indx);
106 t(ddindx).attribute14 := a35(indx);
107 t(ddindx).attribute15 := a36(indx);
108 t(ddindx).legal_entity_id := rosetta_g_miss_num_map(a37(indx));
109 ddindx := ddindx+1;
110 if a0.last =indx
111 then exit;
112 end if;
113 indx := a0.next(indx);
114 end loop;
115 end if;
116 end if;
117 end rosetta_table_copy_in_p11;
118 procedure rosetta_table_copy_out_p11(t okl_sec_agreement_pvt.secagreement_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
119 , a1 out nocopy JTF_VARCHAR2_TABLE_200
120 , a2 out nocopy JTF_NUMBER_TABLE
121 , a3 out nocopy JTF_NUMBER_TABLE
122 , a4 out nocopy JTF_VARCHAR2_TABLE_600
123 , a5 out nocopy JTF_DATE_TABLE
124 , a6 out nocopy JTF_DATE_TABLE
125 , a7 out nocopy JTF_DATE_TABLE
126 , a8 out nocopy JTF_VARCHAR2_TABLE_100
127 , a9 out nocopy JTF_VARCHAR2_TABLE_100
128 , a10 out nocopy JTF_VARCHAR2_TABLE_100
129 , a11 out nocopy JTF_VARCHAR2_TABLE_100
130 , a12 out nocopy JTF_VARCHAR2_TABLE_100
131 , a13 out nocopy JTF_VARCHAR2_TABLE_100
132 , a14 out nocopy JTF_NUMBER_TABLE
133 , a15 out nocopy JTF_DATE_TABLE
134 , a16 out nocopy JTF_NUMBER_TABLE
135 , a17 out nocopy JTF_VARCHAR2_TABLE_100
136 , a18 out nocopy JTF_VARCHAR2_TABLE_100
137 , a19 out nocopy JTF_VARCHAR2_TABLE_100
138 , a20 out nocopy JTF_NUMBER_TABLE
139 , a21 out nocopy JTF_VARCHAR2_TABLE_100
140 , a22 out nocopy JTF_VARCHAR2_TABLE_500
141 , a23 out nocopy JTF_VARCHAR2_TABLE_500
142 , a24 out nocopy JTF_VARCHAR2_TABLE_500
143 , a25 out nocopy JTF_VARCHAR2_TABLE_500
144 , a26 out nocopy JTF_VARCHAR2_TABLE_500
145 , a27 out nocopy JTF_VARCHAR2_TABLE_500
146 , a28 out nocopy JTF_VARCHAR2_TABLE_500
147 , a29 out nocopy JTF_VARCHAR2_TABLE_500
148 , a30 out nocopy JTF_VARCHAR2_TABLE_500
149 , a31 out nocopy JTF_VARCHAR2_TABLE_500
150 , a32 out nocopy JTF_VARCHAR2_TABLE_500
151 , a33 out nocopy JTF_VARCHAR2_TABLE_500
152 , a34 out nocopy JTF_VARCHAR2_TABLE_500
153 , a35 out nocopy JTF_VARCHAR2_TABLE_500
154 , a36 out nocopy JTF_VARCHAR2_TABLE_500
155 , a37 out nocopy JTF_NUMBER_TABLE
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null or t.count = 0 then
160 a0 := JTF_NUMBER_TABLE();
161 a1 := JTF_VARCHAR2_TABLE_200();
162 a2 := JTF_NUMBER_TABLE();
163 a3 := JTF_NUMBER_TABLE();
164 a4 := JTF_VARCHAR2_TABLE_600();
165 a5 := JTF_DATE_TABLE();
166 a6 := JTF_DATE_TABLE();
167 a7 := JTF_DATE_TABLE();
168 a8 := JTF_VARCHAR2_TABLE_100();
169 a9 := JTF_VARCHAR2_TABLE_100();
170 a10 := JTF_VARCHAR2_TABLE_100();
171 a11 := JTF_VARCHAR2_TABLE_100();
172 a12 := JTF_VARCHAR2_TABLE_100();
173 a13 := JTF_VARCHAR2_TABLE_100();
174 a14 := JTF_NUMBER_TABLE();
175 a15 := JTF_DATE_TABLE();
176 a16 := JTF_NUMBER_TABLE();
177 a17 := JTF_VARCHAR2_TABLE_100();
178 a18 := JTF_VARCHAR2_TABLE_100();
179 a19 := JTF_VARCHAR2_TABLE_100();
180 a20 := JTF_NUMBER_TABLE();
181 a21 := JTF_VARCHAR2_TABLE_100();
182 a22 := JTF_VARCHAR2_TABLE_500();
183 a23 := JTF_VARCHAR2_TABLE_500();
184 a24 := JTF_VARCHAR2_TABLE_500();
185 a25 := JTF_VARCHAR2_TABLE_500();
186 a26 := JTF_VARCHAR2_TABLE_500();
187 a27 := JTF_VARCHAR2_TABLE_500();
188 a28 := JTF_VARCHAR2_TABLE_500();
189 a29 := JTF_VARCHAR2_TABLE_500();
190 a30 := JTF_VARCHAR2_TABLE_500();
191 a31 := JTF_VARCHAR2_TABLE_500();
192 a32 := JTF_VARCHAR2_TABLE_500();
193 a33 := JTF_VARCHAR2_TABLE_500();
194 a34 := JTF_VARCHAR2_TABLE_500();
195 a35 := JTF_VARCHAR2_TABLE_500();
196 a36 := JTF_VARCHAR2_TABLE_500();
197 a37 := JTF_NUMBER_TABLE();
198 else
199 a0 := JTF_NUMBER_TABLE();
200 a1 := JTF_VARCHAR2_TABLE_200();
201 a2 := JTF_NUMBER_TABLE();
202 a3 := JTF_NUMBER_TABLE();
203 a4 := JTF_VARCHAR2_TABLE_600();
204 a5 := JTF_DATE_TABLE();
205 a6 := JTF_DATE_TABLE();
206 a7 := JTF_DATE_TABLE();
207 a8 := JTF_VARCHAR2_TABLE_100();
208 a9 := JTF_VARCHAR2_TABLE_100();
209 a10 := JTF_VARCHAR2_TABLE_100();
210 a11 := JTF_VARCHAR2_TABLE_100();
211 a12 := JTF_VARCHAR2_TABLE_100();
212 a13 := JTF_VARCHAR2_TABLE_100();
213 a14 := JTF_NUMBER_TABLE();
214 a15 := JTF_DATE_TABLE();
215 a16 := JTF_NUMBER_TABLE();
216 a17 := JTF_VARCHAR2_TABLE_100();
217 a18 := JTF_VARCHAR2_TABLE_100();
218 a19 := JTF_VARCHAR2_TABLE_100();
219 a20 := JTF_NUMBER_TABLE();
220 a21 := JTF_VARCHAR2_TABLE_100();
221 a22 := JTF_VARCHAR2_TABLE_500();
222 a23 := JTF_VARCHAR2_TABLE_500();
223 a24 := JTF_VARCHAR2_TABLE_500();
224 a25 := JTF_VARCHAR2_TABLE_500();
225 a26 := JTF_VARCHAR2_TABLE_500();
226 a27 := JTF_VARCHAR2_TABLE_500();
227 a28 := JTF_VARCHAR2_TABLE_500();
228 a29 := JTF_VARCHAR2_TABLE_500();
229 a30 := JTF_VARCHAR2_TABLE_500();
230 a31 := JTF_VARCHAR2_TABLE_500();
231 a32 := JTF_VARCHAR2_TABLE_500();
232 a33 := JTF_VARCHAR2_TABLE_500();
233 a34 := JTF_VARCHAR2_TABLE_500();
234 a35 := JTF_VARCHAR2_TABLE_500();
235 a36 := JTF_VARCHAR2_TABLE_500();
236 a37 := JTF_NUMBER_TABLE();
237 if t.count > 0 then
238 a0.extend(t.count);
239 a1.extend(t.count);
240 a2.extend(t.count);
241 a3.extend(t.count);
242 a4.extend(t.count);
243 a5.extend(t.count);
244 a6.extend(t.count);
245 a7.extend(t.count);
246 a8.extend(t.count);
247 a9.extend(t.count);
248 a10.extend(t.count);
249 a11.extend(t.count);
250 a12.extend(t.count);
251 a13.extend(t.count);
252 a14.extend(t.count);
253 a15.extend(t.count);
254 a16.extend(t.count);
255 a17.extend(t.count);
256 a18.extend(t.count);
257 a19.extend(t.count);
258 a20.extend(t.count);
259 a21.extend(t.count);
260 a22.extend(t.count);
261 a23.extend(t.count);
262 a24.extend(t.count);
263 a25.extend(t.count);
264 a26.extend(t.count);
265 a27.extend(t.count);
266 a28.extend(t.count);
267 a29.extend(t.count);
268 a30.extend(t.count);
269 a31.extend(t.count);
270 a32.extend(t.count);
271 a33.extend(t.count);
272 a34.extend(t.count);
273 a35.extend(t.count);
274 a36.extend(t.count);
275 a37.extend(t.count);
276 ddindx := t.first;
277 indx := 1;
278 while true loop
279 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
280 a1(indx) := t(ddindx).contract_number;
281 a2(indx) := rosetta_g_miss_num_map(t(ddindx).pdt_id);
282 a3(indx) := rosetta_g_miss_num_map(t(ddindx).pol_id);
283 a4(indx) := t(ddindx).short_description;
284 a5(indx) := t(ddindx).start_date;
285 a6(indx) := t(ddindx).end_date;
286 a7(indx) := t(ddindx).date_approved;
287 a8(indx) := t(ddindx).securitization_type;
288 a9(indx) := t(ddindx).lessor_serv_org_code;
289 a10(indx) := t(ddindx).recourse_code;
290 a11(indx) := t(ddindx).sts_code;
291 a12(indx) := t(ddindx).currency_code;
292 a13(indx) := t(ddindx).currency_conversion_type;
293 a14(indx) := rosetta_g_miss_num_map(t(ddindx).currency_conversion_rate);
294 a15(indx) := t(ddindx).currency_conversion_date;
295 a16(indx) := rosetta_g_miss_num_map(t(ddindx).trustee_party_roles_id);
296 a17(indx) := t(ddindx).trustee_object1_id1;
297 a18(indx) := t(ddindx).trustee_object1_id2;
298 a19(indx) := t(ddindx).trustee_jtot_object1_code;
299 a20(indx) := rosetta_g_miss_num_map(t(ddindx).after_tax_yield);
300 a21(indx) := t(ddindx).attribute_category;
301 a22(indx) := t(ddindx).attribute1;
302 a23(indx) := t(ddindx).attribute2;
303 a24(indx) := t(ddindx).attribute3;
304 a25(indx) := t(ddindx).attribute4;
305 a26(indx) := t(ddindx).attribute5;
306 a27(indx) := t(ddindx).attribute6;
307 a28(indx) := t(ddindx).attribute7;
308 a29(indx) := t(ddindx).attribute8;
309 a30(indx) := t(ddindx).attribute9;
310 a31(indx) := t(ddindx).attribute10;
311 a32(indx) := t(ddindx).attribute11;
312 a33(indx) := t(ddindx).attribute12;
313 a34(indx) := t(ddindx).attribute13;
314 a35(indx) := t(ddindx).attribute14;
315 a36(indx) := t(ddindx).attribute15;
316 a37(indx) := rosetta_g_miss_num_map(t(ddindx).legal_entity_id);
317 indx := indx+1;
318 if t.last =ddindx
319 then exit;
320 end if;
321 ddindx := t.next(ddindx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_out_p11;
326
327 procedure create_sec_agreement(p_api_version NUMBER
328 , p_init_msg_list VARCHAR2
329 , x_return_status out nocopy VARCHAR2
330 , x_msg_count out nocopy NUMBER
331 , x_msg_data out nocopy VARCHAR2
332 , p6_a0 out nocopy NUMBER
333 , p6_a1 out nocopy VARCHAR2
334 , p6_a2 out nocopy NUMBER
335 , p6_a3 out nocopy NUMBER
336 , p6_a4 out nocopy VARCHAR2
337 , p6_a5 out nocopy DATE
338 , p6_a6 out nocopy DATE
339 , p6_a7 out nocopy DATE
340 , p6_a8 out nocopy VARCHAR2
341 , p6_a9 out nocopy VARCHAR2
342 , p6_a10 out nocopy VARCHAR2
343 , p6_a11 out nocopy VARCHAR2
344 , p6_a12 out nocopy VARCHAR2
345 , p6_a13 out nocopy VARCHAR2
346 , p6_a14 out nocopy NUMBER
347 , p6_a15 out nocopy DATE
348 , p6_a16 out nocopy NUMBER
349 , p6_a17 out nocopy VARCHAR2
350 , p6_a18 out nocopy VARCHAR2
351 , p6_a19 out nocopy VARCHAR2
352 , p6_a20 out nocopy NUMBER
353 , p6_a21 out nocopy VARCHAR2
354 , p6_a22 out nocopy VARCHAR2
355 , p6_a23 out nocopy VARCHAR2
356 , p6_a24 out nocopy VARCHAR2
357 , p6_a25 out nocopy VARCHAR2
358 , p6_a26 out nocopy VARCHAR2
359 , p6_a27 out nocopy VARCHAR2
360 , p6_a28 out nocopy VARCHAR2
361 , p6_a29 out nocopy VARCHAR2
362 , p6_a30 out nocopy VARCHAR2
363 , p6_a31 out nocopy VARCHAR2
364 , p6_a32 out nocopy VARCHAR2
365 , p6_a33 out nocopy VARCHAR2
366 , p6_a34 out nocopy VARCHAR2
367 , p6_a35 out nocopy VARCHAR2
368 , p6_a36 out nocopy VARCHAR2
369 , p6_a37 out nocopy NUMBER
370 , p5_a0 NUMBER := 0-1962.0724
371 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
372 , p5_a2 NUMBER := 0-1962.0724
373 , p5_a3 NUMBER := 0-1962.0724
374 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
375 , p5_a5 DATE := fnd_api.g_miss_date
376 , p5_a6 DATE := fnd_api.g_miss_date
377 , p5_a7 DATE := fnd_api.g_miss_date
378 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
379 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
380 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
381 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
382 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
383 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
384 , p5_a14 NUMBER := 0-1962.0724
385 , p5_a15 DATE := fnd_api.g_miss_date
386 , p5_a16 NUMBER := 0-1962.0724
387 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
388 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
389 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
390 , p5_a20 NUMBER := 0-1962.0724
391 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
392 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
393 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
394 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
395 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
396 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
397 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
398 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
399 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
400 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
401 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
402 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
403 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
404 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
405 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
406 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
407 , p5_a37 NUMBER := 0-1962.0724
408 )
409
410 as
411 ddp_secagreement_rec okl_sec_agreement_pvt.secagreement_rec_type;
412 ddx_secagreement_rec okl_sec_agreement_pvt.secagreement_rec_type;
413 ddindx binary_integer; indx binary_integer;
414 begin
415
416 -- copy data to the local IN or IN-OUT args, if any
417
418
419
420
421
422 ddp_secagreement_rec.id := rosetta_g_miss_num_map(p5_a0);
423 ddp_secagreement_rec.contract_number := p5_a1;
424 ddp_secagreement_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
425 ddp_secagreement_rec.pol_id := rosetta_g_miss_num_map(p5_a3);
426 ddp_secagreement_rec.short_description := p5_a4;
427 ddp_secagreement_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
428 ddp_secagreement_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
429 ddp_secagreement_rec.date_approved := rosetta_g_miss_date_in_map(p5_a7);
430 ddp_secagreement_rec.securitization_type := p5_a8;
431 ddp_secagreement_rec.lessor_serv_org_code := p5_a9;
432 ddp_secagreement_rec.recourse_code := p5_a10;
433 ddp_secagreement_rec.sts_code := p5_a11;
434 ddp_secagreement_rec.currency_code := p5_a12;
435 ddp_secagreement_rec.currency_conversion_type := p5_a13;
436 ddp_secagreement_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a14);
437 ddp_secagreement_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a15);
438 ddp_secagreement_rec.trustee_party_roles_id := rosetta_g_miss_num_map(p5_a16);
439 ddp_secagreement_rec.trustee_object1_id1 := p5_a17;
440 ddp_secagreement_rec.trustee_object1_id2 := p5_a18;
441 ddp_secagreement_rec.trustee_jtot_object1_code := p5_a19;
442 ddp_secagreement_rec.after_tax_yield := rosetta_g_miss_num_map(p5_a20);
443 ddp_secagreement_rec.attribute_category := p5_a21;
444 ddp_secagreement_rec.attribute1 := p5_a22;
445 ddp_secagreement_rec.attribute2 := p5_a23;
446 ddp_secagreement_rec.attribute3 := p5_a24;
447 ddp_secagreement_rec.attribute4 := p5_a25;
448 ddp_secagreement_rec.attribute5 := p5_a26;
449 ddp_secagreement_rec.attribute6 := p5_a27;
450 ddp_secagreement_rec.attribute7 := p5_a28;
451 ddp_secagreement_rec.attribute8 := p5_a29;
452 ddp_secagreement_rec.attribute9 := p5_a30;
453 ddp_secagreement_rec.attribute10 := p5_a31;
454 ddp_secagreement_rec.attribute11 := p5_a32;
455 ddp_secagreement_rec.attribute12 := p5_a33;
456 ddp_secagreement_rec.attribute13 := p5_a34;
457 ddp_secagreement_rec.attribute14 := p5_a35;
458 ddp_secagreement_rec.attribute15 := p5_a36;
459 ddp_secagreement_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a37);
460
461
462 -- here's the delegated call to the old PL/SQL routine
463 okl_sec_agreement_pvt.create_sec_agreement(p_api_version,
464 p_init_msg_list,
465 x_return_status,
466 x_msg_count,
467 x_msg_data,
468 ddp_secagreement_rec,
469 ddx_secagreement_rec);
470
471 -- copy data back from the local variables to OUT or IN-OUT args, if any
472
473
474
475
476
477
478 p6_a0 := rosetta_g_miss_num_map(ddx_secagreement_rec.id);
479 p6_a1 := ddx_secagreement_rec.contract_number;
480 p6_a2 := rosetta_g_miss_num_map(ddx_secagreement_rec.pdt_id);
481 p6_a3 := rosetta_g_miss_num_map(ddx_secagreement_rec.pol_id);
482 p6_a4 := ddx_secagreement_rec.short_description;
483 p6_a5 := ddx_secagreement_rec.start_date;
484 p6_a6 := ddx_secagreement_rec.end_date;
485 p6_a7 := ddx_secagreement_rec.date_approved;
486 p6_a8 := ddx_secagreement_rec.securitization_type;
487 p6_a9 := ddx_secagreement_rec.lessor_serv_org_code;
488 p6_a10 := ddx_secagreement_rec.recourse_code;
489 p6_a11 := ddx_secagreement_rec.sts_code;
490 p6_a12 := ddx_secagreement_rec.currency_code;
491 p6_a13 := ddx_secagreement_rec.currency_conversion_type;
492 p6_a14 := rosetta_g_miss_num_map(ddx_secagreement_rec.currency_conversion_rate);
493 p6_a15 := ddx_secagreement_rec.currency_conversion_date;
494 p6_a16 := rosetta_g_miss_num_map(ddx_secagreement_rec.trustee_party_roles_id);
495 p6_a17 := ddx_secagreement_rec.trustee_object1_id1;
496 p6_a18 := ddx_secagreement_rec.trustee_object1_id2;
497 p6_a19 := ddx_secagreement_rec.trustee_jtot_object1_code;
498 p6_a20 := rosetta_g_miss_num_map(ddx_secagreement_rec.after_tax_yield);
499 p6_a21 := ddx_secagreement_rec.attribute_category;
500 p6_a22 := ddx_secagreement_rec.attribute1;
501 p6_a23 := ddx_secagreement_rec.attribute2;
502 p6_a24 := ddx_secagreement_rec.attribute3;
503 p6_a25 := ddx_secagreement_rec.attribute4;
504 p6_a26 := ddx_secagreement_rec.attribute5;
505 p6_a27 := ddx_secagreement_rec.attribute6;
506 p6_a28 := ddx_secagreement_rec.attribute7;
507 p6_a29 := ddx_secagreement_rec.attribute8;
508 p6_a30 := ddx_secagreement_rec.attribute9;
509 p6_a31 := ddx_secagreement_rec.attribute10;
510 p6_a32 := ddx_secagreement_rec.attribute11;
511 p6_a33 := ddx_secagreement_rec.attribute12;
512 p6_a34 := ddx_secagreement_rec.attribute13;
513 p6_a35 := ddx_secagreement_rec.attribute14;
514 p6_a36 := ddx_secagreement_rec.attribute15;
515 p6_a37 := rosetta_g_miss_num_map(ddx_secagreement_rec.legal_entity_id);
516 end;
517
518 procedure update_sec_agreement(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , x_return_status out nocopy VARCHAR2
521 , x_msg_count out nocopy NUMBER
522 , x_msg_data out nocopy VARCHAR2
523 , p6_a0 out nocopy NUMBER
524 , p6_a1 out nocopy VARCHAR2
525 , p6_a2 out nocopy NUMBER
526 , p6_a3 out nocopy NUMBER
527 , p6_a4 out nocopy VARCHAR2
528 , p6_a5 out nocopy DATE
529 , p6_a6 out nocopy DATE
530 , p6_a7 out nocopy DATE
531 , p6_a8 out nocopy VARCHAR2
532 , p6_a9 out nocopy VARCHAR2
533 , p6_a10 out nocopy VARCHAR2
534 , p6_a11 out nocopy VARCHAR2
535 , p6_a12 out nocopy VARCHAR2
536 , p6_a13 out nocopy VARCHAR2
537 , p6_a14 out nocopy NUMBER
538 , p6_a15 out nocopy DATE
539 , p6_a16 out nocopy NUMBER
540 , p6_a17 out nocopy VARCHAR2
541 , p6_a18 out nocopy VARCHAR2
542 , p6_a19 out nocopy VARCHAR2
543 , p6_a20 out nocopy NUMBER
544 , p6_a21 out nocopy VARCHAR2
545 , p6_a22 out nocopy VARCHAR2
546 , p6_a23 out nocopy VARCHAR2
547 , p6_a24 out nocopy VARCHAR2
548 , p6_a25 out nocopy VARCHAR2
549 , p6_a26 out nocopy VARCHAR2
550 , p6_a27 out nocopy VARCHAR2
551 , p6_a28 out nocopy VARCHAR2
552 , p6_a29 out nocopy VARCHAR2
553 , p6_a30 out nocopy VARCHAR2
554 , p6_a31 out nocopy VARCHAR2
555 , p6_a32 out nocopy VARCHAR2
556 , p6_a33 out nocopy VARCHAR2
557 , p6_a34 out nocopy VARCHAR2
558 , p6_a35 out nocopy VARCHAR2
559 , p6_a36 out nocopy VARCHAR2
560 , p6_a37 out nocopy NUMBER
561 , p5_a0 NUMBER := 0-1962.0724
562 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
563 , p5_a2 NUMBER := 0-1962.0724
564 , p5_a3 NUMBER := 0-1962.0724
565 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
566 , p5_a5 DATE := fnd_api.g_miss_date
567 , p5_a6 DATE := fnd_api.g_miss_date
568 , p5_a7 DATE := fnd_api.g_miss_date
569 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
570 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
571 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
573 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
574 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
575 , p5_a14 NUMBER := 0-1962.0724
576 , p5_a15 DATE := fnd_api.g_miss_date
577 , p5_a16 NUMBER := 0-1962.0724
578 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
579 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
580 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
581 , p5_a20 NUMBER := 0-1962.0724
582 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
583 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
584 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
585 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
586 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
587 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
588 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
589 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
590 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
591 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
592 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
593 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
594 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
595 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
596 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
597 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
598 , p5_a37 NUMBER := 0-1962.0724
599 )
600
601 as
602 ddp_secagreement_rec okl_sec_agreement_pvt.secagreement_rec_type;
603 ddx_secagreement_rec okl_sec_agreement_pvt.secagreement_rec_type;
604 ddindx binary_integer; indx binary_integer;
605 begin
606
607 -- copy data to the local IN or IN-OUT args, if any
608
609
610
611
612
613 ddp_secagreement_rec.id := rosetta_g_miss_num_map(p5_a0);
614 ddp_secagreement_rec.contract_number := p5_a1;
615 ddp_secagreement_rec.pdt_id := rosetta_g_miss_num_map(p5_a2);
616 ddp_secagreement_rec.pol_id := rosetta_g_miss_num_map(p5_a3);
617 ddp_secagreement_rec.short_description := p5_a4;
618 ddp_secagreement_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
619 ddp_secagreement_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
620 ddp_secagreement_rec.date_approved := rosetta_g_miss_date_in_map(p5_a7);
621 ddp_secagreement_rec.securitization_type := p5_a8;
622 ddp_secagreement_rec.lessor_serv_org_code := p5_a9;
623 ddp_secagreement_rec.recourse_code := p5_a10;
624 ddp_secagreement_rec.sts_code := p5_a11;
625 ddp_secagreement_rec.currency_code := p5_a12;
626 ddp_secagreement_rec.currency_conversion_type := p5_a13;
627 ddp_secagreement_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a14);
628 ddp_secagreement_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a15);
629 ddp_secagreement_rec.trustee_party_roles_id := rosetta_g_miss_num_map(p5_a16);
630 ddp_secagreement_rec.trustee_object1_id1 := p5_a17;
631 ddp_secagreement_rec.trustee_object1_id2 := p5_a18;
632 ddp_secagreement_rec.trustee_jtot_object1_code := p5_a19;
633 ddp_secagreement_rec.after_tax_yield := rosetta_g_miss_num_map(p5_a20);
634 ddp_secagreement_rec.attribute_category := p5_a21;
635 ddp_secagreement_rec.attribute1 := p5_a22;
636 ddp_secagreement_rec.attribute2 := p5_a23;
637 ddp_secagreement_rec.attribute3 := p5_a24;
638 ddp_secagreement_rec.attribute4 := p5_a25;
639 ddp_secagreement_rec.attribute5 := p5_a26;
640 ddp_secagreement_rec.attribute6 := p5_a27;
641 ddp_secagreement_rec.attribute7 := p5_a28;
642 ddp_secagreement_rec.attribute8 := p5_a29;
643 ddp_secagreement_rec.attribute9 := p5_a30;
644 ddp_secagreement_rec.attribute10 := p5_a31;
645 ddp_secagreement_rec.attribute11 := p5_a32;
646 ddp_secagreement_rec.attribute12 := p5_a33;
647 ddp_secagreement_rec.attribute13 := p5_a34;
648 ddp_secagreement_rec.attribute14 := p5_a35;
649 ddp_secagreement_rec.attribute15 := p5_a36;
650 ddp_secagreement_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a37);
651
652
653 -- here's the delegated call to the old PL/SQL routine
654 okl_sec_agreement_pvt.update_sec_agreement(p_api_version,
655 p_init_msg_list,
656 x_return_status,
657 x_msg_count,
658 x_msg_data,
659 ddp_secagreement_rec,
660 ddx_secagreement_rec);
661
662 -- copy data back from the local variables to OUT or IN-OUT args, if any
663
664
665
666
667
668
669 p6_a0 := rosetta_g_miss_num_map(ddx_secagreement_rec.id);
670 p6_a1 := ddx_secagreement_rec.contract_number;
671 p6_a2 := rosetta_g_miss_num_map(ddx_secagreement_rec.pdt_id);
672 p6_a3 := rosetta_g_miss_num_map(ddx_secagreement_rec.pol_id);
673 p6_a4 := ddx_secagreement_rec.short_description;
674 p6_a5 := ddx_secagreement_rec.start_date;
675 p6_a6 := ddx_secagreement_rec.end_date;
676 p6_a7 := ddx_secagreement_rec.date_approved;
677 p6_a8 := ddx_secagreement_rec.securitization_type;
678 p6_a9 := ddx_secagreement_rec.lessor_serv_org_code;
679 p6_a10 := ddx_secagreement_rec.recourse_code;
680 p6_a11 := ddx_secagreement_rec.sts_code;
681 p6_a12 := ddx_secagreement_rec.currency_code;
682 p6_a13 := ddx_secagreement_rec.currency_conversion_type;
683 p6_a14 := rosetta_g_miss_num_map(ddx_secagreement_rec.currency_conversion_rate);
684 p6_a15 := ddx_secagreement_rec.currency_conversion_date;
685 p6_a16 := rosetta_g_miss_num_map(ddx_secagreement_rec.trustee_party_roles_id);
686 p6_a17 := ddx_secagreement_rec.trustee_object1_id1;
687 p6_a18 := ddx_secagreement_rec.trustee_object1_id2;
688 p6_a19 := ddx_secagreement_rec.trustee_jtot_object1_code;
689 p6_a20 := rosetta_g_miss_num_map(ddx_secagreement_rec.after_tax_yield);
690 p6_a21 := ddx_secagreement_rec.attribute_category;
691 p6_a22 := ddx_secagreement_rec.attribute1;
692 p6_a23 := ddx_secagreement_rec.attribute2;
693 p6_a24 := ddx_secagreement_rec.attribute3;
694 p6_a25 := ddx_secagreement_rec.attribute4;
695 p6_a26 := ddx_secagreement_rec.attribute5;
696 p6_a27 := ddx_secagreement_rec.attribute6;
697 p6_a28 := ddx_secagreement_rec.attribute7;
698 p6_a29 := ddx_secagreement_rec.attribute8;
699 p6_a30 := ddx_secagreement_rec.attribute9;
700 p6_a31 := ddx_secagreement_rec.attribute10;
701 p6_a32 := ddx_secagreement_rec.attribute11;
702 p6_a33 := ddx_secagreement_rec.attribute12;
703 p6_a34 := ddx_secagreement_rec.attribute13;
704 p6_a35 := ddx_secagreement_rec.attribute14;
705 p6_a36 := ddx_secagreement_rec.attribute15;
706 p6_a37 := rosetta_g_miss_num_map(ddx_secagreement_rec.legal_entity_id);
707 end;
708
709 end okl_sec_agreement_pvt_w;