[Home] [Help]
PACKAGE BODY: APPS.JTF_DPF_W
Source
1 package body jtf_dpf_w as
2 /* $Header: jtfdpwb.pls 120.2 2005/10/25 05:19:14 psanyal ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p9(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.new_rule_param_tbl, a0 JTF_VARCHAR2_TABLE_100
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_100
25 ) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is not null and a0.count > 0 then
29 if a0.count > 0 then
30 indx := a0.first;
31 ddindx := 1;
32 while true loop
33 t(ddindx).condition := a0(indx);
34 t(ddindx).param_name := a1(indx);
35 t(ddindx).param_value := a2(indx);
36 ddindx := ddindx+1;
37 if a0.last =indx
38 then exit;
39 end if;
40 indx := a0.next(indx);
41 end loop;
42 end if;
43 end if;
44 end rosetta_table_copy_in_p9;
45 procedure rosetta_table_copy_out_p9(t jtf_dpf.new_rule_param_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
46 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
47 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if t is null or t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_100();
53 a1 := JTF_VARCHAR2_TABLE_100();
54 a2 := JTF_VARCHAR2_TABLE_100();
55 else
56 a0 := JTF_VARCHAR2_TABLE_100();
57 a1 := JTF_VARCHAR2_TABLE_100();
58 a2 := JTF_VARCHAR2_TABLE_100();
59 if t.count > 0 then
60 a0.extend(t.count);
61 a1.extend(t.count);
62 a2.extend(t.count);
63 ddindx := t.first;
64 indx := 1;
65 while true loop
66 a0(indx) := t(ddindx).condition;
67 a1(indx) := t(ddindx).param_name;
68 a2(indx) := t(ddindx).param_value;
69 indx := indx+1;
70 if t.last =ddindx
71 then exit;
72 end if;
73 ddindx := t.next(ddindx);
74 end loop;
75 end if;
76 end if;
77 end rosetta_table_copy_out_p9;
78
79 procedure rosetta_table_copy_in_p11(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.new_phys_non_def_tbl, a0 JTF_NUMBER_TABLE
80 , a1 JTF_NUMBER_TABLE
81 ) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if a0 is not null and a0.count > 0 then
85 if a0.count > 0 then
86 indx := a0.first;
87 ddindx := 1;
88 while true loop
89 t(ddindx).rule_id := rosetta_g_miss_num_map(a0(indx));
90 t(ddindx).physical_page_id := rosetta_g_miss_num_map(a1(indx));
91 ddindx := ddindx+1;
92 if a0.last =indx
93 then exit;
94 end if;
95 indx := a0.next(indx);
96 end loop;
97 end if;
98 end if;
99 end rosetta_table_copy_in_p11;
100 procedure rosetta_table_copy_out_p11(t jtf_dpf.new_phys_non_def_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
101 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
102 ) as
103 ddindx binary_integer; indx binary_integer;
104 begin
105 if t is null or t.count = 0 then
106 a0 := JTF_NUMBER_TABLE();
107 a1 := JTF_NUMBER_TABLE();
108 else
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_NUMBER_TABLE();
111 if t.count > 0 then
112 a0.extend(t.count);
113 a1.extend(t.count);
114 ddindx := t.first;
115 indx := 1;
116 while true loop
117 a0(indx) := rosetta_g_miss_num_map(t(ddindx).rule_id);
118 a1(indx) := rosetta_g_miss_num_map(t(ddindx).physical_page_id);
119 indx := indx+1;
120 if t.last =ddindx
121 then exit;
122 end if;
123 ddindx := t.next(ddindx);
124 end loop;
125 end if;
126 end if;
127 end rosetta_table_copy_out_p11;
128
129 procedure rosetta_table_copy_in_p13(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.new_next_log_non_def_tbl, a0 JTF_NUMBER_TABLE
130 , a1 JTF_NUMBER_TABLE
131 ) as
132 ddindx binary_integer; indx binary_integer;
133 begin
134 if a0 is not null and a0.count > 0 then
135 if a0.count > 0 then
136 indx := a0.first;
137 ddindx := 1;
138 while true loop
139 t(ddindx).rule_id := rosetta_g_miss_num_map(a0(indx));
140 t(ddindx).logical_page_id := rosetta_g_miss_num_map(a1(indx));
141 ddindx := ddindx+1;
142 if a0.last =indx
143 then exit;
144 end if;
145 indx := a0.next(indx);
146 end loop;
147 end if;
148 end if;
149 end rosetta_table_copy_in_p13;
150 procedure rosetta_table_copy_out_p13(t jtf_dpf.new_next_log_non_def_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
151 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
152 ) as
153 ddindx binary_integer; indx binary_integer;
154 begin
155 if t is null or t.count = 0 then
156 a0 := JTF_NUMBER_TABLE();
157 a1 := JTF_NUMBER_TABLE();
158 else
159 a0 := JTF_NUMBER_TABLE();
160 a1 := JTF_NUMBER_TABLE();
161 if t.count > 0 then
162 a0.extend(t.count);
163 a1.extend(t.count);
164 ddindx := t.first;
165 indx := 1;
166 while true loop
167 a0(indx) := rosetta_g_miss_num_map(t(ddindx).rule_id);
168 a1(indx) := rosetta_g_miss_num_map(t(ddindx).logical_page_id);
169 indx := indx+1;
170 if t.last =ddindx
171 then exit;
172 end if;
173 ddindx := t.next(ddindx);
174 end loop;
175 end if;
176 end if;
177 end rosetta_table_copy_out_p13;
178
179 procedure rosetta_table_copy_in_p15(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.new_phys_attribs_tbl, a0 JTF_VARCHAR2_TABLE_100
180 , a1 JTF_VARCHAR2_TABLE_300
181 ) as
182 ddindx binary_integer; indx binary_integer;
183 begin
184 if a0 is not null and a0.count > 0 then
185 if a0.count > 0 then
186 indx := a0.first;
187 ddindx := 1;
188 while true loop
189 t(ddindx).name := a0(indx);
190 t(ddindx).value := a1(indx);
191 ddindx := ddindx+1;
192 if a0.last =indx
193 then exit;
194 end if;
195 indx := a0.next(indx);
196 end loop;
197 end if;
198 end if;
199 end rosetta_table_copy_in_p15;
200 procedure rosetta_table_copy_out_p15(t jtf_dpf.new_phys_attribs_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
201 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
202 ) as
203 ddindx binary_integer; indx binary_integer;
204 begin
205 if t is null or t.count = 0 then
206 a0 := JTF_VARCHAR2_TABLE_100();
207 a1 := JTF_VARCHAR2_TABLE_300();
208 else
209 a0 := JTF_VARCHAR2_TABLE_100();
210 a1 := JTF_VARCHAR2_TABLE_300();
211 if t.count > 0 then
212 a0.extend(t.count);
213 a1.extend(t.count);
214 ddindx := t.first;
215 indx := 1;
216 while true loop
217 a0(indx) := t(ddindx).name;
218 a1(indx) := t(ddindx).value;
219 indx := indx+1;
220 if t.last =ddindx
221 then exit;
222 end if;
223 ddindx := t.next(ddindx);
224 end loop;
225 end if;
226 end if;
227 end rosetta_table_copy_out_p15;
228
229 procedure rosetta_table_copy_in_p16(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.dpf_tbl, a0 JTF_NUMBER_TABLE
230 , a1 JTF_VARCHAR2_TABLE_100
231 , a2 JTF_VARCHAR2_TABLE_100
232 , a3 JTF_VARCHAR2_TABLE_100
233 , a4 JTF_VARCHAR2_TABLE_100
234 , a5 JTF_VARCHAR2_TABLE_100
235 , a6 JTF_VARCHAR2_TABLE_200
236 , a7 JTF_VARCHAR2_TABLE_100
237 , a8 JTF_VARCHAR2_TABLE_100
238 , a9 JTF_VARCHAR2_TABLE_100
239 , a10 JTF_VARCHAR2_TABLE_100
240 , a11 JTF_VARCHAR2_TABLE_100
241 ) as
242 ddindx binary_integer; indx binary_integer;
243 begin
244 if a0 is not null and a0.count > 0 then
245 if a0.count > 0 then
246 indx := a0.first;
247 ddindx := 1;
248 while true loop
249 t(ddindx).dpf_id := rosetta_g_miss_num_map(a0(indx));
250 t(ddindx).dpf_name := a1(indx);
251 t(ddindx).head_logical_asn := a2(indx);
252 t(ddindx).head_logical_name := a3(indx);
253 t(ddindx).rtn_to_page_logical_asn := a4(indx);
254 t(ddindx).rtn_to_page_logical_name := a5(indx);
255 t(ddindx).flow_finalizer_class := a6(indx);
256 t(ddindx).logical_flow_description := a7(indx);
257 t(ddindx).validate_flag := a8(indx);
258 t(ddindx).secure_flow_flag := a9(indx);
259 t(ddindx).active_flag := a10(indx);
260 t(ddindx).editable_flag := a11(indx);
261 ddindx := ddindx+1;
262 if a0.last =indx
263 then exit;
264 end if;
265 indx := a0.next(indx);
266 end loop;
267 end if;
268 end if;
269 end rosetta_table_copy_in_p16;
270 procedure rosetta_table_copy_out_p16(t jtf_dpf.dpf_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
271 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
272 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
273 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
274 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
275 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
276 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_200
277 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
278 , a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
279 , a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
280 , a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
281 , a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
282 ) as
283 ddindx binary_integer; indx binary_integer;
284 begin
285 if t is null or t.count = 0 then
286 a0 := JTF_NUMBER_TABLE();
287 a1 := JTF_VARCHAR2_TABLE_100();
288 a2 := JTF_VARCHAR2_TABLE_100();
289 a3 := JTF_VARCHAR2_TABLE_100();
290 a4 := JTF_VARCHAR2_TABLE_100();
291 a5 := JTF_VARCHAR2_TABLE_100();
292 a6 := JTF_VARCHAR2_TABLE_200();
293 a7 := JTF_VARCHAR2_TABLE_100();
294 a8 := JTF_VARCHAR2_TABLE_100();
295 a9 := JTF_VARCHAR2_TABLE_100();
296 a10 := JTF_VARCHAR2_TABLE_100();
297 a11 := JTF_VARCHAR2_TABLE_100();
298 else
299 a0 := JTF_NUMBER_TABLE();
300 a1 := JTF_VARCHAR2_TABLE_100();
301 a2 := JTF_VARCHAR2_TABLE_100();
302 a3 := JTF_VARCHAR2_TABLE_100();
303 a4 := JTF_VARCHAR2_TABLE_100();
304 a5 := JTF_VARCHAR2_TABLE_100();
305 a6 := JTF_VARCHAR2_TABLE_200();
306 a7 := JTF_VARCHAR2_TABLE_100();
307 a8 := JTF_VARCHAR2_TABLE_100();
308 a9 := JTF_VARCHAR2_TABLE_100();
309 a10 := JTF_VARCHAR2_TABLE_100();
310 a11 := JTF_VARCHAR2_TABLE_100();
311 if t.count > 0 then
312 a0.extend(t.count);
313 a1.extend(t.count);
314 a2.extend(t.count);
315 a3.extend(t.count);
316 a4.extend(t.count);
317 a5.extend(t.count);
318 a6.extend(t.count);
319 a7.extend(t.count);
320 a8.extend(t.count);
321 a9.extend(t.count);
322 a10.extend(t.count);
323 a11.extend(t.count);
324 ddindx := t.first;
325 indx := 1;
326 while true loop
327 a0(indx) := rosetta_g_miss_num_map(t(ddindx).dpf_id);
328 a1(indx) := t(ddindx).dpf_name;
329 a2(indx) := t(ddindx).head_logical_asn;
330 a3(indx) := t(ddindx).head_logical_name;
331 a4(indx) := t(ddindx).rtn_to_page_logical_asn;
332 a5(indx) := t(ddindx).rtn_to_page_logical_name;
333 a6(indx) := t(ddindx).flow_finalizer_class;
334 a7(indx) := t(ddindx).logical_flow_description;
335 a8(indx) := t(ddindx).validate_flag;
336 a9(indx) := t(ddindx).secure_flow_flag;
337 a10(indx) := t(ddindx).active_flag;
338 a11(indx) := t(ddindx).editable_flag;
339 indx := indx+1;
340 if t.last =ddindx
341 then exit;
342 end if;
343 ddindx := t.next(ddindx);
344 end loop;
345 end if;
346 end if;
347 end rosetta_table_copy_out_p16;
348
349 procedure rosetta_table_copy_in_p17(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.logical_tbl, a0 JTF_NUMBER_TABLE
350 , a1 JTF_VARCHAR2_TABLE_100
351 , a2 JTF_VARCHAR2_TABLE_100
352 , a3 JTF_VARCHAR2_TABLE_100
353 , a4 JTF_VARCHAR2_TABLE_200
354 , a5 JTF_VARCHAR2_TABLE_300
355 , a6 JTF_VARCHAR2_TABLE_100
356 , a7 JTF_NUMBER_TABLE
357 , a8 JTF_VARCHAR2_TABLE_100
358 ) as
359 ddindx binary_integer; indx binary_integer;
360 begin
361 if a0 is not null and a0.count > 0 then
362 if a0.count > 0 then
363 indx := a0.first;
364 ddindx := 1;
365 while true loop
366 t(ddindx).logical_page_id := rosetta_g_miss_num_map(a0(indx));
367 t(ddindx).logical_page_name := a1(indx);
368 t(ddindx).logical_page_type := a2(indx);
369 t(ddindx).logical_page_description := a3(indx);
370 t(ddindx).page_controller_class := a4(indx);
371 t(ddindx).page_permission_name := a5(indx);
372 t(ddindx).def_phys_asn := a6(indx);
373 t(ddindx).def_phys_id := rosetta_g_miss_num_map(a7(indx));
374 t(ddindx).def_phys_name := a8(indx);
375 ddindx := ddindx+1;
376 if a0.last =indx
377 then exit;
378 end if;
379 indx := a0.next(indx);
380 end loop;
381 end if;
382 end if;
383 end rosetta_table_copy_in_p17;
384 procedure rosetta_table_copy_out_p17(t jtf_dpf.logical_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
385 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
386 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
387 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
388 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_200
389 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
390 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
391 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
392 , a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
393 ) as
394 ddindx binary_integer; indx binary_integer;
395 begin
396 if t is null or t.count = 0 then
397 a0 := JTF_NUMBER_TABLE();
398 a1 := JTF_VARCHAR2_TABLE_100();
399 a2 := JTF_VARCHAR2_TABLE_100();
400 a3 := JTF_VARCHAR2_TABLE_100();
401 a4 := JTF_VARCHAR2_TABLE_200();
402 a5 := JTF_VARCHAR2_TABLE_300();
403 a6 := JTF_VARCHAR2_TABLE_100();
404 a7 := JTF_NUMBER_TABLE();
405 a8 := JTF_VARCHAR2_TABLE_100();
406 else
407 a0 := JTF_NUMBER_TABLE();
408 a1 := JTF_VARCHAR2_TABLE_100();
409 a2 := JTF_VARCHAR2_TABLE_100();
410 a3 := JTF_VARCHAR2_TABLE_100();
411 a4 := JTF_VARCHAR2_TABLE_200();
412 a5 := JTF_VARCHAR2_TABLE_300();
413 a6 := JTF_VARCHAR2_TABLE_100();
414 a7 := JTF_NUMBER_TABLE();
415 a8 := JTF_VARCHAR2_TABLE_100();
416 if t.count > 0 then
417 a0.extend(t.count);
418 a1.extend(t.count);
419 a2.extend(t.count);
420 a3.extend(t.count);
421 a4.extend(t.count);
422 a5.extend(t.count);
423 a6.extend(t.count);
424 a7.extend(t.count);
425 a8.extend(t.count);
426 ddindx := t.first;
427 indx := 1;
428 while true loop
429 a0(indx) := rosetta_g_miss_num_map(t(ddindx).logical_page_id);
430 a1(indx) := t(ddindx).logical_page_name;
431 a2(indx) := t(ddindx).logical_page_type;
432 a3(indx) := t(ddindx).logical_page_description;
433 a4(indx) := t(ddindx).page_controller_class;
434 a5(indx) := t(ddindx).page_permission_name;
435 a6(indx) := t(ddindx).def_phys_asn;
436 a7(indx) := rosetta_g_miss_num_map(t(ddindx).def_phys_id);
437 a8(indx) := t(ddindx).def_phys_name;
438 indx := indx+1;
439 if t.last =ddindx
440 then exit;
441 end if;
442 ddindx := t.next(ddindx);
443 end loop;
444 end if;
445 end if;
446 end rosetta_table_copy_out_p17;
447
448 procedure rosetta_table_copy_in_p18(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.physical_tbl, a0 JTF_NUMBER_TABLE
449 , a1 JTF_VARCHAR2_TABLE_100
450 , a2 JTF_VARCHAR2_TABLE_100
451 ) as
452 ddindx binary_integer; indx binary_integer;
453 begin
454 if a0 is not null and a0.count > 0 then
455 if a0.count > 0 then
456 indx := a0.first;
457 ddindx := 1;
458 while true loop
459 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
460 t(ddindx).name := a1(indx);
461 t(ddindx).descr := a2(indx);
462 ddindx := ddindx+1;
463 if a0.last =indx
464 then exit;
465 end if;
466 indx := a0.next(indx);
467 end loop;
468 end if;
469 end if;
470 end rosetta_table_copy_in_p18;
471 procedure rosetta_table_copy_out_p18(t jtf_dpf.physical_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
472 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
473 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
474 ) as
475 ddindx binary_integer; indx binary_integer;
476 begin
477 if t is null or t.count = 0 then
478 a0 := JTF_NUMBER_TABLE();
479 a1 := JTF_VARCHAR2_TABLE_100();
480 a2 := JTF_VARCHAR2_TABLE_100();
481 else
482 a0 := JTF_NUMBER_TABLE();
483 a1 := JTF_VARCHAR2_TABLE_100();
484 a2 := JTF_VARCHAR2_TABLE_100();
485 if t.count > 0 then
486 a0.extend(t.count);
487 a1.extend(t.count);
488 a2.extend(t.count);
489 ddindx := t.first;
490 indx := 1;
491 while true loop
492 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
493 a1(indx) := t(ddindx).name;
494 a2(indx) := t(ddindx).descr;
495 indx := indx+1;
496 if t.last =ddindx
497 then exit;
498 end if;
499 ddindx := t.next(ddindx);
500 end loop;
501 end if;
502 end if;
503 end rosetta_table_copy_out_p18;
504
505 procedure rosetta_table_copy_in_p19(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.physical_non_default_tbl, a0 JTF_VARCHAR2_TABLE_100
506 , a1 JTF_NUMBER_TABLE
507 , a2 JTF_VARCHAR2_TABLE_100
508 , a3 JTF_VARCHAR2_TABLE_100
509 , a4 JTF_VARCHAR2_TABLE_100
510 , a5 JTF_NUMBER_TABLE
511 , a6 JTF_VARCHAR2_TABLE_100
512 ) as
513 ddindx binary_integer; indx binary_integer;
514 begin
515 if a0 is not null and a0.count > 0 then
516 if a0.count > 0 then
517 indx := a0.first;
518 ddindx := 1;
519 while true loop
520 t(ddindx).logical_name := a0(indx);
521 t(ddindx).rule_eval_sequence := rosetta_g_miss_num_map(a1(indx));
522 t(ddindx).rule_asn := a2(indx);
523 t(ddindx).rule_name := a3(indx);
524 t(ddindx).phys_asn := a4(indx);
525 t(ddindx).phys_id := rosetta_g_miss_num_map(a5(indx));
526 t(ddindx).phys_name := a6(indx);
527 ddindx := ddindx+1;
528 if a0.last =indx
529 then exit;
530 end if;
531 indx := a0.next(indx);
532 end loop;
533 end if;
534 end if;
535 end rosetta_table_copy_in_p19;
536 procedure rosetta_table_copy_out_p19(t jtf_dpf.physical_non_default_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
537 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
538 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
539 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
540 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
541 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
542 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
543 ) as
544 ddindx binary_integer; indx binary_integer;
545 begin
546 if t is null or t.count = 0 then
547 a0 := JTF_VARCHAR2_TABLE_100();
548 a1 := JTF_NUMBER_TABLE();
549 a2 := JTF_VARCHAR2_TABLE_100();
550 a3 := JTF_VARCHAR2_TABLE_100();
551 a4 := JTF_VARCHAR2_TABLE_100();
552 a5 := JTF_NUMBER_TABLE();
553 a6 := JTF_VARCHAR2_TABLE_100();
554 else
555 a0 := JTF_VARCHAR2_TABLE_100();
556 a1 := JTF_NUMBER_TABLE();
557 a2 := JTF_VARCHAR2_TABLE_100();
558 a3 := JTF_VARCHAR2_TABLE_100();
559 a4 := JTF_VARCHAR2_TABLE_100();
560 a5 := JTF_NUMBER_TABLE();
561 a6 := JTF_VARCHAR2_TABLE_100();
562 if t.count > 0 then
563 a0.extend(t.count);
564 a1.extend(t.count);
565 a2.extend(t.count);
566 a3.extend(t.count);
567 a4.extend(t.count);
568 a5.extend(t.count);
569 a6.extend(t.count);
570 ddindx := t.first;
571 indx := 1;
572 while true loop
573 a0(indx) := t(ddindx).logical_name;
574 a1(indx) := rosetta_g_miss_num_map(t(ddindx).rule_eval_sequence);
575 a2(indx) := t(ddindx).rule_asn;
576 a3(indx) := t(ddindx).rule_name;
577 a4(indx) := t(ddindx).phys_asn;
578 a5(indx) := rosetta_g_miss_num_map(t(ddindx).phys_id);
579 a6(indx) := t(ddindx).phys_name;
580 indx := indx+1;
581 if t.last =ddindx
582 then exit;
583 end if;
584 ddindx := t.next(ddindx);
585 end loop;
586 end if;
587 end if;
588 end rosetta_table_copy_out_p19;
589
590 procedure rosetta_table_copy_in_p20(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.rule_tbl, a0 JTF_NUMBER_TABLE
591 , a1 JTF_VARCHAR2_TABLE_100
592 , a2 JTF_VARCHAR2_TABLE_100
593 , a3 JTF_VARCHAR2_TABLE_100
594 , a4 JTF_VARCHAR2_TABLE_100
595 , a5 JTF_VARCHAR2_TABLE_100
596 ) as
597 ddindx binary_integer; indx binary_integer;
598 begin
599 if a0 is not null and a0.count > 0 then
600 if a0.count > 0 then
601 indx := a0.first;
602 ddindx := 1;
603 while true loop
604 t(ddindx).rule_id := rosetta_g_miss_num_map(a0(indx));
605 t(ddindx).rule_name := a1(indx);
606 t(ddindx).rule_description := a2(indx);
607 t(ddindx).rule_param_name := a3(indx);
608 t(ddindx).rule_param_value := a4(indx);
609 t(ddindx).rule_param_condition := a5(indx);
610 ddindx := ddindx+1;
611 if a0.last =indx
612 then exit;
613 end if;
614 indx := a0.next(indx);
615 end loop;
616 end if;
617 end if;
618 end rosetta_table_copy_in_p20;
619 procedure rosetta_table_copy_out_p20(t jtf_dpf.rule_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
620 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
621 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
622 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
623 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
624 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
625 ) as
626 ddindx binary_integer; indx binary_integer;
627 begin
628 if t is null or t.count = 0 then
629 a0 := JTF_NUMBER_TABLE();
630 a1 := JTF_VARCHAR2_TABLE_100();
631 a2 := JTF_VARCHAR2_TABLE_100();
632 a3 := JTF_VARCHAR2_TABLE_100();
633 a4 := JTF_VARCHAR2_TABLE_100();
634 a5 := JTF_VARCHAR2_TABLE_100();
635 else
636 a0 := JTF_NUMBER_TABLE();
637 a1 := JTF_VARCHAR2_TABLE_100();
638 a2 := JTF_VARCHAR2_TABLE_100();
639 a3 := JTF_VARCHAR2_TABLE_100();
640 a4 := JTF_VARCHAR2_TABLE_100();
641 a5 := JTF_VARCHAR2_TABLE_100();
642 if t.count > 0 then
643 a0.extend(t.count);
644 a1.extend(t.count);
645 a2.extend(t.count);
646 a3.extend(t.count);
647 a4.extend(t.count);
648 a5.extend(t.count);
649 ddindx := t.first;
650 indx := 1;
651 while true loop
652 a0(indx) := rosetta_g_miss_num_map(t(ddindx).rule_id);
653 a1(indx) := t(ddindx).rule_name;
654 a2(indx) := t(ddindx).rule_description;
655 a3(indx) := t(ddindx).rule_param_name;
656 a4(indx) := t(ddindx).rule_param_value;
657 a5(indx) := t(ddindx).rule_param_condition;
658 indx := indx+1;
659 if t.last =ddindx
660 then exit;
661 end if;
662 ddindx := t.next(ddindx);
663 end loop;
664 end if;
665 end if;
666 end rosetta_table_copy_out_p20;
667
668 procedure rosetta_table_copy_in_p21(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.next_logical_default_tbl, a0 JTF_VARCHAR2_TABLE_100
669 , a1 JTF_NUMBER_TABLE
670 , a2 JTF_VARCHAR2_TABLE_100
671 , a3 JTF_VARCHAR2_TABLE_100
672 , a4 JTF_VARCHAR2_TABLE_100
673 , a5 JTF_VARCHAR2_TABLE_100
674 ) as
675 ddindx binary_integer; indx binary_integer;
676 begin
677 if a0 is not null and a0.count > 0 then
678 if a0.count > 0 then
679 indx := a0.first;
680 ddindx := 1;
681 while true loop
682 t(ddindx).dpf_name := a0(indx);
683 t(ddindx).dpf_id := rosetta_g_miss_num_map(a1(indx));
684 t(ddindx).key_log_asn := a2(indx);
685 t(ddindx).key_log_name := a3(indx);
686 t(ddindx).result_log_asn := a4(indx);
687 t(ddindx).result_log_name := a5(indx);
688 ddindx := ddindx+1;
689 if a0.last =indx
690 then exit;
691 end if;
692 indx := a0.next(indx);
693 end loop;
694 end if;
695 end if;
696 end rosetta_table_copy_in_p21;
697 procedure rosetta_table_copy_out_p21(t jtf_dpf.next_logical_default_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
698 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
699 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
700 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
701 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
702 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
703 ) as
704 ddindx binary_integer; indx binary_integer;
705 begin
706 if t is null or t.count = 0 then
707 a0 := JTF_VARCHAR2_TABLE_100();
708 a1 := JTF_NUMBER_TABLE();
709 a2 := JTF_VARCHAR2_TABLE_100();
710 a3 := JTF_VARCHAR2_TABLE_100();
711 a4 := JTF_VARCHAR2_TABLE_100();
712 a5 := JTF_VARCHAR2_TABLE_100();
713 else
714 a0 := JTF_VARCHAR2_TABLE_100();
715 a1 := JTF_NUMBER_TABLE();
716 a2 := JTF_VARCHAR2_TABLE_100();
717 a3 := JTF_VARCHAR2_TABLE_100();
718 a4 := JTF_VARCHAR2_TABLE_100();
719 a5 := JTF_VARCHAR2_TABLE_100();
720 if t.count > 0 then
721 a0.extend(t.count);
722 a1.extend(t.count);
723 a2.extend(t.count);
724 a3.extend(t.count);
725 a4.extend(t.count);
726 a5.extend(t.count);
727 ddindx := t.first;
728 indx := 1;
729 while true loop
730 a0(indx) := t(ddindx).dpf_name;
731 a1(indx) := rosetta_g_miss_num_map(t(ddindx).dpf_id);
732 a2(indx) := t(ddindx).key_log_asn;
733 a3(indx) := t(ddindx).key_log_name;
734 a4(indx) := t(ddindx).result_log_asn;
735 a5(indx) := t(ddindx).result_log_name;
736 indx := indx+1;
737 if t.last =ddindx
738 then exit;
739 end if;
740 ddindx := t.next(ddindx);
741 end loop;
742 end if;
743 end if;
744 end rosetta_table_copy_out_p21;
745
746 procedure rosetta_table_copy_in_p22(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.next_logical_non_default_tbl, a0 JTF_VARCHAR2_TABLE_100
747 , a1 JTF_NUMBER_TABLE
748 , a2 JTF_VARCHAR2_TABLE_100
749 , a3 JTF_VARCHAR2_TABLE_100
750 , a4 JTF_VARCHAR2_TABLE_100
751 , a5 JTF_VARCHAR2_TABLE_100
752 , a6 JTF_VARCHAR2_TABLE_100
753 , a7 JTF_VARCHAR2_TABLE_100
754 ) as
755 ddindx binary_integer; indx binary_integer;
756 begin
757 if a0 is not null and a0.count > 0 then
758 if a0.count > 0 then
759 indx := a0.first;
760 ddindx := 1;
761 while true loop
762 t(ddindx).dpf_name := a0(indx);
763 t(ddindx).dpf_id := rosetta_g_miss_num_map(a1(indx));
764 t(ddindx).rule_asn := a2(indx);
765 t(ddindx).rule_name := a3(indx);
766 t(ddindx).key_log_asn := a4(indx);
767 t(ddindx).key_log_name := a5(indx);
768 t(ddindx).result_log_asn := a6(indx);
769 t(ddindx).result_log_name := a7(indx);
770 ddindx := ddindx+1;
771 if a0.last =indx
772 then exit;
773 end if;
774 indx := a0.next(indx);
775 end loop;
776 end if;
777 end if;
778 end rosetta_table_copy_in_p22;
779 procedure rosetta_table_copy_out_p22(t jtf_dpf.next_logical_non_default_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
780 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
781 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
782 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
783 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
784 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
785 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
786 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
787 ) as
788 ddindx binary_integer; indx binary_integer;
789 begin
790 if t is null or t.count = 0 then
791 a0 := JTF_VARCHAR2_TABLE_100();
792 a1 := JTF_NUMBER_TABLE();
793 a2 := JTF_VARCHAR2_TABLE_100();
794 a3 := JTF_VARCHAR2_TABLE_100();
795 a4 := JTF_VARCHAR2_TABLE_100();
796 a5 := JTF_VARCHAR2_TABLE_100();
797 a6 := JTF_VARCHAR2_TABLE_100();
798 a7 := JTF_VARCHAR2_TABLE_100();
799 else
800 a0 := JTF_VARCHAR2_TABLE_100();
801 a1 := JTF_NUMBER_TABLE();
802 a2 := JTF_VARCHAR2_TABLE_100();
803 a3 := JTF_VARCHAR2_TABLE_100();
804 a4 := JTF_VARCHAR2_TABLE_100();
805 a5 := JTF_VARCHAR2_TABLE_100();
806 a6 := JTF_VARCHAR2_TABLE_100();
807 a7 := JTF_VARCHAR2_TABLE_100();
808 if t.count > 0 then
809 a0.extend(t.count);
810 a1.extend(t.count);
811 a2.extend(t.count);
812 a3.extend(t.count);
813 a4.extend(t.count);
814 a5.extend(t.count);
815 a6.extend(t.count);
816 a7.extend(t.count);
817 ddindx := t.first;
818 indx := 1;
819 while true loop
820 a0(indx) := t(ddindx).dpf_name;
821 a1(indx) := rosetta_g_miss_num_map(t(ddindx).dpf_id);
822 a2(indx) := t(ddindx).rule_asn;
823 a3(indx) := t(ddindx).rule_name;
824 a4(indx) := t(ddindx).key_log_asn;
825 a5(indx) := t(ddindx).key_log_name;
826 a6(indx) := t(ddindx).result_log_asn;
827 a7(indx) := t(ddindx).result_log_name;
828 indx := indx+1;
829 if t.last =ddindx
830 then exit;
831 end if;
832 ddindx := t.next(ddindx);
833 end loop;
834 end if;
835 end if;
836 end rosetta_table_copy_out_p22;
837
838 procedure rosetta_table_copy_in_p23(t OUT NOCOPY /* file.sql.39 change */ jtf_dpf.physical_attribs_tbl, a0 JTF_NUMBER_TABLE
839 , a1 JTF_VARCHAR2_TABLE_100
840 , a2 JTF_VARCHAR2_TABLE_300
841 ) as
842 ddindx binary_integer; indx binary_integer;
843 begin
844 if a0 is not null and a0.count > 0 then
845 if a0.count > 0 then
846 indx := a0.first;
847 ddindx := 1;
848 while true loop
849 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
850 t(ddindx).name := a1(indx);
851 t(ddindx).value := a2(indx);
852 ddindx := ddindx+1;
853 if a0.last =indx
854 then exit;
855 end if;
856 indx := a0.next(indx);
857 end loop;
858 end if;
859 end if;
860 end rosetta_table_copy_in_p23;
861 procedure rosetta_table_copy_out_p23(t jtf_dpf.physical_attribs_tbl, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
862 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
863 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
864 ) as
865 ddindx binary_integer; indx binary_integer;
866 begin
867 if t is null or t.count = 0 then
868 a0 := JTF_NUMBER_TABLE();
869 a1 := JTF_VARCHAR2_TABLE_100();
870 a2 := JTF_VARCHAR2_TABLE_300();
871 else
872 a0 := JTF_NUMBER_TABLE();
873 a1 := JTF_VARCHAR2_TABLE_100();
874 a2 := JTF_VARCHAR2_TABLE_300();
875 if t.count > 0 then
876 a0.extend(t.count);
877 a1.extend(t.count);
878 a2.extend(t.count);
879 ddindx := t.first;
880 indx := 1;
881 while true loop
882 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
883 a1(indx) := t(ddindx).name;
884 a2(indx) := t(ddindx).value;
885 indx := indx+1;
886 if t.last =ddindx
887 then exit;
888 end if;
889 ddindx := t.next(ddindx);
890 end loop;
891 end if;
892 end if;
893 end rosetta_table_copy_out_p23;
894
895 procedure get(asn VARCHAR2
896 , p_lang IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2
897 , descrs_only number
898 , p3_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
899 , p3_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
900 , p3_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
901 , p3_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
902 , p3_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
903 , p3_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
904 , p3_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_200
905 , p3_a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
906 , p3_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
907 , p3_a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
908 , p3_a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
909 , p3_a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
910 , p4_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
911 , p4_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
912 , p4_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
913 , p4_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
914 , p4_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_200
915 , p4_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
916 , p4_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
917 , p4_a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
918 , p4_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
919 , p5_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
920 , p5_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
921 , p5_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
922 , p6_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
923 , p6_a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
924 , p6_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
925 , p6_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
926 , p6_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
927 , p6_a5 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
928 , p6_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
929 , p7_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
930 , p7_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
931 , p7_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
932 , p7_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
933 , p7_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
934 , p7_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
935 , p8_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
936 , p8_a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
937 , p8_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
938 , p8_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
939 , p8_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
940 , p8_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
941 , p9_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
942 , p9_a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
943 , p9_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
944 , p9_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
945 , p9_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
946 , p9_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
947 , p9_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
948 , p9_a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
949 , p10_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
950 , p10_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
951 , p10_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
952 )
953 as
954 dddescrs_only boolean;
955 dddpf jtf_dpf.dpf_tbl;
956 ddlog jtf_dpf.logical_tbl;
957 ddphys jtf_dpf.physical_tbl;
958 ddphys_non_def jtf_dpf.physical_non_default_tbl;
959 ddrule jtf_dpf.rule_tbl;
960 ddnext_log_def jtf_dpf.next_logical_default_tbl;
961 ddnext_log_non_def jtf_dpf.next_logical_non_default_tbl;
962 ddphys_atts jtf_dpf.physical_attribs_tbl;
963 ddindx binary_integer; indx binary_integer;
964 begin
965
966 -- copy data to the local IN or IN-OUT args, if any
967
968
969 if descrs_only is null
970 then dddescrs_only := null;
971 elsif descrs_only = 0
972 then dddescrs_only := false;
973 else dddescrs_only := true;
974 end if;
975
976
977
978
979
980
981
982
983
984 -- here's the delegated call to the old PL/SQL routine
985 jtf_dpf.get(asn,
986 p_lang,
987 dddescrs_only,
988 dddpf,
989 ddlog,
990 ddphys,
991 ddphys_non_def,
992 ddrule,
993 ddnext_log_def,
994 ddnext_log_non_def,
995 ddphys_atts);
996
997 -- copy data back from the local OUT or IN-OUT args, if any
998
999
1000
1001 jtf_dpf_w.rosetta_table_copy_out_p16(dddpf, p3_a0
1002 , p3_a1
1003 , p3_a2
1004 , p3_a3
1005 , p3_a4
1006 , p3_a5
1007 , p3_a6
1008 , p3_a7
1009 , p3_a8
1010 , p3_a9
1011 , p3_a10
1012 , p3_a11
1013 );
1014
1015 jtf_dpf_w.rosetta_table_copy_out_p17(ddlog, p4_a0
1016 , p4_a1
1017 , p4_a2
1018 , p4_a3
1019 , p4_a4
1020 , p4_a5
1021 , p4_a6
1022 , p4_a7
1023 , p4_a8
1024 );
1025
1026 jtf_dpf_w.rosetta_table_copy_out_p18(ddphys, p5_a0
1027 , p5_a1
1028 , p5_a2
1029 );
1030
1031 jtf_dpf_w.rosetta_table_copy_out_p19(ddphys_non_def, p6_a0
1032 , p6_a1
1033 , p6_a2
1034 , p6_a3
1035 , p6_a4
1036 , p6_a5
1037 , p6_a6
1038 );
1039
1040 jtf_dpf_w.rosetta_table_copy_out_p20(ddrule, p7_a0
1041 , p7_a1
1042 , p7_a2
1043 , p7_a3
1044 , p7_a4
1045 , p7_a5
1046 );
1047
1048 jtf_dpf_w.rosetta_table_copy_out_p21(ddnext_log_def, p8_a0
1049 , p8_a1
1050 , p8_a2
1051 , p8_a3
1052 , p8_a4
1053 , p8_a5
1054 );
1055
1056 jtf_dpf_w.rosetta_table_copy_out_p22(ddnext_log_non_def, p9_a0
1057 , p9_a1
1058 , p9_a2
1059 , p9_a3
1060 , p9_a4
1061 , p9_a5
1062 , p9_a6
1063 , p9_a7
1064 );
1065
1066 jtf_dpf_w.rosetta_table_copy_out_p23(ddphys_atts, p10_a0
1067 , p10_a1
1068 , p10_a2
1069 );
1070 end;
1071
1072 function rule_update(p_rule_id NUMBER
1073 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
1074 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
1075 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
1076 ) return number
1077 as
1078 ddupd jtf_dpf.rule_update_rec;
1079 ddindx binary_integer; indx binary_integer;
1080 ddrosetta_retval number;
1081 begin
1082
1083 -- copy data to the local IN or IN-OUT args, if any
1084
1085 ddupd.p_new_asn := p1_a0;
1086 ddupd.p_new_name := p1_a1;
1087 ddupd.p_new_descr := p1_a2;
1088
1089 -- here's the delegated call to the old PL/SQL routine
1090 ddrosetta_retval := jtf_dpf.rule_update(p_rule_id,
1091 ddupd);
1092
1093 -- copy data back from the local OUT or IN-OUT args, if any
1094
1095
1096 return ddrosetta_retval;
1097 end;
1098
1099 function rule_new(p_asn VARCHAR2
1100 , p_name VARCHAR2
1101 , p_descr VARCHAR2
1102 , p3_a0 JTF_VARCHAR2_TABLE_100
1103 , p3_a1 JTF_VARCHAR2_TABLE_100
1104 , p3_a2 JTF_VARCHAR2_TABLE_100
1105 ) return number
1106 as
1107 ddrules jtf_dpf.new_rule_param_tbl;
1108 ddindx binary_integer; indx binary_integer;
1109 ddrosetta_retval number;
1110 begin
1111
1112 -- copy data to the local IN or IN-OUT args, if any
1113
1114
1115
1116 jtf_dpf_w.rosetta_table_copy_in_p9(ddrules, p3_a0
1117 , p3_a1
1118 , p3_a2
1119 );
1120
1121 -- here's the delegated call to the old PL/SQL routine
1122 ddrosetta_retval := jtf_dpf.rule_new(p_asn,
1123 p_name,
1124 p_descr,
1125 ddrules);
1126
1127 -- copy data back from the local OUT or IN-OUT args, if any
1128
1129
1130
1131
1132 return ddrosetta_retval;
1133 end;
1134
1135 procedure rule_set_params(p_rule_id NUMBER
1136 , p1_a0 JTF_VARCHAR2_TABLE_100
1137 , p1_a1 JTF_VARCHAR2_TABLE_100
1138 , p1_a2 JTF_VARCHAR2_TABLE_100
1139 )
1140 as
1141 ddrules jtf_dpf.new_rule_param_tbl;
1142 ddindx binary_integer; indx binary_integer;
1143 begin
1144
1145 -- copy data to the local IN or IN-OUT args, if any
1146
1147 jtf_dpf_w.rosetta_table_copy_in_p9(ddrules, p1_a0
1148 , p1_a1
1149 , p1_a2
1150 );
1151
1152 -- here's the delegated call to the old PL/SQL routine
1153 jtf_dpf.rule_set_params(p_rule_id,
1154 ddrules);
1155
1156 -- copy data back from the local OUT or IN-OUT args, if any
1157
1158 end;
1159
1160 function phys_update(p_ppid NUMBER
1161 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
1162 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
1163 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
1164 ) return number
1165 as
1166 ddupd jtf_dpf.phys_update_rec;
1167 ddindx binary_integer; indx binary_integer;
1168 ddrosetta_retval number;
1169 begin
1170
1171 -- copy data to the local IN or IN-OUT args, if any
1172
1173 ddupd.p_new_asn := p1_a0;
1174 ddupd.p_name := p1_a1;
1175 ddupd.p_descr := p1_a2;
1176
1177 -- here's the delegated call to the old PL/SQL routine
1178 ddrosetta_retval := jtf_dpf.phys_update(p_ppid,
1179 ddupd);
1180
1181 -- copy data back from the local OUT or IN-OUT args, if any
1182
1183
1184 return ddrosetta_retval;
1185 end;
1186
1187 procedure phys_attribs_update(p_ppid NUMBER
1188 , p1_a0 JTF_VARCHAR2_TABLE_100
1189 , p1_a1 JTF_VARCHAR2_TABLE_300
1190 )
1191 as
1192 ddp_new_ones jtf_dpf.new_phys_attribs_tbl;
1193 ddindx binary_integer; indx binary_integer;
1194 begin
1195
1196 -- copy data to the local IN or IN-OUT args, if any
1197
1198 jtf_dpf_w.rosetta_table_copy_in_p15(ddp_new_ones, p1_a0
1199 , p1_a1
1200 );
1201
1202 -- here's the delegated call to the old PL/SQL routine
1203 jtf_dpf.phys_attribs_update(p_ppid,
1204 ddp_new_ones);
1205
1206 -- copy data back from the local OUT or IN-OUT args, if any
1207
1208 end;
1209
1210 function flow_update(p_logical_flow_id NUMBER
1211 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
1212 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
1213 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
1214 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
1215 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
1216 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
1217 , p1_a6 NUMBER := 0-1962.0724
1218 , p1_a7 NUMBER := 0-1962.0724
1219 ) return number
1220 as
1221 ddupd jtf_dpf.flow_update_rec;
1222 ddindx binary_integer; indx binary_integer;
1223 ddrosetta_retval number;
1224 begin
1225
1226 -- copy data to the local IN or IN-OUT args, if any
1227
1228 ddupd.p_new_asn := p1_a0;
1229 ddupd.p_new_name := p1_a1;
1230 ddupd.p_new_flow_finalizer_class := p1_a2;
1231 ddupd.p_new_descr := p1_a3;
1232 ddupd.p_new_validate_flag := p1_a4;
1233 ddupd.p_new_secure_flow_flag := p1_a5;
1234 ddupd.p_new_header_logical_page_id := rosetta_g_miss_num_map(p1_a6);
1235 ddupd.p_rtn_to_logical_page_id := rosetta_g_miss_num_map(p1_a7);
1236
1237 -- here's the delegated call to the old PL/SQL routine
1238 ddrosetta_retval := jtf_dpf.flow_update(p_logical_flow_id,
1239 ddupd);
1240
1241 -- copy data back from the local OUT or IN-OUT args, if any
1242
1243
1244 return ddrosetta_retval;
1245 end;
1246
1247 function logical_update(p_logical_page_id NUMBER
1248 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
1249 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
1250 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
1251 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
1252 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
1253 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
1254 , p1_a6 NUMBER := 0-1962.0724
1255 ) return number
1256 as
1257 ddupd jtf_dpf.logical_update_rec;
1258 ddindx binary_integer; indx binary_integer;
1259 ddrosetta_retval number;
1260 begin
1261
1262 -- copy data to the local IN or IN-OUT args, if any
1263
1264 ddupd.p_new_asn := p1_a0;
1265 ddupd.p_new_name := p1_a1;
1266 ddupd.p_new_type := p1_a2;
1267 ddupd.p_new_descr := p1_a3;
1268 ddupd.p_new_page_controller_class := p1_a4;
1269 ddupd.p_new_page_permission_name := p1_a5;
1270 ddupd.p_default_physical_id := rosetta_g_miss_num_map(p1_a6);
1271
1272 -- here's the delegated call to the old PL/SQL routine
1273 ddrosetta_retval := jtf_dpf.logical_update(p_logical_page_id,
1274 ddupd);
1275
1276 -- copy data back from the local OUT or IN-OUT args, if any
1277
1278
1279 return ddrosetta_retval;
1280 end;
1281
1282 procedure logical_set_non_default_phys(p_logical_page_id NUMBER
1283 , p1_a0 JTF_NUMBER_TABLE
1284 , p1_a1 JTF_NUMBER_TABLE
1285 )
1286 as
1287 ddp_new_ones jtf_dpf.new_phys_non_def_tbl;
1288 ddindx binary_integer; indx binary_integer;
1289 begin
1290
1291 -- copy data to the local IN or IN-OUT args, if any
1292
1293 jtf_dpf_w.rosetta_table_copy_in_p11(ddp_new_ones, p1_a0
1294 , p1_a1
1295 );
1296
1297 -- here's the delegated call to the old PL/SQL routine
1298 jtf_dpf.logical_set_non_default_phys(p_logical_page_id,
1299 ddp_new_ones);
1300
1301 -- copy data back from the local OUT or IN-OUT args, if any
1302
1303 end;
1304
1305 procedure next_logical_set_non_default(p_flow_id NUMBER
1306 , p_log_page_id NUMBER
1307 , p2_a0 JTF_NUMBER_TABLE
1308 , p2_a1 JTF_NUMBER_TABLE
1309 )
1310 as
1311 ddp_new_ones jtf_dpf.new_next_log_non_def_tbl;
1312 ddindx binary_integer; indx binary_integer;
1313 begin
1314
1315 -- copy data to the local IN or IN-OUT args, if any
1316
1317
1318 jtf_dpf_w.rosetta_table_copy_in_p13(ddp_new_ones, p2_a0
1319 , p2_a1
1320 );
1321
1322 -- here's the delegated call to the old PL/SQL routine
1323 jtf_dpf.next_logical_set_non_default(p_flow_id,
1324 p_log_page_id,
1325 ddp_new_ones);
1326
1327 -- copy data back from the local OUT or IN-OUT args, if any
1328
1329
1330 end;
1331
1332 end jtf_dpf_w;