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