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