[Home] [Help]
PACKAGE BODY: APPS.OKL_FPR_PVT_W
Source
1 package body okl_fpr_pvt_w as
2 /* $Header: OKLIFPRB.pls 120.1 2005/07/12 07:05:38 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_fpr_pvt.fpr_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
42 t(ddindx).dsf_id := rosetta_g_miss_num_map(a1(indx));
43 t(ddindx).pmr_id := rosetta_g_miss_num_map(a2(indx));
44 t(ddindx).fpr_type := a3(indx);
45 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
46 t(ddindx).sequence_number := rosetta_g_miss_num_map(a5(indx));
47 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
48 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
49 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a8(indx));
50 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
51 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
52 ddindx := ddindx+1;
53 if a0.last =indx
54 then exit;
55 end if;
56 indx := a0.next(indx);
57 end loop;
58 end if;
59 end if;
60 end rosetta_table_copy_in_p2;
61 procedure rosetta_table_copy_out_p2(t okl_fpr_pvt.fpr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
62 , a1 out nocopy JTF_NUMBER_TABLE
63 , a2 out nocopy JTF_NUMBER_TABLE
64 , a3 out nocopy JTF_VARCHAR2_TABLE_100
65 , a4 out nocopy JTF_NUMBER_TABLE
66 , a5 out nocopy JTF_NUMBER_TABLE
67 , a6 out nocopy JTF_NUMBER_TABLE
68 , a7 out nocopy JTF_DATE_TABLE
69 , a8 out nocopy JTF_NUMBER_TABLE
70 , a9 out nocopy JTF_DATE_TABLE
71 , a10 out nocopy JTF_NUMBER_TABLE
72 ) as
73 ddindx binary_integer; indx binary_integer;
74 begin
75 if t is null or t.count = 0 then
76 a0 := JTF_NUMBER_TABLE();
77 a1 := JTF_NUMBER_TABLE();
78 a2 := JTF_NUMBER_TABLE();
79 a3 := JTF_VARCHAR2_TABLE_100();
80 a4 := JTF_NUMBER_TABLE();
81 a5 := JTF_NUMBER_TABLE();
82 a6 := JTF_NUMBER_TABLE();
83 a7 := JTF_DATE_TABLE();
84 a8 := JTF_NUMBER_TABLE();
85 a9 := JTF_DATE_TABLE();
86 a10 := JTF_NUMBER_TABLE();
87 else
88 a0 := JTF_NUMBER_TABLE();
89 a1 := JTF_NUMBER_TABLE();
90 a2 := JTF_NUMBER_TABLE();
91 a3 := JTF_VARCHAR2_TABLE_100();
92 a4 := JTF_NUMBER_TABLE();
93 a5 := JTF_NUMBER_TABLE();
94 a6 := JTF_NUMBER_TABLE();
95 a7 := JTF_DATE_TABLE();
96 a8 := JTF_NUMBER_TABLE();
97 a9 := JTF_DATE_TABLE();
98 a10 := JTF_NUMBER_TABLE();
99 if t.count > 0 then
100 a0.extend(t.count);
101 a1.extend(t.count);
102 a2.extend(t.count);
103 a3.extend(t.count);
104 a4.extend(t.count);
105 a5.extend(t.count);
106 a6.extend(t.count);
107 a7.extend(t.count);
108 a8.extend(t.count);
109 a9.extend(t.count);
110 a10.extend(t.count);
111 ddindx := t.first;
112 indx := 1;
113 while true loop
114 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
115 a1(indx) := rosetta_g_miss_num_map(t(ddindx).dsf_id);
116 a2(indx) := rosetta_g_miss_num_map(t(ddindx).pmr_id);
117 a3(indx) := t(ddindx).fpr_type;
118 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
119 a5(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_number);
120 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
121 a7(indx) := t(ddindx).creation_date;
122 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
123 a9(indx) := t(ddindx).last_update_date;
124 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
125 indx := indx+1;
126 if t.last =ddindx
127 then exit;
128 end if;
129 ddindx := t.next(ddindx);
130 end loop;
131 end if;
132 end if;
133 end rosetta_table_copy_out_p2;
134
135 procedure rosetta_table_copy_in_p5(t out nocopy okl_fpr_pvt.okl_fnctn_prmtrs_tl_tbl_type, a0 JTF_NUMBER_TABLE
136 , a1 JTF_VARCHAR2_TABLE_100
137 , a2 JTF_VARCHAR2_TABLE_100
138 , a3 JTF_VARCHAR2_TABLE_100
139 , a4 JTF_VARCHAR2_TABLE_300
140 , a5 JTF_VARCHAR2_TABLE_800
141 , a6 JTF_NUMBER_TABLE
142 , a7 JTF_DATE_TABLE
143 , a8 JTF_NUMBER_TABLE
144 , a9 JTF_DATE_TABLE
145 , a10 JTF_NUMBER_TABLE
146 ) as
147 ddindx binary_integer; indx binary_integer;
148 begin
149 if a0 is not null and a0.count > 0 then
150 if a0.count > 0 then
151 indx := a0.first;
152 ddindx := 1;
153 while true loop
154 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
155 t(ddindx).language := a1(indx);
156 t(ddindx).source_lang := a2(indx);
157 t(ddindx).sfwt_flag := a3(indx);
158 t(ddindx).value := a4(indx);
159 t(ddindx).instructions := a5(indx);
160 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
161 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
162 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a8(indx));
163 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
164 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
165 ddindx := ddindx+1;
166 if a0.last =indx
167 then exit;
168 end if;
169 indx := a0.next(indx);
170 end loop;
171 end if;
172 end if;
173 end rosetta_table_copy_in_p5;
174 procedure rosetta_table_copy_out_p5(t okl_fpr_pvt.okl_fnctn_prmtrs_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
175 , a1 out nocopy JTF_VARCHAR2_TABLE_100
176 , a2 out nocopy JTF_VARCHAR2_TABLE_100
177 , a3 out nocopy JTF_VARCHAR2_TABLE_100
178 , a4 out nocopy JTF_VARCHAR2_TABLE_300
179 , a5 out nocopy JTF_VARCHAR2_TABLE_800
180 , a6 out nocopy JTF_NUMBER_TABLE
181 , a7 out nocopy JTF_DATE_TABLE
182 , a8 out nocopy JTF_NUMBER_TABLE
183 , a9 out nocopy JTF_DATE_TABLE
184 , a10 out nocopy JTF_NUMBER_TABLE
185 ) as
186 ddindx binary_integer; indx binary_integer;
187 begin
188 if t is null or t.count = 0 then
189 a0 := JTF_NUMBER_TABLE();
190 a1 := JTF_VARCHAR2_TABLE_100();
191 a2 := JTF_VARCHAR2_TABLE_100();
192 a3 := JTF_VARCHAR2_TABLE_100();
193 a4 := JTF_VARCHAR2_TABLE_300();
194 a5 := JTF_VARCHAR2_TABLE_800();
195 a6 := JTF_NUMBER_TABLE();
196 a7 := JTF_DATE_TABLE();
197 a8 := JTF_NUMBER_TABLE();
198 a9 := JTF_DATE_TABLE();
199 a10 := JTF_NUMBER_TABLE();
200 else
201 a0 := JTF_NUMBER_TABLE();
202 a1 := JTF_VARCHAR2_TABLE_100();
203 a2 := JTF_VARCHAR2_TABLE_100();
204 a3 := JTF_VARCHAR2_TABLE_100();
205 a4 := JTF_VARCHAR2_TABLE_300();
206 a5 := JTF_VARCHAR2_TABLE_800();
207 a6 := JTF_NUMBER_TABLE();
208 a7 := JTF_DATE_TABLE();
209 a8 := JTF_NUMBER_TABLE();
210 a9 := JTF_DATE_TABLE();
211 a10 := JTF_NUMBER_TABLE();
212 if t.count > 0 then
213 a0.extend(t.count);
214 a1.extend(t.count);
215 a2.extend(t.count);
216 a3.extend(t.count);
217 a4.extend(t.count);
218 a5.extend(t.count);
219 a6.extend(t.count);
220 a7.extend(t.count);
221 a8.extend(t.count);
222 a9.extend(t.count);
223 a10.extend(t.count);
224 ddindx := t.first;
225 indx := 1;
226 while true loop
227 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
228 a1(indx) := t(ddindx).language;
229 a2(indx) := t(ddindx).source_lang;
230 a3(indx) := t(ddindx).sfwt_flag;
231 a4(indx) := t(ddindx).value;
232 a5(indx) := t(ddindx).instructions;
233 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
234 a7(indx) := t(ddindx).creation_date;
235 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
236 a9(indx) := t(ddindx).last_update_date;
237 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
238 indx := indx+1;
239 if t.last =ddindx
240 then exit;
241 end if;
242 ddindx := t.next(ddindx);
243 end loop;
244 end if;
245 end if;
246 end rosetta_table_copy_out_p5;
247
248 procedure rosetta_table_copy_in_p8(t out nocopy okl_fpr_pvt.fprv_tbl_type, a0 JTF_NUMBER_TABLE
249 , a1 JTF_NUMBER_TABLE
250 , a2 JTF_VARCHAR2_TABLE_100
251 , a3 JTF_NUMBER_TABLE
252 , a4 JTF_NUMBER_TABLE
253 , a5 JTF_NUMBER_TABLE
254 , a6 JTF_VARCHAR2_TABLE_300
255 , a7 JTF_VARCHAR2_TABLE_800
256 , a8 JTF_VARCHAR2_TABLE_100
257 , a9 JTF_NUMBER_TABLE
258 , a10 JTF_DATE_TABLE
259 , a11 JTF_NUMBER_TABLE
260 , a12 JTF_DATE_TABLE
261 , a13 JTF_NUMBER_TABLE
262 ) as
263 ddindx binary_integer; indx binary_integer;
264 begin
265 if a0 is not null and a0.count > 0 then
266 if a0.count > 0 then
267 indx := a0.first;
268 ddindx := 1;
269 while true loop
270 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
271 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
272 t(ddindx).sfwt_flag := a2(indx);
273 t(ddindx).dsf_id := rosetta_g_miss_num_map(a3(indx));
274 t(ddindx).pmr_id := rosetta_g_miss_num_map(a4(indx));
275 t(ddindx).sequence_number := rosetta_g_miss_num_map(a5(indx));
276 t(ddindx).value := a6(indx);
277 t(ddindx).instructions := a7(indx);
278 t(ddindx).fpr_type := a8(indx);
279 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
280 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
281 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a11(indx));
282 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
283 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
284 ddindx := ddindx+1;
285 if a0.last =indx
286 then exit;
287 end if;
288 indx := a0.next(indx);
289 end loop;
290 end if;
291 end if;
292 end rosetta_table_copy_in_p8;
293 procedure rosetta_table_copy_out_p8(t okl_fpr_pvt.fprv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
294 , a1 out nocopy JTF_NUMBER_TABLE
295 , a2 out nocopy JTF_VARCHAR2_TABLE_100
296 , a3 out nocopy JTF_NUMBER_TABLE
297 , a4 out nocopy JTF_NUMBER_TABLE
298 , a5 out nocopy JTF_NUMBER_TABLE
299 , a6 out nocopy JTF_VARCHAR2_TABLE_300
300 , a7 out nocopy JTF_VARCHAR2_TABLE_800
301 , a8 out nocopy JTF_VARCHAR2_TABLE_100
302 , a9 out nocopy JTF_NUMBER_TABLE
303 , a10 out nocopy JTF_DATE_TABLE
304 , a11 out nocopy JTF_NUMBER_TABLE
305 , a12 out nocopy JTF_DATE_TABLE
306 , a13 out nocopy JTF_NUMBER_TABLE
307 ) as
308 ddindx binary_integer; indx binary_integer;
309 begin
310 if t is null or t.count = 0 then
311 a0 := JTF_NUMBER_TABLE();
312 a1 := JTF_NUMBER_TABLE();
313 a2 := JTF_VARCHAR2_TABLE_100();
314 a3 := JTF_NUMBER_TABLE();
315 a4 := JTF_NUMBER_TABLE();
316 a5 := JTF_NUMBER_TABLE();
317 a6 := JTF_VARCHAR2_TABLE_300();
318 a7 := JTF_VARCHAR2_TABLE_800();
319 a8 := JTF_VARCHAR2_TABLE_100();
320 a9 := JTF_NUMBER_TABLE();
321 a10 := JTF_DATE_TABLE();
322 a11 := JTF_NUMBER_TABLE();
323 a12 := JTF_DATE_TABLE();
324 a13 := JTF_NUMBER_TABLE();
325 else
326 a0 := JTF_NUMBER_TABLE();
327 a1 := JTF_NUMBER_TABLE();
328 a2 := JTF_VARCHAR2_TABLE_100();
329 a3 := JTF_NUMBER_TABLE();
330 a4 := JTF_NUMBER_TABLE();
331 a5 := JTF_NUMBER_TABLE();
332 a6 := JTF_VARCHAR2_TABLE_300();
333 a7 := JTF_VARCHAR2_TABLE_800();
334 a8 := JTF_VARCHAR2_TABLE_100();
335 a9 := JTF_NUMBER_TABLE();
336 a10 := JTF_DATE_TABLE();
337 a11 := JTF_NUMBER_TABLE();
338 a12 := JTF_DATE_TABLE();
339 a13 := JTF_NUMBER_TABLE();
340 if t.count > 0 then
341 a0.extend(t.count);
342 a1.extend(t.count);
343 a2.extend(t.count);
344 a3.extend(t.count);
345 a4.extend(t.count);
346 a5.extend(t.count);
347 a6.extend(t.count);
348 a7.extend(t.count);
349 a8.extend(t.count);
350 a9.extend(t.count);
351 a10.extend(t.count);
352 a11.extend(t.count);
353 a12.extend(t.count);
354 a13.extend(t.count);
355 ddindx := t.first;
356 indx := 1;
357 while true loop
358 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
359 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
360 a2(indx) := t(ddindx).sfwt_flag;
361 a3(indx) := rosetta_g_miss_num_map(t(ddindx).dsf_id);
362 a4(indx) := rosetta_g_miss_num_map(t(ddindx).pmr_id);
363 a5(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_number);
364 a6(indx) := t(ddindx).value;
365 a7(indx) := t(ddindx).instructions;
366 a8(indx) := t(ddindx).fpr_type;
367 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
368 a10(indx) := t(ddindx).creation_date;
369 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
370 a12(indx) := t(ddindx).last_update_date;
371 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
372 indx := indx+1;
373 if t.last =ddindx
374 then exit;
375 end if;
376 ddindx := t.next(ddindx);
377 end loop;
378 end if;
379 end if;
380 end rosetta_table_copy_out_p8;
381
382 procedure insert_row(p_api_version NUMBER
383 , p_init_msg_list VARCHAR2
384 , x_return_status out nocopy VARCHAR2
385 , x_msg_count out nocopy NUMBER
386 , x_msg_data out nocopy VARCHAR2
387 , p6_a0 out nocopy NUMBER
388 , p6_a1 out nocopy NUMBER
389 , p6_a2 out nocopy VARCHAR2
390 , p6_a3 out nocopy NUMBER
391 , p6_a4 out nocopy NUMBER
392 , p6_a5 out nocopy NUMBER
393 , p6_a6 out nocopy VARCHAR2
394 , p6_a7 out nocopy VARCHAR2
395 , p6_a8 out nocopy VARCHAR2
396 , p6_a9 out nocopy NUMBER
397 , p6_a10 out nocopy DATE
398 , p6_a11 out nocopy NUMBER
399 , p6_a12 out nocopy DATE
400 , p6_a13 out nocopy NUMBER
401 , p5_a0 NUMBER := 0-1962.0724
402 , p5_a1 NUMBER := 0-1962.0724
403 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
404 , p5_a3 NUMBER := 0-1962.0724
405 , p5_a4 NUMBER := 0-1962.0724
406 , p5_a5 NUMBER := 0-1962.0724
407 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
408 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
409 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
410 , p5_a9 NUMBER := 0-1962.0724
411 , p5_a10 DATE := fnd_api.g_miss_date
412 , p5_a11 NUMBER := 0-1962.0724
413 , p5_a12 DATE := fnd_api.g_miss_date
414 , p5_a13 NUMBER := 0-1962.0724
415 )
416
417 as
418 ddp_fprv_rec okl_fpr_pvt.fprv_rec_type;
419 ddx_fprv_rec okl_fpr_pvt.fprv_rec_type;
420 ddindx binary_integer; indx binary_integer;
421 begin
422
423 -- copy data to the local IN or IN-OUT args, if any
424
425
426
427
428
429 ddp_fprv_rec.id := rosetta_g_miss_num_map(p5_a0);
430 ddp_fprv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
431 ddp_fprv_rec.sfwt_flag := p5_a2;
432 ddp_fprv_rec.dsf_id := rosetta_g_miss_num_map(p5_a3);
433 ddp_fprv_rec.pmr_id := rosetta_g_miss_num_map(p5_a4);
434 ddp_fprv_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
435 ddp_fprv_rec.value := p5_a6;
436 ddp_fprv_rec.instructions := p5_a7;
437 ddp_fprv_rec.fpr_type := p5_a8;
438 ddp_fprv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
439 ddp_fprv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
440 ddp_fprv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
441 ddp_fprv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
442 ddp_fprv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
443
444
445 -- here's the delegated call to the old PL/SQL routine
446 okl_fpr_pvt.insert_row(p_api_version,
447 p_init_msg_list,
448 x_return_status,
449 x_msg_count,
450 x_msg_data,
451 ddp_fprv_rec,
452 ddx_fprv_rec);
453
454 -- copy data back from the local variables to OUT or IN-OUT args, if any
455
456
457
458
459
460
461 p6_a0 := rosetta_g_miss_num_map(ddx_fprv_rec.id);
462 p6_a1 := rosetta_g_miss_num_map(ddx_fprv_rec.object_version_number);
463 p6_a2 := ddx_fprv_rec.sfwt_flag;
464 p6_a3 := rosetta_g_miss_num_map(ddx_fprv_rec.dsf_id);
465 p6_a4 := rosetta_g_miss_num_map(ddx_fprv_rec.pmr_id);
466 p6_a5 := rosetta_g_miss_num_map(ddx_fprv_rec.sequence_number);
467 p6_a6 := ddx_fprv_rec.value;
468 p6_a7 := ddx_fprv_rec.instructions;
469 p6_a8 := ddx_fprv_rec.fpr_type;
470 p6_a9 := rosetta_g_miss_num_map(ddx_fprv_rec.created_by);
471 p6_a10 := ddx_fprv_rec.creation_date;
472 p6_a11 := rosetta_g_miss_num_map(ddx_fprv_rec.last_updated_by);
473 p6_a12 := ddx_fprv_rec.last_update_date;
474 p6_a13 := rosetta_g_miss_num_map(ddx_fprv_rec.last_update_login);
475 end;
476
477 procedure insert_row(p_api_version NUMBER
478 , p_init_msg_list VARCHAR2
479 , x_return_status out nocopy VARCHAR2
480 , x_msg_count out nocopy NUMBER
481 , x_msg_data out nocopy VARCHAR2
482 , p5_a0 JTF_NUMBER_TABLE
483 , p5_a1 JTF_NUMBER_TABLE
484 , p5_a2 JTF_VARCHAR2_TABLE_100
485 , p5_a3 JTF_NUMBER_TABLE
486 , p5_a4 JTF_NUMBER_TABLE
487 , p5_a5 JTF_NUMBER_TABLE
488 , p5_a6 JTF_VARCHAR2_TABLE_300
489 , p5_a7 JTF_VARCHAR2_TABLE_800
490 , p5_a8 JTF_VARCHAR2_TABLE_100
491 , p5_a9 JTF_NUMBER_TABLE
492 , p5_a10 JTF_DATE_TABLE
493 , p5_a11 JTF_NUMBER_TABLE
494 , p5_a12 JTF_DATE_TABLE
495 , p5_a13 JTF_NUMBER_TABLE
496 , p6_a0 out nocopy JTF_NUMBER_TABLE
497 , p6_a1 out nocopy JTF_NUMBER_TABLE
498 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
499 , p6_a3 out nocopy JTF_NUMBER_TABLE
500 , p6_a4 out nocopy JTF_NUMBER_TABLE
501 , p6_a5 out nocopy JTF_NUMBER_TABLE
502 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
503 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_800
504 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
505 , p6_a9 out nocopy JTF_NUMBER_TABLE
506 , p6_a10 out nocopy JTF_DATE_TABLE
507 , p6_a11 out nocopy JTF_NUMBER_TABLE
508 , p6_a12 out nocopy JTF_DATE_TABLE
509 , p6_a13 out nocopy JTF_NUMBER_TABLE
510 )
511
512 as
513 ddp_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
514 ddx_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
515 ddindx binary_integer; indx binary_integer;
516 begin
517
518 -- copy data to the local IN or IN-OUT args, if any
519
520
521
522
523
524 okl_fpr_pvt_w.rosetta_table_copy_in_p8(ddp_fprv_tbl, p5_a0
525 , p5_a1
526 , p5_a2
527 , p5_a3
528 , p5_a4
529 , p5_a5
530 , p5_a6
531 , p5_a7
532 , p5_a8
533 , p5_a9
534 , p5_a10
535 , p5_a11
536 , p5_a12
537 , p5_a13
538 );
539
540
541 -- here's the delegated call to the old PL/SQL routine
542 okl_fpr_pvt.insert_row(p_api_version,
543 p_init_msg_list,
544 x_return_status,
545 x_msg_count,
546 x_msg_data,
547 ddp_fprv_tbl,
548 ddx_fprv_tbl);
549
550 -- copy data back from the local variables to OUT or IN-OUT args, if any
551
552
553
554
555
556
557 okl_fpr_pvt_w.rosetta_table_copy_out_p8(ddx_fprv_tbl, p6_a0
558 , p6_a1
559 , p6_a2
560 , p6_a3
561 , p6_a4
562 , p6_a5
563 , p6_a6
564 , p6_a7
565 , p6_a8
566 , p6_a9
567 , p6_a10
568 , p6_a11
569 , p6_a12
570 , p6_a13
571 );
572 end;
573
574 procedure lock_row(p_api_version NUMBER
575 , p_init_msg_list VARCHAR2
576 , x_return_status out nocopy VARCHAR2
577 , x_msg_count out nocopy NUMBER
578 , x_msg_data out nocopy VARCHAR2
579 , p5_a0 NUMBER := 0-1962.0724
580 , p5_a1 NUMBER := 0-1962.0724
581 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
582 , p5_a3 NUMBER := 0-1962.0724
583 , p5_a4 NUMBER := 0-1962.0724
584 , p5_a5 NUMBER := 0-1962.0724
585 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
586 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
587 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
588 , p5_a9 NUMBER := 0-1962.0724
589 , p5_a10 DATE := fnd_api.g_miss_date
590 , p5_a11 NUMBER := 0-1962.0724
591 , p5_a12 DATE := fnd_api.g_miss_date
592 , p5_a13 NUMBER := 0-1962.0724
593 )
594
595 as
596 ddp_fprv_rec okl_fpr_pvt.fprv_rec_type;
597 ddindx binary_integer; indx binary_integer;
598 begin
599
600 -- copy data to the local IN or IN-OUT args, if any
601
602
603
604
605
606 ddp_fprv_rec.id := rosetta_g_miss_num_map(p5_a0);
607 ddp_fprv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
608 ddp_fprv_rec.sfwt_flag := p5_a2;
609 ddp_fprv_rec.dsf_id := rosetta_g_miss_num_map(p5_a3);
610 ddp_fprv_rec.pmr_id := rosetta_g_miss_num_map(p5_a4);
611 ddp_fprv_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
612 ddp_fprv_rec.value := p5_a6;
613 ddp_fprv_rec.instructions := p5_a7;
614 ddp_fprv_rec.fpr_type := p5_a8;
615 ddp_fprv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
616 ddp_fprv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
617 ddp_fprv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
618 ddp_fprv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
619 ddp_fprv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
620
621 -- here's the delegated call to the old PL/SQL routine
622 okl_fpr_pvt.lock_row(p_api_version,
623 p_init_msg_list,
624 x_return_status,
625 x_msg_count,
626 x_msg_data,
627 ddp_fprv_rec);
628
629 -- copy data back from the local variables to OUT or IN-OUT args, if any
630
631
632
633
634
635 end;
636
637 procedure lock_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_VARCHAR2_TABLE_100
645 , p5_a3 JTF_NUMBER_TABLE
646 , p5_a4 JTF_NUMBER_TABLE
647 , p5_a5 JTF_NUMBER_TABLE
648 , p5_a6 JTF_VARCHAR2_TABLE_300
649 , p5_a7 JTF_VARCHAR2_TABLE_800
650 , p5_a8 JTF_VARCHAR2_TABLE_100
651 , p5_a9 JTF_NUMBER_TABLE
652 , p5_a10 JTF_DATE_TABLE
653 , p5_a11 JTF_NUMBER_TABLE
654 , p5_a12 JTF_DATE_TABLE
655 , p5_a13 JTF_NUMBER_TABLE
656 )
657
658 as
659 ddp_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
660 ddindx binary_integer; indx binary_integer;
661 begin
662
663 -- copy data to the local IN or IN-OUT args, if any
664
665
666
667
668
669 okl_fpr_pvt_w.rosetta_table_copy_in_p8(ddp_fprv_tbl, p5_a0
670 , p5_a1
671 , p5_a2
672 , p5_a3
673 , p5_a4
674 , p5_a5
675 , p5_a6
676 , p5_a7
677 , p5_a8
678 , p5_a9
679 , p5_a10
680 , p5_a11
681 , p5_a12
682 , p5_a13
683 );
684
685 -- here's the delegated call to the old PL/SQL routine
686 okl_fpr_pvt.lock_row(p_api_version,
687 p_init_msg_list,
688 x_return_status,
689 x_msg_count,
690 x_msg_data,
691 ddp_fprv_tbl);
692
693 -- copy data back from the local variables to OUT or IN-OUT args, if any
694
695
696
697
698
699 end;
700
701 procedure update_row(p_api_version NUMBER
702 , p_init_msg_list VARCHAR2
703 , x_return_status out nocopy VARCHAR2
704 , x_msg_count out nocopy NUMBER
705 , x_msg_data out nocopy VARCHAR2
706 , p6_a0 out nocopy NUMBER
707 , p6_a1 out nocopy NUMBER
708 , p6_a2 out nocopy VARCHAR2
709 , p6_a3 out nocopy NUMBER
710 , p6_a4 out nocopy NUMBER
711 , p6_a5 out nocopy NUMBER
712 , p6_a6 out nocopy VARCHAR2
713 , p6_a7 out nocopy VARCHAR2
714 , p6_a8 out nocopy VARCHAR2
715 , p6_a9 out nocopy NUMBER
716 , p6_a10 out nocopy DATE
717 , p6_a11 out nocopy NUMBER
718 , p6_a12 out nocopy DATE
719 , p6_a13 out nocopy NUMBER
720 , p5_a0 NUMBER := 0-1962.0724
721 , p5_a1 NUMBER := 0-1962.0724
722 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
723 , p5_a3 NUMBER := 0-1962.0724
724 , p5_a4 NUMBER := 0-1962.0724
725 , p5_a5 NUMBER := 0-1962.0724
726 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
727 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
728 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
729 , p5_a9 NUMBER := 0-1962.0724
730 , p5_a10 DATE := fnd_api.g_miss_date
731 , p5_a11 NUMBER := 0-1962.0724
732 , p5_a12 DATE := fnd_api.g_miss_date
733 , p5_a13 NUMBER := 0-1962.0724
734 )
735
736 as
737 ddp_fprv_rec okl_fpr_pvt.fprv_rec_type;
738 ddx_fprv_rec okl_fpr_pvt.fprv_rec_type;
739 ddindx binary_integer; indx binary_integer;
740 begin
741
742 -- copy data to the local IN or IN-OUT args, if any
743
744
745
746
747
748 ddp_fprv_rec.id := rosetta_g_miss_num_map(p5_a0);
749 ddp_fprv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
750 ddp_fprv_rec.sfwt_flag := p5_a2;
751 ddp_fprv_rec.dsf_id := rosetta_g_miss_num_map(p5_a3);
752 ddp_fprv_rec.pmr_id := rosetta_g_miss_num_map(p5_a4);
753 ddp_fprv_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
754 ddp_fprv_rec.value := p5_a6;
755 ddp_fprv_rec.instructions := p5_a7;
756 ddp_fprv_rec.fpr_type := p5_a8;
757 ddp_fprv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
758 ddp_fprv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
759 ddp_fprv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
760 ddp_fprv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
761 ddp_fprv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
762
763
764 -- here's the delegated call to the old PL/SQL routine
765 okl_fpr_pvt.update_row(p_api_version,
766 p_init_msg_list,
767 x_return_status,
768 x_msg_count,
769 x_msg_data,
770 ddp_fprv_rec,
771 ddx_fprv_rec);
772
773 -- copy data back from the local variables to OUT or IN-OUT args, if any
774
775
776
777
778
779
780 p6_a0 := rosetta_g_miss_num_map(ddx_fprv_rec.id);
781 p6_a1 := rosetta_g_miss_num_map(ddx_fprv_rec.object_version_number);
782 p6_a2 := ddx_fprv_rec.sfwt_flag;
783 p6_a3 := rosetta_g_miss_num_map(ddx_fprv_rec.dsf_id);
784 p6_a4 := rosetta_g_miss_num_map(ddx_fprv_rec.pmr_id);
785 p6_a5 := rosetta_g_miss_num_map(ddx_fprv_rec.sequence_number);
786 p6_a6 := ddx_fprv_rec.value;
787 p6_a7 := ddx_fprv_rec.instructions;
788 p6_a8 := ddx_fprv_rec.fpr_type;
789 p6_a9 := rosetta_g_miss_num_map(ddx_fprv_rec.created_by);
790 p6_a10 := ddx_fprv_rec.creation_date;
791 p6_a11 := rosetta_g_miss_num_map(ddx_fprv_rec.last_updated_by);
792 p6_a12 := ddx_fprv_rec.last_update_date;
793 p6_a13 := rosetta_g_miss_num_map(ddx_fprv_rec.last_update_login);
794 end;
795
796 procedure update_row(p_api_version NUMBER
797 , p_init_msg_list VARCHAR2
798 , x_return_status out nocopy VARCHAR2
799 , x_msg_count out nocopy NUMBER
800 , x_msg_data out nocopy VARCHAR2
801 , p5_a0 JTF_NUMBER_TABLE
802 , p5_a1 JTF_NUMBER_TABLE
803 , p5_a2 JTF_VARCHAR2_TABLE_100
804 , p5_a3 JTF_NUMBER_TABLE
805 , p5_a4 JTF_NUMBER_TABLE
806 , p5_a5 JTF_NUMBER_TABLE
807 , p5_a6 JTF_VARCHAR2_TABLE_300
808 , p5_a7 JTF_VARCHAR2_TABLE_800
809 , p5_a8 JTF_VARCHAR2_TABLE_100
810 , p5_a9 JTF_NUMBER_TABLE
811 , p5_a10 JTF_DATE_TABLE
812 , p5_a11 JTF_NUMBER_TABLE
813 , p5_a12 JTF_DATE_TABLE
814 , p5_a13 JTF_NUMBER_TABLE
815 , p6_a0 out nocopy JTF_NUMBER_TABLE
816 , p6_a1 out nocopy JTF_NUMBER_TABLE
817 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
818 , p6_a3 out nocopy JTF_NUMBER_TABLE
819 , p6_a4 out nocopy JTF_NUMBER_TABLE
820 , p6_a5 out nocopy JTF_NUMBER_TABLE
821 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
822 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_800
823 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
824 , p6_a9 out nocopy JTF_NUMBER_TABLE
825 , p6_a10 out nocopy JTF_DATE_TABLE
826 , p6_a11 out nocopy JTF_NUMBER_TABLE
827 , p6_a12 out nocopy JTF_DATE_TABLE
828 , p6_a13 out nocopy JTF_NUMBER_TABLE
829 )
830
831 as
832 ddp_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
833 ddx_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
834 ddindx binary_integer; indx binary_integer;
835 begin
836
837 -- copy data to the local IN or IN-OUT args, if any
838
839
840
841
842
843 okl_fpr_pvt_w.rosetta_table_copy_in_p8(ddp_fprv_tbl, p5_a0
844 , p5_a1
845 , p5_a2
846 , p5_a3
847 , p5_a4
848 , p5_a5
849 , p5_a6
850 , p5_a7
851 , p5_a8
852 , p5_a9
853 , p5_a10
854 , p5_a11
855 , p5_a12
856 , p5_a13
857 );
858
859
860 -- here's the delegated call to the old PL/SQL routine
861 okl_fpr_pvt.update_row(p_api_version,
862 p_init_msg_list,
863 x_return_status,
864 x_msg_count,
865 x_msg_data,
866 ddp_fprv_tbl,
867 ddx_fprv_tbl);
868
869 -- copy data back from the local variables to OUT or IN-OUT args, if any
870
871
872
873
874
875
876 okl_fpr_pvt_w.rosetta_table_copy_out_p8(ddx_fprv_tbl, p6_a0
877 , p6_a1
878 , p6_a2
879 , p6_a3
880 , p6_a4
881 , p6_a5
882 , p6_a6
883 , p6_a7
884 , p6_a8
885 , p6_a9
886 , p6_a10
887 , p6_a11
888 , p6_a12
889 , p6_a13
890 );
891 end;
892
893 procedure delete_row(p_api_version NUMBER
894 , p_init_msg_list VARCHAR2
895 , x_return_status out nocopy VARCHAR2
896 , x_msg_count out nocopy NUMBER
897 , x_msg_data out nocopy VARCHAR2
898 , p5_a0 NUMBER := 0-1962.0724
899 , p5_a1 NUMBER := 0-1962.0724
900 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
901 , p5_a3 NUMBER := 0-1962.0724
902 , p5_a4 NUMBER := 0-1962.0724
903 , p5_a5 NUMBER := 0-1962.0724
904 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
905 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
906 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
907 , p5_a9 NUMBER := 0-1962.0724
908 , p5_a10 DATE := fnd_api.g_miss_date
909 , p5_a11 NUMBER := 0-1962.0724
910 , p5_a12 DATE := fnd_api.g_miss_date
911 , p5_a13 NUMBER := 0-1962.0724
912 )
913
914 as
915 ddp_fprv_rec okl_fpr_pvt.fprv_rec_type;
916 ddindx binary_integer; indx binary_integer;
917 begin
918
919 -- copy data to the local IN or IN-OUT args, if any
920
921
922
923
924
925 ddp_fprv_rec.id := rosetta_g_miss_num_map(p5_a0);
926 ddp_fprv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
927 ddp_fprv_rec.sfwt_flag := p5_a2;
928 ddp_fprv_rec.dsf_id := rosetta_g_miss_num_map(p5_a3);
929 ddp_fprv_rec.pmr_id := rosetta_g_miss_num_map(p5_a4);
930 ddp_fprv_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
931 ddp_fprv_rec.value := p5_a6;
932 ddp_fprv_rec.instructions := p5_a7;
933 ddp_fprv_rec.fpr_type := p5_a8;
934 ddp_fprv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
935 ddp_fprv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
936 ddp_fprv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
937 ddp_fprv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
938 ddp_fprv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
939
940 -- here's the delegated call to the old PL/SQL routine
941 okl_fpr_pvt.delete_row(p_api_version,
942 p_init_msg_list,
943 x_return_status,
944 x_msg_count,
945 x_msg_data,
946 ddp_fprv_rec);
947
948 -- copy data back from the local variables to OUT or IN-OUT args, if any
949
950
951
952
953
954 end;
955
956 procedure delete_row(p_api_version NUMBER
957 , p_init_msg_list VARCHAR2
958 , x_return_status out nocopy VARCHAR2
959 , x_msg_count out nocopy NUMBER
960 , x_msg_data out nocopy VARCHAR2
961 , p5_a0 JTF_NUMBER_TABLE
962 , p5_a1 JTF_NUMBER_TABLE
963 , p5_a2 JTF_VARCHAR2_TABLE_100
964 , p5_a3 JTF_NUMBER_TABLE
965 , p5_a4 JTF_NUMBER_TABLE
966 , p5_a5 JTF_NUMBER_TABLE
967 , p5_a6 JTF_VARCHAR2_TABLE_300
968 , p5_a7 JTF_VARCHAR2_TABLE_800
969 , p5_a8 JTF_VARCHAR2_TABLE_100
970 , p5_a9 JTF_NUMBER_TABLE
971 , p5_a10 JTF_DATE_TABLE
972 , p5_a11 JTF_NUMBER_TABLE
973 , p5_a12 JTF_DATE_TABLE
974 , p5_a13 JTF_NUMBER_TABLE
975 )
976
977 as
978 ddp_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
979 ddindx binary_integer; indx binary_integer;
980 begin
981
982 -- copy data to the local IN or IN-OUT args, if any
983
984
985
986
987
988 okl_fpr_pvt_w.rosetta_table_copy_in_p8(ddp_fprv_tbl, p5_a0
989 , p5_a1
990 , p5_a2
991 , p5_a3
992 , p5_a4
993 , p5_a5
994 , p5_a6
995 , p5_a7
996 , p5_a8
997 , p5_a9
998 , p5_a10
999 , p5_a11
1000 , p5_a12
1001 , p5_a13
1002 );
1003
1004 -- here's the delegated call to the old PL/SQL routine
1005 okl_fpr_pvt.delete_row(p_api_version,
1006 p_init_msg_list,
1007 x_return_status,
1008 x_msg_count,
1009 x_msg_data,
1010 ddp_fprv_tbl);
1011
1012 -- copy data back from the local variables to OUT or IN-OUT args, if any
1013
1014
1015
1016
1017
1018 end;
1019
1020 procedure validate_row(p_api_version NUMBER
1021 , p_init_msg_list VARCHAR2
1022 , x_return_status out nocopy VARCHAR2
1023 , x_msg_count out nocopy NUMBER
1024 , x_msg_data out nocopy VARCHAR2
1025 , p5_a0 NUMBER := 0-1962.0724
1026 , p5_a1 NUMBER := 0-1962.0724
1027 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1028 , p5_a3 NUMBER := 0-1962.0724
1029 , p5_a4 NUMBER := 0-1962.0724
1030 , p5_a5 NUMBER := 0-1962.0724
1031 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1032 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1033 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1034 , p5_a9 NUMBER := 0-1962.0724
1035 , p5_a10 DATE := fnd_api.g_miss_date
1036 , p5_a11 NUMBER := 0-1962.0724
1037 , p5_a12 DATE := fnd_api.g_miss_date
1038 , p5_a13 NUMBER := 0-1962.0724
1039 )
1040
1041 as
1042 ddp_fprv_rec okl_fpr_pvt.fprv_rec_type;
1043 ddindx binary_integer; indx binary_integer;
1044 begin
1045
1046 -- copy data to the local IN or IN-OUT args, if any
1047
1048
1049
1050
1051
1052 ddp_fprv_rec.id := rosetta_g_miss_num_map(p5_a0);
1053 ddp_fprv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1054 ddp_fprv_rec.sfwt_flag := p5_a2;
1055 ddp_fprv_rec.dsf_id := rosetta_g_miss_num_map(p5_a3);
1056 ddp_fprv_rec.pmr_id := rosetta_g_miss_num_map(p5_a4);
1057 ddp_fprv_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
1058 ddp_fprv_rec.value := p5_a6;
1059 ddp_fprv_rec.instructions := p5_a7;
1060 ddp_fprv_rec.fpr_type := p5_a8;
1061 ddp_fprv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
1062 ddp_fprv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
1063 ddp_fprv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
1064 ddp_fprv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
1065 ddp_fprv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
1066
1067 -- here's the delegated call to the old PL/SQL routine
1068 okl_fpr_pvt.validate_row(p_api_version,
1069 p_init_msg_list,
1070 x_return_status,
1071 x_msg_count,
1072 x_msg_data,
1073 ddp_fprv_rec);
1074
1075 -- copy data back from the local variables to OUT or IN-OUT args, if any
1076
1077
1078
1079
1080
1081 end;
1082
1083 procedure validate_row(p_api_version NUMBER
1084 , p_init_msg_list VARCHAR2
1085 , x_return_status out nocopy VARCHAR2
1086 , x_msg_count out nocopy NUMBER
1087 , x_msg_data out nocopy VARCHAR2
1088 , p5_a0 JTF_NUMBER_TABLE
1089 , p5_a1 JTF_NUMBER_TABLE
1090 , p5_a2 JTF_VARCHAR2_TABLE_100
1091 , p5_a3 JTF_NUMBER_TABLE
1092 , p5_a4 JTF_NUMBER_TABLE
1093 , p5_a5 JTF_NUMBER_TABLE
1094 , p5_a6 JTF_VARCHAR2_TABLE_300
1095 , p5_a7 JTF_VARCHAR2_TABLE_800
1096 , p5_a8 JTF_VARCHAR2_TABLE_100
1097 , p5_a9 JTF_NUMBER_TABLE
1098 , p5_a10 JTF_DATE_TABLE
1099 , p5_a11 JTF_NUMBER_TABLE
1100 , p5_a12 JTF_DATE_TABLE
1101 , p5_a13 JTF_NUMBER_TABLE
1102 )
1103
1104 as
1105 ddp_fprv_tbl okl_fpr_pvt.fprv_tbl_type;
1106 ddindx binary_integer; indx binary_integer;
1107 begin
1108
1109 -- copy data to the local IN or IN-OUT args, if any
1110
1111
1112
1113
1114
1115 okl_fpr_pvt_w.rosetta_table_copy_in_p8(ddp_fprv_tbl, p5_a0
1116 , p5_a1
1117 , p5_a2
1118 , p5_a3
1119 , p5_a4
1120 , p5_a5
1121 , p5_a6
1122 , p5_a7
1123 , p5_a8
1124 , p5_a9
1125 , p5_a10
1126 , p5_a11
1127 , p5_a12
1128 , p5_a13
1129 );
1130
1131 -- here's the delegated call to the old PL/SQL routine
1132 okl_fpr_pvt.validate_row(p_api_version,
1133 p_init_msg_list,
1134 x_return_status,
1135 x_msg_count,
1136 x_msg_data,
1137 ddp_fprv_tbl);
1138
1139 -- copy data back from the local variables to OUT or IN-OUT args, if any
1140
1141
1142
1143
1144
1145 end;
1146
1147 end okl_fpr_pvt_w;