[Home] [Help]
PACKAGE BODY: APPS.OKL_POOL_PVT_W
Source
1 package body okl_pool_pvt_w as
2 /* $Header: OKLESZPB.pls 120.5 2007/12/14 11:10:17 ssdeshpa 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_p46(t out nocopy okl_pool_pvt.polsrch_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_400
27 , a2 JTF_VARCHAR2_TABLE_100
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_VARCHAR2_TABLE_200
30 , a5 JTF_NUMBER_TABLE
31 , a6 JTF_NUMBER_TABLE
32 , a7 JTF_VARCHAR2_TABLE_100
33 , a8 JTF_NUMBER_TABLE
34 , a9 JTF_DATE_TABLE
35 , a10 JTF_DATE_TABLE
36 , a11 JTF_DATE_TABLE
37 , a12 JTF_DATE_TABLE
38 , a13 JTF_NUMBER_TABLE
39 , a14 JTF_VARCHAR2_TABLE_100
40 , a15 JTF_VARCHAR2_TABLE_500
41 , a16 JTF_NUMBER_TABLE
42 , a17 JTF_NUMBER_TABLE
43 , a18 JTF_VARCHAR2_TABLE_100
44 , a19 JTF_VARCHAR2_TABLE_100
45 , a20 JTF_VARCHAR2_TABLE_100
46 , a21 JTF_NUMBER_TABLE
47 , a22 JTF_NUMBER_TABLE
48 , a23 JTF_NUMBER_TABLE
49 , a24 JTF_NUMBER_TABLE
50 , a25 JTF_NUMBER_TABLE
51 , a26 JTF_NUMBER_TABLE
52 , a27 JTF_NUMBER_TABLE
53 , a28 JTF_VARCHAR2_TABLE_200
54 , a29 JTF_VARCHAR2_TABLE_200
55 , a30 JTF_VARCHAR2_TABLE_100
56 , a31 JTF_VARCHAR2_TABLE_100
57 , a32 JTF_DATE_TABLE
58 , a33 JTF_DATE_TABLE
59 , a34 JTF_NUMBER_TABLE
60 , a35 JTF_NUMBER_TABLE
61 , a36 JTF_DATE_TABLE
62 , a37 JTF_DATE_TABLE
63 , a38 JTF_VARCHAR2_TABLE_100
64 , a39 JTF_VARCHAR2_TABLE_100
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if a0 is not null and a0.count > 0 then
69 if a0.count > 0 then
70 indx := a0.first;
71 ddindx := 1;
72 while true loop
73 t(ddindx).cust_object1_id1 := rosetta_g_miss_num_map(a0(indx));
74 t(ddindx).lessee := a1(indx);
75 t(ddindx).sic_code := a2(indx);
76 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a3(indx));
77 t(ddindx).contract_number := a4(indx);
78 t(ddindx).pre_tax_yield_from := rosetta_g_miss_num_map(a5(indx));
79 t(ddindx).pre_tax_yield_to := rosetta_g_miss_num_map(a6(indx));
80 t(ddindx).book_classification := a7(indx);
81 t(ddindx).pdt_id := rosetta_g_miss_num_map(a8(indx));
82 t(ddindx).start_from_date := rosetta_g_miss_date_in_map(a9(indx));
83 t(ddindx).start_to_date := rosetta_g_miss_date_in_map(a10(indx));
84 t(ddindx).end_from_date := rosetta_g_miss_date_in_map(a11(indx));
85 t(ddindx).end_to_date := rosetta_g_miss_date_in_map(a12(indx));
86 t(ddindx).operating_unit := rosetta_g_miss_num_map(a13(indx));
87 t(ddindx).currency_code := a14(indx);
88 t(ddindx).tax_owner := a15(indx);
89 t(ddindx).kle_id := rosetta_g_miss_num_map(a16(indx));
90 t(ddindx).asset_id := rosetta_g_miss_num_map(a17(indx));
91 t(ddindx).asset_number := a18(indx);
92 t(ddindx).model_number := a19(indx);
93 t(ddindx).manufacturer_name := a20(indx);
94 t(ddindx).location_id := rosetta_g_miss_num_map(a21(indx));
95 t(ddindx).item_id1 := rosetta_g_miss_num_map(a22(indx));
96 t(ddindx).vendor_id1 := rosetta_g_miss_num_map(a23(indx));
97 t(ddindx).oec_from := rosetta_g_miss_num_map(a24(indx));
98 t(ddindx).oec_to := rosetta_g_miss_num_map(a25(indx));
99 t(ddindx).residual_percentage := rosetta_g_miss_num_map(a26(indx));
100 t(ddindx).sty_id := rosetta_g_miss_num_map(a27(indx));
101 t(ddindx).stream_type_code := a28(indx);
102 t(ddindx).stream_type_name := a29(indx);
103 t(ddindx).stream_say_code := a30(indx);
104 t(ddindx).stream_active_yn := a31(indx);
105 t(ddindx).stream_element_from_date := rosetta_g_miss_date_in_map(a32(indx));
106 t(ddindx).stream_element_to_date := rosetta_g_miss_date_in_map(a33(indx));
107 t(ddindx).stream_element_amount := rosetta_g_miss_num_map(a34(indx));
108 t(ddindx).pol_id := rosetta_g_miss_num_map(a35(indx));
109 t(ddindx).streams_from_date := rosetta_g_miss_date_in_map(a36(indx));
110 t(ddindx).streams_to_date := rosetta_g_miss_date_in_map(a37(indx));
111 t(ddindx).stream_element_payment_freq := a38(indx);
112 t(ddindx).cust_crd_clf_code := a39(indx);
113 ddindx := ddindx+1;
114 if a0.last =indx
115 then exit;
116 end if;
117 indx := a0.next(indx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_in_p46;
122 procedure rosetta_table_copy_out_p46(t okl_pool_pvt.polsrch_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
123 , a1 out nocopy JTF_VARCHAR2_TABLE_400
124 , a2 out nocopy JTF_VARCHAR2_TABLE_100
125 , a3 out nocopy JTF_NUMBER_TABLE
126 , a4 out nocopy JTF_VARCHAR2_TABLE_200
127 , a5 out nocopy JTF_NUMBER_TABLE
128 , a6 out nocopy JTF_NUMBER_TABLE
129 , a7 out nocopy JTF_VARCHAR2_TABLE_100
130 , a8 out nocopy JTF_NUMBER_TABLE
131 , a9 out nocopy JTF_DATE_TABLE
132 , a10 out nocopy JTF_DATE_TABLE
133 , a11 out nocopy JTF_DATE_TABLE
134 , a12 out nocopy JTF_DATE_TABLE
135 , a13 out nocopy JTF_NUMBER_TABLE
136 , a14 out nocopy JTF_VARCHAR2_TABLE_100
137 , a15 out nocopy JTF_VARCHAR2_TABLE_500
138 , a16 out nocopy JTF_NUMBER_TABLE
139 , a17 out nocopy JTF_NUMBER_TABLE
140 , a18 out nocopy JTF_VARCHAR2_TABLE_100
141 , a19 out nocopy JTF_VARCHAR2_TABLE_100
142 , a20 out nocopy JTF_VARCHAR2_TABLE_100
143 , a21 out nocopy JTF_NUMBER_TABLE
144 , a22 out nocopy JTF_NUMBER_TABLE
145 , a23 out nocopy JTF_NUMBER_TABLE
146 , a24 out nocopy JTF_NUMBER_TABLE
147 , a25 out nocopy JTF_NUMBER_TABLE
148 , a26 out nocopy JTF_NUMBER_TABLE
149 , a27 out nocopy JTF_NUMBER_TABLE
150 , a28 out nocopy JTF_VARCHAR2_TABLE_200
151 , a29 out nocopy JTF_VARCHAR2_TABLE_200
152 , a30 out nocopy JTF_VARCHAR2_TABLE_100
153 , a31 out nocopy JTF_VARCHAR2_TABLE_100
154 , a32 out nocopy JTF_DATE_TABLE
155 , a33 out nocopy JTF_DATE_TABLE
156 , a34 out nocopy JTF_NUMBER_TABLE
157 , a35 out nocopy JTF_NUMBER_TABLE
158 , a36 out nocopy JTF_DATE_TABLE
159 , a37 out nocopy JTF_DATE_TABLE
160 , a38 out nocopy JTF_VARCHAR2_TABLE_100
161 , a39 out nocopy JTF_VARCHAR2_TABLE_100
162 ) as
163 ddindx binary_integer; indx binary_integer;
164 begin
165 if t is null or t.count = 0 then
166 a0 := JTF_NUMBER_TABLE();
167 a1 := JTF_VARCHAR2_TABLE_400();
168 a2 := JTF_VARCHAR2_TABLE_100();
169 a3 := JTF_NUMBER_TABLE();
170 a4 := JTF_VARCHAR2_TABLE_200();
171 a5 := JTF_NUMBER_TABLE();
172 a6 := JTF_NUMBER_TABLE();
173 a7 := JTF_VARCHAR2_TABLE_100();
174 a8 := JTF_NUMBER_TABLE();
175 a9 := JTF_DATE_TABLE();
176 a10 := JTF_DATE_TABLE();
177 a11 := JTF_DATE_TABLE();
178 a12 := JTF_DATE_TABLE();
179 a13 := JTF_NUMBER_TABLE();
180 a14 := JTF_VARCHAR2_TABLE_100();
181 a15 := JTF_VARCHAR2_TABLE_500();
182 a16 := JTF_NUMBER_TABLE();
183 a17 := JTF_NUMBER_TABLE();
184 a18 := JTF_VARCHAR2_TABLE_100();
185 a19 := JTF_VARCHAR2_TABLE_100();
186 a20 := JTF_VARCHAR2_TABLE_100();
187 a21 := JTF_NUMBER_TABLE();
188 a22 := JTF_NUMBER_TABLE();
189 a23 := JTF_NUMBER_TABLE();
190 a24 := JTF_NUMBER_TABLE();
191 a25 := JTF_NUMBER_TABLE();
192 a26 := JTF_NUMBER_TABLE();
193 a27 := JTF_NUMBER_TABLE();
194 a28 := JTF_VARCHAR2_TABLE_200();
195 a29 := JTF_VARCHAR2_TABLE_200();
196 a30 := JTF_VARCHAR2_TABLE_100();
197 a31 := JTF_VARCHAR2_TABLE_100();
198 a32 := JTF_DATE_TABLE();
199 a33 := JTF_DATE_TABLE();
200 a34 := JTF_NUMBER_TABLE();
201 a35 := JTF_NUMBER_TABLE();
202 a36 := JTF_DATE_TABLE();
203 a37 := JTF_DATE_TABLE();
204 a38 := JTF_VARCHAR2_TABLE_100();
205 a39 := JTF_VARCHAR2_TABLE_100();
206 else
207 a0 := JTF_NUMBER_TABLE();
208 a1 := JTF_VARCHAR2_TABLE_400();
209 a2 := JTF_VARCHAR2_TABLE_100();
210 a3 := JTF_NUMBER_TABLE();
211 a4 := JTF_VARCHAR2_TABLE_200();
212 a5 := JTF_NUMBER_TABLE();
213 a6 := JTF_NUMBER_TABLE();
214 a7 := JTF_VARCHAR2_TABLE_100();
215 a8 := JTF_NUMBER_TABLE();
216 a9 := JTF_DATE_TABLE();
217 a10 := JTF_DATE_TABLE();
218 a11 := JTF_DATE_TABLE();
219 a12 := JTF_DATE_TABLE();
220 a13 := JTF_NUMBER_TABLE();
221 a14 := JTF_VARCHAR2_TABLE_100();
222 a15 := JTF_VARCHAR2_TABLE_500();
223 a16 := JTF_NUMBER_TABLE();
224 a17 := JTF_NUMBER_TABLE();
225 a18 := JTF_VARCHAR2_TABLE_100();
226 a19 := JTF_VARCHAR2_TABLE_100();
227 a20 := JTF_VARCHAR2_TABLE_100();
228 a21 := JTF_NUMBER_TABLE();
229 a22 := JTF_NUMBER_TABLE();
230 a23 := JTF_NUMBER_TABLE();
231 a24 := JTF_NUMBER_TABLE();
232 a25 := JTF_NUMBER_TABLE();
233 a26 := JTF_NUMBER_TABLE();
234 a27 := JTF_NUMBER_TABLE();
235 a28 := JTF_VARCHAR2_TABLE_200();
236 a29 := JTF_VARCHAR2_TABLE_200();
237 a30 := JTF_VARCHAR2_TABLE_100();
238 a31 := JTF_VARCHAR2_TABLE_100();
239 a32 := JTF_DATE_TABLE();
240 a33 := JTF_DATE_TABLE();
241 a34 := JTF_NUMBER_TABLE();
242 a35 := JTF_NUMBER_TABLE();
243 a36 := JTF_DATE_TABLE();
244 a37 := JTF_DATE_TABLE();
245 a38 := JTF_VARCHAR2_TABLE_100();
246 a39 := JTF_VARCHAR2_TABLE_100();
247 if t.count > 0 then
248 a0.extend(t.count);
249 a1.extend(t.count);
250 a2.extend(t.count);
251 a3.extend(t.count);
252 a4.extend(t.count);
253 a5.extend(t.count);
254 a6.extend(t.count);
255 a7.extend(t.count);
256 a8.extend(t.count);
257 a9.extend(t.count);
258 a10.extend(t.count);
259 a11.extend(t.count);
260 a12.extend(t.count);
261 a13.extend(t.count);
262 a14.extend(t.count);
263 a15.extend(t.count);
264 a16.extend(t.count);
265 a17.extend(t.count);
266 a18.extend(t.count);
267 a19.extend(t.count);
268 a20.extend(t.count);
269 a21.extend(t.count);
270 a22.extend(t.count);
271 a23.extend(t.count);
272 a24.extend(t.count);
273 a25.extend(t.count);
274 a26.extend(t.count);
275 a27.extend(t.count);
276 a28.extend(t.count);
277 a29.extend(t.count);
278 a30.extend(t.count);
279 a31.extend(t.count);
280 a32.extend(t.count);
281 a33.extend(t.count);
282 a34.extend(t.count);
283 a35.extend(t.count);
284 a36.extend(t.count);
285 a37.extend(t.count);
286 a38.extend(t.count);
287 a39.extend(t.count);
288 ddindx := t.first;
289 indx := 1;
290 while true loop
291 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cust_object1_id1);
292 a1(indx) := t(ddindx).lessee;
293 a2(indx) := t(ddindx).sic_code;
294 a3(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
295 a4(indx) := t(ddindx).contract_number;
296 a5(indx) := rosetta_g_miss_num_map(t(ddindx).pre_tax_yield_from);
297 a6(indx) := rosetta_g_miss_num_map(t(ddindx).pre_tax_yield_to);
298 a7(indx) := t(ddindx).book_classification;
299 a8(indx) := rosetta_g_miss_num_map(t(ddindx).pdt_id);
300 a9(indx) := t(ddindx).start_from_date;
301 a10(indx) := t(ddindx).start_to_date;
302 a11(indx) := t(ddindx).end_from_date;
303 a12(indx) := t(ddindx).end_to_date;
304 a13(indx) := rosetta_g_miss_num_map(t(ddindx).operating_unit);
305 a14(indx) := t(ddindx).currency_code;
306 a15(indx) := t(ddindx).tax_owner;
307 a16(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
308 a17(indx) := rosetta_g_miss_num_map(t(ddindx).asset_id);
309 a18(indx) := t(ddindx).asset_number;
310 a19(indx) := t(ddindx).model_number;
311 a20(indx) := t(ddindx).manufacturer_name;
312 a21(indx) := rosetta_g_miss_num_map(t(ddindx).location_id);
313 a22(indx) := rosetta_g_miss_num_map(t(ddindx).item_id1);
314 a23(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id1);
315 a24(indx) := rosetta_g_miss_num_map(t(ddindx).oec_from);
316 a25(indx) := rosetta_g_miss_num_map(t(ddindx).oec_to);
317 a26(indx) := rosetta_g_miss_num_map(t(ddindx).residual_percentage);
318 a27(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
319 a28(indx) := t(ddindx).stream_type_code;
320 a29(indx) := t(ddindx).stream_type_name;
321 a30(indx) := t(ddindx).stream_say_code;
322 a31(indx) := t(ddindx).stream_active_yn;
323 a32(indx) := t(ddindx).stream_element_from_date;
324 a33(indx) := t(ddindx).stream_element_to_date;
325 a34(indx) := rosetta_g_miss_num_map(t(ddindx).stream_element_amount);
326 a35(indx) := rosetta_g_miss_num_map(t(ddindx).pol_id);
327 a36(indx) := t(ddindx).streams_from_date;
328 a37(indx) := t(ddindx).streams_to_date;
329 a38(indx) := t(ddindx).stream_element_payment_freq;
330 a39(indx) := t(ddindx).cust_crd_clf_code;
331 indx := indx+1;
332 if t.last =ddindx
333 then exit;
334 end if;
335 ddindx := t.next(ddindx);
336 end loop;
337 end if;
338 end if;
339 end rosetta_table_copy_out_p46;
340
341 procedure rosetta_table_copy_in_p48(t out nocopy okl_pool_pvt.poc_uv_tbl_type, a0 JTF_NUMBER_TABLE
342 , a1 JTF_VARCHAR2_TABLE_200
343 , a2 JTF_VARCHAR2_TABLE_200
344 , a3 JTF_VARCHAR2_TABLE_400
345 , a4 JTF_VARCHAR2_TABLE_200
346 , a5 JTF_NUMBER_TABLE
347 , a6 JTF_VARCHAR2_TABLE_100
348 , a7 JTF_VARCHAR2_TABLE_100
349 , a8 JTF_VARCHAR2_TABLE_100
350 ) as
351 ddindx binary_integer; indx binary_integer;
352 begin
353 if a0 is not null and a0.count > 0 then
354 if a0.count > 0 then
355 indx := a0.first;
356 ddindx := 1;
357 while true loop
358 t(ddindx).poc_id := rosetta_g_miss_num_map(a0(indx));
359 t(ddindx).contract_number := a1(indx);
360 t(ddindx).asset_number := a2(indx);
361 t(ddindx).lessee := a3(indx);
362 t(ddindx).stream_type_name := a4(indx);
363 t(ddindx).pool_amount := rosetta_g_miss_num_map(a5(indx));
364 t(ddindx).sty_subclass_code := a6(indx);
365 t(ddindx).sty_subclass := a7(indx);
366 t(ddindx).stream_type_purpose := a8(indx);
367 ddindx := ddindx+1;
368 if a0.last =indx
369 then exit;
370 end if;
371 indx := a0.next(indx);
372 end loop;
373 end if;
374 end if;
375 end rosetta_table_copy_in_p48;
376 procedure rosetta_table_copy_out_p48(t okl_pool_pvt.poc_uv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
377 , a1 out nocopy JTF_VARCHAR2_TABLE_200
378 , a2 out nocopy JTF_VARCHAR2_TABLE_200
379 , a3 out nocopy JTF_VARCHAR2_TABLE_400
380 , a4 out nocopy JTF_VARCHAR2_TABLE_200
381 , a5 out nocopy JTF_NUMBER_TABLE
382 , a6 out nocopy JTF_VARCHAR2_TABLE_100
383 , a7 out nocopy JTF_VARCHAR2_TABLE_100
384 , a8 out nocopy JTF_VARCHAR2_TABLE_100
385 ) as
386 ddindx binary_integer; indx binary_integer;
387 begin
388 if t is null or t.count = 0 then
389 a0 := JTF_NUMBER_TABLE();
390 a1 := JTF_VARCHAR2_TABLE_200();
391 a2 := JTF_VARCHAR2_TABLE_200();
392 a3 := JTF_VARCHAR2_TABLE_400();
393 a4 := JTF_VARCHAR2_TABLE_200();
394 a5 := JTF_NUMBER_TABLE();
395 a6 := JTF_VARCHAR2_TABLE_100();
396 a7 := JTF_VARCHAR2_TABLE_100();
397 a8 := JTF_VARCHAR2_TABLE_100();
398 else
399 a0 := JTF_NUMBER_TABLE();
400 a1 := JTF_VARCHAR2_TABLE_200();
401 a2 := JTF_VARCHAR2_TABLE_200();
402 a3 := JTF_VARCHAR2_TABLE_400();
403 a4 := JTF_VARCHAR2_TABLE_200();
404 a5 := JTF_NUMBER_TABLE();
405 a6 := JTF_VARCHAR2_TABLE_100();
406 a7 := JTF_VARCHAR2_TABLE_100();
407 a8 := JTF_VARCHAR2_TABLE_100();
408 if t.count > 0 then
409 a0.extend(t.count);
410 a1.extend(t.count);
411 a2.extend(t.count);
412 a3.extend(t.count);
413 a4.extend(t.count);
414 a5.extend(t.count);
415 a6.extend(t.count);
416 a7.extend(t.count);
417 a8.extend(t.count);
418 ddindx := t.first;
419 indx := 1;
420 while true loop
421 a0(indx) := rosetta_g_miss_num_map(t(ddindx).poc_id);
422 a1(indx) := t(ddindx).contract_number;
423 a2(indx) := t(ddindx).asset_number;
424 a3(indx) := t(ddindx).lessee;
425 a4(indx) := t(ddindx).stream_type_name;
426 a5(indx) := rosetta_g_miss_num_map(t(ddindx).pool_amount);
427 a6(indx) := t(ddindx).sty_subclass_code;
428 a7(indx) := t(ddindx).sty_subclass;
429 a8(indx) := t(ddindx).stream_type_purpose;
430 indx := indx+1;
431 if t.last =ddindx
432 then exit;
433 end if;
434 ddindx := t.next(ddindx);
435 end loop;
436 end if;
437 end if;
438 end rosetta_table_copy_out_p48;
439
440 procedure create_pool(p_api_version NUMBER
441 , p_init_msg_list VARCHAR2
442 , x_return_status out nocopy VARCHAR2
443 , x_msg_count out nocopy NUMBER
444 , x_msg_data out nocopy VARCHAR2
445 , p6_a0 out nocopy NUMBER
446 , p6_a1 out nocopy NUMBER
447 , p6_a2 out nocopy NUMBER
448 , p6_a3 out nocopy NUMBER
449 , p6_a4 out nocopy VARCHAR2
450 , p6_a5 out nocopy VARCHAR2
451 , p6_a6 out nocopy VARCHAR2
452 , p6_a7 out nocopy VARCHAR2
453 , p6_a8 out nocopy NUMBER
454 , p6_a9 out nocopy NUMBER
455 , p6_a10 out nocopy VARCHAR2
456 , p6_a11 out nocopy DATE
457 , p6_a12 out nocopy DATE
458 , p6_a13 out nocopy DATE
459 , p6_a14 out nocopy DATE
460 , p6_a15 out nocopy VARCHAR2
461 , p6_a16 out nocopy VARCHAR2
462 , p6_a17 out nocopy VARCHAR2
463 , p6_a18 out nocopy VARCHAR2
464 , p6_a19 out nocopy VARCHAR2
465 , p6_a20 out nocopy VARCHAR2
466 , p6_a21 out nocopy VARCHAR2
467 , p6_a22 out nocopy VARCHAR2
468 , p6_a23 out nocopy VARCHAR2
469 , p6_a24 out nocopy VARCHAR2
470 , p6_a25 out nocopy VARCHAR2
471 , p6_a26 out nocopy VARCHAR2
472 , p6_a27 out nocopy VARCHAR2
473 , p6_a28 out nocopy VARCHAR2
474 , p6_a29 out nocopy VARCHAR2
475 , p6_a30 out nocopy VARCHAR2
476 , p6_a31 out nocopy VARCHAR2
477 , p6_a32 out nocopy VARCHAR2
478 , p6_a33 out nocopy NUMBER
479 , p6_a34 out nocopy NUMBER
480 , p6_a35 out nocopy NUMBER
481 , p6_a36 out nocopy NUMBER
482 , p6_a37 out nocopy DATE
483 , p6_a38 out nocopy NUMBER
484 , p6_a39 out nocopy DATE
485 , p6_a40 out nocopy NUMBER
486 , p6_a41 out nocopy DATE
487 , p6_a42 out nocopy NUMBER
488 , p6_a43 out nocopy NUMBER
489 , p5_a0 NUMBER := 0-1962.0724
490 , p5_a1 NUMBER := 0-1962.0724
491 , p5_a2 NUMBER := 0-1962.0724
492 , p5_a3 NUMBER := 0-1962.0724
493 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
494 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
495 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
496 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
497 , p5_a8 NUMBER := 0-1962.0724
498 , p5_a9 NUMBER := 0-1962.0724
499 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a11 DATE := fnd_api.g_miss_date
501 , p5_a12 DATE := fnd_api.g_miss_date
502 , p5_a13 DATE := fnd_api.g_miss_date
503 , p5_a14 DATE := fnd_api.g_miss_date
504 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
506 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
507 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
508 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
509 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
510 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
511 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
512 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
513 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
514 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
515 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
516 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
517 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
518 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
519 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
520 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
521 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
522 , p5_a33 NUMBER := 0-1962.0724
523 , p5_a34 NUMBER := 0-1962.0724
524 , p5_a35 NUMBER := 0-1962.0724
525 , p5_a36 NUMBER := 0-1962.0724
526 , p5_a37 DATE := fnd_api.g_miss_date
527 , p5_a38 NUMBER := 0-1962.0724
528 , p5_a39 DATE := fnd_api.g_miss_date
529 , p5_a40 NUMBER := 0-1962.0724
530 , p5_a41 DATE := fnd_api.g_miss_date
531 , p5_a42 NUMBER := 0-1962.0724
532 , p5_a43 NUMBER := 0-1962.0724
533 )
534
535 as
536 ddp_polv_rec okl_pool_pvt.polv_rec_type;
537 ddx_polv_rec okl_pool_pvt.polv_rec_type;
538 ddindx binary_integer; indx binary_integer;
539 begin
540
541 -- copy data to the local IN or IN-OUT args, if any
542
543
544
545
546
547 ddp_polv_rec.id := rosetta_g_miss_num_map(p5_a0);
548 ddp_polv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
549 ddp_polv_rec.pot_id := rosetta_g_miss_num_map(p5_a2);
550 ddp_polv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
551 ddp_polv_rec.pool_number := p5_a4;
552 ddp_polv_rec.description := p5_a5;
553 ddp_polv_rec.short_description := p5_a6;
554 ddp_polv_rec.currency_code := p5_a7;
555 ddp_polv_rec.total_principal_amount := rosetta_g_miss_num_map(p5_a8);
556 ddp_polv_rec.total_receivable_amount := rosetta_g_miss_num_map(p5_a9);
557 ddp_polv_rec.securities_credit_rating := p5_a10;
558 ddp_polv_rec.date_created := rosetta_g_miss_date_in_map(p5_a11);
559 ddp_polv_rec.date_last_updated := rosetta_g_miss_date_in_map(p5_a12);
560 ddp_polv_rec.date_last_reconciled := rosetta_g_miss_date_in_map(p5_a13);
561 ddp_polv_rec.date_total_principal_calc := rosetta_g_miss_date_in_map(p5_a14);
562 ddp_polv_rec.status_code := p5_a15;
563 ddp_polv_rec.display_in_lease_center := p5_a16;
564 ddp_polv_rec.attribute_category := p5_a17;
565 ddp_polv_rec.attribute1 := p5_a18;
566 ddp_polv_rec.attribute2 := p5_a19;
567 ddp_polv_rec.attribute3 := p5_a20;
568 ddp_polv_rec.attribute4 := p5_a21;
569 ddp_polv_rec.attribute5 := p5_a22;
570 ddp_polv_rec.attribute6 := p5_a23;
571 ddp_polv_rec.attribute7 := p5_a24;
572 ddp_polv_rec.attribute8 := p5_a25;
573 ddp_polv_rec.attribute9 := p5_a26;
574 ddp_polv_rec.attribute10 := p5_a27;
575 ddp_polv_rec.attribute11 := p5_a28;
576 ddp_polv_rec.attribute12 := p5_a29;
577 ddp_polv_rec.attribute13 := p5_a30;
578 ddp_polv_rec.attribute14 := p5_a31;
579 ddp_polv_rec.attribute15 := p5_a32;
580 ddp_polv_rec.org_id := rosetta_g_miss_num_map(p5_a33);
581 ddp_polv_rec.request_id := rosetta_g_miss_num_map(p5_a34);
582 ddp_polv_rec.program_application_id := rosetta_g_miss_num_map(p5_a35);
583 ddp_polv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
584 ddp_polv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a37);
585 ddp_polv_rec.created_by := rosetta_g_miss_num_map(p5_a38);
586 ddp_polv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a39);
587 ddp_polv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a40);
588 ddp_polv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a41);
589 ddp_polv_rec.last_update_login := rosetta_g_miss_num_map(p5_a42);
590 ddp_polv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a43);
591
592
593 -- here's the delegated call to the old PL/SQL routine
594 okl_pool_pvt.create_pool(p_api_version,
595 p_init_msg_list,
596 x_return_status,
597 x_msg_count,
598 x_msg_data,
599 ddp_polv_rec,
600 ddx_polv_rec);
601
602 -- copy data back from the local variables to OUT or IN-OUT args, if any
603
604
605
606
607
608
609 p6_a0 := rosetta_g_miss_num_map(ddx_polv_rec.id);
610 p6_a1 := rosetta_g_miss_num_map(ddx_polv_rec.object_version_number);
611 p6_a2 := rosetta_g_miss_num_map(ddx_polv_rec.pot_id);
612 p6_a3 := rosetta_g_miss_num_map(ddx_polv_rec.khr_id);
613 p6_a4 := ddx_polv_rec.pool_number;
614 p6_a5 := ddx_polv_rec.description;
615 p6_a6 := ddx_polv_rec.short_description;
616 p6_a7 := ddx_polv_rec.currency_code;
617 p6_a8 := rosetta_g_miss_num_map(ddx_polv_rec.total_principal_amount);
618 p6_a9 := rosetta_g_miss_num_map(ddx_polv_rec.total_receivable_amount);
619 p6_a10 := ddx_polv_rec.securities_credit_rating;
620 p6_a11 := ddx_polv_rec.date_created;
621 p6_a12 := ddx_polv_rec.date_last_updated;
622 p6_a13 := ddx_polv_rec.date_last_reconciled;
623 p6_a14 := ddx_polv_rec.date_total_principal_calc;
624 p6_a15 := ddx_polv_rec.status_code;
625 p6_a16 := ddx_polv_rec.display_in_lease_center;
626 p6_a17 := ddx_polv_rec.attribute_category;
627 p6_a18 := ddx_polv_rec.attribute1;
628 p6_a19 := ddx_polv_rec.attribute2;
629 p6_a20 := ddx_polv_rec.attribute3;
630 p6_a21 := ddx_polv_rec.attribute4;
631 p6_a22 := ddx_polv_rec.attribute5;
632 p6_a23 := ddx_polv_rec.attribute6;
633 p6_a24 := ddx_polv_rec.attribute7;
634 p6_a25 := ddx_polv_rec.attribute8;
635 p6_a26 := ddx_polv_rec.attribute9;
636 p6_a27 := ddx_polv_rec.attribute10;
637 p6_a28 := ddx_polv_rec.attribute11;
638 p6_a29 := ddx_polv_rec.attribute12;
639 p6_a30 := ddx_polv_rec.attribute13;
640 p6_a31 := ddx_polv_rec.attribute14;
641 p6_a32 := ddx_polv_rec.attribute15;
642 p6_a33 := rosetta_g_miss_num_map(ddx_polv_rec.org_id);
643 p6_a34 := rosetta_g_miss_num_map(ddx_polv_rec.request_id);
644 p6_a35 := rosetta_g_miss_num_map(ddx_polv_rec.program_application_id);
645 p6_a36 := rosetta_g_miss_num_map(ddx_polv_rec.program_id);
646 p6_a37 := ddx_polv_rec.program_update_date;
647 p6_a38 := rosetta_g_miss_num_map(ddx_polv_rec.created_by);
648 p6_a39 := ddx_polv_rec.creation_date;
649 p6_a40 := rosetta_g_miss_num_map(ddx_polv_rec.last_updated_by);
650 p6_a41 := ddx_polv_rec.last_update_date;
651 p6_a42 := rosetta_g_miss_num_map(ddx_polv_rec.last_update_login);
652 p6_a43 := rosetta_g_miss_num_map(ddx_polv_rec.legal_entity_id);
653 end;
654
655 procedure update_pool(p_api_version NUMBER
656 , p_init_msg_list VARCHAR2
657 , x_return_status out nocopy VARCHAR2
658 , x_msg_count out nocopy NUMBER
659 , x_msg_data out nocopy VARCHAR2
660 , p6_a0 out nocopy NUMBER
661 , p6_a1 out nocopy NUMBER
662 , p6_a2 out nocopy NUMBER
663 , p6_a3 out nocopy NUMBER
664 , p6_a4 out nocopy VARCHAR2
665 , p6_a5 out nocopy VARCHAR2
666 , p6_a6 out nocopy VARCHAR2
667 , p6_a7 out nocopy VARCHAR2
668 , p6_a8 out nocopy NUMBER
669 , p6_a9 out nocopy NUMBER
670 , p6_a10 out nocopy VARCHAR2
671 , p6_a11 out nocopy DATE
672 , p6_a12 out nocopy DATE
673 , p6_a13 out nocopy DATE
674 , p6_a14 out nocopy DATE
675 , p6_a15 out nocopy VARCHAR2
676 , p6_a16 out nocopy VARCHAR2
677 , p6_a17 out nocopy VARCHAR2
678 , p6_a18 out nocopy VARCHAR2
679 , p6_a19 out nocopy VARCHAR2
680 , p6_a20 out nocopy VARCHAR2
681 , p6_a21 out nocopy VARCHAR2
682 , p6_a22 out nocopy VARCHAR2
683 , p6_a23 out nocopy VARCHAR2
684 , p6_a24 out nocopy VARCHAR2
685 , p6_a25 out nocopy VARCHAR2
686 , p6_a26 out nocopy VARCHAR2
687 , p6_a27 out nocopy VARCHAR2
688 , p6_a28 out nocopy VARCHAR2
689 , p6_a29 out nocopy VARCHAR2
690 , p6_a30 out nocopy VARCHAR2
691 , p6_a31 out nocopy VARCHAR2
692 , p6_a32 out nocopy VARCHAR2
693 , p6_a33 out nocopy NUMBER
694 , p6_a34 out nocopy NUMBER
695 , p6_a35 out nocopy NUMBER
696 , p6_a36 out nocopy NUMBER
697 , p6_a37 out nocopy DATE
698 , p6_a38 out nocopy NUMBER
699 , p6_a39 out nocopy DATE
700 , p6_a40 out nocopy NUMBER
701 , p6_a41 out nocopy DATE
702 , p6_a42 out nocopy NUMBER
703 , p6_a43 out nocopy NUMBER
704 , p5_a0 NUMBER := 0-1962.0724
705 , p5_a1 NUMBER := 0-1962.0724
706 , p5_a2 NUMBER := 0-1962.0724
707 , p5_a3 NUMBER := 0-1962.0724
708 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
709 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
710 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
711 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
712 , p5_a8 NUMBER := 0-1962.0724
713 , p5_a9 NUMBER := 0-1962.0724
714 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
715 , p5_a11 DATE := fnd_api.g_miss_date
716 , p5_a12 DATE := fnd_api.g_miss_date
717 , p5_a13 DATE := fnd_api.g_miss_date
718 , p5_a14 DATE := fnd_api.g_miss_date
719 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
720 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
721 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
722 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
723 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
724 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
725 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
726 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
727 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
728 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
729 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
730 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
731 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
732 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
733 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
734 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
735 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
736 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
737 , p5_a33 NUMBER := 0-1962.0724
738 , p5_a34 NUMBER := 0-1962.0724
739 , p5_a35 NUMBER := 0-1962.0724
740 , p5_a36 NUMBER := 0-1962.0724
741 , p5_a37 DATE := fnd_api.g_miss_date
742 , p5_a38 NUMBER := 0-1962.0724
743 , p5_a39 DATE := fnd_api.g_miss_date
744 , p5_a40 NUMBER := 0-1962.0724
745 , p5_a41 DATE := fnd_api.g_miss_date
746 , p5_a42 NUMBER := 0-1962.0724
747 , p5_a43 NUMBER := 0-1962.0724
748 )
749
750 as
751 ddp_polv_rec okl_pool_pvt.polv_rec_type;
752 ddx_polv_rec okl_pool_pvt.polv_rec_type;
753 ddindx binary_integer; indx binary_integer;
754 begin
755
756 -- copy data to the local IN or IN-OUT args, if any
757
758
759
760
761
762 ddp_polv_rec.id := rosetta_g_miss_num_map(p5_a0);
763 ddp_polv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
764 ddp_polv_rec.pot_id := rosetta_g_miss_num_map(p5_a2);
765 ddp_polv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
766 ddp_polv_rec.pool_number := p5_a4;
767 ddp_polv_rec.description := p5_a5;
768 ddp_polv_rec.short_description := p5_a6;
769 ddp_polv_rec.currency_code := p5_a7;
770 ddp_polv_rec.total_principal_amount := rosetta_g_miss_num_map(p5_a8);
771 ddp_polv_rec.total_receivable_amount := rosetta_g_miss_num_map(p5_a9);
772 ddp_polv_rec.securities_credit_rating := p5_a10;
773 ddp_polv_rec.date_created := rosetta_g_miss_date_in_map(p5_a11);
774 ddp_polv_rec.date_last_updated := rosetta_g_miss_date_in_map(p5_a12);
775 ddp_polv_rec.date_last_reconciled := rosetta_g_miss_date_in_map(p5_a13);
776 ddp_polv_rec.date_total_principal_calc := rosetta_g_miss_date_in_map(p5_a14);
777 ddp_polv_rec.status_code := p5_a15;
778 ddp_polv_rec.display_in_lease_center := p5_a16;
779 ddp_polv_rec.attribute_category := p5_a17;
780 ddp_polv_rec.attribute1 := p5_a18;
781 ddp_polv_rec.attribute2 := p5_a19;
782 ddp_polv_rec.attribute3 := p5_a20;
783 ddp_polv_rec.attribute4 := p5_a21;
784 ddp_polv_rec.attribute5 := p5_a22;
785 ddp_polv_rec.attribute6 := p5_a23;
786 ddp_polv_rec.attribute7 := p5_a24;
787 ddp_polv_rec.attribute8 := p5_a25;
788 ddp_polv_rec.attribute9 := p5_a26;
789 ddp_polv_rec.attribute10 := p5_a27;
790 ddp_polv_rec.attribute11 := p5_a28;
791 ddp_polv_rec.attribute12 := p5_a29;
792 ddp_polv_rec.attribute13 := p5_a30;
793 ddp_polv_rec.attribute14 := p5_a31;
794 ddp_polv_rec.attribute15 := p5_a32;
795 ddp_polv_rec.org_id := rosetta_g_miss_num_map(p5_a33);
796 ddp_polv_rec.request_id := rosetta_g_miss_num_map(p5_a34);
797 ddp_polv_rec.program_application_id := rosetta_g_miss_num_map(p5_a35);
798 ddp_polv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
799 ddp_polv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a37);
800 ddp_polv_rec.created_by := rosetta_g_miss_num_map(p5_a38);
801 ddp_polv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a39);
802 ddp_polv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a40);
803 ddp_polv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a41);
804 ddp_polv_rec.last_update_login := rosetta_g_miss_num_map(p5_a42);
805 ddp_polv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a43);
806
807
808 -- here's the delegated call to the old PL/SQL routine
809 okl_pool_pvt.update_pool(p_api_version,
810 p_init_msg_list,
811 x_return_status,
812 x_msg_count,
813 x_msg_data,
814 ddp_polv_rec,
815 ddx_polv_rec);
816
817 -- copy data back from the local variables to OUT or IN-OUT args, if any
818
819
820
821
822
823
824 p6_a0 := rosetta_g_miss_num_map(ddx_polv_rec.id);
825 p6_a1 := rosetta_g_miss_num_map(ddx_polv_rec.object_version_number);
826 p6_a2 := rosetta_g_miss_num_map(ddx_polv_rec.pot_id);
827 p6_a3 := rosetta_g_miss_num_map(ddx_polv_rec.khr_id);
828 p6_a4 := ddx_polv_rec.pool_number;
829 p6_a5 := ddx_polv_rec.description;
830 p6_a6 := ddx_polv_rec.short_description;
831 p6_a7 := ddx_polv_rec.currency_code;
832 p6_a8 := rosetta_g_miss_num_map(ddx_polv_rec.total_principal_amount);
833 p6_a9 := rosetta_g_miss_num_map(ddx_polv_rec.total_receivable_amount);
834 p6_a10 := ddx_polv_rec.securities_credit_rating;
835 p6_a11 := ddx_polv_rec.date_created;
836 p6_a12 := ddx_polv_rec.date_last_updated;
837 p6_a13 := ddx_polv_rec.date_last_reconciled;
838 p6_a14 := ddx_polv_rec.date_total_principal_calc;
839 p6_a15 := ddx_polv_rec.status_code;
840 p6_a16 := ddx_polv_rec.display_in_lease_center;
841 p6_a17 := ddx_polv_rec.attribute_category;
842 p6_a18 := ddx_polv_rec.attribute1;
843 p6_a19 := ddx_polv_rec.attribute2;
844 p6_a20 := ddx_polv_rec.attribute3;
845 p6_a21 := ddx_polv_rec.attribute4;
846 p6_a22 := ddx_polv_rec.attribute5;
847 p6_a23 := ddx_polv_rec.attribute6;
848 p6_a24 := ddx_polv_rec.attribute7;
849 p6_a25 := ddx_polv_rec.attribute8;
850 p6_a26 := ddx_polv_rec.attribute9;
851 p6_a27 := ddx_polv_rec.attribute10;
852 p6_a28 := ddx_polv_rec.attribute11;
853 p6_a29 := ddx_polv_rec.attribute12;
854 p6_a30 := ddx_polv_rec.attribute13;
855 p6_a31 := ddx_polv_rec.attribute14;
856 p6_a32 := ddx_polv_rec.attribute15;
857 p6_a33 := rosetta_g_miss_num_map(ddx_polv_rec.org_id);
858 p6_a34 := rosetta_g_miss_num_map(ddx_polv_rec.request_id);
859 p6_a35 := rosetta_g_miss_num_map(ddx_polv_rec.program_application_id);
860 p6_a36 := rosetta_g_miss_num_map(ddx_polv_rec.program_id);
861 p6_a37 := ddx_polv_rec.program_update_date;
862 p6_a38 := rosetta_g_miss_num_map(ddx_polv_rec.created_by);
863 p6_a39 := ddx_polv_rec.creation_date;
864 p6_a40 := rosetta_g_miss_num_map(ddx_polv_rec.last_updated_by);
865 p6_a41 := ddx_polv_rec.last_update_date;
866 p6_a42 := rosetta_g_miss_num_map(ddx_polv_rec.last_update_login);
867 p6_a43 := rosetta_g_miss_num_map(ddx_polv_rec.legal_entity_id);
868 end;
869
870 procedure delete_pool(p_api_version NUMBER
871 , p_init_msg_list VARCHAR2
872 , x_return_status out nocopy VARCHAR2
873 , x_msg_count out nocopy NUMBER
874 , x_msg_data out nocopy VARCHAR2
875 , p5_a0 NUMBER := 0-1962.0724
876 , p5_a1 NUMBER := 0-1962.0724
877 , p5_a2 NUMBER := 0-1962.0724
878 , p5_a3 NUMBER := 0-1962.0724
879 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
880 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
881 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
882 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
883 , p5_a8 NUMBER := 0-1962.0724
884 , p5_a9 NUMBER := 0-1962.0724
885 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
886 , p5_a11 DATE := fnd_api.g_miss_date
887 , p5_a12 DATE := fnd_api.g_miss_date
888 , p5_a13 DATE := fnd_api.g_miss_date
889 , p5_a14 DATE := fnd_api.g_miss_date
890 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
891 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
892 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
893 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
894 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
895 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
896 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
897 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
898 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
899 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
900 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
901 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
902 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
903 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
904 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
905 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
906 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
907 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
908 , p5_a33 NUMBER := 0-1962.0724
909 , p5_a34 NUMBER := 0-1962.0724
910 , p5_a35 NUMBER := 0-1962.0724
911 , p5_a36 NUMBER := 0-1962.0724
912 , p5_a37 DATE := fnd_api.g_miss_date
913 , p5_a38 NUMBER := 0-1962.0724
914 , p5_a39 DATE := fnd_api.g_miss_date
915 , p5_a40 NUMBER := 0-1962.0724
916 , p5_a41 DATE := fnd_api.g_miss_date
917 , p5_a42 NUMBER := 0-1962.0724
918 , p5_a43 NUMBER := 0-1962.0724
919 )
920
921 as
922 ddp_polv_rec okl_pool_pvt.polv_rec_type;
923 ddindx binary_integer; indx binary_integer;
924 begin
925
926 -- copy data to the local IN or IN-OUT args, if any
927
928
929
930
931
932 ddp_polv_rec.id := rosetta_g_miss_num_map(p5_a0);
933 ddp_polv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
934 ddp_polv_rec.pot_id := rosetta_g_miss_num_map(p5_a2);
935 ddp_polv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
936 ddp_polv_rec.pool_number := p5_a4;
937 ddp_polv_rec.description := p5_a5;
938 ddp_polv_rec.short_description := p5_a6;
939 ddp_polv_rec.currency_code := p5_a7;
940 ddp_polv_rec.total_principal_amount := rosetta_g_miss_num_map(p5_a8);
941 ddp_polv_rec.total_receivable_amount := rosetta_g_miss_num_map(p5_a9);
942 ddp_polv_rec.securities_credit_rating := p5_a10;
943 ddp_polv_rec.date_created := rosetta_g_miss_date_in_map(p5_a11);
944 ddp_polv_rec.date_last_updated := rosetta_g_miss_date_in_map(p5_a12);
945 ddp_polv_rec.date_last_reconciled := rosetta_g_miss_date_in_map(p5_a13);
946 ddp_polv_rec.date_total_principal_calc := rosetta_g_miss_date_in_map(p5_a14);
947 ddp_polv_rec.status_code := p5_a15;
948 ddp_polv_rec.display_in_lease_center := p5_a16;
949 ddp_polv_rec.attribute_category := p5_a17;
950 ddp_polv_rec.attribute1 := p5_a18;
951 ddp_polv_rec.attribute2 := p5_a19;
952 ddp_polv_rec.attribute3 := p5_a20;
953 ddp_polv_rec.attribute4 := p5_a21;
954 ddp_polv_rec.attribute5 := p5_a22;
955 ddp_polv_rec.attribute6 := p5_a23;
956 ddp_polv_rec.attribute7 := p5_a24;
957 ddp_polv_rec.attribute8 := p5_a25;
958 ddp_polv_rec.attribute9 := p5_a26;
959 ddp_polv_rec.attribute10 := p5_a27;
960 ddp_polv_rec.attribute11 := p5_a28;
961 ddp_polv_rec.attribute12 := p5_a29;
962 ddp_polv_rec.attribute13 := p5_a30;
963 ddp_polv_rec.attribute14 := p5_a31;
964 ddp_polv_rec.attribute15 := p5_a32;
965 ddp_polv_rec.org_id := rosetta_g_miss_num_map(p5_a33);
966 ddp_polv_rec.request_id := rosetta_g_miss_num_map(p5_a34);
967 ddp_polv_rec.program_application_id := rosetta_g_miss_num_map(p5_a35);
968 ddp_polv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
969 ddp_polv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a37);
970 ddp_polv_rec.created_by := rosetta_g_miss_num_map(p5_a38);
971 ddp_polv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a39);
972 ddp_polv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a40);
973 ddp_polv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a41);
974 ddp_polv_rec.last_update_login := rosetta_g_miss_num_map(p5_a42);
975 ddp_polv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a43);
976
977 -- here's the delegated call to the old PL/SQL routine
978 okl_pool_pvt.delete_pool(p_api_version,
979 p_init_msg_list,
980 x_return_status,
981 x_msg_count,
982 x_msg_data,
983 ddp_polv_rec);
984
985 -- copy data back from the local variables to OUT or IN-OUT args, if any
986
987
988
989
990
991 end;
992
993 procedure create_pool_contents(p_api_version NUMBER
994 , p_init_msg_list VARCHAR2
995 , x_return_status out nocopy VARCHAR2
996 , x_msg_count out nocopy NUMBER
997 , x_msg_data out nocopy VARCHAR2
998 , p6_a0 out nocopy NUMBER
999 , p6_a1 out nocopy NUMBER
1000 , p6_a2 out nocopy NUMBER
1001 , p6_a3 out nocopy NUMBER
1002 , p6_a4 out nocopy NUMBER
1003 , p6_a5 out nocopy NUMBER
1004 , p6_a6 out nocopy NUMBER
1005 , p6_a7 out nocopy VARCHAR2
1006 , p6_a8 out nocopy NUMBER
1007 , p6_a9 out nocopy DATE
1008 , p6_a10 out nocopy DATE
1009 , p6_a11 out nocopy NUMBER
1010 , p6_a12 out nocopy NUMBER
1011 , p6_a13 out nocopy DATE
1012 , p6_a14 out nocopy VARCHAR2
1013 , p6_a15 out nocopy VARCHAR2
1014 , p6_a16 out nocopy VARCHAR2
1015 , p6_a17 out nocopy VARCHAR2
1016 , p6_a18 out nocopy VARCHAR2
1017 , p6_a19 out nocopy VARCHAR2
1018 , p6_a20 out nocopy VARCHAR2
1019 , p6_a21 out nocopy VARCHAR2
1020 , p6_a22 out nocopy VARCHAR2
1021 , p6_a23 out nocopy VARCHAR2
1022 , p6_a24 out nocopy VARCHAR2
1023 , p6_a25 out nocopy VARCHAR2
1024 , p6_a26 out nocopy VARCHAR2
1025 , p6_a27 out nocopy VARCHAR2
1026 , p6_a28 out nocopy VARCHAR2
1027 , p6_a29 out nocopy VARCHAR2
1028 , p6_a30 out nocopy VARCHAR2
1029 , p6_a31 out nocopy NUMBER
1030 , p6_a32 out nocopy NUMBER
1031 , p6_a33 out nocopy NUMBER
1032 , p6_a34 out nocopy DATE
1033 , p6_a35 out nocopy NUMBER
1034 , p6_a36 out nocopy DATE
1035 , p6_a37 out nocopy NUMBER
1036 , p6_a38 out nocopy DATE
1037 , p6_a39 out nocopy NUMBER
1038 , p5_a0 NUMBER := 0-1962.0724
1039 , p5_a1 NUMBER := 0-1962.0724
1040 , p5_a2 NUMBER := 0-1962.0724
1041 , p5_a3 NUMBER := 0-1962.0724
1042 , p5_a4 NUMBER := 0-1962.0724
1043 , p5_a5 NUMBER := 0-1962.0724
1044 , p5_a6 NUMBER := 0-1962.0724
1045 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a8 NUMBER := 0-1962.0724
1047 , p5_a9 DATE := fnd_api.g_miss_date
1048 , p5_a10 DATE := fnd_api.g_miss_date
1049 , p5_a11 NUMBER := 0-1962.0724
1050 , p5_a12 NUMBER := 0-1962.0724
1051 , p5_a13 DATE := fnd_api.g_miss_date
1052 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1053 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1054 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1055 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1056 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1057 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1058 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1059 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1060 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1061 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1062 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1063 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1064 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1065 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1066 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1067 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1068 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1069 , p5_a31 NUMBER := 0-1962.0724
1070 , p5_a32 NUMBER := 0-1962.0724
1071 , p5_a33 NUMBER := 0-1962.0724
1072 , p5_a34 DATE := fnd_api.g_miss_date
1073 , p5_a35 NUMBER := 0-1962.0724
1074 , p5_a36 DATE := fnd_api.g_miss_date
1075 , p5_a37 NUMBER := 0-1962.0724
1076 , p5_a38 DATE := fnd_api.g_miss_date
1077 , p5_a39 NUMBER := 0-1962.0724
1078 )
1079
1080 as
1081 ddp_pocv_rec okl_pool_pvt.pocv_rec_type;
1082 ddx_pocv_rec okl_pool_pvt.pocv_rec_type;
1083 ddindx binary_integer; indx binary_integer;
1084 begin
1085
1086 -- copy data to the local IN or IN-OUT args, if any
1087
1088
1089
1090
1091
1092 ddp_pocv_rec.id := rosetta_g_miss_num_map(p5_a0);
1093 ddp_pocv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1094 ddp_pocv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
1095 ddp_pocv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1096 ddp_pocv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
1097 ddp_pocv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
1098 ddp_pocv_rec.stm_id := rosetta_g_miss_num_map(p5_a6);
1099 ddp_pocv_rec.sty_code := p5_a7;
1100 ddp_pocv_rec.pox_id := rosetta_g_miss_num_map(p5_a8);
1101 ddp_pocv_rec.streams_from_date := rosetta_g_miss_date_in_map(p5_a9);
1102 ddp_pocv_rec.streams_to_date := rosetta_g_miss_date_in_map(p5_a10);
1103 ddp_pocv_rec.transaction_number_in := rosetta_g_miss_num_map(p5_a11);
1104 ddp_pocv_rec.transaction_number_out := rosetta_g_miss_num_map(p5_a12);
1105 ddp_pocv_rec.date_inactive := rosetta_g_miss_date_in_map(p5_a13);
1106 ddp_pocv_rec.attribute_category := p5_a14;
1107 ddp_pocv_rec.status_code := p5_a15;
1108 ddp_pocv_rec.attribute1 := p5_a16;
1109 ddp_pocv_rec.attribute2 := p5_a17;
1110 ddp_pocv_rec.attribute3 := p5_a18;
1111 ddp_pocv_rec.attribute4 := p5_a19;
1112 ddp_pocv_rec.attribute5 := p5_a20;
1113 ddp_pocv_rec.attribute6 := p5_a21;
1114 ddp_pocv_rec.attribute7 := p5_a22;
1115 ddp_pocv_rec.attribute8 := p5_a23;
1116 ddp_pocv_rec.attribute9 := p5_a24;
1117 ddp_pocv_rec.attribute10 := p5_a25;
1118 ddp_pocv_rec.attribute11 := p5_a26;
1119 ddp_pocv_rec.attribute12 := p5_a27;
1120 ddp_pocv_rec.attribute13 := p5_a28;
1121 ddp_pocv_rec.attribute14 := p5_a29;
1122 ddp_pocv_rec.attribute15 := p5_a30;
1123 ddp_pocv_rec.request_id := rosetta_g_miss_num_map(p5_a31);
1124 ddp_pocv_rec.program_application_id := rosetta_g_miss_num_map(p5_a32);
1125 ddp_pocv_rec.program_id := rosetta_g_miss_num_map(p5_a33);
1126 ddp_pocv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a34);
1127 ddp_pocv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
1128 ddp_pocv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
1129 ddp_pocv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
1130 ddp_pocv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
1131 ddp_pocv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
1132
1133
1134 -- here's the delegated call to the old PL/SQL routine
1135 okl_pool_pvt.create_pool_contents(p_api_version,
1136 p_init_msg_list,
1137 x_return_status,
1138 x_msg_count,
1139 x_msg_data,
1140 ddp_pocv_rec,
1141 ddx_pocv_rec);
1142
1143 -- copy data back from the local variables to OUT or IN-OUT args, if any
1144
1145
1146
1147
1148
1149
1150 p6_a0 := rosetta_g_miss_num_map(ddx_pocv_rec.id);
1151 p6_a1 := rosetta_g_miss_num_map(ddx_pocv_rec.object_version_number);
1152 p6_a2 := rosetta_g_miss_num_map(ddx_pocv_rec.pol_id);
1153 p6_a3 := rosetta_g_miss_num_map(ddx_pocv_rec.khr_id);
1154 p6_a4 := rosetta_g_miss_num_map(ddx_pocv_rec.kle_id);
1155 p6_a5 := rosetta_g_miss_num_map(ddx_pocv_rec.sty_id);
1156 p6_a6 := rosetta_g_miss_num_map(ddx_pocv_rec.stm_id);
1157 p6_a7 := ddx_pocv_rec.sty_code;
1158 p6_a8 := rosetta_g_miss_num_map(ddx_pocv_rec.pox_id);
1159 p6_a9 := ddx_pocv_rec.streams_from_date;
1160 p6_a10 := ddx_pocv_rec.streams_to_date;
1161 p6_a11 := rosetta_g_miss_num_map(ddx_pocv_rec.transaction_number_in);
1162 p6_a12 := rosetta_g_miss_num_map(ddx_pocv_rec.transaction_number_out);
1163 p6_a13 := ddx_pocv_rec.date_inactive;
1164 p6_a14 := ddx_pocv_rec.attribute_category;
1165 p6_a15 := ddx_pocv_rec.status_code;
1166 p6_a16 := ddx_pocv_rec.attribute1;
1167 p6_a17 := ddx_pocv_rec.attribute2;
1168 p6_a18 := ddx_pocv_rec.attribute3;
1169 p6_a19 := ddx_pocv_rec.attribute4;
1170 p6_a20 := ddx_pocv_rec.attribute5;
1171 p6_a21 := ddx_pocv_rec.attribute6;
1172 p6_a22 := ddx_pocv_rec.attribute7;
1173 p6_a23 := ddx_pocv_rec.attribute8;
1174 p6_a24 := ddx_pocv_rec.attribute9;
1175 p6_a25 := ddx_pocv_rec.attribute10;
1176 p6_a26 := ddx_pocv_rec.attribute11;
1177 p6_a27 := ddx_pocv_rec.attribute12;
1178 p6_a28 := ddx_pocv_rec.attribute13;
1179 p6_a29 := ddx_pocv_rec.attribute14;
1180 p6_a30 := ddx_pocv_rec.attribute15;
1181 p6_a31 := rosetta_g_miss_num_map(ddx_pocv_rec.request_id);
1182 p6_a32 := rosetta_g_miss_num_map(ddx_pocv_rec.program_application_id);
1183 p6_a33 := rosetta_g_miss_num_map(ddx_pocv_rec.program_id);
1184 p6_a34 := ddx_pocv_rec.program_update_date;
1185 p6_a35 := rosetta_g_miss_num_map(ddx_pocv_rec.created_by);
1186 p6_a36 := ddx_pocv_rec.creation_date;
1187 p6_a37 := rosetta_g_miss_num_map(ddx_pocv_rec.last_updated_by);
1188 p6_a38 := ddx_pocv_rec.last_update_date;
1189 p6_a39 := rosetta_g_miss_num_map(ddx_pocv_rec.last_update_login);
1190 end;
1191
1192 procedure create_pool_contents(p_api_version NUMBER
1193 , p_init_msg_list VARCHAR2
1194 , x_return_status out nocopy VARCHAR2
1195 , x_msg_count out nocopy NUMBER
1196 , x_msg_data out nocopy VARCHAR2
1197 , p5_a0 JTF_NUMBER_TABLE
1198 , p5_a1 JTF_NUMBER_TABLE
1199 , p5_a2 JTF_NUMBER_TABLE
1200 , p5_a3 JTF_NUMBER_TABLE
1201 , p5_a4 JTF_NUMBER_TABLE
1202 , p5_a5 JTF_NUMBER_TABLE
1203 , p5_a6 JTF_NUMBER_TABLE
1204 , p5_a7 JTF_VARCHAR2_TABLE_200
1205 , p5_a8 JTF_NUMBER_TABLE
1206 , p5_a9 JTF_DATE_TABLE
1207 , p5_a10 JTF_DATE_TABLE
1208 , p5_a11 JTF_NUMBER_TABLE
1209 , p5_a12 JTF_NUMBER_TABLE
1210 , p5_a13 JTF_DATE_TABLE
1211 , p5_a14 JTF_VARCHAR2_TABLE_100
1212 , p5_a15 JTF_VARCHAR2_TABLE_100
1213 , p5_a16 JTF_VARCHAR2_TABLE_500
1214 , p5_a17 JTF_VARCHAR2_TABLE_500
1215 , p5_a18 JTF_VARCHAR2_TABLE_500
1216 , p5_a19 JTF_VARCHAR2_TABLE_500
1217 , p5_a20 JTF_VARCHAR2_TABLE_500
1218 , p5_a21 JTF_VARCHAR2_TABLE_500
1219 , p5_a22 JTF_VARCHAR2_TABLE_500
1220 , p5_a23 JTF_VARCHAR2_TABLE_500
1221 , p5_a24 JTF_VARCHAR2_TABLE_500
1222 , p5_a25 JTF_VARCHAR2_TABLE_500
1223 , p5_a26 JTF_VARCHAR2_TABLE_500
1224 , p5_a27 JTF_VARCHAR2_TABLE_500
1225 , p5_a28 JTF_VARCHAR2_TABLE_500
1226 , p5_a29 JTF_VARCHAR2_TABLE_500
1227 , p5_a30 JTF_VARCHAR2_TABLE_500
1228 , p5_a31 JTF_NUMBER_TABLE
1229 , p5_a32 JTF_NUMBER_TABLE
1230 , p5_a33 JTF_NUMBER_TABLE
1231 , p5_a34 JTF_DATE_TABLE
1232 , p5_a35 JTF_NUMBER_TABLE
1233 , p5_a36 JTF_DATE_TABLE
1234 , p5_a37 JTF_NUMBER_TABLE
1235 , p5_a38 JTF_DATE_TABLE
1236 , p5_a39 JTF_NUMBER_TABLE
1237 , p6_a0 out nocopy JTF_NUMBER_TABLE
1238 , p6_a1 out nocopy JTF_NUMBER_TABLE
1239 , p6_a2 out nocopy JTF_NUMBER_TABLE
1240 , p6_a3 out nocopy JTF_NUMBER_TABLE
1241 , p6_a4 out nocopy JTF_NUMBER_TABLE
1242 , p6_a5 out nocopy JTF_NUMBER_TABLE
1243 , p6_a6 out nocopy JTF_NUMBER_TABLE
1244 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
1245 , p6_a8 out nocopy JTF_NUMBER_TABLE
1246 , p6_a9 out nocopy JTF_DATE_TABLE
1247 , p6_a10 out nocopy JTF_DATE_TABLE
1248 , p6_a11 out nocopy JTF_NUMBER_TABLE
1249 , p6_a12 out nocopy JTF_NUMBER_TABLE
1250 , p6_a13 out nocopy JTF_DATE_TABLE
1251 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1252 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1253 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1254 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1255 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1256 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1257 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1258 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1259 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1265 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1266 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1267 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1268 , p6_a31 out nocopy JTF_NUMBER_TABLE
1269 , p6_a32 out nocopy JTF_NUMBER_TABLE
1270 , p6_a33 out nocopy JTF_NUMBER_TABLE
1271 , p6_a34 out nocopy JTF_DATE_TABLE
1272 , p6_a35 out nocopy JTF_NUMBER_TABLE
1273 , p6_a36 out nocopy JTF_DATE_TABLE
1274 , p6_a37 out nocopy JTF_NUMBER_TABLE
1275 , p6_a38 out nocopy JTF_DATE_TABLE
1276 , p6_a39 out nocopy JTF_NUMBER_TABLE
1277 )
1278
1279 as
1280 ddp_pocv_tbl okl_pool_pvt.pocv_tbl_type;
1281 ddx_pocv_tbl okl_pool_pvt.pocv_tbl_type;
1282 ddindx binary_integer; indx binary_integer;
1283 begin
1284
1285 -- copy data to the local IN or IN-OUT args, if any
1286
1287
1288
1289
1290
1291 okl_poc_pvt_w.rosetta_table_copy_in_p2(ddp_pocv_tbl, p5_a0
1292 , p5_a1
1293 , p5_a2
1294 , p5_a3
1295 , p5_a4
1296 , p5_a5
1297 , p5_a6
1298 , p5_a7
1299 , p5_a8
1300 , p5_a9
1301 , p5_a10
1302 , p5_a11
1303 , p5_a12
1304 , p5_a13
1305 , p5_a14
1306 , p5_a15
1307 , p5_a16
1308 , p5_a17
1309 , p5_a18
1310 , p5_a19
1311 , p5_a20
1312 , p5_a21
1313 , p5_a22
1314 , p5_a23
1315 , p5_a24
1316 , p5_a25
1317 , p5_a26
1318 , p5_a27
1319 , p5_a28
1320 , p5_a29
1321 , p5_a30
1322 , p5_a31
1323 , p5_a32
1324 , p5_a33
1325 , p5_a34
1326 , p5_a35
1327 , p5_a36
1328 , p5_a37
1329 , p5_a38
1330 , p5_a39
1331 );
1332
1333
1334 -- here's the delegated call to the old PL/SQL routine
1335 okl_pool_pvt.create_pool_contents(p_api_version,
1336 p_init_msg_list,
1337 x_return_status,
1338 x_msg_count,
1339 x_msg_data,
1340 ddp_pocv_tbl,
1341 ddx_pocv_tbl);
1342
1343 -- copy data back from the local variables to OUT or IN-OUT args, if any
1344
1345
1346
1347
1348
1349
1350 okl_poc_pvt_w.rosetta_table_copy_out_p2(ddx_pocv_tbl, p6_a0
1351 , p6_a1
1352 , p6_a2
1353 , p6_a3
1354 , p6_a4
1355 , p6_a5
1356 , p6_a6
1357 , p6_a7
1358 , p6_a8
1359 , p6_a9
1360 , p6_a10
1361 , p6_a11
1362 , p6_a12
1363 , p6_a13
1364 , p6_a14
1365 , p6_a15
1366 , p6_a16
1367 , p6_a17
1368 , p6_a18
1369 , p6_a19
1370 , p6_a20
1371 , p6_a21
1372 , p6_a22
1373 , p6_a23
1374 , p6_a24
1375 , p6_a25
1376 , p6_a26
1377 , p6_a27
1378 , p6_a28
1379 , p6_a29
1380 , p6_a30
1381 , p6_a31
1382 , p6_a32
1383 , p6_a33
1384 , p6_a34
1385 , p6_a35
1386 , p6_a36
1387 , p6_a37
1388 , p6_a38
1389 , p6_a39
1390 );
1391 end;
1392
1393 procedure update_pool_contents(p_api_version NUMBER
1394 , p_init_msg_list VARCHAR2
1395 , x_return_status out nocopy VARCHAR2
1396 , x_msg_count out nocopy NUMBER
1397 , x_msg_data out nocopy VARCHAR2
1398 , p6_a0 out nocopy NUMBER
1399 , p6_a1 out nocopy NUMBER
1400 , p6_a2 out nocopy NUMBER
1401 , p6_a3 out nocopy NUMBER
1402 , p6_a4 out nocopy NUMBER
1403 , p6_a5 out nocopy NUMBER
1404 , p6_a6 out nocopy NUMBER
1405 , p6_a7 out nocopy VARCHAR2
1406 , p6_a8 out nocopy NUMBER
1407 , p6_a9 out nocopy DATE
1408 , p6_a10 out nocopy DATE
1409 , p6_a11 out nocopy NUMBER
1410 , p6_a12 out nocopy NUMBER
1411 , p6_a13 out nocopy DATE
1412 , p6_a14 out nocopy VARCHAR2
1413 , p6_a15 out nocopy VARCHAR2
1414 , p6_a16 out nocopy VARCHAR2
1415 , p6_a17 out nocopy VARCHAR2
1416 , p6_a18 out nocopy VARCHAR2
1417 , p6_a19 out nocopy VARCHAR2
1418 , p6_a20 out nocopy VARCHAR2
1419 , p6_a21 out nocopy VARCHAR2
1420 , p6_a22 out nocopy VARCHAR2
1421 , p6_a23 out nocopy VARCHAR2
1422 , p6_a24 out nocopy VARCHAR2
1423 , p6_a25 out nocopy VARCHAR2
1424 , p6_a26 out nocopy VARCHAR2
1425 , p6_a27 out nocopy VARCHAR2
1426 , p6_a28 out nocopy VARCHAR2
1427 , p6_a29 out nocopy VARCHAR2
1428 , p6_a30 out nocopy VARCHAR2
1429 , p6_a31 out nocopy NUMBER
1430 , p6_a32 out nocopy NUMBER
1431 , p6_a33 out nocopy NUMBER
1432 , p6_a34 out nocopy DATE
1433 , p6_a35 out nocopy NUMBER
1434 , p6_a36 out nocopy DATE
1435 , p6_a37 out nocopy NUMBER
1436 , p6_a38 out nocopy DATE
1437 , p6_a39 out nocopy NUMBER
1438 , p5_a0 NUMBER := 0-1962.0724
1439 , p5_a1 NUMBER := 0-1962.0724
1440 , p5_a2 NUMBER := 0-1962.0724
1441 , p5_a3 NUMBER := 0-1962.0724
1442 , p5_a4 NUMBER := 0-1962.0724
1443 , p5_a5 NUMBER := 0-1962.0724
1444 , p5_a6 NUMBER := 0-1962.0724
1445 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1446 , p5_a8 NUMBER := 0-1962.0724
1447 , p5_a9 DATE := fnd_api.g_miss_date
1448 , p5_a10 DATE := fnd_api.g_miss_date
1449 , p5_a11 NUMBER := 0-1962.0724
1450 , p5_a12 NUMBER := 0-1962.0724
1451 , p5_a13 DATE := fnd_api.g_miss_date
1452 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1453 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1454 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1455 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1456 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1457 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1458 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1459 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1460 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1461 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1462 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1463 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1464 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1465 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1466 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1467 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1468 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1469 , p5_a31 NUMBER := 0-1962.0724
1470 , p5_a32 NUMBER := 0-1962.0724
1471 , p5_a33 NUMBER := 0-1962.0724
1472 , p5_a34 DATE := fnd_api.g_miss_date
1473 , p5_a35 NUMBER := 0-1962.0724
1474 , p5_a36 DATE := fnd_api.g_miss_date
1475 , p5_a37 NUMBER := 0-1962.0724
1476 , p5_a38 DATE := fnd_api.g_miss_date
1477 , p5_a39 NUMBER := 0-1962.0724
1478 )
1479
1480 as
1481 ddp_pocv_rec okl_pool_pvt.pocv_rec_type;
1482 ddx_pocv_rec okl_pool_pvt.pocv_rec_type;
1483 ddindx binary_integer; indx binary_integer;
1484 begin
1485
1486 -- copy data to the local IN or IN-OUT args, if any
1487
1488
1489
1490
1491
1492 ddp_pocv_rec.id := rosetta_g_miss_num_map(p5_a0);
1493 ddp_pocv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1494 ddp_pocv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
1495 ddp_pocv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1496 ddp_pocv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
1497 ddp_pocv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
1498 ddp_pocv_rec.stm_id := rosetta_g_miss_num_map(p5_a6);
1499 ddp_pocv_rec.sty_code := p5_a7;
1500 ddp_pocv_rec.pox_id := rosetta_g_miss_num_map(p5_a8);
1501 ddp_pocv_rec.streams_from_date := rosetta_g_miss_date_in_map(p5_a9);
1502 ddp_pocv_rec.streams_to_date := rosetta_g_miss_date_in_map(p5_a10);
1503 ddp_pocv_rec.transaction_number_in := rosetta_g_miss_num_map(p5_a11);
1504 ddp_pocv_rec.transaction_number_out := rosetta_g_miss_num_map(p5_a12);
1505 ddp_pocv_rec.date_inactive := rosetta_g_miss_date_in_map(p5_a13);
1506 ddp_pocv_rec.attribute_category := p5_a14;
1507 ddp_pocv_rec.status_code := p5_a15;
1508 ddp_pocv_rec.attribute1 := p5_a16;
1509 ddp_pocv_rec.attribute2 := p5_a17;
1510 ddp_pocv_rec.attribute3 := p5_a18;
1511 ddp_pocv_rec.attribute4 := p5_a19;
1512 ddp_pocv_rec.attribute5 := p5_a20;
1513 ddp_pocv_rec.attribute6 := p5_a21;
1514 ddp_pocv_rec.attribute7 := p5_a22;
1515 ddp_pocv_rec.attribute8 := p5_a23;
1516 ddp_pocv_rec.attribute9 := p5_a24;
1517 ddp_pocv_rec.attribute10 := p5_a25;
1518 ddp_pocv_rec.attribute11 := p5_a26;
1519 ddp_pocv_rec.attribute12 := p5_a27;
1520 ddp_pocv_rec.attribute13 := p5_a28;
1521 ddp_pocv_rec.attribute14 := p5_a29;
1522 ddp_pocv_rec.attribute15 := p5_a30;
1523 ddp_pocv_rec.request_id := rosetta_g_miss_num_map(p5_a31);
1524 ddp_pocv_rec.program_application_id := rosetta_g_miss_num_map(p5_a32);
1525 ddp_pocv_rec.program_id := rosetta_g_miss_num_map(p5_a33);
1526 ddp_pocv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a34);
1527 ddp_pocv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
1528 ddp_pocv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
1529 ddp_pocv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
1530 ddp_pocv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
1531 ddp_pocv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
1532
1533
1534 -- here's the delegated call to the old PL/SQL routine
1535 okl_pool_pvt.update_pool_contents(p_api_version,
1536 p_init_msg_list,
1537 x_return_status,
1538 x_msg_count,
1539 x_msg_data,
1540 ddp_pocv_rec,
1541 ddx_pocv_rec);
1542
1543 -- copy data back from the local variables to OUT or IN-OUT args, if any
1544
1545
1546
1547
1548
1549
1550 p6_a0 := rosetta_g_miss_num_map(ddx_pocv_rec.id);
1551 p6_a1 := rosetta_g_miss_num_map(ddx_pocv_rec.object_version_number);
1552 p6_a2 := rosetta_g_miss_num_map(ddx_pocv_rec.pol_id);
1553 p6_a3 := rosetta_g_miss_num_map(ddx_pocv_rec.khr_id);
1554 p6_a4 := rosetta_g_miss_num_map(ddx_pocv_rec.kle_id);
1555 p6_a5 := rosetta_g_miss_num_map(ddx_pocv_rec.sty_id);
1556 p6_a6 := rosetta_g_miss_num_map(ddx_pocv_rec.stm_id);
1557 p6_a7 := ddx_pocv_rec.sty_code;
1558 p6_a8 := rosetta_g_miss_num_map(ddx_pocv_rec.pox_id);
1559 p6_a9 := ddx_pocv_rec.streams_from_date;
1560 p6_a10 := ddx_pocv_rec.streams_to_date;
1561 p6_a11 := rosetta_g_miss_num_map(ddx_pocv_rec.transaction_number_in);
1562 p6_a12 := rosetta_g_miss_num_map(ddx_pocv_rec.transaction_number_out);
1563 p6_a13 := ddx_pocv_rec.date_inactive;
1564 p6_a14 := ddx_pocv_rec.attribute_category;
1565 p6_a15 := ddx_pocv_rec.status_code;
1566 p6_a16 := ddx_pocv_rec.attribute1;
1567 p6_a17 := ddx_pocv_rec.attribute2;
1568 p6_a18 := ddx_pocv_rec.attribute3;
1569 p6_a19 := ddx_pocv_rec.attribute4;
1570 p6_a20 := ddx_pocv_rec.attribute5;
1571 p6_a21 := ddx_pocv_rec.attribute6;
1572 p6_a22 := ddx_pocv_rec.attribute7;
1573 p6_a23 := ddx_pocv_rec.attribute8;
1574 p6_a24 := ddx_pocv_rec.attribute9;
1575 p6_a25 := ddx_pocv_rec.attribute10;
1576 p6_a26 := ddx_pocv_rec.attribute11;
1577 p6_a27 := ddx_pocv_rec.attribute12;
1578 p6_a28 := ddx_pocv_rec.attribute13;
1579 p6_a29 := ddx_pocv_rec.attribute14;
1580 p6_a30 := ddx_pocv_rec.attribute15;
1581 p6_a31 := rosetta_g_miss_num_map(ddx_pocv_rec.request_id);
1582 p6_a32 := rosetta_g_miss_num_map(ddx_pocv_rec.program_application_id);
1583 p6_a33 := rosetta_g_miss_num_map(ddx_pocv_rec.program_id);
1584 p6_a34 := ddx_pocv_rec.program_update_date;
1585 p6_a35 := rosetta_g_miss_num_map(ddx_pocv_rec.created_by);
1586 p6_a36 := ddx_pocv_rec.creation_date;
1587 p6_a37 := rosetta_g_miss_num_map(ddx_pocv_rec.last_updated_by);
1588 p6_a38 := ddx_pocv_rec.last_update_date;
1589 p6_a39 := rosetta_g_miss_num_map(ddx_pocv_rec.last_update_login);
1590 end;
1591
1592 procedure update_pool_contents(p_api_version NUMBER
1593 , p_init_msg_list VARCHAR2
1594 , x_return_status out nocopy VARCHAR2
1595 , x_msg_count out nocopy NUMBER
1596 , x_msg_data out nocopy VARCHAR2
1597 , p5_a0 JTF_NUMBER_TABLE
1598 , p5_a1 JTF_NUMBER_TABLE
1599 , p5_a2 JTF_NUMBER_TABLE
1600 , p5_a3 JTF_NUMBER_TABLE
1601 , p5_a4 JTF_NUMBER_TABLE
1602 , p5_a5 JTF_NUMBER_TABLE
1603 , p5_a6 JTF_NUMBER_TABLE
1604 , p5_a7 JTF_VARCHAR2_TABLE_200
1605 , p5_a8 JTF_NUMBER_TABLE
1606 , p5_a9 JTF_DATE_TABLE
1607 , p5_a10 JTF_DATE_TABLE
1608 , p5_a11 JTF_NUMBER_TABLE
1609 , p5_a12 JTF_NUMBER_TABLE
1610 , p5_a13 JTF_DATE_TABLE
1611 , p5_a14 JTF_VARCHAR2_TABLE_100
1612 , p5_a15 JTF_VARCHAR2_TABLE_100
1613 , p5_a16 JTF_VARCHAR2_TABLE_500
1614 , p5_a17 JTF_VARCHAR2_TABLE_500
1615 , p5_a18 JTF_VARCHAR2_TABLE_500
1616 , p5_a19 JTF_VARCHAR2_TABLE_500
1617 , p5_a20 JTF_VARCHAR2_TABLE_500
1618 , p5_a21 JTF_VARCHAR2_TABLE_500
1619 , p5_a22 JTF_VARCHAR2_TABLE_500
1620 , p5_a23 JTF_VARCHAR2_TABLE_500
1621 , p5_a24 JTF_VARCHAR2_TABLE_500
1622 , p5_a25 JTF_VARCHAR2_TABLE_500
1623 , p5_a26 JTF_VARCHAR2_TABLE_500
1624 , p5_a27 JTF_VARCHAR2_TABLE_500
1625 , p5_a28 JTF_VARCHAR2_TABLE_500
1626 , p5_a29 JTF_VARCHAR2_TABLE_500
1627 , p5_a30 JTF_VARCHAR2_TABLE_500
1628 , p5_a31 JTF_NUMBER_TABLE
1629 , p5_a32 JTF_NUMBER_TABLE
1630 , p5_a33 JTF_NUMBER_TABLE
1631 , p5_a34 JTF_DATE_TABLE
1632 , p5_a35 JTF_NUMBER_TABLE
1633 , p5_a36 JTF_DATE_TABLE
1634 , p5_a37 JTF_NUMBER_TABLE
1635 , p5_a38 JTF_DATE_TABLE
1636 , p5_a39 JTF_NUMBER_TABLE
1637 , p6_a0 out nocopy JTF_NUMBER_TABLE
1638 , p6_a1 out nocopy JTF_NUMBER_TABLE
1639 , p6_a2 out nocopy JTF_NUMBER_TABLE
1640 , p6_a3 out nocopy JTF_NUMBER_TABLE
1641 , p6_a4 out nocopy JTF_NUMBER_TABLE
1642 , p6_a5 out nocopy JTF_NUMBER_TABLE
1643 , p6_a6 out nocopy JTF_NUMBER_TABLE
1644 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
1645 , p6_a8 out nocopy JTF_NUMBER_TABLE
1646 , p6_a9 out nocopy JTF_DATE_TABLE
1647 , p6_a10 out nocopy JTF_DATE_TABLE
1648 , p6_a11 out nocopy JTF_NUMBER_TABLE
1649 , p6_a12 out nocopy JTF_NUMBER_TABLE
1650 , p6_a13 out nocopy JTF_DATE_TABLE
1651 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1652 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1653 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1654 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1655 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1656 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1657 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1658 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1659 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1660 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1661 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1662 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1663 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1664 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1665 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1666 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1667 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1668 , p6_a31 out nocopy JTF_NUMBER_TABLE
1669 , p6_a32 out nocopy JTF_NUMBER_TABLE
1670 , p6_a33 out nocopy JTF_NUMBER_TABLE
1671 , p6_a34 out nocopy JTF_DATE_TABLE
1672 , p6_a35 out nocopy JTF_NUMBER_TABLE
1673 , p6_a36 out nocopy JTF_DATE_TABLE
1674 , p6_a37 out nocopy JTF_NUMBER_TABLE
1675 , p6_a38 out nocopy JTF_DATE_TABLE
1676 , p6_a39 out nocopy JTF_NUMBER_TABLE
1677 )
1678
1679 as
1680 ddp_pocv_tbl okl_pool_pvt.pocv_tbl_type;
1681 ddx_pocv_tbl okl_pool_pvt.pocv_tbl_type;
1682 ddindx binary_integer; indx binary_integer;
1683 begin
1684
1685 -- copy data to the local IN or IN-OUT args, if any
1686
1687
1688
1689
1690
1691 okl_poc_pvt_w.rosetta_table_copy_in_p2(ddp_pocv_tbl, p5_a0
1692 , p5_a1
1693 , p5_a2
1694 , p5_a3
1695 , p5_a4
1696 , p5_a5
1697 , p5_a6
1698 , p5_a7
1699 , p5_a8
1700 , p5_a9
1701 , p5_a10
1702 , p5_a11
1703 , p5_a12
1704 , p5_a13
1705 , p5_a14
1706 , p5_a15
1707 , p5_a16
1708 , p5_a17
1709 , p5_a18
1710 , p5_a19
1711 , p5_a20
1712 , p5_a21
1713 , p5_a22
1714 , p5_a23
1715 , p5_a24
1716 , p5_a25
1717 , p5_a26
1718 , p5_a27
1719 , p5_a28
1720 , p5_a29
1721 , p5_a30
1722 , p5_a31
1723 , p5_a32
1724 , p5_a33
1725 , p5_a34
1726 , p5_a35
1727 , p5_a36
1728 , p5_a37
1729 , p5_a38
1730 , p5_a39
1731 );
1732
1733
1734 -- here's the delegated call to the old PL/SQL routine
1735 okl_pool_pvt.update_pool_contents(p_api_version,
1736 p_init_msg_list,
1737 x_return_status,
1738 x_msg_count,
1739 x_msg_data,
1740 ddp_pocv_tbl,
1741 ddx_pocv_tbl);
1742
1743 -- copy data back from the local variables to OUT or IN-OUT args, if any
1744
1745
1746
1747
1748
1749
1750 okl_poc_pvt_w.rosetta_table_copy_out_p2(ddx_pocv_tbl, p6_a0
1751 , p6_a1
1752 , p6_a2
1753 , p6_a3
1754 , p6_a4
1755 , p6_a5
1756 , p6_a6
1757 , p6_a7
1758 , p6_a8
1759 , p6_a9
1760 , p6_a10
1761 , p6_a11
1762 , p6_a12
1763 , p6_a13
1764 , p6_a14
1765 , p6_a15
1766 , p6_a16
1767 , p6_a17
1768 , p6_a18
1769 , p6_a19
1770 , p6_a20
1771 , p6_a21
1772 , p6_a22
1773 , p6_a23
1774 , p6_a24
1775 , p6_a25
1776 , p6_a26
1777 , p6_a27
1778 , p6_a28
1779 , p6_a29
1780 , p6_a30
1781 , p6_a31
1782 , p6_a32
1783 , p6_a33
1784 , p6_a34
1785 , p6_a35
1786 , p6_a36
1787 , p6_a37
1788 , p6_a38
1789 , p6_a39
1790 );
1791 end;
1792
1793 procedure delete_pool_contents(p_api_version NUMBER
1794 , p_init_msg_list VARCHAR2
1795 , x_return_status out nocopy VARCHAR2
1796 , x_msg_count out nocopy NUMBER
1797 , x_msg_data out nocopy VARCHAR2
1798 , p5_a0 NUMBER := 0-1962.0724
1799 , p5_a1 NUMBER := 0-1962.0724
1800 , p5_a2 NUMBER := 0-1962.0724
1801 , p5_a3 NUMBER := 0-1962.0724
1802 , p5_a4 NUMBER := 0-1962.0724
1803 , p5_a5 NUMBER := 0-1962.0724
1804 , p5_a6 NUMBER := 0-1962.0724
1805 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1806 , p5_a8 NUMBER := 0-1962.0724
1807 , p5_a9 DATE := fnd_api.g_miss_date
1808 , p5_a10 DATE := fnd_api.g_miss_date
1809 , p5_a11 NUMBER := 0-1962.0724
1810 , p5_a12 NUMBER := 0-1962.0724
1811 , p5_a13 DATE := fnd_api.g_miss_date
1812 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1813 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1814 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1815 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1816 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1817 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1818 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1819 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1820 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1821 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1822 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1823 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1824 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1825 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1826 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1827 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1828 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1829 , p5_a31 NUMBER := 0-1962.0724
1830 , p5_a32 NUMBER := 0-1962.0724
1831 , p5_a33 NUMBER := 0-1962.0724
1832 , p5_a34 DATE := fnd_api.g_miss_date
1833 , p5_a35 NUMBER := 0-1962.0724
1834 , p5_a36 DATE := fnd_api.g_miss_date
1835 , p5_a37 NUMBER := 0-1962.0724
1836 , p5_a38 DATE := fnd_api.g_miss_date
1837 , p5_a39 NUMBER := 0-1962.0724
1838 )
1839
1840 as
1841 ddp_pocv_rec okl_pool_pvt.pocv_rec_type;
1842 ddindx binary_integer; indx binary_integer;
1843 begin
1844
1845 -- copy data to the local IN or IN-OUT args, if any
1846
1847
1848
1849
1850
1851 ddp_pocv_rec.id := rosetta_g_miss_num_map(p5_a0);
1852 ddp_pocv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1853 ddp_pocv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
1854 ddp_pocv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1855 ddp_pocv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
1856 ddp_pocv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
1857 ddp_pocv_rec.stm_id := rosetta_g_miss_num_map(p5_a6);
1858 ddp_pocv_rec.sty_code := p5_a7;
1859 ddp_pocv_rec.pox_id := rosetta_g_miss_num_map(p5_a8);
1860 ddp_pocv_rec.streams_from_date := rosetta_g_miss_date_in_map(p5_a9);
1861 ddp_pocv_rec.streams_to_date := rosetta_g_miss_date_in_map(p5_a10);
1862 ddp_pocv_rec.transaction_number_in := rosetta_g_miss_num_map(p5_a11);
1863 ddp_pocv_rec.transaction_number_out := rosetta_g_miss_num_map(p5_a12);
1864 ddp_pocv_rec.date_inactive := rosetta_g_miss_date_in_map(p5_a13);
1865 ddp_pocv_rec.attribute_category := p5_a14;
1866 ddp_pocv_rec.status_code := p5_a15;
1867 ddp_pocv_rec.attribute1 := p5_a16;
1868 ddp_pocv_rec.attribute2 := p5_a17;
1869 ddp_pocv_rec.attribute3 := p5_a18;
1870 ddp_pocv_rec.attribute4 := p5_a19;
1871 ddp_pocv_rec.attribute5 := p5_a20;
1872 ddp_pocv_rec.attribute6 := p5_a21;
1873 ddp_pocv_rec.attribute7 := p5_a22;
1874 ddp_pocv_rec.attribute8 := p5_a23;
1875 ddp_pocv_rec.attribute9 := p5_a24;
1876 ddp_pocv_rec.attribute10 := p5_a25;
1877 ddp_pocv_rec.attribute11 := p5_a26;
1878 ddp_pocv_rec.attribute12 := p5_a27;
1879 ddp_pocv_rec.attribute13 := p5_a28;
1880 ddp_pocv_rec.attribute14 := p5_a29;
1881 ddp_pocv_rec.attribute15 := p5_a30;
1882 ddp_pocv_rec.request_id := rosetta_g_miss_num_map(p5_a31);
1883 ddp_pocv_rec.program_application_id := rosetta_g_miss_num_map(p5_a32);
1884 ddp_pocv_rec.program_id := rosetta_g_miss_num_map(p5_a33);
1885 ddp_pocv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a34);
1886 ddp_pocv_rec.created_by := rosetta_g_miss_num_map(p5_a35);
1887 ddp_pocv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a36);
1888 ddp_pocv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a37);
1889 ddp_pocv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a38);
1890 ddp_pocv_rec.last_update_login := rosetta_g_miss_num_map(p5_a39);
1891
1892 -- here's the delegated call to the old PL/SQL routine
1893 okl_pool_pvt.delete_pool_contents(p_api_version,
1894 p_init_msg_list,
1895 x_return_status,
1896 x_msg_count,
1897 x_msg_data,
1898 ddp_pocv_rec);
1899
1900 -- copy data back from the local variables to OUT or IN-OUT args, if any
1901
1902
1903
1904
1905
1906 end;
1907
1908 procedure delete_pool_contents(p_api_version NUMBER
1909 , p_init_msg_list VARCHAR2
1910 , x_return_status out nocopy VARCHAR2
1911 , x_msg_count out nocopy NUMBER
1912 , x_msg_data out nocopy VARCHAR2
1913 , p5_a0 JTF_NUMBER_TABLE
1914 , p5_a1 JTF_NUMBER_TABLE
1915 , p5_a2 JTF_NUMBER_TABLE
1916 , p5_a3 JTF_NUMBER_TABLE
1917 , p5_a4 JTF_NUMBER_TABLE
1918 , p5_a5 JTF_NUMBER_TABLE
1919 , p5_a6 JTF_NUMBER_TABLE
1920 , p5_a7 JTF_VARCHAR2_TABLE_200
1921 , p5_a8 JTF_NUMBER_TABLE
1922 , p5_a9 JTF_DATE_TABLE
1923 , p5_a10 JTF_DATE_TABLE
1924 , p5_a11 JTF_NUMBER_TABLE
1925 , p5_a12 JTF_NUMBER_TABLE
1926 , p5_a13 JTF_DATE_TABLE
1927 , p5_a14 JTF_VARCHAR2_TABLE_100
1928 , p5_a15 JTF_VARCHAR2_TABLE_100
1929 , p5_a16 JTF_VARCHAR2_TABLE_500
1930 , p5_a17 JTF_VARCHAR2_TABLE_500
1931 , p5_a18 JTF_VARCHAR2_TABLE_500
1932 , p5_a19 JTF_VARCHAR2_TABLE_500
1933 , p5_a20 JTF_VARCHAR2_TABLE_500
1934 , p5_a21 JTF_VARCHAR2_TABLE_500
1935 , p5_a22 JTF_VARCHAR2_TABLE_500
1936 , p5_a23 JTF_VARCHAR2_TABLE_500
1937 , p5_a24 JTF_VARCHAR2_TABLE_500
1938 , p5_a25 JTF_VARCHAR2_TABLE_500
1939 , p5_a26 JTF_VARCHAR2_TABLE_500
1940 , p5_a27 JTF_VARCHAR2_TABLE_500
1941 , p5_a28 JTF_VARCHAR2_TABLE_500
1942 , p5_a29 JTF_VARCHAR2_TABLE_500
1943 , p5_a30 JTF_VARCHAR2_TABLE_500
1944 , p5_a31 JTF_NUMBER_TABLE
1945 , p5_a32 JTF_NUMBER_TABLE
1946 , p5_a33 JTF_NUMBER_TABLE
1947 , p5_a34 JTF_DATE_TABLE
1948 , p5_a35 JTF_NUMBER_TABLE
1949 , p5_a36 JTF_DATE_TABLE
1950 , p5_a37 JTF_NUMBER_TABLE
1951 , p5_a38 JTF_DATE_TABLE
1952 , p5_a39 JTF_NUMBER_TABLE
1953 )
1954
1955 as
1956 ddp_pocv_tbl okl_pool_pvt.pocv_tbl_type;
1957 ddindx binary_integer; indx binary_integer;
1958 begin
1959
1960 -- copy data to the local IN or IN-OUT args, if any
1961
1962
1963
1964
1965
1966 okl_poc_pvt_w.rosetta_table_copy_in_p2(ddp_pocv_tbl, p5_a0
1967 , p5_a1
1968 , p5_a2
1969 , p5_a3
1970 , p5_a4
1971 , p5_a5
1972 , p5_a6
1973 , p5_a7
1974 , p5_a8
1975 , p5_a9
1976 , p5_a10
1977 , p5_a11
1978 , p5_a12
1979 , p5_a13
1980 , p5_a14
1981 , p5_a15
1982 , p5_a16
1983 , p5_a17
1984 , p5_a18
1985 , p5_a19
1986 , p5_a20
1987 , p5_a21
1988 , p5_a22
1989 , p5_a23
1990 , p5_a24
1991 , p5_a25
1992 , p5_a26
1993 , p5_a27
1994 , p5_a28
1995 , p5_a29
1996 , p5_a30
1997 , p5_a31
1998 , p5_a32
1999 , p5_a33
2000 , p5_a34
2001 , p5_a35
2002 , p5_a36
2003 , p5_a37
2004 , p5_a38
2005 , p5_a39
2006 );
2007
2008 -- here's the delegated call to the old PL/SQL routine
2009 okl_pool_pvt.delete_pool_contents(p_api_version,
2010 p_init_msg_list,
2011 x_return_status,
2012 x_msg_count,
2013 x_msg_data,
2014 ddp_pocv_tbl);
2015
2016 -- copy data back from the local variables to OUT or IN-OUT args, if any
2017
2018
2019
2020
2021
2022 end;
2023
2024 procedure create_pool_transaction(p_api_version NUMBER
2025 , p_init_msg_list VARCHAR2
2026 , x_return_status out nocopy VARCHAR2
2027 , x_msg_count out nocopy NUMBER
2028 , x_msg_data out nocopy VARCHAR2
2029 , p6_a0 out nocopy NUMBER
2030 , p6_a1 out nocopy NUMBER
2031 , p6_a2 out nocopy NUMBER
2032 , p6_a3 out nocopy NUMBER
2033 , p6_a4 out nocopy DATE
2034 , p6_a5 out nocopy VARCHAR2
2035 , p6_a6 out nocopy VARCHAR2
2036 , p6_a7 out nocopy DATE
2037 , p6_a8 out nocopy VARCHAR2
2038 , p6_a9 out nocopy VARCHAR2
2039 , p6_a10 out nocopy DATE
2040 , p6_a11 out nocopy NUMBER
2041 , p6_a12 out nocopy VARCHAR2
2042 , p6_a13 out nocopy VARCHAR2
2043 , p6_a14 out nocopy VARCHAR2
2044 , p6_a15 out nocopy VARCHAR2
2045 , p6_a16 out nocopy VARCHAR2
2046 , p6_a17 out nocopy VARCHAR2
2047 , p6_a18 out nocopy VARCHAR2
2048 , p6_a19 out nocopy VARCHAR2
2049 , p6_a20 out nocopy VARCHAR2
2050 , p6_a21 out nocopy VARCHAR2
2051 , p6_a22 out nocopy VARCHAR2
2052 , p6_a23 out nocopy VARCHAR2
2053 , p6_a24 out nocopy VARCHAR2
2054 , p6_a25 out nocopy VARCHAR2
2055 , p6_a26 out nocopy VARCHAR2
2056 , p6_a27 out nocopy VARCHAR2
2057 , p6_a28 out nocopy VARCHAR2
2058 , p6_a29 out nocopy NUMBER
2059 , p6_a30 out nocopy NUMBER
2060 , p6_a31 out nocopy NUMBER
2061 , p6_a32 out nocopy DATE
2062 , p6_a33 out nocopy NUMBER
2063 , p6_a34 out nocopy DATE
2064 , p6_a35 out nocopy NUMBER
2065 , p6_a36 out nocopy DATE
2066 , p6_a37 out nocopy NUMBER
2067 , p6_a38 out nocopy NUMBER
2068 , p6_a39 out nocopy VARCHAR2
2069 , p5_a0 NUMBER := 0-1962.0724
2070 , p5_a1 NUMBER := 0-1962.0724
2071 , p5_a2 NUMBER := 0-1962.0724
2072 , p5_a3 NUMBER := 0-1962.0724
2073 , p5_a4 DATE := fnd_api.g_miss_date
2074 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2075 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2076 , p5_a7 DATE := fnd_api.g_miss_date
2077 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2078 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2079 , p5_a10 DATE := fnd_api.g_miss_date
2080 , p5_a11 NUMBER := 0-1962.0724
2081 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2082 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2083 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2084 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2085 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2086 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2087 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2088 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2089 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2090 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2091 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2092 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2093 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2094 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2095 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2096 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2097 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2098 , p5_a29 NUMBER := 0-1962.0724
2099 , p5_a30 NUMBER := 0-1962.0724
2100 , p5_a31 NUMBER := 0-1962.0724
2101 , p5_a32 DATE := fnd_api.g_miss_date
2102 , p5_a33 NUMBER := 0-1962.0724
2103 , p5_a34 DATE := fnd_api.g_miss_date
2104 , p5_a35 NUMBER := 0-1962.0724
2105 , p5_a36 DATE := fnd_api.g_miss_date
2106 , p5_a37 NUMBER := 0-1962.0724
2107 , p5_a38 NUMBER := 0-1962.0724
2108 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
2109 )
2110
2111 as
2112 ddp_poxv_rec okl_pool_pvt.poxv_rec_type;
2113 ddx_poxv_rec okl_pool_pvt.poxv_rec_type;
2114 ddindx binary_integer; indx binary_integer;
2115 begin
2116
2117 -- copy data to the local IN or IN-OUT args, if any
2118
2119
2120
2121
2122
2123 ddp_poxv_rec.id := rosetta_g_miss_num_map(p5_a0);
2124 ddp_poxv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2125 ddp_poxv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
2126 ddp_poxv_rec.transaction_number := rosetta_g_miss_num_map(p5_a3);
2127 ddp_poxv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a4);
2128 ddp_poxv_rec.transaction_type := p5_a5;
2129 ddp_poxv_rec.transaction_sub_type := p5_a6;
2130 ddp_poxv_rec.date_effective := rosetta_g_miss_date_in_map(p5_a7);
2131 ddp_poxv_rec.currency_code := p5_a8;
2132 ddp_poxv_rec.currency_conversion_type := p5_a9;
2133 ddp_poxv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a10);
2134 ddp_poxv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a11);
2135 ddp_poxv_rec.transaction_reason := p5_a12;
2136 ddp_poxv_rec.attribute_category := p5_a13;
2137 ddp_poxv_rec.attribute1 := p5_a14;
2138 ddp_poxv_rec.attribute2 := p5_a15;
2139 ddp_poxv_rec.attribute3 := p5_a16;
2140 ddp_poxv_rec.attribute4 := p5_a17;
2141 ddp_poxv_rec.attribute5 := p5_a18;
2142 ddp_poxv_rec.attribute6 := p5_a19;
2143 ddp_poxv_rec.attribute7 := p5_a20;
2144 ddp_poxv_rec.attribute8 := p5_a21;
2145 ddp_poxv_rec.attribute9 := p5_a22;
2146 ddp_poxv_rec.attribute10 := p5_a23;
2147 ddp_poxv_rec.attribute11 := p5_a24;
2148 ddp_poxv_rec.attribute12 := p5_a25;
2149 ddp_poxv_rec.attribute13 := p5_a26;
2150 ddp_poxv_rec.attribute14 := p5_a27;
2151 ddp_poxv_rec.attribute15 := p5_a28;
2152 ddp_poxv_rec.request_id := rosetta_g_miss_num_map(p5_a29);
2153 ddp_poxv_rec.program_application_id := rosetta_g_miss_num_map(p5_a30);
2154 ddp_poxv_rec.program_id := rosetta_g_miss_num_map(p5_a31);
2155 ddp_poxv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a32);
2156 ddp_poxv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
2157 ddp_poxv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
2158 ddp_poxv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
2159 ddp_poxv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
2160 ddp_poxv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
2161 ddp_poxv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a38);
2162 ddp_poxv_rec.transaction_status := p5_a39;
2163
2164
2165 -- here's the delegated call to the old PL/SQL routine
2166 okl_pool_pvt.create_pool_transaction(p_api_version,
2167 p_init_msg_list,
2168 x_return_status,
2169 x_msg_count,
2170 x_msg_data,
2171 ddp_poxv_rec,
2172 ddx_poxv_rec);
2173
2174 -- copy data back from the local variables to OUT or IN-OUT args, if any
2175
2176
2177
2178
2179
2180
2181 p6_a0 := rosetta_g_miss_num_map(ddx_poxv_rec.id);
2182 p6_a1 := rosetta_g_miss_num_map(ddx_poxv_rec.object_version_number);
2183 p6_a2 := rosetta_g_miss_num_map(ddx_poxv_rec.pol_id);
2184 p6_a3 := rosetta_g_miss_num_map(ddx_poxv_rec.transaction_number);
2185 p6_a4 := ddx_poxv_rec.transaction_date;
2186 p6_a5 := ddx_poxv_rec.transaction_type;
2187 p6_a6 := ddx_poxv_rec.transaction_sub_type;
2188 p6_a7 := ddx_poxv_rec.date_effective;
2189 p6_a8 := ddx_poxv_rec.currency_code;
2190 p6_a9 := ddx_poxv_rec.currency_conversion_type;
2191 p6_a10 := ddx_poxv_rec.currency_conversion_date;
2192 p6_a11 := rosetta_g_miss_num_map(ddx_poxv_rec.currency_conversion_rate);
2193 p6_a12 := ddx_poxv_rec.transaction_reason;
2194 p6_a13 := ddx_poxv_rec.attribute_category;
2195 p6_a14 := ddx_poxv_rec.attribute1;
2196 p6_a15 := ddx_poxv_rec.attribute2;
2197 p6_a16 := ddx_poxv_rec.attribute3;
2198 p6_a17 := ddx_poxv_rec.attribute4;
2199 p6_a18 := ddx_poxv_rec.attribute5;
2200 p6_a19 := ddx_poxv_rec.attribute6;
2201 p6_a20 := ddx_poxv_rec.attribute7;
2202 p6_a21 := ddx_poxv_rec.attribute8;
2203 p6_a22 := ddx_poxv_rec.attribute9;
2204 p6_a23 := ddx_poxv_rec.attribute10;
2205 p6_a24 := ddx_poxv_rec.attribute11;
2206 p6_a25 := ddx_poxv_rec.attribute12;
2207 p6_a26 := ddx_poxv_rec.attribute13;
2208 p6_a27 := ddx_poxv_rec.attribute14;
2209 p6_a28 := ddx_poxv_rec.attribute15;
2210 p6_a29 := rosetta_g_miss_num_map(ddx_poxv_rec.request_id);
2211 p6_a30 := rosetta_g_miss_num_map(ddx_poxv_rec.program_application_id);
2212 p6_a31 := rosetta_g_miss_num_map(ddx_poxv_rec.program_id);
2213 p6_a32 := ddx_poxv_rec.program_update_date;
2214 p6_a33 := rosetta_g_miss_num_map(ddx_poxv_rec.created_by);
2215 p6_a34 := ddx_poxv_rec.creation_date;
2216 p6_a35 := rosetta_g_miss_num_map(ddx_poxv_rec.last_updated_by);
2217 p6_a36 := ddx_poxv_rec.last_update_date;
2218 p6_a37 := rosetta_g_miss_num_map(ddx_poxv_rec.last_update_login);
2219 p6_a38 := rosetta_g_miss_num_map(ddx_poxv_rec.legal_entity_id);
2220 p6_a39 := ddx_poxv_rec.transaction_status;
2221 end;
2222
2223 procedure update_pool_transaction(p_api_version NUMBER
2224 , p_init_msg_list VARCHAR2
2225 , x_return_status out nocopy VARCHAR2
2226 , x_msg_count out nocopy NUMBER
2227 , x_msg_data out nocopy VARCHAR2
2228 , p6_a0 out nocopy NUMBER
2229 , p6_a1 out nocopy NUMBER
2230 , p6_a2 out nocopy NUMBER
2231 , p6_a3 out nocopy NUMBER
2232 , p6_a4 out nocopy DATE
2233 , p6_a5 out nocopy VARCHAR2
2234 , p6_a6 out nocopy VARCHAR2
2235 , p6_a7 out nocopy DATE
2236 , p6_a8 out nocopy VARCHAR2
2237 , p6_a9 out nocopy VARCHAR2
2238 , p6_a10 out nocopy DATE
2239 , p6_a11 out nocopy NUMBER
2240 , p6_a12 out nocopy VARCHAR2
2241 , p6_a13 out nocopy VARCHAR2
2242 , p6_a14 out nocopy VARCHAR2
2243 , p6_a15 out nocopy VARCHAR2
2244 , p6_a16 out nocopy VARCHAR2
2245 , p6_a17 out nocopy VARCHAR2
2246 , p6_a18 out nocopy VARCHAR2
2247 , p6_a19 out nocopy VARCHAR2
2248 , p6_a20 out nocopy VARCHAR2
2249 , p6_a21 out nocopy VARCHAR2
2250 , p6_a22 out nocopy VARCHAR2
2251 , p6_a23 out nocopy VARCHAR2
2252 , p6_a24 out nocopy VARCHAR2
2253 , p6_a25 out nocopy VARCHAR2
2254 , p6_a26 out nocopy VARCHAR2
2255 , p6_a27 out nocopy VARCHAR2
2256 , p6_a28 out nocopy VARCHAR2
2257 , p6_a29 out nocopy NUMBER
2258 , p6_a30 out nocopy NUMBER
2259 , p6_a31 out nocopy NUMBER
2260 , p6_a32 out nocopy DATE
2261 , p6_a33 out nocopy NUMBER
2262 , p6_a34 out nocopy DATE
2263 , p6_a35 out nocopy NUMBER
2264 , p6_a36 out nocopy DATE
2265 , p6_a37 out nocopy NUMBER
2266 , p6_a38 out nocopy NUMBER
2267 , p6_a39 out nocopy VARCHAR2
2268 , p5_a0 NUMBER := 0-1962.0724
2269 , p5_a1 NUMBER := 0-1962.0724
2270 , p5_a2 NUMBER := 0-1962.0724
2271 , p5_a3 NUMBER := 0-1962.0724
2272 , p5_a4 DATE := fnd_api.g_miss_date
2273 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2274 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2275 , p5_a7 DATE := fnd_api.g_miss_date
2276 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2277 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2278 , p5_a10 DATE := fnd_api.g_miss_date
2279 , p5_a11 NUMBER := 0-1962.0724
2280 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2281 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2282 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2283 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2284 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2285 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2286 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2287 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2288 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2289 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2290 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2291 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2292 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2293 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2294 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2295 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2296 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2297 , p5_a29 NUMBER := 0-1962.0724
2298 , p5_a30 NUMBER := 0-1962.0724
2299 , p5_a31 NUMBER := 0-1962.0724
2300 , p5_a32 DATE := fnd_api.g_miss_date
2301 , p5_a33 NUMBER := 0-1962.0724
2302 , p5_a34 DATE := fnd_api.g_miss_date
2303 , p5_a35 NUMBER := 0-1962.0724
2304 , p5_a36 DATE := fnd_api.g_miss_date
2305 , p5_a37 NUMBER := 0-1962.0724
2306 , p5_a38 NUMBER := 0-1962.0724
2307 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
2308 )
2309
2310 as
2311 ddp_poxv_rec okl_pool_pvt.poxv_rec_type;
2312 ddx_poxv_rec okl_pool_pvt.poxv_rec_type;
2313 ddindx binary_integer; indx binary_integer;
2314 begin
2315
2316 -- copy data to the local IN or IN-OUT args, if any
2317
2318
2319
2320
2321
2322 ddp_poxv_rec.id := rosetta_g_miss_num_map(p5_a0);
2323 ddp_poxv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2324 ddp_poxv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
2325 ddp_poxv_rec.transaction_number := rosetta_g_miss_num_map(p5_a3);
2326 ddp_poxv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a4);
2327 ddp_poxv_rec.transaction_type := p5_a5;
2328 ddp_poxv_rec.transaction_sub_type := p5_a6;
2329 ddp_poxv_rec.date_effective := rosetta_g_miss_date_in_map(p5_a7);
2330 ddp_poxv_rec.currency_code := p5_a8;
2331 ddp_poxv_rec.currency_conversion_type := p5_a9;
2332 ddp_poxv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a10);
2333 ddp_poxv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a11);
2334 ddp_poxv_rec.transaction_reason := p5_a12;
2335 ddp_poxv_rec.attribute_category := p5_a13;
2336 ddp_poxv_rec.attribute1 := p5_a14;
2337 ddp_poxv_rec.attribute2 := p5_a15;
2338 ddp_poxv_rec.attribute3 := p5_a16;
2339 ddp_poxv_rec.attribute4 := p5_a17;
2340 ddp_poxv_rec.attribute5 := p5_a18;
2341 ddp_poxv_rec.attribute6 := p5_a19;
2342 ddp_poxv_rec.attribute7 := p5_a20;
2343 ddp_poxv_rec.attribute8 := p5_a21;
2344 ddp_poxv_rec.attribute9 := p5_a22;
2345 ddp_poxv_rec.attribute10 := p5_a23;
2346 ddp_poxv_rec.attribute11 := p5_a24;
2347 ddp_poxv_rec.attribute12 := p5_a25;
2348 ddp_poxv_rec.attribute13 := p5_a26;
2349 ddp_poxv_rec.attribute14 := p5_a27;
2350 ddp_poxv_rec.attribute15 := p5_a28;
2351 ddp_poxv_rec.request_id := rosetta_g_miss_num_map(p5_a29);
2352 ddp_poxv_rec.program_application_id := rosetta_g_miss_num_map(p5_a30);
2353 ddp_poxv_rec.program_id := rosetta_g_miss_num_map(p5_a31);
2354 ddp_poxv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a32);
2355 ddp_poxv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
2356 ddp_poxv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
2357 ddp_poxv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
2358 ddp_poxv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
2359 ddp_poxv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
2360 ddp_poxv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a38);
2361 ddp_poxv_rec.transaction_status := p5_a39;
2362
2363
2364 -- here's the delegated call to the old PL/SQL routine
2365 okl_pool_pvt.update_pool_transaction(p_api_version,
2366 p_init_msg_list,
2367 x_return_status,
2368 x_msg_count,
2369 x_msg_data,
2370 ddp_poxv_rec,
2371 ddx_poxv_rec);
2372
2373 -- copy data back from the local variables to OUT or IN-OUT args, if any
2374
2375
2376
2377
2378
2379
2380 p6_a0 := rosetta_g_miss_num_map(ddx_poxv_rec.id);
2381 p6_a1 := rosetta_g_miss_num_map(ddx_poxv_rec.object_version_number);
2382 p6_a2 := rosetta_g_miss_num_map(ddx_poxv_rec.pol_id);
2383 p6_a3 := rosetta_g_miss_num_map(ddx_poxv_rec.transaction_number);
2384 p6_a4 := ddx_poxv_rec.transaction_date;
2385 p6_a5 := ddx_poxv_rec.transaction_type;
2386 p6_a6 := ddx_poxv_rec.transaction_sub_type;
2387 p6_a7 := ddx_poxv_rec.date_effective;
2388 p6_a8 := ddx_poxv_rec.currency_code;
2389 p6_a9 := ddx_poxv_rec.currency_conversion_type;
2390 p6_a10 := ddx_poxv_rec.currency_conversion_date;
2391 p6_a11 := rosetta_g_miss_num_map(ddx_poxv_rec.currency_conversion_rate);
2392 p6_a12 := ddx_poxv_rec.transaction_reason;
2393 p6_a13 := ddx_poxv_rec.attribute_category;
2394 p6_a14 := ddx_poxv_rec.attribute1;
2395 p6_a15 := ddx_poxv_rec.attribute2;
2396 p6_a16 := ddx_poxv_rec.attribute3;
2397 p6_a17 := ddx_poxv_rec.attribute4;
2398 p6_a18 := ddx_poxv_rec.attribute5;
2399 p6_a19 := ddx_poxv_rec.attribute6;
2400 p6_a20 := ddx_poxv_rec.attribute7;
2401 p6_a21 := ddx_poxv_rec.attribute8;
2402 p6_a22 := ddx_poxv_rec.attribute9;
2403 p6_a23 := ddx_poxv_rec.attribute10;
2404 p6_a24 := ddx_poxv_rec.attribute11;
2405 p6_a25 := ddx_poxv_rec.attribute12;
2406 p6_a26 := ddx_poxv_rec.attribute13;
2407 p6_a27 := ddx_poxv_rec.attribute14;
2408 p6_a28 := ddx_poxv_rec.attribute15;
2409 p6_a29 := rosetta_g_miss_num_map(ddx_poxv_rec.request_id);
2410 p6_a30 := rosetta_g_miss_num_map(ddx_poxv_rec.program_application_id);
2411 p6_a31 := rosetta_g_miss_num_map(ddx_poxv_rec.program_id);
2412 p6_a32 := ddx_poxv_rec.program_update_date;
2413 p6_a33 := rosetta_g_miss_num_map(ddx_poxv_rec.created_by);
2414 p6_a34 := ddx_poxv_rec.creation_date;
2415 p6_a35 := rosetta_g_miss_num_map(ddx_poxv_rec.last_updated_by);
2416 p6_a36 := ddx_poxv_rec.last_update_date;
2417 p6_a37 := rosetta_g_miss_num_map(ddx_poxv_rec.last_update_login);
2418 p6_a38 := rosetta_g_miss_num_map(ddx_poxv_rec.legal_entity_id);
2419 p6_a39 := ddx_poxv_rec.transaction_status;
2420 end;
2421
2422 procedure delete_pool_transaction(p_api_version NUMBER
2423 , p_init_msg_list VARCHAR2
2424 , x_return_status out nocopy VARCHAR2
2425 , x_msg_count out nocopy NUMBER
2426 , x_msg_data out nocopy VARCHAR2
2427 , p5_a0 NUMBER := 0-1962.0724
2428 , p5_a1 NUMBER := 0-1962.0724
2429 , p5_a2 NUMBER := 0-1962.0724
2430 , p5_a3 NUMBER := 0-1962.0724
2431 , p5_a4 DATE := fnd_api.g_miss_date
2432 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
2433 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2434 , p5_a7 DATE := fnd_api.g_miss_date
2435 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2436 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2437 , p5_a10 DATE := fnd_api.g_miss_date
2438 , p5_a11 NUMBER := 0-1962.0724
2439 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2440 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2441 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2442 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2443 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2444 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2445 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2446 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2447 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2448 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2449 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2450 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2451 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2452 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2453 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2454 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2455 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2456 , p5_a29 NUMBER := 0-1962.0724
2457 , p5_a30 NUMBER := 0-1962.0724
2458 , p5_a31 NUMBER := 0-1962.0724
2459 , p5_a32 DATE := fnd_api.g_miss_date
2460 , p5_a33 NUMBER := 0-1962.0724
2461 , p5_a34 DATE := fnd_api.g_miss_date
2462 , p5_a35 NUMBER := 0-1962.0724
2463 , p5_a36 DATE := fnd_api.g_miss_date
2464 , p5_a37 NUMBER := 0-1962.0724
2465 , p5_a38 NUMBER := 0-1962.0724
2466 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
2467 )
2468
2469 as
2470 ddp_poxv_rec okl_pool_pvt.poxv_rec_type;
2471 ddindx binary_integer; indx binary_integer;
2472 begin
2473
2474 -- copy data to the local IN or IN-OUT args, if any
2475
2476
2477
2478
2479
2480 ddp_poxv_rec.id := rosetta_g_miss_num_map(p5_a0);
2481 ddp_poxv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2482 ddp_poxv_rec.pol_id := rosetta_g_miss_num_map(p5_a2);
2483 ddp_poxv_rec.transaction_number := rosetta_g_miss_num_map(p5_a3);
2484 ddp_poxv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a4);
2485 ddp_poxv_rec.transaction_type := p5_a5;
2486 ddp_poxv_rec.transaction_sub_type := p5_a6;
2487 ddp_poxv_rec.date_effective := rosetta_g_miss_date_in_map(p5_a7);
2488 ddp_poxv_rec.currency_code := p5_a8;
2489 ddp_poxv_rec.currency_conversion_type := p5_a9;
2490 ddp_poxv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a10);
2491 ddp_poxv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a11);
2492 ddp_poxv_rec.transaction_reason := p5_a12;
2493 ddp_poxv_rec.attribute_category := p5_a13;
2494 ddp_poxv_rec.attribute1 := p5_a14;
2495 ddp_poxv_rec.attribute2 := p5_a15;
2496 ddp_poxv_rec.attribute3 := p5_a16;
2497 ddp_poxv_rec.attribute4 := p5_a17;
2498 ddp_poxv_rec.attribute5 := p5_a18;
2499 ddp_poxv_rec.attribute6 := p5_a19;
2500 ddp_poxv_rec.attribute7 := p5_a20;
2501 ddp_poxv_rec.attribute8 := p5_a21;
2502 ddp_poxv_rec.attribute9 := p5_a22;
2503 ddp_poxv_rec.attribute10 := p5_a23;
2504 ddp_poxv_rec.attribute11 := p5_a24;
2505 ddp_poxv_rec.attribute12 := p5_a25;
2506 ddp_poxv_rec.attribute13 := p5_a26;
2507 ddp_poxv_rec.attribute14 := p5_a27;
2508 ddp_poxv_rec.attribute15 := p5_a28;
2509 ddp_poxv_rec.request_id := rosetta_g_miss_num_map(p5_a29);
2510 ddp_poxv_rec.program_application_id := rosetta_g_miss_num_map(p5_a30);
2511 ddp_poxv_rec.program_id := rosetta_g_miss_num_map(p5_a31);
2512 ddp_poxv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a32);
2513 ddp_poxv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
2514 ddp_poxv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
2515 ddp_poxv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
2516 ddp_poxv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
2517 ddp_poxv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
2518 ddp_poxv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a38);
2519 ddp_poxv_rec.transaction_status := p5_a39;
2520
2521 -- here's the delegated call to the old PL/SQL routine
2522 okl_pool_pvt.delete_pool_transaction(p_api_version,
2523 p_init_msg_list,
2524 x_return_status,
2525 x_msg_count,
2526 x_msg_data,
2527 ddp_poxv_rec);
2528
2529 -- copy data back from the local variables to OUT or IN-OUT args, if any
2530
2531
2532
2533
2534
2535 end;
2536
2537 procedure add_pool_contents(p_api_version NUMBER
2538 , p_init_msg_list VARCHAR2
2539 , x_return_status out nocopy VARCHAR2
2540 , x_msg_count out nocopy NUMBER
2541 , x_msg_data out nocopy VARCHAR2
2542 , x_row_count out nocopy NUMBER
2543 , p_currency_code VARCHAR2
2544 , p_pol_id NUMBER
2545 , p_multi_org VARCHAR2
2546 , p_cust_object1_id1 NUMBER
2547 , p_sic_code VARCHAR2
2548 , p_khr_id NUMBER
2549 , p_pre_tax_yield_from NUMBER
2550 , p_pre_tax_yield_to NUMBER
2551 , p_book_classification VARCHAR2
2552 , p_tax_owner VARCHAR2
2553 , p_pdt_id NUMBER
2554 , p_start_date_from date
2555 , p_start_date_to date
2556 , p_end_date_from date
2557 , p_end_date_to date
2558 , p_asset_id NUMBER
2559 , p_item_id1 NUMBER
2560 , p_model_number VARCHAR2
2561 , p_manufacturer_name VARCHAR2
2562 , p_vendor_id1 NUMBER
2563 , p_oec_from NUMBER
2564 , p_oec_to NUMBER
2565 , p_residual_percentage NUMBER
2566 , p_sty_id1 NUMBER
2567 , p_sty_id2 NUMBER
2568 , p_stream_type_subclass VARCHAR2
2569 , p_stream_element_from_date date
2570 , p_stream_element_to_date date
2571 , p_stream_element_payment_freq VARCHAR2
2572 , p_log_message VARCHAR2
2573 )
2574
2575 as
2576 ddp_start_date_from date;
2577 ddp_start_date_to date;
2578 ddp_end_date_from date;
2579 ddp_end_date_to date;
2580 ddp_stream_element_from_date date;
2581 ddp_stream_element_to_date date;
2582 ddindx binary_integer; indx binary_integer;
2583 begin
2584
2585 -- copy data to the local IN or IN-OUT args, if any
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603 ddp_start_date_from := rosetta_g_miss_date_in_map(p_start_date_from);
2604
2605 ddp_start_date_to := rosetta_g_miss_date_in_map(p_start_date_to);
2606
2607 ddp_end_date_from := rosetta_g_miss_date_in_map(p_end_date_from);
2608
2609 ddp_end_date_to := rosetta_g_miss_date_in_map(p_end_date_to);
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622 ddp_stream_element_from_date := rosetta_g_miss_date_in_map(p_stream_element_from_date);
2623
2624 ddp_stream_element_to_date := rosetta_g_miss_date_in_map(p_stream_element_to_date);
2625
2626
2627
2628 -- here's the delegated call to the old PL/SQL routine
2629 okl_pool_pvt.add_pool_contents(p_api_version,
2630 p_init_msg_list,
2631 x_return_status,
2632 x_msg_count,
2633 x_msg_data,
2634 x_row_count,
2635 p_currency_code,
2636 p_pol_id,
2637 p_multi_org,
2638 p_cust_object1_id1,
2639 p_sic_code,
2640 p_khr_id,
2641 p_pre_tax_yield_from,
2642 p_pre_tax_yield_to,
2643 p_book_classification,
2644 p_tax_owner,
2645 p_pdt_id,
2646 ddp_start_date_from,
2647 ddp_start_date_to,
2648 ddp_end_date_from,
2649 ddp_end_date_to,
2650 p_asset_id,
2651 p_item_id1,
2652 p_model_number,
2653 p_manufacturer_name,
2654 p_vendor_id1,
2655 p_oec_from,
2656 p_oec_to,
2657 p_residual_percentage,
2658 p_sty_id1,
2659 p_sty_id2,
2660 p_stream_type_subclass,
2661 ddp_stream_element_from_date,
2662 ddp_stream_element_to_date,
2663 p_stream_element_payment_freq,
2664 p_log_message);
2665
2666 -- copy data back from the local variables to OUT or IN-OUT args, if any
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702 end;
2703
2704 procedure cleanup_pool_contents(p_api_version NUMBER
2705 , p_init_msg_list VARCHAR2
2706 , x_return_status out nocopy VARCHAR2
2707 , x_msg_count out nocopy NUMBER
2708 , x_msg_data out nocopy VARCHAR2
2709 , p_currency_code VARCHAR2
2710 , p_pol_id NUMBER
2711 , p_multi_org VARCHAR2
2712 , p_cust_object1_id1 NUMBER
2713 , p_sic_code VARCHAR2
2714 , p_dnz_chr_id NUMBER
2715 , p_pre_tax_yield_from NUMBER
2716 , p_pre_tax_yield_to NUMBER
2717 , p_book_classification VARCHAR2
2718 , p_tax_owner VARCHAR2
2719 , p_pdt_id NUMBER
2720 , p_start_from_date date
2721 , p_start_to_date date
2722 , p_end_from_date date
2723 , p_end_to_date date
2724 , p_asset_id NUMBER
2725 , p_item_id1 NUMBER
2726 , p_model_number VARCHAR2
2727 , p_manufacturer_name VARCHAR2
2728 , p_vendor_id1 NUMBER
2729 , p_oec_from NUMBER
2730 , p_oec_to NUMBER
2731 , p_residual_percentage NUMBER
2732 , p_sty_id NUMBER
2733 , p_stream_type_subclass VARCHAR2
2734 , p_streams_from_date date
2735 , p_streams_to_date date
2736 , p_action_code VARCHAR2
2737 , p33_a0 out nocopy JTF_NUMBER_TABLE
2738 , p33_a1 out nocopy JTF_VARCHAR2_TABLE_200
2739 , p33_a2 out nocopy JTF_VARCHAR2_TABLE_200
2740 , p33_a3 out nocopy JTF_VARCHAR2_TABLE_400
2741 , p33_a4 out nocopy JTF_VARCHAR2_TABLE_200
2742 , p33_a5 out nocopy JTF_NUMBER_TABLE
2743 , p33_a6 out nocopy JTF_VARCHAR2_TABLE_100
2744 , p33_a7 out nocopy JTF_VARCHAR2_TABLE_100
2745 , p33_a8 out nocopy JTF_VARCHAR2_TABLE_100
2746 )
2747
2748 as
2749 ddp_start_from_date date;
2750 ddp_start_to_date date;
2751 ddp_end_from_date date;
2752 ddp_end_to_date date;
2753 ddp_streams_from_date date;
2754 ddp_streams_to_date date;
2755 ddx_poc_uv_tbl okl_pool_pvt.poc_uv_tbl_type;
2756 ddindx binary_integer; indx binary_integer;
2757 begin
2758
2759 -- copy data to the local IN or IN-OUT args, if any
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776 ddp_start_from_date := rosetta_g_miss_date_in_map(p_start_from_date);
2777
2778 ddp_start_to_date := rosetta_g_miss_date_in_map(p_start_to_date);
2779
2780 ddp_end_from_date := rosetta_g_miss_date_in_map(p_end_from_date);
2781
2782 ddp_end_to_date := rosetta_g_miss_date_in_map(p_end_to_date);
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794 ddp_streams_from_date := rosetta_g_miss_date_in_map(p_streams_from_date);
2795
2796 ddp_streams_to_date := rosetta_g_miss_date_in_map(p_streams_to_date);
2797
2798
2799
2800 -- here's the delegated call to the old PL/SQL routine
2801 okl_pool_pvt.cleanup_pool_contents(p_api_version,
2802 p_init_msg_list,
2803 x_return_status,
2804 x_msg_count,
2805 x_msg_data,
2806 p_currency_code,
2807 p_pol_id,
2808 p_multi_org,
2809 p_cust_object1_id1,
2810 p_sic_code,
2811 p_dnz_chr_id,
2812 p_pre_tax_yield_from,
2813 p_pre_tax_yield_to,
2814 p_book_classification,
2815 p_tax_owner,
2816 p_pdt_id,
2817 ddp_start_from_date,
2818 ddp_start_to_date,
2819 ddp_end_from_date,
2820 ddp_end_to_date,
2821 p_asset_id,
2822 p_item_id1,
2823 p_model_number,
2824 p_manufacturer_name,
2825 p_vendor_id1,
2826 p_oec_from,
2827 p_oec_to,
2828 p_residual_percentage,
2829 p_sty_id,
2830 p_stream_type_subclass,
2831 ddp_streams_from_date,
2832 ddp_streams_to_date,
2833 p_action_code,
2834 ddx_poc_uv_tbl);
2835
2836 -- copy data back from the local variables to OUT or IN-OUT args, if any
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870 okl_pool_pvt_w.rosetta_table_copy_out_p48(ddx_poc_uv_tbl, p33_a0
2871 , p33_a1
2872 , p33_a2
2873 , p33_a3
2874 , p33_a4
2875 , p33_a5
2876 , p33_a6
2877 , p33_a7
2878 , p33_a8
2879 );
2880 end;
2881
2882 procedure validate_pool(p_api_version NUMBER
2883 , p_init_msg_list VARCHAR2
2884 , p_api_name VARCHAR2
2885 , p_action VARCHAR2
2886 , x_return_status out nocopy VARCHAR2
2887 , x_msg_count out nocopy NUMBER
2888 , x_msg_data out nocopy VARCHAR2
2889 , p3_a0 NUMBER := 0-1962.0724
2890 , p3_a1 NUMBER := 0-1962.0724
2891 , p3_a2 NUMBER := 0-1962.0724
2892 , p3_a3 NUMBER := 0-1962.0724
2893 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
2894 , p3_a5 VARCHAR2 := fnd_api.g_miss_char
2895 , p3_a6 VARCHAR2 := fnd_api.g_miss_char
2896 , p3_a7 VARCHAR2 := fnd_api.g_miss_char
2897 , p3_a8 NUMBER := 0-1962.0724
2898 , p3_a9 NUMBER := 0-1962.0724
2899 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
2900 , p3_a11 DATE := fnd_api.g_miss_date
2901 , p3_a12 DATE := fnd_api.g_miss_date
2902 , p3_a13 DATE := fnd_api.g_miss_date
2903 , p3_a14 DATE := fnd_api.g_miss_date
2904 , p3_a15 VARCHAR2 := fnd_api.g_miss_char
2905 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
2906 , p3_a17 VARCHAR2 := fnd_api.g_miss_char
2907 , p3_a18 VARCHAR2 := fnd_api.g_miss_char
2908 , p3_a19 VARCHAR2 := fnd_api.g_miss_char
2909 , p3_a20 VARCHAR2 := fnd_api.g_miss_char
2910 , p3_a21 VARCHAR2 := fnd_api.g_miss_char
2911 , p3_a22 VARCHAR2 := fnd_api.g_miss_char
2912 , p3_a23 VARCHAR2 := fnd_api.g_miss_char
2913 , p3_a24 VARCHAR2 := fnd_api.g_miss_char
2914 , p3_a25 VARCHAR2 := fnd_api.g_miss_char
2915 , p3_a26 VARCHAR2 := fnd_api.g_miss_char
2916 , p3_a27 VARCHAR2 := fnd_api.g_miss_char
2917 , p3_a28 VARCHAR2 := fnd_api.g_miss_char
2918 , p3_a29 VARCHAR2 := fnd_api.g_miss_char
2919 , p3_a30 VARCHAR2 := fnd_api.g_miss_char
2920 , p3_a31 VARCHAR2 := fnd_api.g_miss_char
2921 , p3_a32 VARCHAR2 := fnd_api.g_miss_char
2922 , p3_a33 NUMBER := 0-1962.0724
2923 , p3_a34 NUMBER := 0-1962.0724
2924 , p3_a35 NUMBER := 0-1962.0724
2925 , p3_a36 NUMBER := 0-1962.0724
2926 , p3_a37 DATE := fnd_api.g_miss_date
2927 , p3_a38 NUMBER := 0-1962.0724
2928 , p3_a39 DATE := fnd_api.g_miss_date
2929 , p3_a40 NUMBER := 0-1962.0724
2930 , p3_a41 DATE := fnd_api.g_miss_date
2931 , p3_a42 NUMBER := 0-1962.0724
2932 , p3_a43 NUMBER := 0-1962.0724
2933 )
2934
2935 as
2936 ddp_polv_rec okl_pool_pvt.polv_rec_type;
2937 ddindx binary_integer; indx binary_integer;
2938 begin
2939
2940 -- copy data to the local IN or IN-OUT args, if any
2941
2942
2943
2944 ddp_polv_rec.id := rosetta_g_miss_num_map(p3_a0);
2945 ddp_polv_rec.object_version_number := rosetta_g_miss_num_map(p3_a1);
2946 ddp_polv_rec.pot_id := rosetta_g_miss_num_map(p3_a2);
2947 ddp_polv_rec.khr_id := rosetta_g_miss_num_map(p3_a3);
2948 ddp_polv_rec.pool_number := p3_a4;
2949 ddp_polv_rec.description := p3_a5;
2950 ddp_polv_rec.short_description := p3_a6;
2951 ddp_polv_rec.currency_code := p3_a7;
2952 ddp_polv_rec.total_principal_amount := rosetta_g_miss_num_map(p3_a8);
2953 ddp_polv_rec.total_receivable_amount := rosetta_g_miss_num_map(p3_a9);
2954 ddp_polv_rec.securities_credit_rating := p3_a10;
2955 ddp_polv_rec.date_created := rosetta_g_miss_date_in_map(p3_a11);
2956 ddp_polv_rec.date_last_updated := rosetta_g_miss_date_in_map(p3_a12);
2957 ddp_polv_rec.date_last_reconciled := rosetta_g_miss_date_in_map(p3_a13);
2958 ddp_polv_rec.date_total_principal_calc := rosetta_g_miss_date_in_map(p3_a14);
2959 ddp_polv_rec.status_code := p3_a15;
2960 ddp_polv_rec.display_in_lease_center := p3_a16;
2961 ddp_polv_rec.attribute_category := p3_a17;
2962 ddp_polv_rec.attribute1 := p3_a18;
2963 ddp_polv_rec.attribute2 := p3_a19;
2964 ddp_polv_rec.attribute3 := p3_a20;
2965 ddp_polv_rec.attribute4 := p3_a21;
2966 ddp_polv_rec.attribute5 := p3_a22;
2967 ddp_polv_rec.attribute6 := p3_a23;
2968 ddp_polv_rec.attribute7 := p3_a24;
2969 ddp_polv_rec.attribute8 := p3_a25;
2970 ddp_polv_rec.attribute9 := p3_a26;
2971 ddp_polv_rec.attribute10 := p3_a27;
2972 ddp_polv_rec.attribute11 := p3_a28;
2973 ddp_polv_rec.attribute12 := p3_a29;
2974 ddp_polv_rec.attribute13 := p3_a30;
2975 ddp_polv_rec.attribute14 := p3_a31;
2976 ddp_polv_rec.attribute15 := p3_a32;
2977 ddp_polv_rec.org_id := rosetta_g_miss_num_map(p3_a33);
2978 ddp_polv_rec.request_id := rosetta_g_miss_num_map(p3_a34);
2979 ddp_polv_rec.program_application_id := rosetta_g_miss_num_map(p3_a35);
2980 ddp_polv_rec.program_id := rosetta_g_miss_num_map(p3_a36);
2981 ddp_polv_rec.program_update_date := rosetta_g_miss_date_in_map(p3_a37);
2982 ddp_polv_rec.created_by := rosetta_g_miss_num_map(p3_a38);
2983 ddp_polv_rec.creation_date := rosetta_g_miss_date_in_map(p3_a39);
2984 ddp_polv_rec.last_updated_by := rosetta_g_miss_num_map(p3_a40);
2985 ddp_polv_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a41);
2986 ddp_polv_rec.last_update_login := rosetta_g_miss_num_map(p3_a42);
2987 ddp_polv_rec.legal_entity_id := rosetta_g_miss_num_map(p3_a43);
2988
2989
2990
2991
2992
2993 -- here's the delegated call to the old PL/SQL routine
2994 okl_pool_pvt.validate_pool(p_api_version,
2995 p_init_msg_list,
2996 p_api_name,
2997 ddp_polv_rec,
2998 p_action,
2999 x_return_status,
3000 x_msg_count,
3001 x_msg_data);
3002
3003 -- copy data back from the local variables to OUT or IN-OUT args, if any
3004
3005
3006
3007
3008
3009
3010
3011 end;
3012
3013 end okl_pool_pvt_w;