[Home] [Help]
PACKAGE BODY: APPS.OKL_LATE_POLICIES_PUB_W
Source
1 package body okl_late_policies_pub_w as
2 /* $Header: OKLULPOB.pls 115.5 2003/11/06 01:33:10 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 insert_late_policies(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_VARCHAR2_TABLE_2000
30 , p5_a3 JTF_VARCHAR2_TABLE_2000
31 , p5_a4 JTF_NUMBER_TABLE
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_VARCHAR2_TABLE_100
35 , p5_a8 JTF_NUMBER_TABLE
36 , p5_a9 JTF_VARCHAR2_TABLE_100
37 , p5_a10 JTF_VARCHAR2_TABLE_100
38 , p5_a11 JTF_NUMBER_TABLE
39 , p5_a12 JTF_NUMBER_TABLE
40 , p5_a13 JTF_NUMBER_TABLE
41 , p5_a14 JTF_NUMBER_TABLE
42 , p5_a15 JTF_NUMBER_TABLE
43 , p5_a16 JTF_NUMBER_TABLE
44 , p5_a17 JTF_VARCHAR2_TABLE_100
45 , p5_a18 JTF_VARCHAR2_TABLE_100
46 , p5_a19 JTF_NUMBER_TABLE
47 , p5_a20 JTF_NUMBER_TABLE
48 , p5_a21 JTF_NUMBER_TABLE
49 , p5_a22 JTF_NUMBER_TABLE
50 , p5_a23 JTF_NUMBER_TABLE
51 , p5_a24 JTF_NUMBER_TABLE
52 , p5_a25 JTF_VARCHAR2_TABLE_100
53 , p5_a26 JTF_VARCHAR2_TABLE_500
54 , p5_a27 JTF_VARCHAR2_TABLE_500
55 , p5_a28 JTF_VARCHAR2_TABLE_500
56 , p5_a29 JTF_VARCHAR2_TABLE_500
57 , p5_a30 JTF_VARCHAR2_TABLE_500
58 , p5_a31 JTF_VARCHAR2_TABLE_500
59 , p5_a32 JTF_VARCHAR2_TABLE_500
60 , p5_a33 JTF_VARCHAR2_TABLE_500
61 , p5_a34 JTF_VARCHAR2_TABLE_500
62 , p5_a35 JTF_VARCHAR2_TABLE_500
63 , p5_a36 JTF_VARCHAR2_TABLE_500
64 , p5_a37 JTF_VARCHAR2_TABLE_500
65 , p5_a38 JTF_VARCHAR2_TABLE_500
66 , p5_a39 JTF_VARCHAR2_TABLE_500
67 , p5_a40 JTF_VARCHAR2_TABLE_500
68 , p5_a41 JTF_NUMBER_TABLE
69 , p5_a42 JTF_DATE_TABLE
70 , p5_a43 JTF_NUMBER_TABLE
71 , p5_a44 JTF_DATE_TABLE
72 , p5_a45 JTF_NUMBER_TABLE
73 , p5_a46 JTF_VARCHAR2_TABLE_100
74 , p6_a0 out nocopy JTF_NUMBER_TABLE
75 , p6_a1 out nocopy JTF_NUMBER_TABLE
76 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
77 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_2000
78 , p6_a4 out nocopy JTF_NUMBER_TABLE
79 , p6_a5 out nocopy JTF_NUMBER_TABLE
80 , p6_a6 out nocopy JTF_NUMBER_TABLE
81 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
82 , p6_a8 out nocopy JTF_NUMBER_TABLE
83 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
84 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
85 , p6_a11 out nocopy JTF_NUMBER_TABLE
86 , p6_a12 out nocopy JTF_NUMBER_TABLE
87 , p6_a13 out nocopy JTF_NUMBER_TABLE
88 , p6_a14 out nocopy JTF_NUMBER_TABLE
89 , p6_a15 out nocopy JTF_NUMBER_TABLE
90 , p6_a16 out nocopy JTF_NUMBER_TABLE
91 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
92 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
93 , p6_a19 out nocopy JTF_NUMBER_TABLE
94 , p6_a20 out nocopy JTF_NUMBER_TABLE
95 , p6_a21 out nocopy JTF_NUMBER_TABLE
96 , p6_a22 out nocopy JTF_NUMBER_TABLE
97 , p6_a23 out nocopy JTF_NUMBER_TABLE
98 , p6_a24 out nocopy JTF_NUMBER_TABLE
99 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
100 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
101 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
102 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
103 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
104 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
105 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
106 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
107 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
108 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
109 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
110 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
111 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
112 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
113 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
114 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
115 , p6_a41 out nocopy JTF_NUMBER_TABLE
116 , p6_a42 out nocopy JTF_DATE_TABLE
117 , p6_a43 out nocopy JTF_NUMBER_TABLE
118 , p6_a44 out nocopy JTF_DATE_TABLE
119 , p6_a45 out nocopy JTF_NUMBER_TABLE
120 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_100
121 )
122
123 as
124 ddp_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
125 ddx_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
126 ddindx binary_integer; indx binary_integer;
127 begin
128
129 -- copy data to the local IN or IN-OUT args, if any
130
131
132
133
134
135 okl_lpo_pvt_w.rosetta_table_copy_in_p2(ddp_lpov_tbl, p5_a0
136 , p5_a1
137 , p5_a2
138 , p5_a3
139 , p5_a4
140 , p5_a5
141 , p5_a6
142 , p5_a7
143 , p5_a8
144 , p5_a9
145 , p5_a10
146 , p5_a11
147 , p5_a12
148 , p5_a13
149 , p5_a14
150 , p5_a15
151 , p5_a16
152 , p5_a17
153 , p5_a18
154 , p5_a19
155 , p5_a20
156 , p5_a21
157 , p5_a22
158 , p5_a23
159 , p5_a24
160 , p5_a25
161 , p5_a26
162 , p5_a27
163 , p5_a28
164 , p5_a29
165 , p5_a30
166 , p5_a31
167 , p5_a32
168 , p5_a33
169 , p5_a34
170 , p5_a35
171 , p5_a36
172 , p5_a37
173 , p5_a38
174 , p5_a39
175 , p5_a40
176 , p5_a41
177 , p5_a42
178 , p5_a43
179 , p5_a44
180 , p5_a45
181 , p5_a46
182 );
183
184
185 -- here's the delegated call to the old PL/SQL routine
186 okl_late_policies_pub.insert_late_policies(p_api_version,
187 p_init_msg_list,
188 x_return_status,
189 x_msg_count,
190 x_msg_data,
191 ddp_lpov_tbl,
192 ddx_lpov_tbl);
193
194 -- copy data back from the local variables to OUT or IN-OUT args, if any
195
196
197
198
199
200
201 okl_lpo_pvt_w.rosetta_table_copy_out_p2(ddx_lpov_tbl, p6_a0
202 , p6_a1
203 , p6_a2
204 , p6_a3
205 , p6_a4
206 , p6_a5
207 , p6_a6
208 , p6_a7
209 , p6_a8
210 , p6_a9
211 , p6_a10
212 , p6_a11
213 , p6_a12
214 , p6_a13
215 , p6_a14
216 , p6_a15
217 , p6_a16
218 , p6_a17
219 , p6_a18
220 , p6_a19
221 , p6_a20
222 , p6_a21
223 , p6_a22
224 , p6_a23
225 , p6_a24
226 , p6_a25
227 , p6_a26
228 , p6_a27
229 , p6_a28
230 , p6_a29
231 , p6_a30
232 , p6_a31
233 , p6_a32
234 , p6_a33
235 , p6_a34
236 , p6_a35
237 , p6_a36
238 , p6_a37
239 , p6_a38
240 , p6_a39
241 , p6_a40
242 , p6_a41
243 , p6_a42
244 , p6_a43
245 , p6_a44
246 , p6_a45
247 , p6_a46
248 );
249 end;
250
251 procedure insert_late_policies(p_api_version NUMBER
252 , p_init_msg_list VARCHAR2
253 , x_return_status out nocopy VARCHAR2
254 , x_msg_count out nocopy NUMBER
255 , x_msg_data out nocopy VARCHAR2
256 , p6_a0 out nocopy NUMBER
257 , p6_a1 out nocopy NUMBER
258 , p6_a2 out nocopy VARCHAR2
259 , p6_a3 out nocopy VARCHAR2
260 , p6_a4 out nocopy NUMBER
261 , p6_a5 out nocopy NUMBER
262 , p6_a6 out nocopy NUMBER
263 , p6_a7 out nocopy VARCHAR2
264 , p6_a8 out nocopy NUMBER
265 , p6_a9 out nocopy VARCHAR2
266 , p6_a10 out nocopy VARCHAR2
267 , p6_a11 out nocopy NUMBER
268 , p6_a12 out nocopy NUMBER
269 , p6_a13 out nocopy NUMBER
270 , p6_a14 out nocopy NUMBER
271 , p6_a15 out nocopy NUMBER
272 , p6_a16 out nocopy NUMBER
273 , p6_a17 out nocopy VARCHAR2
274 , p6_a18 out nocopy VARCHAR2
275 , p6_a19 out nocopy NUMBER
276 , p6_a20 out nocopy NUMBER
277 , p6_a21 out nocopy NUMBER
278 , p6_a22 out nocopy NUMBER
279 , p6_a23 out nocopy NUMBER
280 , p6_a24 out nocopy NUMBER
281 , p6_a25 out nocopy VARCHAR2
282 , p6_a26 out nocopy VARCHAR2
283 , p6_a27 out nocopy VARCHAR2
284 , p6_a28 out nocopy VARCHAR2
285 , p6_a29 out nocopy VARCHAR2
286 , p6_a30 out nocopy VARCHAR2
287 , p6_a31 out nocopy VARCHAR2
288 , p6_a32 out nocopy VARCHAR2
289 , p6_a33 out nocopy VARCHAR2
290 , p6_a34 out nocopy VARCHAR2
291 , p6_a35 out nocopy VARCHAR2
292 , p6_a36 out nocopy VARCHAR2
293 , p6_a37 out nocopy VARCHAR2
294 , p6_a38 out nocopy VARCHAR2
295 , p6_a39 out nocopy VARCHAR2
296 , p6_a40 out nocopy VARCHAR2
297 , p6_a41 out nocopy NUMBER
298 , p6_a42 out nocopy DATE
299 , p6_a43 out nocopy NUMBER
300 , p6_a44 out nocopy DATE
301 , p6_a45 out nocopy NUMBER
302 , p6_a46 out nocopy VARCHAR2
303 , p5_a0 NUMBER := 0-1962.0724
304 , p5_a1 NUMBER := 0-1962.0724
305 , p5_a2 VARCHAR2 := okl_api.g_miss_char
306 , p5_a3 VARCHAR2 := okl_api.g_miss_char
307 , p5_a4 NUMBER := 0-1962.0724
308 , p5_a5 NUMBER := 0-1962.0724
309 , p5_a6 NUMBER := 0-1962.0724
310 , p5_a7 VARCHAR2 := okl_api.g_miss_char
311 , p5_a8 NUMBER := 0-1962.0724
312 , p5_a9 VARCHAR2 := okl_api.g_miss_char
313 , p5_a10 VARCHAR2 := okl_api.g_miss_char
314 , p5_a11 NUMBER := 0-1962.0724
315 , p5_a12 NUMBER := 0-1962.0724
316 , p5_a13 NUMBER := 0-1962.0724
317 , p5_a14 NUMBER := 0-1962.0724
318 , p5_a15 NUMBER := 0-1962.0724
319 , p5_a16 NUMBER := 0-1962.0724
320 , p5_a17 VARCHAR2 := okl_api.g_miss_char
321 , p5_a18 VARCHAR2 := okl_api.g_miss_char
322 , p5_a19 NUMBER := 0-1962.0724
323 , p5_a20 NUMBER := 0-1962.0724
324 , p5_a21 NUMBER := 0-1962.0724
325 , p5_a22 NUMBER := 0-1962.0724
326 , p5_a23 NUMBER := 0-1962.0724
327 , p5_a24 NUMBER := 0-1962.0724
328 , p5_a25 VARCHAR2 := okl_api.g_miss_char
329 , p5_a26 VARCHAR2 := okl_api.g_miss_char
330 , p5_a27 VARCHAR2 := okl_api.g_miss_char
331 , p5_a28 VARCHAR2 := okl_api.g_miss_char
332 , p5_a29 VARCHAR2 := okl_api.g_miss_char
333 , p5_a30 VARCHAR2 := okl_api.g_miss_char
334 , p5_a31 VARCHAR2 := okl_api.g_miss_char
335 , p5_a32 VARCHAR2 := okl_api.g_miss_char
336 , p5_a33 VARCHAR2 := okl_api.g_miss_char
337 , p5_a34 VARCHAR2 := okl_api.g_miss_char
338 , p5_a35 VARCHAR2 := okl_api.g_miss_char
339 , p5_a36 VARCHAR2 := okl_api.g_miss_char
340 , p5_a37 VARCHAR2 := okl_api.g_miss_char
341 , p5_a38 VARCHAR2 := okl_api.g_miss_char
342 , p5_a39 VARCHAR2 := okl_api.g_miss_char
343 , p5_a40 VARCHAR2 := okl_api.g_miss_char
344 , p5_a41 NUMBER := 0-1962.0724
345 , p5_a42 DATE := okl_api.g_miss_date
346 , p5_a43 NUMBER := 0-1962.0724
347 , p5_a44 DATE := okl_api.g_miss_date
348 , p5_a45 NUMBER := 0-1962.0724
349 , p5_a46 VARCHAR2 := okl_api.g_miss_char
350 )
351
352 as
353 ddp_lpov_rec okl_late_policies_pub.lpov_rec_type;
354 ddx_lpov_rec okl_late_policies_pub.lpov_rec_type;
355 ddindx binary_integer; indx binary_integer;
356 begin
357
358 -- copy data to the local IN or IN-OUT args, if any
359
360
361
362
363
364 ddp_lpov_rec.id := rosetta_g_miss_num_map(p5_a0);
365 ddp_lpov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
366 ddp_lpov_rec.name := p5_a2;
367 ddp_lpov_rec.description := p5_a3;
368 ddp_lpov_rec.ise_id := rosetta_g_miss_num_map(p5_a4);
369 ddp_lpov_rec.tdf_id := rosetta_g_miss_num_map(p5_a5);
370 ddp_lpov_rec.idx_id := rosetta_g_miss_num_map(p5_a6);
371 ddp_lpov_rec.late_policy_type_code := p5_a7;
372 ddp_lpov_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
373 ddp_lpov_rec.late_chrg_allowed_yn := p5_a9;
374 ddp_lpov_rec.late_chrg_fixed_yn := p5_a10;
375 ddp_lpov_rec.late_chrg_amount := rosetta_g_miss_num_map(p5_a11);
376 ddp_lpov_rec.late_chrg_rate := rosetta_g_miss_num_map(p5_a12);
377 ddp_lpov_rec.late_chrg_grace_period := rosetta_g_miss_num_map(p5_a13);
378 ddp_lpov_rec.late_chrg_minimum_balance := rosetta_g_miss_num_map(p5_a14);
379 ddp_lpov_rec.minimum_late_charge := rosetta_g_miss_num_map(p5_a15);
380 ddp_lpov_rec.maximum_late_charge := rosetta_g_miss_num_map(p5_a16);
381 ddp_lpov_rec.late_int_allowed_yn := p5_a17;
382 ddp_lpov_rec.late_int_fixed_yn := p5_a18;
383 ddp_lpov_rec.late_int_rate := rosetta_g_miss_num_map(p5_a19);
384 ddp_lpov_rec.adder_rate := rosetta_g_miss_num_map(p5_a20);
385 ddp_lpov_rec.late_int_grace_period := rosetta_g_miss_num_map(p5_a21);
386 ddp_lpov_rec.late_int_minimum_balance := rosetta_g_miss_num_map(p5_a22);
387 ddp_lpov_rec.minimum_late_interest := rosetta_g_miss_num_map(p5_a23);
388 ddp_lpov_rec.maximum_late_interest := rosetta_g_miss_num_map(p5_a24);
389 ddp_lpov_rec.attribute_category := p5_a25;
390 ddp_lpov_rec.attribute1 := p5_a26;
391 ddp_lpov_rec.attribute2 := p5_a27;
392 ddp_lpov_rec.attribute3 := p5_a28;
393 ddp_lpov_rec.attribute4 := p5_a29;
394 ddp_lpov_rec.attribute5 := p5_a30;
395 ddp_lpov_rec.attribute6 := p5_a31;
396 ddp_lpov_rec.attribute7 := p5_a32;
397 ddp_lpov_rec.attribute8 := p5_a33;
398 ddp_lpov_rec.attribute9 := p5_a34;
399 ddp_lpov_rec.attribute10 := p5_a35;
400 ddp_lpov_rec.attribute11 := p5_a36;
401 ddp_lpov_rec.attribute12 := p5_a37;
402 ddp_lpov_rec.attribute13 := p5_a38;
403 ddp_lpov_rec.attribute14 := p5_a39;
404 ddp_lpov_rec.attribute15 := p5_a40;
405 ddp_lpov_rec.created_by := rosetta_g_miss_num_map(p5_a41);
406 ddp_lpov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a42);
407 ddp_lpov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a43);
408 ddp_lpov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a44);
409 ddp_lpov_rec.last_update_login := rosetta_g_miss_num_map(p5_a45);
410 ddp_lpov_rec.days_in_year := p5_a46;
411
412
413 -- here's the delegated call to the old PL/SQL routine
414 okl_late_policies_pub.insert_late_policies(p_api_version,
415 p_init_msg_list,
416 x_return_status,
417 x_msg_count,
418 x_msg_data,
419 ddp_lpov_rec,
420 ddx_lpov_rec);
421
422 -- copy data back from the local variables to OUT or IN-OUT args, if any
423
424
425
426
427
428
429 p6_a0 := rosetta_g_miss_num_map(ddx_lpov_rec.id);
430 p6_a1 := rosetta_g_miss_num_map(ddx_lpov_rec.org_id);
431 p6_a2 := ddx_lpov_rec.name;
432 p6_a3 := ddx_lpov_rec.description;
433 p6_a4 := rosetta_g_miss_num_map(ddx_lpov_rec.ise_id);
434 p6_a5 := rosetta_g_miss_num_map(ddx_lpov_rec.tdf_id);
435 p6_a6 := rosetta_g_miss_num_map(ddx_lpov_rec.idx_id);
436 p6_a7 := ddx_lpov_rec.late_policy_type_code;
437 p6_a8 := rosetta_g_miss_num_map(ddx_lpov_rec.object_version_number);
438 p6_a9 := ddx_lpov_rec.late_chrg_allowed_yn;
439 p6_a10 := ddx_lpov_rec.late_chrg_fixed_yn;
440 p6_a11 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_amount);
441 p6_a12 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_rate);
442 p6_a13 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_grace_period);
443 p6_a14 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_minimum_balance);
444 p6_a15 := rosetta_g_miss_num_map(ddx_lpov_rec.minimum_late_charge);
445 p6_a16 := rosetta_g_miss_num_map(ddx_lpov_rec.maximum_late_charge);
446 p6_a17 := ddx_lpov_rec.late_int_allowed_yn;
447 p6_a18 := ddx_lpov_rec.late_int_fixed_yn;
448 p6_a19 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_rate);
449 p6_a20 := rosetta_g_miss_num_map(ddx_lpov_rec.adder_rate);
450 p6_a21 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_grace_period);
451 p6_a22 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_minimum_balance);
452 p6_a23 := rosetta_g_miss_num_map(ddx_lpov_rec.minimum_late_interest);
453 p6_a24 := rosetta_g_miss_num_map(ddx_lpov_rec.maximum_late_interest);
454 p6_a25 := ddx_lpov_rec.attribute_category;
455 p6_a26 := ddx_lpov_rec.attribute1;
456 p6_a27 := ddx_lpov_rec.attribute2;
457 p6_a28 := ddx_lpov_rec.attribute3;
458 p6_a29 := ddx_lpov_rec.attribute4;
459 p6_a30 := ddx_lpov_rec.attribute5;
460 p6_a31 := ddx_lpov_rec.attribute6;
461 p6_a32 := ddx_lpov_rec.attribute7;
462 p6_a33 := ddx_lpov_rec.attribute8;
463 p6_a34 := ddx_lpov_rec.attribute9;
464 p6_a35 := ddx_lpov_rec.attribute10;
465 p6_a36 := ddx_lpov_rec.attribute11;
466 p6_a37 := ddx_lpov_rec.attribute12;
467 p6_a38 := ddx_lpov_rec.attribute13;
468 p6_a39 := ddx_lpov_rec.attribute14;
469 p6_a40 := ddx_lpov_rec.attribute15;
470 p6_a41 := rosetta_g_miss_num_map(ddx_lpov_rec.created_by);
471 p6_a42 := ddx_lpov_rec.creation_date;
472 p6_a43 := rosetta_g_miss_num_map(ddx_lpov_rec.last_updated_by);
473 p6_a44 := ddx_lpov_rec.last_update_date;
474 p6_a45 := rosetta_g_miss_num_map(ddx_lpov_rec.last_update_login);
475 p6_a46 := ddx_lpov_rec.days_in_year;
476 end;
477
478 procedure lock_late_policies(p_api_version NUMBER
479 , p_init_msg_list VARCHAR2
480 , x_return_status out nocopy VARCHAR2
481 , x_msg_count out nocopy NUMBER
482 , x_msg_data out nocopy VARCHAR2
483 , p5_a0 JTF_NUMBER_TABLE
484 , p5_a1 JTF_NUMBER_TABLE
485 , p5_a2 JTF_VARCHAR2_TABLE_2000
486 , p5_a3 JTF_VARCHAR2_TABLE_2000
487 , p5_a4 JTF_NUMBER_TABLE
488 , p5_a5 JTF_NUMBER_TABLE
489 , p5_a6 JTF_NUMBER_TABLE
490 , p5_a7 JTF_VARCHAR2_TABLE_100
491 , p5_a8 JTF_NUMBER_TABLE
492 , p5_a9 JTF_VARCHAR2_TABLE_100
493 , p5_a10 JTF_VARCHAR2_TABLE_100
494 , p5_a11 JTF_NUMBER_TABLE
495 , p5_a12 JTF_NUMBER_TABLE
496 , p5_a13 JTF_NUMBER_TABLE
497 , p5_a14 JTF_NUMBER_TABLE
498 , p5_a15 JTF_NUMBER_TABLE
499 , p5_a16 JTF_NUMBER_TABLE
500 , p5_a17 JTF_VARCHAR2_TABLE_100
501 , p5_a18 JTF_VARCHAR2_TABLE_100
502 , p5_a19 JTF_NUMBER_TABLE
503 , p5_a20 JTF_NUMBER_TABLE
504 , p5_a21 JTF_NUMBER_TABLE
505 , p5_a22 JTF_NUMBER_TABLE
506 , p5_a23 JTF_NUMBER_TABLE
507 , p5_a24 JTF_NUMBER_TABLE
508 , p5_a25 JTF_VARCHAR2_TABLE_100
509 , p5_a26 JTF_VARCHAR2_TABLE_500
510 , p5_a27 JTF_VARCHAR2_TABLE_500
511 , p5_a28 JTF_VARCHAR2_TABLE_500
512 , p5_a29 JTF_VARCHAR2_TABLE_500
513 , p5_a30 JTF_VARCHAR2_TABLE_500
514 , p5_a31 JTF_VARCHAR2_TABLE_500
515 , p5_a32 JTF_VARCHAR2_TABLE_500
516 , p5_a33 JTF_VARCHAR2_TABLE_500
517 , p5_a34 JTF_VARCHAR2_TABLE_500
518 , p5_a35 JTF_VARCHAR2_TABLE_500
519 , p5_a36 JTF_VARCHAR2_TABLE_500
520 , p5_a37 JTF_VARCHAR2_TABLE_500
521 , p5_a38 JTF_VARCHAR2_TABLE_500
522 , p5_a39 JTF_VARCHAR2_TABLE_500
523 , p5_a40 JTF_VARCHAR2_TABLE_500
524 , p5_a41 JTF_NUMBER_TABLE
525 , p5_a42 JTF_DATE_TABLE
526 , p5_a43 JTF_NUMBER_TABLE
527 , p5_a44 JTF_DATE_TABLE
528 , p5_a45 JTF_NUMBER_TABLE
529 , p5_a46 JTF_VARCHAR2_TABLE_100
530 )
531
532 as
533 ddp_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
534 ddindx binary_integer; indx binary_integer;
535 begin
536
537 -- copy data to the local IN or IN-OUT args, if any
538
539
540
541
542
543 okl_lpo_pvt_w.rosetta_table_copy_in_p2(ddp_lpov_tbl, p5_a0
544 , p5_a1
545 , p5_a2
546 , p5_a3
547 , p5_a4
548 , p5_a5
549 , p5_a6
550 , p5_a7
551 , p5_a8
552 , p5_a9
553 , p5_a10
554 , p5_a11
555 , p5_a12
556 , p5_a13
557 , p5_a14
558 , p5_a15
559 , p5_a16
560 , p5_a17
561 , p5_a18
562 , p5_a19
563 , p5_a20
564 , p5_a21
565 , p5_a22
566 , p5_a23
567 , p5_a24
568 , p5_a25
569 , p5_a26
570 , p5_a27
571 , p5_a28
572 , p5_a29
573 , p5_a30
574 , p5_a31
575 , p5_a32
576 , p5_a33
577 , p5_a34
578 , p5_a35
579 , p5_a36
580 , p5_a37
581 , p5_a38
582 , p5_a39
583 , p5_a40
584 , p5_a41
585 , p5_a42
586 , p5_a43
587 , p5_a44
588 , p5_a45
589 , p5_a46
590 );
591
592 -- here's the delegated call to the old PL/SQL routine
593 okl_late_policies_pub.lock_late_policies(p_api_version,
594 p_init_msg_list,
595 x_return_status,
596 x_msg_count,
597 x_msg_data,
598 ddp_lpov_tbl);
599
600 -- copy data back from the local variables to OUT or IN-OUT args, if any
601
602
603
604
605
606 end;
607
608 procedure lock_late_policies(p_api_version NUMBER
609 , p_init_msg_list VARCHAR2
610 , x_return_status out nocopy VARCHAR2
611 , x_msg_count out nocopy NUMBER
612 , x_msg_data out nocopy VARCHAR2
613 , p5_a0 NUMBER := 0-1962.0724
614 , p5_a1 NUMBER := 0-1962.0724
615 , p5_a2 VARCHAR2 := okl_api.g_miss_char
616 , p5_a3 VARCHAR2 := okl_api.g_miss_char
617 , p5_a4 NUMBER := 0-1962.0724
618 , p5_a5 NUMBER := 0-1962.0724
619 , p5_a6 NUMBER := 0-1962.0724
620 , p5_a7 VARCHAR2 := okl_api.g_miss_char
621 , p5_a8 NUMBER := 0-1962.0724
622 , p5_a9 VARCHAR2 := okl_api.g_miss_char
623 , p5_a10 VARCHAR2 := okl_api.g_miss_char
624 , p5_a11 NUMBER := 0-1962.0724
625 , p5_a12 NUMBER := 0-1962.0724
626 , p5_a13 NUMBER := 0-1962.0724
627 , p5_a14 NUMBER := 0-1962.0724
628 , p5_a15 NUMBER := 0-1962.0724
629 , p5_a16 NUMBER := 0-1962.0724
630 , p5_a17 VARCHAR2 := okl_api.g_miss_char
631 , p5_a18 VARCHAR2 := okl_api.g_miss_char
632 , p5_a19 NUMBER := 0-1962.0724
633 , p5_a20 NUMBER := 0-1962.0724
634 , p5_a21 NUMBER := 0-1962.0724
635 , p5_a22 NUMBER := 0-1962.0724
636 , p5_a23 NUMBER := 0-1962.0724
637 , p5_a24 NUMBER := 0-1962.0724
638 , p5_a25 VARCHAR2 := okl_api.g_miss_char
639 , p5_a26 VARCHAR2 := okl_api.g_miss_char
640 , p5_a27 VARCHAR2 := okl_api.g_miss_char
641 , p5_a28 VARCHAR2 := okl_api.g_miss_char
642 , p5_a29 VARCHAR2 := okl_api.g_miss_char
643 , p5_a30 VARCHAR2 := okl_api.g_miss_char
644 , p5_a31 VARCHAR2 := okl_api.g_miss_char
645 , p5_a32 VARCHAR2 := okl_api.g_miss_char
646 , p5_a33 VARCHAR2 := okl_api.g_miss_char
647 , p5_a34 VARCHAR2 := okl_api.g_miss_char
648 , p5_a35 VARCHAR2 := okl_api.g_miss_char
649 , p5_a36 VARCHAR2 := okl_api.g_miss_char
650 , p5_a37 VARCHAR2 := okl_api.g_miss_char
651 , p5_a38 VARCHAR2 := okl_api.g_miss_char
652 , p5_a39 VARCHAR2 := okl_api.g_miss_char
653 , p5_a40 VARCHAR2 := okl_api.g_miss_char
654 , p5_a41 NUMBER := 0-1962.0724
655 , p5_a42 DATE := okl_api.g_miss_date
656 , p5_a43 NUMBER := 0-1962.0724
657 , p5_a44 DATE := okl_api.g_miss_date
658 , p5_a45 NUMBER := 0-1962.0724
659 , p5_a46 VARCHAR2 := okl_api.g_miss_char
660 )
661
662 as
663 ddp_lpov_rec okl_late_policies_pub.lpov_rec_type;
664 ddindx binary_integer; indx binary_integer;
665 begin
666
667 -- copy data to the local IN or IN-OUT args, if any
668
669
670
671
672
673 ddp_lpov_rec.id := rosetta_g_miss_num_map(p5_a0);
674 ddp_lpov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
675 ddp_lpov_rec.name := p5_a2;
676 ddp_lpov_rec.description := p5_a3;
677 ddp_lpov_rec.ise_id := rosetta_g_miss_num_map(p5_a4);
678 ddp_lpov_rec.tdf_id := rosetta_g_miss_num_map(p5_a5);
679 ddp_lpov_rec.idx_id := rosetta_g_miss_num_map(p5_a6);
680 ddp_lpov_rec.late_policy_type_code := p5_a7;
681 ddp_lpov_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
682 ddp_lpov_rec.late_chrg_allowed_yn := p5_a9;
683 ddp_lpov_rec.late_chrg_fixed_yn := p5_a10;
684 ddp_lpov_rec.late_chrg_amount := rosetta_g_miss_num_map(p5_a11);
685 ddp_lpov_rec.late_chrg_rate := rosetta_g_miss_num_map(p5_a12);
686 ddp_lpov_rec.late_chrg_grace_period := rosetta_g_miss_num_map(p5_a13);
687 ddp_lpov_rec.late_chrg_minimum_balance := rosetta_g_miss_num_map(p5_a14);
688 ddp_lpov_rec.minimum_late_charge := rosetta_g_miss_num_map(p5_a15);
689 ddp_lpov_rec.maximum_late_charge := rosetta_g_miss_num_map(p5_a16);
690 ddp_lpov_rec.late_int_allowed_yn := p5_a17;
691 ddp_lpov_rec.late_int_fixed_yn := p5_a18;
692 ddp_lpov_rec.late_int_rate := rosetta_g_miss_num_map(p5_a19);
693 ddp_lpov_rec.adder_rate := rosetta_g_miss_num_map(p5_a20);
694 ddp_lpov_rec.late_int_grace_period := rosetta_g_miss_num_map(p5_a21);
695 ddp_lpov_rec.late_int_minimum_balance := rosetta_g_miss_num_map(p5_a22);
696 ddp_lpov_rec.minimum_late_interest := rosetta_g_miss_num_map(p5_a23);
697 ddp_lpov_rec.maximum_late_interest := rosetta_g_miss_num_map(p5_a24);
698 ddp_lpov_rec.attribute_category := p5_a25;
699 ddp_lpov_rec.attribute1 := p5_a26;
700 ddp_lpov_rec.attribute2 := p5_a27;
701 ddp_lpov_rec.attribute3 := p5_a28;
702 ddp_lpov_rec.attribute4 := p5_a29;
703 ddp_lpov_rec.attribute5 := p5_a30;
704 ddp_lpov_rec.attribute6 := p5_a31;
705 ddp_lpov_rec.attribute7 := p5_a32;
706 ddp_lpov_rec.attribute8 := p5_a33;
707 ddp_lpov_rec.attribute9 := p5_a34;
708 ddp_lpov_rec.attribute10 := p5_a35;
709 ddp_lpov_rec.attribute11 := p5_a36;
710 ddp_lpov_rec.attribute12 := p5_a37;
711 ddp_lpov_rec.attribute13 := p5_a38;
712 ddp_lpov_rec.attribute14 := p5_a39;
713 ddp_lpov_rec.attribute15 := p5_a40;
714 ddp_lpov_rec.created_by := rosetta_g_miss_num_map(p5_a41);
715 ddp_lpov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a42);
716 ddp_lpov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a43);
717 ddp_lpov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a44);
718 ddp_lpov_rec.last_update_login := rosetta_g_miss_num_map(p5_a45);
719 ddp_lpov_rec.days_in_year := p5_a46;
720
721 -- here's the delegated call to the old PL/SQL routine
722 okl_late_policies_pub.lock_late_policies(p_api_version,
723 p_init_msg_list,
724 x_return_status,
725 x_msg_count,
726 x_msg_data,
727 ddp_lpov_rec);
728
729 -- copy data back from the local variables to OUT or IN-OUT args, if any
730
731
732
733
734
735 end;
736
737 procedure update_late_policies(p_api_version NUMBER
738 , p_init_msg_list VARCHAR2
739 , x_return_status out nocopy VARCHAR2
740 , x_msg_count out nocopy NUMBER
741 , x_msg_data out nocopy VARCHAR2
742 , p5_a0 JTF_NUMBER_TABLE
743 , p5_a1 JTF_NUMBER_TABLE
744 , p5_a2 JTF_VARCHAR2_TABLE_2000
745 , p5_a3 JTF_VARCHAR2_TABLE_2000
746 , p5_a4 JTF_NUMBER_TABLE
747 , p5_a5 JTF_NUMBER_TABLE
748 , p5_a6 JTF_NUMBER_TABLE
749 , p5_a7 JTF_VARCHAR2_TABLE_100
750 , p5_a8 JTF_NUMBER_TABLE
751 , p5_a9 JTF_VARCHAR2_TABLE_100
752 , p5_a10 JTF_VARCHAR2_TABLE_100
753 , p5_a11 JTF_NUMBER_TABLE
754 , p5_a12 JTF_NUMBER_TABLE
755 , p5_a13 JTF_NUMBER_TABLE
756 , p5_a14 JTF_NUMBER_TABLE
757 , p5_a15 JTF_NUMBER_TABLE
758 , p5_a16 JTF_NUMBER_TABLE
759 , p5_a17 JTF_VARCHAR2_TABLE_100
760 , p5_a18 JTF_VARCHAR2_TABLE_100
761 , p5_a19 JTF_NUMBER_TABLE
762 , p5_a20 JTF_NUMBER_TABLE
763 , p5_a21 JTF_NUMBER_TABLE
764 , p5_a22 JTF_NUMBER_TABLE
765 , p5_a23 JTF_NUMBER_TABLE
766 , p5_a24 JTF_NUMBER_TABLE
767 , p5_a25 JTF_VARCHAR2_TABLE_100
768 , p5_a26 JTF_VARCHAR2_TABLE_500
769 , p5_a27 JTF_VARCHAR2_TABLE_500
770 , p5_a28 JTF_VARCHAR2_TABLE_500
771 , p5_a29 JTF_VARCHAR2_TABLE_500
772 , p5_a30 JTF_VARCHAR2_TABLE_500
773 , p5_a31 JTF_VARCHAR2_TABLE_500
774 , p5_a32 JTF_VARCHAR2_TABLE_500
775 , p5_a33 JTF_VARCHAR2_TABLE_500
776 , p5_a34 JTF_VARCHAR2_TABLE_500
777 , p5_a35 JTF_VARCHAR2_TABLE_500
778 , p5_a36 JTF_VARCHAR2_TABLE_500
779 , p5_a37 JTF_VARCHAR2_TABLE_500
780 , p5_a38 JTF_VARCHAR2_TABLE_500
781 , p5_a39 JTF_VARCHAR2_TABLE_500
782 , p5_a40 JTF_VARCHAR2_TABLE_500
783 , p5_a41 JTF_NUMBER_TABLE
784 , p5_a42 JTF_DATE_TABLE
785 , p5_a43 JTF_NUMBER_TABLE
786 , p5_a44 JTF_DATE_TABLE
787 , p5_a45 JTF_NUMBER_TABLE
788 , p5_a46 JTF_VARCHAR2_TABLE_100
789 , p6_a0 out nocopy JTF_NUMBER_TABLE
790 , p6_a1 out nocopy JTF_NUMBER_TABLE
791 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
792 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_2000
793 , p6_a4 out nocopy JTF_NUMBER_TABLE
794 , p6_a5 out nocopy JTF_NUMBER_TABLE
795 , p6_a6 out nocopy JTF_NUMBER_TABLE
796 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
797 , p6_a8 out nocopy JTF_NUMBER_TABLE
798 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
799 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
800 , p6_a11 out nocopy JTF_NUMBER_TABLE
801 , p6_a12 out nocopy JTF_NUMBER_TABLE
802 , p6_a13 out nocopy JTF_NUMBER_TABLE
803 , p6_a14 out nocopy JTF_NUMBER_TABLE
804 , p6_a15 out nocopy JTF_NUMBER_TABLE
805 , p6_a16 out nocopy JTF_NUMBER_TABLE
806 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
807 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
808 , p6_a19 out nocopy JTF_NUMBER_TABLE
809 , p6_a20 out nocopy JTF_NUMBER_TABLE
810 , p6_a21 out nocopy JTF_NUMBER_TABLE
811 , p6_a22 out nocopy JTF_NUMBER_TABLE
812 , p6_a23 out nocopy JTF_NUMBER_TABLE
813 , p6_a24 out nocopy JTF_NUMBER_TABLE
814 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
815 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
816 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
817 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
818 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
819 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
820 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
821 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
822 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
823 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
824 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
825 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
826 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
827 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
828 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
829 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
830 , p6_a41 out nocopy JTF_NUMBER_TABLE
831 , p6_a42 out nocopy JTF_DATE_TABLE
832 , p6_a43 out nocopy JTF_NUMBER_TABLE
833 , p6_a44 out nocopy JTF_DATE_TABLE
834 , p6_a45 out nocopy JTF_NUMBER_TABLE
835 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_100
836 )
837
838 as
839 ddp_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
840 ddx_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
841 ddindx binary_integer; indx binary_integer;
842 begin
843
844 -- copy data to the local IN or IN-OUT args, if any
845
846
847
848
849
850 okl_lpo_pvt_w.rosetta_table_copy_in_p2(ddp_lpov_tbl, p5_a0
851 , p5_a1
852 , p5_a2
853 , p5_a3
854 , p5_a4
855 , p5_a5
856 , p5_a6
857 , p5_a7
858 , p5_a8
859 , p5_a9
860 , p5_a10
861 , p5_a11
862 , p5_a12
863 , p5_a13
864 , p5_a14
865 , p5_a15
866 , p5_a16
867 , p5_a17
868 , p5_a18
869 , p5_a19
870 , p5_a20
871 , p5_a21
872 , p5_a22
873 , p5_a23
874 , p5_a24
875 , p5_a25
876 , p5_a26
877 , p5_a27
878 , p5_a28
879 , p5_a29
880 , p5_a30
881 , p5_a31
882 , p5_a32
883 , p5_a33
884 , p5_a34
885 , p5_a35
886 , p5_a36
887 , p5_a37
888 , p5_a38
889 , p5_a39
890 , p5_a40
891 , p5_a41
892 , p5_a42
893 , p5_a43
894 , p5_a44
895 , p5_a45
896 , p5_a46
897 );
898
899
900 -- here's the delegated call to the old PL/SQL routine
901 okl_late_policies_pub.update_late_policies(p_api_version,
902 p_init_msg_list,
903 x_return_status,
904 x_msg_count,
905 x_msg_data,
906 ddp_lpov_tbl,
907 ddx_lpov_tbl);
908
909 -- copy data back from the local variables to OUT or IN-OUT args, if any
910
911
912
913
914
915
916 okl_lpo_pvt_w.rosetta_table_copy_out_p2(ddx_lpov_tbl, p6_a0
917 , p6_a1
918 , p6_a2
919 , p6_a3
920 , p6_a4
921 , p6_a5
922 , p6_a6
923 , p6_a7
924 , p6_a8
925 , p6_a9
926 , p6_a10
927 , p6_a11
928 , p6_a12
929 , p6_a13
930 , p6_a14
931 , p6_a15
932 , p6_a16
933 , p6_a17
934 , p6_a18
935 , p6_a19
936 , p6_a20
937 , p6_a21
938 , p6_a22
939 , p6_a23
940 , p6_a24
941 , p6_a25
942 , p6_a26
943 , p6_a27
944 , p6_a28
945 , p6_a29
946 , p6_a30
947 , p6_a31
948 , p6_a32
949 , p6_a33
950 , p6_a34
951 , p6_a35
952 , p6_a36
953 , p6_a37
954 , p6_a38
955 , p6_a39
956 , p6_a40
957 , p6_a41
958 , p6_a42
959 , p6_a43
960 , p6_a44
961 , p6_a45
962 , p6_a46
963 );
964 end;
965
966 procedure update_late_policies(p_api_version NUMBER
967 , p_init_msg_list VARCHAR2
968 , x_return_status out nocopy VARCHAR2
969 , x_msg_count out nocopy NUMBER
970 , x_msg_data out nocopy VARCHAR2
971 , p6_a0 out nocopy NUMBER
972 , p6_a1 out nocopy NUMBER
973 , p6_a2 out nocopy VARCHAR2
974 , p6_a3 out nocopy VARCHAR2
975 , p6_a4 out nocopy NUMBER
976 , p6_a5 out nocopy NUMBER
977 , p6_a6 out nocopy NUMBER
978 , p6_a7 out nocopy VARCHAR2
979 , p6_a8 out nocopy NUMBER
980 , p6_a9 out nocopy VARCHAR2
981 , p6_a10 out nocopy VARCHAR2
982 , p6_a11 out nocopy NUMBER
983 , p6_a12 out nocopy NUMBER
984 , p6_a13 out nocopy NUMBER
985 , p6_a14 out nocopy NUMBER
986 , p6_a15 out nocopy NUMBER
987 , p6_a16 out nocopy NUMBER
988 , p6_a17 out nocopy VARCHAR2
989 , p6_a18 out nocopy VARCHAR2
990 , p6_a19 out nocopy NUMBER
991 , p6_a20 out nocopy NUMBER
992 , p6_a21 out nocopy NUMBER
993 , p6_a22 out nocopy NUMBER
994 , p6_a23 out nocopy NUMBER
995 , p6_a24 out nocopy NUMBER
996 , p6_a25 out nocopy VARCHAR2
997 , p6_a26 out nocopy VARCHAR2
998 , p6_a27 out nocopy VARCHAR2
999 , p6_a28 out nocopy VARCHAR2
1000 , p6_a29 out nocopy VARCHAR2
1001 , p6_a30 out nocopy VARCHAR2
1002 , p6_a31 out nocopy VARCHAR2
1003 , p6_a32 out nocopy VARCHAR2
1004 , p6_a33 out nocopy VARCHAR2
1005 , p6_a34 out nocopy VARCHAR2
1006 , p6_a35 out nocopy VARCHAR2
1007 , p6_a36 out nocopy VARCHAR2
1008 , p6_a37 out nocopy VARCHAR2
1009 , p6_a38 out nocopy VARCHAR2
1010 , p6_a39 out nocopy VARCHAR2
1011 , p6_a40 out nocopy VARCHAR2
1012 , p6_a41 out nocopy NUMBER
1013 , p6_a42 out nocopy DATE
1014 , p6_a43 out nocopy NUMBER
1015 , p6_a44 out nocopy DATE
1016 , p6_a45 out nocopy NUMBER
1017 , p6_a46 out nocopy VARCHAR2
1018 , p5_a0 NUMBER := 0-1962.0724
1019 , p5_a1 NUMBER := 0-1962.0724
1020 , p5_a2 VARCHAR2 := okl_api.g_miss_char
1021 , p5_a3 VARCHAR2 := okl_api.g_miss_char
1022 , p5_a4 NUMBER := 0-1962.0724
1023 , p5_a5 NUMBER := 0-1962.0724
1024 , p5_a6 NUMBER := 0-1962.0724
1025 , p5_a7 VARCHAR2 := okl_api.g_miss_char
1026 , p5_a8 NUMBER := 0-1962.0724
1027 , p5_a9 VARCHAR2 := okl_api.g_miss_char
1028 , p5_a10 VARCHAR2 := okl_api.g_miss_char
1029 , p5_a11 NUMBER := 0-1962.0724
1030 , p5_a12 NUMBER := 0-1962.0724
1031 , p5_a13 NUMBER := 0-1962.0724
1032 , p5_a14 NUMBER := 0-1962.0724
1033 , p5_a15 NUMBER := 0-1962.0724
1034 , p5_a16 NUMBER := 0-1962.0724
1035 , p5_a17 VARCHAR2 := okl_api.g_miss_char
1036 , p5_a18 VARCHAR2 := okl_api.g_miss_char
1037 , p5_a19 NUMBER := 0-1962.0724
1038 , p5_a20 NUMBER := 0-1962.0724
1039 , p5_a21 NUMBER := 0-1962.0724
1040 , p5_a22 NUMBER := 0-1962.0724
1041 , p5_a23 NUMBER := 0-1962.0724
1042 , p5_a24 NUMBER := 0-1962.0724
1043 , p5_a25 VARCHAR2 := okl_api.g_miss_char
1044 , p5_a26 VARCHAR2 := okl_api.g_miss_char
1045 , p5_a27 VARCHAR2 := okl_api.g_miss_char
1046 , p5_a28 VARCHAR2 := okl_api.g_miss_char
1047 , p5_a29 VARCHAR2 := okl_api.g_miss_char
1048 , p5_a30 VARCHAR2 := okl_api.g_miss_char
1049 , p5_a31 VARCHAR2 := okl_api.g_miss_char
1050 , p5_a32 VARCHAR2 := okl_api.g_miss_char
1051 , p5_a33 VARCHAR2 := okl_api.g_miss_char
1052 , p5_a34 VARCHAR2 := okl_api.g_miss_char
1053 , p5_a35 VARCHAR2 := okl_api.g_miss_char
1054 , p5_a36 VARCHAR2 := okl_api.g_miss_char
1055 , p5_a37 VARCHAR2 := okl_api.g_miss_char
1056 , p5_a38 VARCHAR2 := okl_api.g_miss_char
1057 , p5_a39 VARCHAR2 := okl_api.g_miss_char
1058 , p5_a40 VARCHAR2 := okl_api.g_miss_char
1059 , p5_a41 NUMBER := 0-1962.0724
1060 , p5_a42 DATE := okl_api.g_miss_date
1061 , p5_a43 NUMBER := 0-1962.0724
1062 , p5_a44 DATE := okl_api.g_miss_date
1063 , p5_a45 NUMBER := 0-1962.0724
1064 , p5_a46 VARCHAR2 := okl_api.g_miss_char
1065 )
1066
1067 as
1068 ddp_lpov_rec okl_late_policies_pub.lpov_rec_type;
1069 ddx_lpov_rec okl_late_policies_pub.lpov_rec_type;
1070 ddindx binary_integer; indx binary_integer;
1071 begin
1072
1073 -- copy data to the local IN or IN-OUT args, if any
1074
1075
1076
1077
1078
1079 ddp_lpov_rec.id := rosetta_g_miss_num_map(p5_a0);
1080 ddp_lpov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1081 ddp_lpov_rec.name := p5_a2;
1082 ddp_lpov_rec.description := p5_a3;
1083 ddp_lpov_rec.ise_id := rosetta_g_miss_num_map(p5_a4);
1084 ddp_lpov_rec.tdf_id := rosetta_g_miss_num_map(p5_a5);
1085 ddp_lpov_rec.idx_id := rosetta_g_miss_num_map(p5_a6);
1086 ddp_lpov_rec.late_policy_type_code := p5_a7;
1087 ddp_lpov_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1088 ddp_lpov_rec.late_chrg_allowed_yn := p5_a9;
1089 ddp_lpov_rec.late_chrg_fixed_yn := p5_a10;
1090 ddp_lpov_rec.late_chrg_amount := rosetta_g_miss_num_map(p5_a11);
1091 ddp_lpov_rec.late_chrg_rate := rosetta_g_miss_num_map(p5_a12);
1092 ddp_lpov_rec.late_chrg_grace_period := rosetta_g_miss_num_map(p5_a13);
1093 ddp_lpov_rec.late_chrg_minimum_balance := rosetta_g_miss_num_map(p5_a14);
1094 ddp_lpov_rec.minimum_late_charge := rosetta_g_miss_num_map(p5_a15);
1095 ddp_lpov_rec.maximum_late_charge := rosetta_g_miss_num_map(p5_a16);
1096 ddp_lpov_rec.late_int_allowed_yn := p5_a17;
1097 ddp_lpov_rec.late_int_fixed_yn := p5_a18;
1098 ddp_lpov_rec.late_int_rate := rosetta_g_miss_num_map(p5_a19);
1099 ddp_lpov_rec.adder_rate := rosetta_g_miss_num_map(p5_a20);
1100 ddp_lpov_rec.late_int_grace_period := rosetta_g_miss_num_map(p5_a21);
1101 ddp_lpov_rec.late_int_minimum_balance := rosetta_g_miss_num_map(p5_a22);
1102 ddp_lpov_rec.minimum_late_interest := rosetta_g_miss_num_map(p5_a23);
1103 ddp_lpov_rec.maximum_late_interest := rosetta_g_miss_num_map(p5_a24);
1104 ddp_lpov_rec.attribute_category := p5_a25;
1105 ddp_lpov_rec.attribute1 := p5_a26;
1106 ddp_lpov_rec.attribute2 := p5_a27;
1107 ddp_lpov_rec.attribute3 := p5_a28;
1108 ddp_lpov_rec.attribute4 := p5_a29;
1109 ddp_lpov_rec.attribute5 := p5_a30;
1110 ddp_lpov_rec.attribute6 := p5_a31;
1111 ddp_lpov_rec.attribute7 := p5_a32;
1112 ddp_lpov_rec.attribute8 := p5_a33;
1113 ddp_lpov_rec.attribute9 := p5_a34;
1114 ddp_lpov_rec.attribute10 := p5_a35;
1115 ddp_lpov_rec.attribute11 := p5_a36;
1116 ddp_lpov_rec.attribute12 := p5_a37;
1117 ddp_lpov_rec.attribute13 := p5_a38;
1118 ddp_lpov_rec.attribute14 := p5_a39;
1119 ddp_lpov_rec.attribute15 := p5_a40;
1120 ddp_lpov_rec.created_by := rosetta_g_miss_num_map(p5_a41);
1121 ddp_lpov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a42);
1122 ddp_lpov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a43);
1123 ddp_lpov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a44);
1124 ddp_lpov_rec.last_update_login := rosetta_g_miss_num_map(p5_a45);
1125 ddp_lpov_rec.days_in_year := p5_a46;
1126
1127
1128 -- here's the delegated call to the old PL/SQL routine
1129 okl_late_policies_pub.update_late_policies(p_api_version,
1130 p_init_msg_list,
1131 x_return_status,
1132 x_msg_count,
1133 x_msg_data,
1134 ddp_lpov_rec,
1135 ddx_lpov_rec);
1136
1137 -- copy data back from the local variables to OUT or IN-OUT args, if any
1138
1139
1140
1141
1142
1143
1144 p6_a0 := rosetta_g_miss_num_map(ddx_lpov_rec.id);
1145 p6_a1 := rosetta_g_miss_num_map(ddx_lpov_rec.org_id);
1146 p6_a2 := ddx_lpov_rec.name;
1147 p6_a3 := ddx_lpov_rec.description;
1148 p6_a4 := rosetta_g_miss_num_map(ddx_lpov_rec.ise_id);
1149 p6_a5 := rosetta_g_miss_num_map(ddx_lpov_rec.tdf_id);
1150 p6_a6 := rosetta_g_miss_num_map(ddx_lpov_rec.idx_id);
1151 p6_a7 := ddx_lpov_rec.late_policy_type_code;
1152 p6_a8 := rosetta_g_miss_num_map(ddx_lpov_rec.object_version_number);
1153 p6_a9 := ddx_lpov_rec.late_chrg_allowed_yn;
1154 p6_a10 := ddx_lpov_rec.late_chrg_fixed_yn;
1155 p6_a11 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_amount);
1156 p6_a12 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_rate);
1157 p6_a13 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_grace_period);
1158 p6_a14 := rosetta_g_miss_num_map(ddx_lpov_rec.late_chrg_minimum_balance);
1159 p6_a15 := rosetta_g_miss_num_map(ddx_lpov_rec.minimum_late_charge);
1160 p6_a16 := rosetta_g_miss_num_map(ddx_lpov_rec.maximum_late_charge);
1161 p6_a17 := ddx_lpov_rec.late_int_allowed_yn;
1162 p6_a18 := ddx_lpov_rec.late_int_fixed_yn;
1163 p6_a19 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_rate);
1164 p6_a20 := rosetta_g_miss_num_map(ddx_lpov_rec.adder_rate);
1165 p6_a21 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_grace_period);
1166 p6_a22 := rosetta_g_miss_num_map(ddx_lpov_rec.late_int_minimum_balance);
1167 p6_a23 := rosetta_g_miss_num_map(ddx_lpov_rec.minimum_late_interest);
1168 p6_a24 := rosetta_g_miss_num_map(ddx_lpov_rec.maximum_late_interest);
1169 p6_a25 := ddx_lpov_rec.attribute_category;
1170 p6_a26 := ddx_lpov_rec.attribute1;
1171 p6_a27 := ddx_lpov_rec.attribute2;
1172 p6_a28 := ddx_lpov_rec.attribute3;
1173 p6_a29 := ddx_lpov_rec.attribute4;
1174 p6_a30 := ddx_lpov_rec.attribute5;
1175 p6_a31 := ddx_lpov_rec.attribute6;
1176 p6_a32 := ddx_lpov_rec.attribute7;
1177 p6_a33 := ddx_lpov_rec.attribute8;
1178 p6_a34 := ddx_lpov_rec.attribute9;
1179 p6_a35 := ddx_lpov_rec.attribute10;
1180 p6_a36 := ddx_lpov_rec.attribute11;
1181 p6_a37 := ddx_lpov_rec.attribute12;
1182 p6_a38 := ddx_lpov_rec.attribute13;
1183 p6_a39 := ddx_lpov_rec.attribute14;
1184 p6_a40 := ddx_lpov_rec.attribute15;
1185 p6_a41 := rosetta_g_miss_num_map(ddx_lpov_rec.created_by);
1186 p6_a42 := ddx_lpov_rec.creation_date;
1187 p6_a43 := rosetta_g_miss_num_map(ddx_lpov_rec.last_updated_by);
1188 p6_a44 := ddx_lpov_rec.last_update_date;
1189 p6_a45 := rosetta_g_miss_num_map(ddx_lpov_rec.last_update_login);
1190 p6_a46 := ddx_lpov_rec.days_in_year;
1191 end;
1192
1193 procedure delete_late_policies(p_api_version NUMBER
1194 , p_init_msg_list VARCHAR2
1195 , x_return_status out nocopy VARCHAR2
1196 , x_msg_count out nocopy NUMBER
1197 , x_msg_data out nocopy VARCHAR2
1198 , p5_a0 JTF_NUMBER_TABLE
1199 , p5_a1 JTF_NUMBER_TABLE
1200 , p5_a2 JTF_VARCHAR2_TABLE_2000
1201 , p5_a3 JTF_VARCHAR2_TABLE_2000
1202 , p5_a4 JTF_NUMBER_TABLE
1203 , p5_a5 JTF_NUMBER_TABLE
1204 , p5_a6 JTF_NUMBER_TABLE
1205 , p5_a7 JTF_VARCHAR2_TABLE_100
1206 , p5_a8 JTF_NUMBER_TABLE
1207 , p5_a9 JTF_VARCHAR2_TABLE_100
1208 , p5_a10 JTF_VARCHAR2_TABLE_100
1209 , p5_a11 JTF_NUMBER_TABLE
1210 , p5_a12 JTF_NUMBER_TABLE
1211 , p5_a13 JTF_NUMBER_TABLE
1212 , p5_a14 JTF_NUMBER_TABLE
1213 , p5_a15 JTF_NUMBER_TABLE
1214 , p5_a16 JTF_NUMBER_TABLE
1215 , p5_a17 JTF_VARCHAR2_TABLE_100
1216 , p5_a18 JTF_VARCHAR2_TABLE_100
1217 , p5_a19 JTF_NUMBER_TABLE
1218 , p5_a20 JTF_NUMBER_TABLE
1219 , p5_a21 JTF_NUMBER_TABLE
1220 , p5_a22 JTF_NUMBER_TABLE
1221 , p5_a23 JTF_NUMBER_TABLE
1222 , p5_a24 JTF_NUMBER_TABLE
1223 , p5_a25 JTF_VARCHAR2_TABLE_100
1224 , p5_a26 JTF_VARCHAR2_TABLE_500
1225 , p5_a27 JTF_VARCHAR2_TABLE_500
1226 , p5_a28 JTF_VARCHAR2_TABLE_500
1227 , p5_a29 JTF_VARCHAR2_TABLE_500
1228 , p5_a30 JTF_VARCHAR2_TABLE_500
1229 , p5_a31 JTF_VARCHAR2_TABLE_500
1230 , p5_a32 JTF_VARCHAR2_TABLE_500
1231 , p5_a33 JTF_VARCHAR2_TABLE_500
1232 , p5_a34 JTF_VARCHAR2_TABLE_500
1233 , p5_a35 JTF_VARCHAR2_TABLE_500
1234 , p5_a36 JTF_VARCHAR2_TABLE_500
1235 , p5_a37 JTF_VARCHAR2_TABLE_500
1236 , p5_a38 JTF_VARCHAR2_TABLE_500
1237 , p5_a39 JTF_VARCHAR2_TABLE_500
1238 , p5_a40 JTF_VARCHAR2_TABLE_500
1239 , p5_a41 JTF_NUMBER_TABLE
1240 , p5_a42 JTF_DATE_TABLE
1241 , p5_a43 JTF_NUMBER_TABLE
1242 , p5_a44 JTF_DATE_TABLE
1243 , p5_a45 JTF_NUMBER_TABLE
1244 , p5_a46 JTF_VARCHAR2_TABLE_100
1245 )
1246
1247 as
1248 ddp_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
1249 ddindx binary_integer; indx binary_integer;
1250 begin
1251
1252 -- copy data to the local IN or IN-OUT args, if any
1253
1254
1255
1256
1257
1258 okl_lpo_pvt_w.rosetta_table_copy_in_p2(ddp_lpov_tbl, p5_a0
1259 , p5_a1
1260 , p5_a2
1261 , p5_a3
1262 , p5_a4
1263 , p5_a5
1264 , p5_a6
1265 , p5_a7
1266 , p5_a8
1267 , p5_a9
1268 , p5_a10
1269 , p5_a11
1270 , p5_a12
1271 , p5_a13
1272 , p5_a14
1273 , p5_a15
1274 , p5_a16
1275 , p5_a17
1276 , p5_a18
1277 , p5_a19
1278 , p5_a20
1279 , p5_a21
1280 , p5_a22
1281 , p5_a23
1282 , p5_a24
1283 , p5_a25
1284 , p5_a26
1285 , p5_a27
1286 , p5_a28
1287 , p5_a29
1288 , p5_a30
1289 , p5_a31
1290 , p5_a32
1291 , p5_a33
1292 , p5_a34
1293 , p5_a35
1294 , p5_a36
1295 , p5_a37
1296 , p5_a38
1297 , p5_a39
1298 , p5_a40
1299 , p5_a41
1300 , p5_a42
1301 , p5_a43
1302 , p5_a44
1303 , p5_a45
1304 , p5_a46
1305 );
1306
1307 -- here's the delegated call to the old PL/SQL routine
1308 okl_late_policies_pub.delete_late_policies(p_api_version,
1309 p_init_msg_list,
1310 x_return_status,
1311 x_msg_count,
1312 x_msg_data,
1313 ddp_lpov_tbl);
1314
1315 -- copy data back from the local variables to OUT or IN-OUT args, if any
1316
1317
1318
1319
1320
1321 end;
1322
1323 procedure delete_late_policies(p_api_version NUMBER
1324 , p_init_msg_list VARCHAR2
1325 , x_return_status out nocopy VARCHAR2
1326 , x_msg_count out nocopy NUMBER
1327 , x_msg_data out nocopy VARCHAR2
1328 , p5_a0 NUMBER := 0-1962.0724
1329 , p5_a1 NUMBER := 0-1962.0724
1330 , p5_a2 VARCHAR2 := okl_api.g_miss_char
1331 , p5_a3 VARCHAR2 := okl_api.g_miss_char
1332 , p5_a4 NUMBER := 0-1962.0724
1333 , p5_a5 NUMBER := 0-1962.0724
1334 , p5_a6 NUMBER := 0-1962.0724
1335 , p5_a7 VARCHAR2 := okl_api.g_miss_char
1336 , p5_a8 NUMBER := 0-1962.0724
1337 , p5_a9 VARCHAR2 := okl_api.g_miss_char
1338 , p5_a10 VARCHAR2 := okl_api.g_miss_char
1339 , p5_a11 NUMBER := 0-1962.0724
1340 , p5_a12 NUMBER := 0-1962.0724
1341 , p5_a13 NUMBER := 0-1962.0724
1342 , p5_a14 NUMBER := 0-1962.0724
1343 , p5_a15 NUMBER := 0-1962.0724
1344 , p5_a16 NUMBER := 0-1962.0724
1345 , p5_a17 VARCHAR2 := okl_api.g_miss_char
1346 , p5_a18 VARCHAR2 := okl_api.g_miss_char
1347 , p5_a19 NUMBER := 0-1962.0724
1348 , p5_a20 NUMBER := 0-1962.0724
1349 , p5_a21 NUMBER := 0-1962.0724
1350 , p5_a22 NUMBER := 0-1962.0724
1351 , p5_a23 NUMBER := 0-1962.0724
1352 , p5_a24 NUMBER := 0-1962.0724
1353 , p5_a25 VARCHAR2 := okl_api.g_miss_char
1354 , p5_a26 VARCHAR2 := okl_api.g_miss_char
1355 , p5_a27 VARCHAR2 := okl_api.g_miss_char
1356 , p5_a28 VARCHAR2 := okl_api.g_miss_char
1357 , p5_a29 VARCHAR2 := okl_api.g_miss_char
1358 , p5_a30 VARCHAR2 := okl_api.g_miss_char
1359 , p5_a31 VARCHAR2 := okl_api.g_miss_char
1360 , p5_a32 VARCHAR2 := okl_api.g_miss_char
1361 , p5_a33 VARCHAR2 := okl_api.g_miss_char
1362 , p5_a34 VARCHAR2 := okl_api.g_miss_char
1363 , p5_a35 VARCHAR2 := okl_api.g_miss_char
1364 , p5_a36 VARCHAR2 := okl_api.g_miss_char
1365 , p5_a37 VARCHAR2 := okl_api.g_miss_char
1366 , p5_a38 VARCHAR2 := okl_api.g_miss_char
1367 , p5_a39 VARCHAR2 := okl_api.g_miss_char
1368 , p5_a40 VARCHAR2 := okl_api.g_miss_char
1369 , p5_a41 NUMBER := 0-1962.0724
1370 , p5_a42 DATE := okl_api.g_miss_date
1371 , p5_a43 NUMBER := 0-1962.0724
1372 , p5_a44 DATE := okl_api.g_miss_date
1373 , p5_a45 NUMBER := 0-1962.0724
1374 , p5_a46 VARCHAR2 := okl_api.g_miss_char
1375 )
1376
1377 as
1378 ddp_lpov_rec okl_late_policies_pub.lpov_rec_type;
1379 ddindx binary_integer; indx binary_integer;
1380 begin
1381
1382 -- copy data to the local IN or IN-OUT args, if any
1383
1384
1385
1386
1387
1388 ddp_lpov_rec.id := rosetta_g_miss_num_map(p5_a0);
1389 ddp_lpov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1390 ddp_lpov_rec.name := p5_a2;
1391 ddp_lpov_rec.description := p5_a3;
1392 ddp_lpov_rec.ise_id := rosetta_g_miss_num_map(p5_a4);
1393 ddp_lpov_rec.tdf_id := rosetta_g_miss_num_map(p5_a5);
1394 ddp_lpov_rec.idx_id := rosetta_g_miss_num_map(p5_a6);
1395 ddp_lpov_rec.late_policy_type_code := p5_a7;
1396 ddp_lpov_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1397 ddp_lpov_rec.late_chrg_allowed_yn := p5_a9;
1398 ddp_lpov_rec.late_chrg_fixed_yn := p5_a10;
1399 ddp_lpov_rec.late_chrg_amount := rosetta_g_miss_num_map(p5_a11);
1400 ddp_lpov_rec.late_chrg_rate := rosetta_g_miss_num_map(p5_a12);
1401 ddp_lpov_rec.late_chrg_grace_period := rosetta_g_miss_num_map(p5_a13);
1402 ddp_lpov_rec.late_chrg_minimum_balance := rosetta_g_miss_num_map(p5_a14);
1403 ddp_lpov_rec.minimum_late_charge := rosetta_g_miss_num_map(p5_a15);
1404 ddp_lpov_rec.maximum_late_charge := rosetta_g_miss_num_map(p5_a16);
1405 ddp_lpov_rec.late_int_allowed_yn := p5_a17;
1406 ddp_lpov_rec.late_int_fixed_yn := p5_a18;
1407 ddp_lpov_rec.late_int_rate := rosetta_g_miss_num_map(p5_a19);
1408 ddp_lpov_rec.adder_rate := rosetta_g_miss_num_map(p5_a20);
1409 ddp_lpov_rec.late_int_grace_period := rosetta_g_miss_num_map(p5_a21);
1410 ddp_lpov_rec.late_int_minimum_balance := rosetta_g_miss_num_map(p5_a22);
1411 ddp_lpov_rec.minimum_late_interest := rosetta_g_miss_num_map(p5_a23);
1412 ddp_lpov_rec.maximum_late_interest := rosetta_g_miss_num_map(p5_a24);
1413 ddp_lpov_rec.attribute_category := p5_a25;
1414 ddp_lpov_rec.attribute1 := p5_a26;
1415 ddp_lpov_rec.attribute2 := p5_a27;
1416 ddp_lpov_rec.attribute3 := p5_a28;
1417 ddp_lpov_rec.attribute4 := p5_a29;
1418 ddp_lpov_rec.attribute5 := p5_a30;
1419 ddp_lpov_rec.attribute6 := p5_a31;
1420 ddp_lpov_rec.attribute7 := p5_a32;
1421 ddp_lpov_rec.attribute8 := p5_a33;
1422 ddp_lpov_rec.attribute9 := p5_a34;
1423 ddp_lpov_rec.attribute10 := p5_a35;
1424 ddp_lpov_rec.attribute11 := p5_a36;
1425 ddp_lpov_rec.attribute12 := p5_a37;
1426 ddp_lpov_rec.attribute13 := p5_a38;
1427 ddp_lpov_rec.attribute14 := p5_a39;
1428 ddp_lpov_rec.attribute15 := p5_a40;
1429 ddp_lpov_rec.created_by := rosetta_g_miss_num_map(p5_a41);
1430 ddp_lpov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a42);
1431 ddp_lpov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a43);
1432 ddp_lpov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a44);
1433 ddp_lpov_rec.last_update_login := rosetta_g_miss_num_map(p5_a45);
1434 ddp_lpov_rec.days_in_year := p5_a46;
1435
1436 -- here's the delegated call to the old PL/SQL routine
1437 okl_late_policies_pub.delete_late_policies(p_api_version,
1438 p_init_msg_list,
1439 x_return_status,
1440 x_msg_count,
1441 x_msg_data,
1442 ddp_lpov_rec);
1443
1444 -- copy data back from the local variables to OUT or IN-OUT args, if any
1445
1446
1447
1448
1449
1450 end;
1451
1452 procedure validate_late_policies(p_api_version NUMBER
1453 , p_init_msg_list VARCHAR2
1454 , x_return_status out nocopy VARCHAR2
1455 , x_msg_count out nocopy NUMBER
1456 , x_msg_data out nocopy VARCHAR2
1457 , p5_a0 JTF_NUMBER_TABLE
1458 , p5_a1 JTF_NUMBER_TABLE
1459 , p5_a2 JTF_VARCHAR2_TABLE_2000
1460 , p5_a3 JTF_VARCHAR2_TABLE_2000
1461 , p5_a4 JTF_NUMBER_TABLE
1462 , p5_a5 JTF_NUMBER_TABLE
1463 , p5_a6 JTF_NUMBER_TABLE
1464 , p5_a7 JTF_VARCHAR2_TABLE_100
1465 , p5_a8 JTF_NUMBER_TABLE
1466 , p5_a9 JTF_VARCHAR2_TABLE_100
1467 , p5_a10 JTF_VARCHAR2_TABLE_100
1468 , p5_a11 JTF_NUMBER_TABLE
1469 , p5_a12 JTF_NUMBER_TABLE
1470 , p5_a13 JTF_NUMBER_TABLE
1471 , p5_a14 JTF_NUMBER_TABLE
1472 , p5_a15 JTF_NUMBER_TABLE
1473 , p5_a16 JTF_NUMBER_TABLE
1474 , p5_a17 JTF_VARCHAR2_TABLE_100
1475 , p5_a18 JTF_VARCHAR2_TABLE_100
1476 , p5_a19 JTF_NUMBER_TABLE
1477 , p5_a20 JTF_NUMBER_TABLE
1478 , p5_a21 JTF_NUMBER_TABLE
1479 , p5_a22 JTF_NUMBER_TABLE
1480 , p5_a23 JTF_NUMBER_TABLE
1481 , p5_a24 JTF_NUMBER_TABLE
1482 , p5_a25 JTF_VARCHAR2_TABLE_100
1483 , p5_a26 JTF_VARCHAR2_TABLE_500
1484 , p5_a27 JTF_VARCHAR2_TABLE_500
1485 , p5_a28 JTF_VARCHAR2_TABLE_500
1486 , p5_a29 JTF_VARCHAR2_TABLE_500
1487 , p5_a30 JTF_VARCHAR2_TABLE_500
1488 , p5_a31 JTF_VARCHAR2_TABLE_500
1489 , p5_a32 JTF_VARCHAR2_TABLE_500
1490 , p5_a33 JTF_VARCHAR2_TABLE_500
1491 , p5_a34 JTF_VARCHAR2_TABLE_500
1492 , p5_a35 JTF_VARCHAR2_TABLE_500
1493 , p5_a36 JTF_VARCHAR2_TABLE_500
1494 , p5_a37 JTF_VARCHAR2_TABLE_500
1495 , p5_a38 JTF_VARCHAR2_TABLE_500
1496 , p5_a39 JTF_VARCHAR2_TABLE_500
1497 , p5_a40 JTF_VARCHAR2_TABLE_500
1498 , p5_a41 JTF_NUMBER_TABLE
1499 , p5_a42 JTF_DATE_TABLE
1500 , p5_a43 JTF_NUMBER_TABLE
1501 , p5_a44 JTF_DATE_TABLE
1502 , p5_a45 JTF_NUMBER_TABLE
1503 , p5_a46 JTF_VARCHAR2_TABLE_100
1504 )
1505
1506 as
1507 ddp_lpov_tbl okl_late_policies_pub.lpov_tbl_type;
1508 ddindx binary_integer; indx binary_integer;
1509 begin
1510
1511 -- copy data to the local IN or IN-OUT args, if any
1512
1513
1514
1515
1516
1517 okl_lpo_pvt_w.rosetta_table_copy_in_p2(ddp_lpov_tbl, p5_a0
1518 , p5_a1
1519 , p5_a2
1520 , p5_a3
1521 , p5_a4
1522 , p5_a5
1523 , p5_a6
1524 , p5_a7
1525 , p5_a8
1526 , p5_a9
1527 , p5_a10
1528 , p5_a11
1529 , p5_a12
1530 , p5_a13
1531 , p5_a14
1532 , p5_a15
1533 , p5_a16
1534 , p5_a17
1535 , p5_a18
1536 , p5_a19
1537 , p5_a20
1538 , p5_a21
1539 , p5_a22
1540 , p5_a23
1541 , p5_a24
1542 , p5_a25
1543 , p5_a26
1544 , p5_a27
1545 , p5_a28
1546 , p5_a29
1547 , p5_a30
1548 , p5_a31
1549 , p5_a32
1550 , p5_a33
1551 , p5_a34
1552 , p5_a35
1553 , p5_a36
1554 , p5_a37
1555 , p5_a38
1556 , p5_a39
1557 , p5_a40
1558 , p5_a41
1559 , p5_a42
1560 , p5_a43
1561 , p5_a44
1562 , p5_a45
1563 , p5_a46
1564 );
1565
1566 -- here's the delegated call to the old PL/SQL routine
1567 okl_late_policies_pub.validate_late_policies(p_api_version,
1568 p_init_msg_list,
1569 x_return_status,
1570 x_msg_count,
1571 x_msg_data,
1572 ddp_lpov_tbl);
1573
1574 -- copy data back from the local variables to OUT or IN-OUT args, if any
1575
1576
1577
1578
1579
1580 end;
1581
1582 procedure validate_late_policies(p_api_version NUMBER
1583 , p_init_msg_list VARCHAR2
1584 , x_return_status out nocopy VARCHAR2
1585 , x_msg_count out nocopy NUMBER
1586 , x_msg_data out nocopy VARCHAR2
1587 , p5_a0 NUMBER := 0-1962.0724
1588 , p5_a1 NUMBER := 0-1962.0724
1589 , p5_a2 VARCHAR2 := okl_api.g_miss_char
1590 , p5_a3 VARCHAR2 := okl_api.g_miss_char
1591 , p5_a4 NUMBER := 0-1962.0724
1592 , p5_a5 NUMBER := 0-1962.0724
1593 , p5_a6 NUMBER := 0-1962.0724
1594 , p5_a7 VARCHAR2 := okl_api.g_miss_char
1595 , p5_a8 NUMBER := 0-1962.0724
1596 , p5_a9 VARCHAR2 := okl_api.g_miss_char
1597 , p5_a10 VARCHAR2 := okl_api.g_miss_char
1598 , p5_a11 NUMBER := 0-1962.0724
1599 , p5_a12 NUMBER := 0-1962.0724
1600 , p5_a13 NUMBER := 0-1962.0724
1601 , p5_a14 NUMBER := 0-1962.0724
1602 , p5_a15 NUMBER := 0-1962.0724
1603 , p5_a16 NUMBER := 0-1962.0724
1604 , p5_a17 VARCHAR2 := okl_api.g_miss_char
1605 , p5_a18 VARCHAR2 := okl_api.g_miss_char
1606 , p5_a19 NUMBER := 0-1962.0724
1607 , p5_a20 NUMBER := 0-1962.0724
1608 , p5_a21 NUMBER := 0-1962.0724
1609 , p5_a22 NUMBER := 0-1962.0724
1610 , p5_a23 NUMBER := 0-1962.0724
1611 , p5_a24 NUMBER := 0-1962.0724
1612 , p5_a25 VARCHAR2 := okl_api.g_miss_char
1613 , p5_a26 VARCHAR2 := okl_api.g_miss_char
1614 , p5_a27 VARCHAR2 := okl_api.g_miss_char
1615 , p5_a28 VARCHAR2 := okl_api.g_miss_char
1616 , p5_a29 VARCHAR2 := okl_api.g_miss_char
1617 , p5_a30 VARCHAR2 := okl_api.g_miss_char
1618 , p5_a31 VARCHAR2 := okl_api.g_miss_char
1619 , p5_a32 VARCHAR2 := okl_api.g_miss_char
1620 , p5_a33 VARCHAR2 := okl_api.g_miss_char
1621 , p5_a34 VARCHAR2 := okl_api.g_miss_char
1622 , p5_a35 VARCHAR2 := okl_api.g_miss_char
1623 , p5_a36 VARCHAR2 := okl_api.g_miss_char
1624 , p5_a37 VARCHAR2 := okl_api.g_miss_char
1625 , p5_a38 VARCHAR2 := okl_api.g_miss_char
1626 , p5_a39 VARCHAR2 := okl_api.g_miss_char
1627 , p5_a40 VARCHAR2 := okl_api.g_miss_char
1628 , p5_a41 NUMBER := 0-1962.0724
1629 , p5_a42 DATE := okl_api.g_miss_date
1630 , p5_a43 NUMBER := 0-1962.0724
1631 , p5_a44 DATE := okl_api.g_miss_date
1632 , p5_a45 NUMBER := 0-1962.0724
1633 , p5_a46 VARCHAR2 := okl_api.g_miss_char
1634 )
1635
1636 as
1637 ddp_lpov_rec okl_late_policies_pub.lpov_rec_type;
1638 ddindx binary_integer; indx binary_integer;
1639 begin
1640
1641 -- copy data to the local IN or IN-OUT args, if any
1642
1643
1644
1645
1646
1647 ddp_lpov_rec.id := rosetta_g_miss_num_map(p5_a0);
1648 ddp_lpov_rec.org_id := rosetta_g_miss_num_map(p5_a1);
1649 ddp_lpov_rec.name := p5_a2;
1650 ddp_lpov_rec.description := p5_a3;
1651 ddp_lpov_rec.ise_id := rosetta_g_miss_num_map(p5_a4);
1652 ddp_lpov_rec.tdf_id := rosetta_g_miss_num_map(p5_a5);
1653 ddp_lpov_rec.idx_id := rosetta_g_miss_num_map(p5_a6);
1654 ddp_lpov_rec.late_policy_type_code := p5_a7;
1655 ddp_lpov_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
1656 ddp_lpov_rec.late_chrg_allowed_yn := p5_a9;
1657 ddp_lpov_rec.late_chrg_fixed_yn := p5_a10;
1658 ddp_lpov_rec.late_chrg_amount := rosetta_g_miss_num_map(p5_a11);
1659 ddp_lpov_rec.late_chrg_rate := rosetta_g_miss_num_map(p5_a12);
1660 ddp_lpov_rec.late_chrg_grace_period := rosetta_g_miss_num_map(p5_a13);
1661 ddp_lpov_rec.late_chrg_minimum_balance := rosetta_g_miss_num_map(p5_a14);
1662 ddp_lpov_rec.minimum_late_charge := rosetta_g_miss_num_map(p5_a15);
1663 ddp_lpov_rec.maximum_late_charge := rosetta_g_miss_num_map(p5_a16);
1664 ddp_lpov_rec.late_int_allowed_yn := p5_a17;
1665 ddp_lpov_rec.late_int_fixed_yn := p5_a18;
1666 ddp_lpov_rec.late_int_rate := rosetta_g_miss_num_map(p5_a19);
1667 ddp_lpov_rec.adder_rate := rosetta_g_miss_num_map(p5_a20);
1668 ddp_lpov_rec.late_int_grace_period := rosetta_g_miss_num_map(p5_a21);
1669 ddp_lpov_rec.late_int_minimum_balance := rosetta_g_miss_num_map(p5_a22);
1670 ddp_lpov_rec.minimum_late_interest := rosetta_g_miss_num_map(p5_a23);
1671 ddp_lpov_rec.maximum_late_interest := rosetta_g_miss_num_map(p5_a24);
1672 ddp_lpov_rec.attribute_category := p5_a25;
1673 ddp_lpov_rec.attribute1 := p5_a26;
1674 ddp_lpov_rec.attribute2 := p5_a27;
1675 ddp_lpov_rec.attribute3 := p5_a28;
1676 ddp_lpov_rec.attribute4 := p5_a29;
1677 ddp_lpov_rec.attribute5 := p5_a30;
1678 ddp_lpov_rec.attribute6 := p5_a31;
1679 ddp_lpov_rec.attribute7 := p5_a32;
1680 ddp_lpov_rec.attribute8 := p5_a33;
1681 ddp_lpov_rec.attribute9 := p5_a34;
1682 ddp_lpov_rec.attribute10 := p5_a35;
1683 ddp_lpov_rec.attribute11 := p5_a36;
1684 ddp_lpov_rec.attribute12 := p5_a37;
1685 ddp_lpov_rec.attribute13 := p5_a38;
1686 ddp_lpov_rec.attribute14 := p5_a39;
1687 ddp_lpov_rec.attribute15 := p5_a40;
1688 ddp_lpov_rec.created_by := rosetta_g_miss_num_map(p5_a41);
1689 ddp_lpov_rec.creation_date := rosetta_g_miss_date_in_map(p5_a42);
1690 ddp_lpov_rec.last_updated_by := rosetta_g_miss_num_map(p5_a43);
1691 ddp_lpov_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a44);
1692 ddp_lpov_rec.last_update_login := rosetta_g_miss_num_map(p5_a45);
1693 ddp_lpov_rec.days_in_year := p5_a46;
1694
1695 -- here's the delegated call to the old PL/SQL routine
1696 okl_late_policies_pub.validate_late_policies(p_api_version,
1697 p_init_msg_list,
1698 x_return_status,
1699 x_msg_count,
1700 x_msg_data,
1701 ddp_lpov_rec);
1702
1703 -- copy data back from the local variables to OUT or IN-OUT args, if any
1704
1705
1706
1707
1708
1709 end;
1710
1711 end okl_late_policies_pub_w;