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