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