[Home] [Help]
PACKAGE BODY: APPS.OZF_PROCESS_SETUP_PVT_W
Source
1 package body ozf_process_setup_pvt_w as
2 /* $Header: ozfwpseb.pls 120.0 2007/12/21 07:19:36 gdeepika 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 procedure rosetta_table_copy_in_p3(t out nocopy ozf_process_setup_pvt.process_setup_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_DATE_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_DATE_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_NUMBER_TABLE
22 , a9 JTF_DATE_TABLE
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_NUMBER_TABLE
26 , a13 JTF_NUMBER_TABLE
27 , a14 JTF_VARCHAR2_TABLE_100
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_VARCHAR2_TABLE_100
31 , a18 JTF_VARCHAR2_TABLE_200
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_200
34 , a21 JTF_VARCHAR2_TABLE_200
35 , a22 JTF_VARCHAR2_TABLE_200
36 , a23 JTF_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_200
43 , a30 JTF_VARCHAR2_TABLE_200
44 , a31 JTF_VARCHAR2_TABLE_200
45 , a32 JTF_VARCHAR2_TABLE_200
46 , a33 JTF_NUMBER_TABLE
47 ) as
48 ddindx binary_integer; indx binary_integer;
49 begin
50 if a0 is not null and a0.count=0 then
51 t := ozf_process_setup_pvt.process_setup_tbl_type();
52 elsif a0 is not null and a0.count > 0 then
53 if a0.count > 0 then
54 t := ozf_process_setup_pvt.process_setup_tbl_type();
55 t.extend(a0.count);
56 indx := a0.first;
57 ddindx := 1;
58 while true loop
59 t(ddindx).process_setup_id := a0(indx);
60 t(ddindx).object_version_number := a1(indx);
61 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
62 t(ddindx).last_updated_by := a3(indx);
63 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
64 t(ddindx).created_by := a5(indx);
65 t(ddindx).last_update_login := a6(indx);
66 t(ddindx).request_id := a7(indx);
67 t(ddindx).program_application_id := a8(indx);
68 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a9(indx));
69 t(ddindx).program_id := a10(indx);
70 t(ddindx).created_from := a11(indx);
71 t(ddindx).org_id := a12(indx);
72 t(ddindx).supp_trade_profile_id := a13(indx);
73 t(ddindx).process_code := a14(indx);
74 t(ddindx).enabled_flag := a15(indx);
75 t(ddindx).automatic_flag := a16(indx);
76 t(ddindx).attribute_category := a17(indx);
77 t(ddindx).attribute1 := a18(indx);
78 t(ddindx).attribute2 := a19(indx);
79 t(ddindx).attribute3 := a20(indx);
80 t(ddindx).attribute4 := a21(indx);
81 t(ddindx).attribute5 := a22(indx);
82 t(ddindx).attribute6 := a23(indx);
83 t(ddindx).attribute7 := a24(indx);
84 t(ddindx).attribute8 := a25(indx);
85 t(ddindx).attribute9 := a26(indx);
86 t(ddindx).attribute10 := a27(indx);
87 t(ddindx).attribute11 := a28(indx);
88 t(ddindx).attribute12 := a29(indx);
89 t(ddindx).attribute13 := a30(indx);
90 t(ddindx).attribute14 := a31(indx);
91 t(ddindx).attribute15 := a32(indx);
92 t(ddindx).security_group_id := a33(indx);
93 ddindx := ddindx+1;
94 if a0.last =indx
95 then exit;
96 end if;
97 indx := a0.next(indx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_in_p3;
102 procedure rosetta_table_copy_out_p3(t ozf_process_setup_pvt.process_setup_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
103 , a1 out nocopy JTF_NUMBER_TABLE
104 , a2 out nocopy JTF_DATE_TABLE
105 , a3 out nocopy JTF_NUMBER_TABLE
106 , a4 out nocopy JTF_DATE_TABLE
107 , a5 out nocopy JTF_NUMBER_TABLE
108 , a6 out nocopy JTF_NUMBER_TABLE
109 , a7 out nocopy JTF_NUMBER_TABLE
110 , a8 out nocopy JTF_NUMBER_TABLE
111 , a9 out nocopy JTF_DATE_TABLE
112 , a10 out nocopy JTF_NUMBER_TABLE
113 , a11 out nocopy JTF_VARCHAR2_TABLE_100
114 , a12 out nocopy JTF_NUMBER_TABLE
115 , a13 out nocopy JTF_NUMBER_TABLE
116 , a14 out nocopy JTF_VARCHAR2_TABLE_100
117 , a15 out nocopy JTF_VARCHAR2_TABLE_100
118 , a16 out nocopy JTF_VARCHAR2_TABLE_100
119 , a17 out nocopy JTF_VARCHAR2_TABLE_100
120 , a18 out nocopy JTF_VARCHAR2_TABLE_200
121 , a19 out nocopy JTF_VARCHAR2_TABLE_200
122 , a20 out nocopy JTF_VARCHAR2_TABLE_200
123 , a21 out nocopy JTF_VARCHAR2_TABLE_200
124 , a22 out nocopy JTF_VARCHAR2_TABLE_200
125 , a23 out nocopy JTF_VARCHAR2_TABLE_200
126 , a24 out nocopy JTF_VARCHAR2_TABLE_200
127 , a25 out nocopy JTF_VARCHAR2_TABLE_200
128 , a26 out nocopy JTF_VARCHAR2_TABLE_200
129 , a27 out nocopy JTF_VARCHAR2_TABLE_200
130 , a28 out nocopy JTF_VARCHAR2_TABLE_200
131 , a29 out nocopy JTF_VARCHAR2_TABLE_200
132 , a30 out nocopy JTF_VARCHAR2_TABLE_200
133 , a31 out nocopy JTF_VARCHAR2_TABLE_200
134 , a32 out nocopy JTF_VARCHAR2_TABLE_200
135 , a33 out nocopy JTF_NUMBER_TABLE
136 ) as
137 ddindx binary_integer; indx binary_integer;
138 begin
139 if t is null then
140 a0 := null;
141 a1 := null;
142 a2 := null;
143 a3 := null;
144 a4 := null;
145 a5 := null;
146 a6 := null;
147 a7 := null;
148 a8 := null;
149 a9 := null;
150 a10 := null;
151 a11 := null;
152 a12 := null;
153 a13 := null;
154 a14 := null;
155 a15 := null;
156 a16 := null;
157 a17 := null;
158 a18 := null;
159 a19 := null;
160 a20 := null;
161 a21 := null;
162 a22 := null;
163 a23 := null;
164 a24 := null;
165 a25 := null;
166 a26 := null;
167 a27 := null;
168 a28 := null;
169 a29 := null;
170 a30 := null;
171 a31 := null;
172 a32 := null;
173 a33 := null;
174 elsif t.count = 0 then
175 a0 := JTF_NUMBER_TABLE();
176 a1 := JTF_NUMBER_TABLE();
177 a2 := JTF_DATE_TABLE();
178 a3 := JTF_NUMBER_TABLE();
179 a4 := JTF_DATE_TABLE();
180 a5 := JTF_NUMBER_TABLE();
181 a6 := JTF_NUMBER_TABLE();
182 a7 := JTF_NUMBER_TABLE();
183 a8 := JTF_NUMBER_TABLE();
184 a9 := JTF_DATE_TABLE();
185 a10 := JTF_NUMBER_TABLE();
186 a11 := JTF_VARCHAR2_TABLE_100();
187 a12 := JTF_NUMBER_TABLE();
188 a13 := JTF_NUMBER_TABLE();
189 a14 := JTF_VARCHAR2_TABLE_100();
190 a15 := JTF_VARCHAR2_TABLE_100();
191 a16 := JTF_VARCHAR2_TABLE_100();
192 a17 := JTF_VARCHAR2_TABLE_100();
193 a18 := JTF_VARCHAR2_TABLE_200();
194 a19 := JTF_VARCHAR2_TABLE_200();
195 a20 := JTF_VARCHAR2_TABLE_200();
196 a21 := JTF_VARCHAR2_TABLE_200();
197 a22 := JTF_VARCHAR2_TABLE_200();
198 a23 := JTF_VARCHAR2_TABLE_200();
199 a24 := JTF_VARCHAR2_TABLE_200();
200 a25 := JTF_VARCHAR2_TABLE_200();
201 a26 := JTF_VARCHAR2_TABLE_200();
202 a27 := JTF_VARCHAR2_TABLE_200();
203 a28 := JTF_VARCHAR2_TABLE_200();
204 a29 := JTF_VARCHAR2_TABLE_200();
205 a30 := JTF_VARCHAR2_TABLE_200();
206 a31 := JTF_VARCHAR2_TABLE_200();
207 a32 := JTF_VARCHAR2_TABLE_200();
208 a33 := JTF_NUMBER_TABLE();
209 else
210 a0 := JTF_NUMBER_TABLE();
211 a1 := JTF_NUMBER_TABLE();
212 a2 := JTF_DATE_TABLE();
213 a3 := JTF_NUMBER_TABLE();
214 a4 := JTF_DATE_TABLE();
215 a5 := JTF_NUMBER_TABLE();
216 a6 := JTF_NUMBER_TABLE();
217 a7 := JTF_NUMBER_TABLE();
218 a8 := JTF_NUMBER_TABLE();
219 a9 := JTF_DATE_TABLE();
220 a10 := JTF_NUMBER_TABLE();
221 a11 := JTF_VARCHAR2_TABLE_100();
222 a12 := JTF_NUMBER_TABLE();
223 a13 := JTF_NUMBER_TABLE();
224 a14 := JTF_VARCHAR2_TABLE_100();
225 a15 := JTF_VARCHAR2_TABLE_100();
226 a16 := JTF_VARCHAR2_TABLE_100();
227 a17 := JTF_VARCHAR2_TABLE_100();
228 a18 := JTF_VARCHAR2_TABLE_200();
229 a19 := JTF_VARCHAR2_TABLE_200();
230 a20 := JTF_VARCHAR2_TABLE_200();
231 a21 := JTF_VARCHAR2_TABLE_200();
232 a22 := JTF_VARCHAR2_TABLE_200();
233 a23 := JTF_VARCHAR2_TABLE_200();
234 a24 := JTF_VARCHAR2_TABLE_200();
235 a25 := JTF_VARCHAR2_TABLE_200();
236 a26 := JTF_VARCHAR2_TABLE_200();
237 a27 := JTF_VARCHAR2_TABLE_200();
238 a28 := JTF_VARCHAR2_TABLE_200();
239 a29 := JTF_VARCHAR2_TABLE_200();
240 a30 := JTF_VARCHAR2_TABLE_200();
241 a31 := JTF_VARCHAR2_TABLE_200();
242 a32 := JTF_VARCHAR2_TABLE_200();
243 a33 := JTF_NUMBER_TABLE();
244 if t.count > 0 then
245 a0.extend(t.count);
246 a1.extend(t.count);
247 a2.extend(t.count);
248 a3.extend(t.count);
249 a4.extend(t.count);
250 a5.extend(t.count);
251 a6.extend(t.count);
252 a7.extend(t.count);
253 a8.extend(t.count);
254 a9.extend(t.count);
255 a10.extend(t.count);
256 a11.extend(t.count);
257 a12.extend(t.count);
258 a13.extend(t.count);
259 a14.extend(t.count);
260 a15.extend(t.count);
261 a16.extend(t.count);
262 a17.extend(t.count);
263 a18.extend(t.count);
264 a19.extend(t.count);
265 a20.extend(t.count);
266 a21.extend(t.count);
267 a22.extend(t.count);
268 a23.extend(t.count);
269 a24.extend(t.count);
270 a25.extend(t.count);
271 a26.extend(t.count);
272 a27.extend(t.count);
273 a28.extend(t.count);
274 a29.extend(t.count);
275 a30.extend(t.count);
276 a31.extend(t.count);
277 a32.extend(t.count);
278 a33.extend(t.count);
279 ddindx := t.first;
280 indx := 1;
281 while true loop
282 a0(indx) := t(ddindx).process_setup_id;
283 a1(indx) := t(ddindx).object_version_number;
284 a2(indx) := t(ddindx).last_update_date;
285 a3(indx) := t(ddindx).last_updated_by;
286 a4(indx) := t(ddindx).creation_date;
287 a5(indx) := t(ddindx).created_by;
288 a6(indx) := t(ddindx).last_update_login;
289 a7(indx) := t(ddindx).request_id;
290 a8(indx) := t(ddindx).program_application_id;
291 a9(indx) := t(ddindx).program_update_date;
292 a10(indx) := t(ddindx).program_id;
293 a11(indx) := t(ddindx).created_from;
294 a12(indx) := t(ddindx).org_id;
295 a13(indx) := t(ddindx).supp_trade_profile_id;
296 a14(indx) := t(ddindx).process_code;
297 a15(indx) := t(ddindx).enabled_flag;
298 a16(indx) := t(ddindx).automatic_flag;
299 a17(indx) := t(ddindx).attribute_category;
300 a18(indx) := t(ddindx).attribute1;
301 a19(indx) := t(ddindx).attribute2;
302 a20(indx) := t(ddindx).attribute3;
303 a21(indx) := t(ddindx).attribute4;
304 a22(indx) := t(ddindx).attribute5;
305 a23(indx) := t(ddindx).attribute6;
306 a24(indx) := t(ddindx).attribute7;
307 a25(indx) := t(ddindx).attribute8;
308 a26(indx) := t(ddindx).attribute9;
309 a27(indx) := t(ddindx).attribute10;
310 a28(indx) := t(ddindx).attribute11;
311 a29(indx) := t(ddindx).attribute12;
312 a30(indx) := t(ddindx).attribute13;
313 a31(indx) := t(ddindx).attribute14;
314 a32(indx) := t(ddindx).attribute15;
315 a33(indx) := t(ddindx).security_group_id;
316 indx := indx+1;
317 if t.last =ddindx
318 then exit;
319 end if;
320 ddindx := t.next(ddindx);
321 end loop;
322 end if;
323 end if;
324 end rosetta_table_copy_out_p3;
325
326 procedure update_process_setup_tbl(p_api_version_number NUMBER
327 , p_init_msg_list VARCHAR2
328 , p_commit VARCHAR2
329 , p_validation_level NUMBER
330 , x_return_status out nocopy VARCHAR2
331 , x_msg_count out nocopy NUMBER
332 , x_msg_data out nocopy VARCHAR2
333 , p7_a0 JTF_NUMBER_TABLE
334 , p7_a1 JTF_NUMBER_TABLE
335 , p7_a2 JTF_DATE_TABLE
336 , p7_a3 JTF_NUMBER_TABLE
337 , p7_a4 JTF_DATE_TABLE
338 , p7_a5 JTF_NUMBER_TABLE
339 , p7_a6 JTF_NUMBER_TABLE
340 , p7_a7 JTF_NUMBER_TABLE
341 , p7_a8 JTF_NUMBER_TABLE
342 , p7_a9 JTF_DATE_TABLE
343 , p7_a10 JTF_NUMBER_TABLE
344 , p7_a11 JTF_VARCHAR2_TABLE_100
345 , p7_a12 JTF_NUMBER_TABLE
346 , p7_a13 JTF_NUMBER_TABLE
347 , p7_a14 JTF_VARCHAR2_TABLE_100
348 , p7_a15 JTF_VARCHAR2_TABLE_100
349 , p7_a16 JTF_VARCHAR2_TABLE_100
350 , p7_a17 JTF_VARCHAR2_TABLE_100
351 , p7_a18 JTF_VARCHAR2_TABLE_200
352 , p7_a19 JTF_VARCHAR2_TABLE_200
353 , p7_a20 JTF_VARCHAR2_TABLE_200
354 , p7_a21 JTF_VARCHAR2_TABLE_200
355 , p7_a22 JTF_VARCHAR2_TABLE_200
356 , p7_a23 JTF_VARCHAR2_TABLE_200
357 , p7_a24 JTF_VARCHAR2_TABLE_200
358 , p7_a25 JTF_VARCHAR2_TABLE_200
359 , p7_a26 JTF_VARCHAR2_TABLE_200
360 , p7_a27 JTF_VARCHAR2_TABLE_200
361 , p7_a28 JTF_VARCHAR2_TABLE_200
362 , p7_a29 JTF_VARCHAR2_TABLE_200
363 , p7_a30 JTF_VARCHAR2_TABLE_200
364 , p7_a31 JTF_VARCHAR2_TABLE_200
365 , p7_a32 JTF_VARCHAR2_TABLE_200
366 , p7_a33 JTF_NUMBER_TABLE
367 )
368
369 as
370 ddp_process_setup_tbl ozf_process_setup_pvt.process_setup_tbl_type;
371 ddindx binary_integer; indx binary_integer;
372 begin
373
374 -- copy data to the local IN or IN-OUT args, if any
375
376
377
378
379
380
381
382 ozf_process_setup_pvt_w.rosetta_table_copy_in_p3(ddp_process_setup_tbl, p7_a0
383 , p7_a1
384 , p7_a2
385 , p7_a3
386 , p7_a4
387 , p7_a5
388 , p7_a6
389 , p7_a7
390 , p7_a8
391 , p7_a9
392 , p7_a10
393 , p7_a11
394 , p7_a12
395 , p7_a13
396 , p7_a14
397 , p7_a15
398 , p7_a16
399 , p7_a17
400 , p7_a18
401 , p7_a19
402 , p7_a20
403 , p7_a21
404 , p7_a22
405 , p7_a23
406 , p7_a24
407 , p7_a25
408 , p7_a26
409 , p7_a27
410 , p7_a28
411 , p7_a29
412 , p7_a30
413 , p7_a31
414 , p7_a32
415 , p7_a33
416 );
417
418 -- here's the delegated call to the old PL/SQL routine
419 ozf_process_setup_pvt.update_process_setup_tbl(p_api_version_number,
420 p_init_msg_list,
421 p_commit,
422 p_validation_level,
423 x_return_status,
424 x_msg_count,
425 x_msg_data,
426 ddp_process_setup_tbl);
427
428 -- copy data back from the local variables to OUT or IN-OUT args, if any
429
430
431
432
433
434
435
436 end;
437
438 procedure check_uniq_process_setup(p0_a0 NUMBER
439 , p0_a1 NUMBER
440 , p0_a2 DATE
441 , p0_a3 NUMBER
442 , p0_a4 DATE
443 , p0_a5 NUMBER
444 , p0_a6 NUMBER
445 , p0_a7 NUMBER
446 , p0_a8 NUMBER
447 , p0_a9 DATE
448 , p0_a10 NUMBER
449 , p0_a11 VARCHAR2
450 , p0_a12 NUMBER
451 , p0_a13 NUMBER
452 , p0_a14 VARCHAR2
453 , p0_a15 VARCHAR2
454 , p0_a16 VARCHAR2
455 , p0_a17 VARCHAR2
456 , p0_a18 VARCHAR2
457 , p0_a19 VARCHAR2
458 , p0_a20 VARCHAR2
459 , p0_a21 VARCHAR2
460 , p0_a22 VARCHAR2
461 , p0_a23 VARCHAR2
462 , p0_a24 VARCHAR2
463 , p0_a25 VARCHAR2
464 , p0_a26 VARCHAR2
465 , p0_a27 VARCHAR2
466 , p0_a28 VARCHAR2
467 , p0_a29 VARCHAR2
468 , p0_a30 VARCHAR2
469 , p0_a31 VARCHAR2
470 , p0_a32 VARCHAR2
471 , p0_a33 NUMBER
472 , p_validation_mode VARCHAR2
473 , x_return_status out nocopy VARCHAR2
474 )
475
476 as
477 ddp_process_setup_rec ozf_process_setup_pvt.process_setup_rec_type;
478 ddindx binary_integer; indx binary_integer;
479 begin
480
481 -- copy data to the local IN or IN-OUT args, if any
482 ddp_process_setup_rec.process_setup_id := p0_a0;
483 ddp_process_setup_rec.object_version_number := p0_a1;
484 ddp_process_setup_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
485 ddp_process_setup_rec.last_updated_by := p0_a3;
486 ddp_process_setup_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
487 ddp_process_setup_rec.created_by := p0_a5;
488 ddp_process_setup_rec.last_update_login := p0_a6;
489 ddp_process_setup_rec.request_id := p0_a7;
490 ddp_process_setup_rec.program_application_id := p0_a8;
491 ddp_process_setup_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a9);
492 ddp_process_setup_rec.program_id := p0_a10;
493 ddp_process_setup_rec.created_from := p0_a11;
494 ddp_process_setup_rec.org_id := p0_a12;
495 ddp_process_setup_rec.supp_trade_profile_id := p0_a13;
496 ddp_process_setup_rec.process_code := p0_a14;
497 ddp_process_setup_rec.enabled_flag := p0_a15;
498 ddp_process_setup_rec.automatic_flag := p0_a16;
499 ddp_process_setup_rec.attribute_category := p0_a17;
500 ddp_process_setup_rec.attribute1 := p0_a18;
501 ddp_process_setup_rec.attribute2 := p0_a19;
502 ddp_process_setup_rec.attribute3 := p0_a20;
503 ddp_process_setup_rec.attribute4 := p0_a21;
504 ddp_process_setup_rec.attribute5 := p0_a22;
505 ddp_process_setup_rec.attribute6 := p0_a23;
506 ddp_process_setup_rec.attribute7 := p0_a24;
507 ddp_process_setup_rec.attribute8 := p0_a25;
508 ddp_process_setup_rec.attribute9 := p0_a26;
509 ddp_process_setup_rec.attribute10 := p0_a27;
510 ddp_process_setup_rec.attribute11 := p0_a28;
511 ddp_process_setup_rec.attribute12 := p0_a29;
512 ddp_process_setup_rec.attribute13 := p0_a30;
513 ddp_process_setup_rec.attribute14 := p0_a31;
514 ddp_process_setup_rec.attribute15 := p0_a32;
515 ddp_process_setup_rec.security_group_id := p0_a33;
516
517
518
519 -- here's the delegated call to the old PL/SQL routine
520 ozf_process_setup_pvt.check_uniq_process_setup(ddp_process_setup_rec,
521 p_validation_mode,
522 x_return_status);
523
524 -- copy data back from the local variables to OUT or IN-OUT args, if any
525
526
527 end;
528
529 procedure validate_process_setup(p_api_version_number NUMBER
530 , p_init_msg_list VARCHAR2
531 , p_validation_level NUMBER
532 , p_validation_mode VARCHAR2
533 , p4_a0 JTF_NUMBER_TABLE
534 , p4_a1 JTF_NUMBER_TABLE
535 , p4_a2 JTF_DATE_TABLE
536 , p4_a3 JTF_NUMBER_TABLE
537 , p4_a4 JTF_DATE_TABLE
538 , p4_a5 JTF_NUMBER_TABLE
539 , p4_a6 JTF_NUMBER_TABLE
540 , p4_a7 JTF_NUMBER_TABLE
541 , p4_a8 JTF_NUMBER_TABLE
542 , p4_a9 JTF_DATE_TABLE
543 , p4_a10 JTF_NUMBER_TABLE
544 , p4_a11 JTF_VARCHAR2_TABLE_100
545 , p4_a12 JTF_NUMBER_TABLE
546 , p4_a13 JTF_NUMBER_TABLE
547 , p4_a14 JTF_VARCHAR2_TABLE_100
548 , p4_a15 JTF_VARCHAR2_TABLE_100
549 , p4_a16 JTF_VARCHAR2_TABLE_100
550 , p4_a17 JTF_VARCHAR2_TABLE_100
551 , p4_a18 JTF_VARCHAR2_TABLE_200
552 , p4_a19 JTF_VARCHAR2_TABLE_200
553 , p4_a20 JTF_VARCHAR2_TABLE_200
554 , p4_a21 JTF_VARCHAR2_TABLE_200
555 , p4_a22 JTF_VARCHAR2_TABLE_200
556 , p4_a23 JTF_VARCHAR2_TABLE_200
557 , p4_a24 JTF_VARCHAR2_TABLE_200
558 , p4_a25 JTF_VARCHAR2_TABLE_200
559 , p4_a26 JTF_VARCHAR2_TABLE_200
560 , p4_a27 JTF_VARCHAR2_TABLE_200
561 , p4_a28 JTF_VARCHAR2_TABLE_200
562 , p4_a29 JTF_VARCHAR2_TABLE_200
563 , p4_a30 JTF_VARCHAR2_TABLE_200
564 , p4_a31 JTF_VARCHAR2_TABLE_200
565 , p4_a32 JTF_VARCHAR2_TABLE_200
566 , p4_a33 JTF_NUMBER_TABLE
567 , x_return_status out nocopy VARCHAR2
568 , x_msg_count out nocopy NUMBER
569 , x_msg_data out nocopy VARCHAR2
570 )
571
572 as
573 ddp_process_setup_tbl ozf_process_setup_pvt.process_setup_tbl_type;
574 ddindx binary_integer; indx binary_integer;
575 begin
576
577 -- copy data to the local IN or IN-OUT args, if any
578
579
580
581
582 ozf_process_setup_pvt_w.rosetta_table_copy_in_p3(ddp_process_setup_tbl, p4_a0
583 , p4_a1
584 , p4_a2
585 , p4_a3
586 , p4_a4
587 , p4_a5
588 , p4_a6
589 , p4_a7
590 , p4_a8
591 , p4_a9
592 , p4_a10
593 , p4_a11
594 , p4_a12
595 , p4_a13
596 , p4_a14
597 , p4_a15
598 , p4_a16
599 , p4_a17
600 , p4_a18
601 , p4_a19
602 , p4_a20
603 , p4_a21
604 , p4_a22
605 , p4_a23
606 , p4_a24
607 , p4_a25
608 , p4_a26
609 , p4_a27
610 , p4_a28
611 , p4_a29
612 , p4_a30
613 , p4_a31
614 , p4_a32
615 , p4_a33
616 );
617
618
619
620
621 -- here's the delegated call to the old PL/SQL routine
622 ozf_process_setup_pvt.validate_process_setup(p_api_version_number,
623 p_init_msg_list,
624 p_validation_level,
625 p_validation_mode,
626 ddp_process_setup_tbl,
627 x_return_status,
628 x_msg_count,
629 x_msg_data);
630
631 -- copy data back from the local variables to OUT or IN-OUT args, if any
632
633
634
635
636
637
638
639 end;
640
641 end ozf_process_setup_pvt_w;