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