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