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