[Home] [Help]
PACKAGE BODY: APPS.JTF_REGION_PUB_W
Source
1 package body jtf_region_pub_w as
2 /* $Header: jtfregwb.pls 120.2 2005/10/25 05:25:07 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_p4(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.ak_result_table, a0 JTF_VARCHAR2_TABLE_300
23 , a1 JTF_VARCHAR2_TABLE_300
24 , a2 JTF_VARCHAR2_TABLE_300
25 , a3 JTF_VARCHAR2_TABLE_300
26 , a4 JTF_VARCHAR2_TABLE_300
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_VARCHAR2_TABLE_300
29 , a7 JTF_VARCHAR2_TABLE_300
30 , a8 JTF_VARCHAR2_TABLE_300
31 , a9 JTF_VARCHAR2_TABLE_300
32 , a10 JTF_VARCHAR2_TABLE_300
33 , a11 JTF_VARCHAR2_TABLE_300
34 , a12 JTF_VARCHAR2_TABLE_300
35 , a13 JTF_VARCHAR2_TABLE_300
36 , a14 JTF_VARCHAR2_TABLE_300
37 , a15 JTF_VARCHAR2_TABLE_300
38 , a16 JTF_VARCHAR2_TABLE_300
39 , a17 JTF_VARCHAR2_TABLE_300
40 , a18 JTF_VARCHAR2_TABLE_300
41 , a19 JTF_VARCHAR2_TABLE_300
42 , a20 JTF_VARCHAR2_TABLE_300
43 , a21 JTF_VARCHAR2_TABLE_300
44 , a22 JTF_VARCHAR2_TABLE_300
45 , a23 JTF_VARCHAR2_TABLE_300
46 , a24 JTF_VARCHAR2_TABLE_300
47 , a25 JTF_VARCHAR2_TABLE_300
48 , a26 JTF_VARCHAR2_TABLE_300
49 , a27 JTF_VARCHAR2_TABLE_300
50 , a28 JTF_VARCHAR2_TABLE_300
51 , a29 JTF_VARCHAR2_TABLE_300
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_VARCHAR2_TABLE_300
54 , a32 JTF_VARCHAR2_TABLE_300
55 , a33 JTF_VARCHAR2_TABLE_300
56 , a34 JTF_VARCHAR2_TABLE_300
57 , a35 JTF_VARCHAR2_TABLE_300
58 , a36 JTF_VARCHAR2_TABLE_300
59 , a37 JTF_VARCHAR2_TABLE_300
60 , a38 JTF_VARCHAR2_TABLE_300
61 , a39 JTF_VARCHAR2_TABLE_300
62 , a40 JTF_VARCHAR2_TABLE_300
63 , a41 JTF_VARCHAR2_TABLE_300
64 , a42 JTF_VARCHAR2_TABLE_300
65 , a43 JTF_VARCHAR2_TABLE_300
66 , a44 JTF_VARCHAR2_TABLE_300
67 , a45 JTF_VARCHAR2_TABLE_300
68 , a46 JTF_VARCHAR2_TABLE_300
69 , a47 JTF_VARCHAR2_TABLE_300
70 , a48 JTF_VARCHAR2_TABLE_300
71 , a49 JTF_VARCHAR2_TABLE_300
72 , a50 JTF_VARCHAR2_TABLE_300
73 , a51 JTF_VARCHAR2_TABLE_300
74 , a52 JTF_VARCHAR2_TABLE_300
75 , a53 JTF_VARCHAR2_TABLE_300
76 , a54 JTF_VARCHAR2_TABLE_300
77 , a55 JTF_VARCHAR2_TABLE_300
78 , a56 JTF_VARCHAR2_TABLE_300
79 , a57 JTF_VARCHAR2_TABLE_300
80 , a58 JTF_VARCHAR2_TABLE_300
81 , a59 JTF_VARCHAR2_TABLE_300
82 , a60 JTF_VARCHAR2_TABLE_300
83 , a61 JTF_VARCHAR2_TABLE_300
84 , a62 JTF_VARCHAR2_TABLE_300
85 , a63 JTF_VARCHAR2_TABLE_300
86 , a64 JTF_VARCHAR2_TABLE_300
87 , a65 JTF_VARCHAR2_TABLE_300
88 , a66 JTF_VARCHAR2_TABLE_300
89 , a67 JTF_VARCHAR2_TABLE_300
90 , a68 JTF_VARCHAR2_TABLE_300
91 , a69 JTF_VARCHAR2_TABLE_300
92 , a70 JTF_VARCHAR2_TABLE_300
93 , a71 JTF_VARCHAR2_TABLE_300
94 , a72 JTF_VARCHAR2_TABLE_300
95 , a73 JTF_VARCHAR2_TABLE_300
96 , a74 JTF_VARCHAR2_TABLE_300
97 , a75 JTF_VARCHAR2_TABLE_300
98 , a76 JTF_VARCHAR2_TABLE_300
99 , a77 JTF_VARCHAR2_TABLE_300
100 , a78 JTF_VARCHAR2_TABLE_300
101 , a79 JTF_VARCHAR2_TABLE_300
102 , a80 JTF_VARCHAR2_TABLE_300
103 , a81 JTF_VARCHAR2_TABLE_300
104 , a82 JTF_VARCHAR2_TABLE_300
105 , a83 JTF_VARCHAR2_TABLE_300
106 , a84 JTF_VARCHAR2_TABLE_300
107 , a85 JTF_VARCHAR2_TABLE_300
108 , a86 JTF_VARCHAR2_TABLE_300
109 , a87 JTF_VARCHAR2_TABLE_300
110 , a88 JTF_VARCHAR2_TABLE_300
111 , a89 JTF_VARCHAR2_TABLE_300
112 , a90 JTF_VARCHAR2_TABLE_300
113 , a91 JTF_VARCHAR2_TABLE_300
114 , a92 JTF_VARCHAR2_TABLE_300
115 , a93 JTF_VARCHAR2_TABLE_300
116 , a94 JTF_VARCHAR2_TABLE_300
117 , a95 JTF_VARCHAR2_TABLE_300
118 , a96 JTF_VARCHAR2_TABLE_300
119 , a97 JTF_VARCHAR2_TABLE_300
120 , a98 JTF_VARCHAR2_TABLE_300
121 , a99 JTF_VARCHAR2_TABLE_300
122 ) as
123 ddindx binary_integer; indx binary_integer;
124 begin
125 if a0 is not null and a0.count > 0 then
126 if a0.count > 0 then
127 indx := a0.first;
128 ddindx := 1;
129 while true loop
130 t(ddindx).value1 := a0(indx);
131 t(ddindx).value2 := a1(indx);
132 t(ddindx).value3 := a2(indx);
133 t(ddindx).value4 := a3(indx);
134 t(ddindx).value5 := a4(indx);
135 t(ddindx).value6 := a5(indx);
136 t(ddindx).value7 := a6(indx);
137 t(ddindx).value8 := a7(indx);
138 t(ddindx).value9 := a8(indx);
139 t(ddindx).value10 := a9(indx);
140 t(ddindx).value11 := a10(indx);
141 t(ddindx).value12 := a11(indx);
142 t(ddindx).value13 := a12(indx);
143 t(ddindx).value14 := a13(indx);
144 t(ddindx).value15 := a14(indx);
145 t(ddindx).value16 := a15(indx);
146 t(ddindx).value17 := a16(indx);
147 t(ddindx).value18 := a17(indx);
148 t(ddindx).value19 := a18(indx);
149 t(ddindx).value20 := a19(indx);
150 t(ddindx).value21 := a20(indx);
151 t(ddindx).value22 := a21(indx);
152 t(ddindx).value23 := a22(indx);
153 t(ddindx).value24 := a23(indx);
154 t(ddindx).value25 := a24(indx);
155 t(ddindx).value26 := a25(indx);
156 t(ddindx).value27 := a26(indx);
157 t(ddindx).value28 := a27(indx);
158 t(ddindx).value29 := a28(indx);
159 t(ddindx).value30 := a29(indx);
160 t(ddindx).value31 := a30(indx);
161 t(ddindx).value32 := a31(indx);
162 t(ddindx).value33 := a32(indx);
163 t(ddindx).value34 := a33(indx);
164 t(ddindx).value35 := a34(indx);
165 t(ddindx).value36 := a35(indx);
166 t(ddindx).value37 := a36(indx);
167 t(ddindx).value38 := a37(indx);
168 t(ddindx).value39 := a38(indx);
169 t(ddindx).value40 := a39(indx);
170 t(ddindx).value41 := a40(indx);
171 t(ddindx).value42 := a41(indx);
172 t(ddindx).value43 := a42(indx);
173 t(ddindx).value44 := a43(indx);
174 t(ddindx).value45 := a44(indx);
175 t(ddindx).value46 := a45(indx);
176 t(ddindx).value47 := a46(indx);
177 t(ddindx).value48 := a47(indx);
178 t(ddindx).value49 := a48(indx);
179 t(ddindx).value50 := a49(indx);
180 t(ddindx).value51 := a50(indx);
181 t(ddindx).value52 := a51(indx);
182 t(ddindx).value53 := a52(indx);
183 t(ddindx).value54 := a53(indx);
184 t(ddindx).value55 := a54(indx);
185 t(ddindx).value56 := a55(indx);
186 t(ddindx).value57 := a56(indx);
187 t(ddindx).value58 := a57(indx);
188 t(ddindx).value59 := a58(indx);
189 t(ddindx).value60 := a59(indx);
190 t(ddindx).value61 := a60(indx);
191 t(ddindx).value62 := a61(indx);
192 t(ddindx).value63 := a62(indx);
193 t(ddindx).value64 := a63(indx);
194 t(ddindx).value65 := a64(indx);
195 t(ddindx).value66 := a65(indx);
196 t(ddindx).value67 := a66(indx);
197 t(ddindx).value68 := a67(indx);
198 t(ddindx).value69 := a68(indx);
199 t(ddindx).value70 := a69(indx);
200 t(ddindx).value71 := a70(indx);
201 t(ddindx).value72 := a71(indx);
202 t(ddindx).value73 := a72(indx);
203 t(ddindx).value74 := a73(indx);
204 t(ddindx).value75 := a74(indx);
205 t(ddindx).value76 := a75(indx);
206 t(ddindx).value77 := a76(indx);
207 t(ddindx).value78 := a77(indx);
208 t(ddindx).value79 := a78(indx);
209 t(ddindx).value80 := a79(indx);
210 t(ddindx).value81 := a80(indx);
211 t(ddindx).value82 := a81(indx);
212 t(ddindx).value83 := a82(indx);
213 t(ddindx).value84 := a83(indx);
214 t(ddindx).value85 := a84(indx);
215 t(ddindx).value86 := a85(indx);
216 t(ddindx).value87 := a86(indx);
217 t(ddindx).value88 := a87(indx);
218 t(ddindx).value89 := a88(indx);
219 t(ddindx).value90 := a89(indx);
220 t(ddindx).value91 := a90(indx);
221 t(ddindx).value92 := a91(indx);
222 t(ddindx).value93 := a92(indx);
223 t(ddindx).value94 := a93(indx);
224 t(ddindx).value95 := a94(indx);
225 t(ddindx).value96 := a95(indx);
226 t(ddindx).value97 := a96(indx);
227 t(ddindx).value98 := a97(indx);
228 t(ddindx).value99 := a98(indx);
229 t(ddindx).value100 := a99(indx);
230 ddindx := ddindx+1;
231 if a0.last =indx
232 then exit;
233 end if;
234 indx := a0.next(indx);
235 end loop;
236 end if;
237 end if;
238 end rosetta_table_copy_in_p4;
239 procedure rosetta_table_copy_out_p4(t jtf_region_pub.ak_result_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
240 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
241 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
242 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
243 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
244 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
245 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
246 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
247 , a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
248 , a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
249 , a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
250 , a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
251 , a12 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
252 , a13 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
253 , a14 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
254 , a15 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
255 , a16 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
256 , a17 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
257 , a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
258 , a19 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
259 , a20 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
260 , a21 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
261 , a22 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
262 , a23 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
263 , a24 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
264 , a25 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
265 , a26 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
266 , a27 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
267 , a28 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
268 , a29 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
269 , a30 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
270 , a31 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
271 , a32 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
272 , a33 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
273 , a34 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
274 , a35 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
275 , a36 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
276 , a37 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
277 , a38 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
278 , a39 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
279 , a40 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
280 , a41 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
281 , a42 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
282 , a43 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
283 , a44 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
284 , a45 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
285 , a46 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
286 , a47 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
287 , a48 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
288 , a49 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
289 , a50 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
290 , a51 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
291 , a52 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
292 , a53 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
293 , a54 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
294 , a55 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
295 , a56 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
296 , a57 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
297 , a58 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
298 , a59 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
299 , a60 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
300 , a61 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
301 , a62 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
302 , a63 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
303 , a64 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
304 , a65 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
305 , a66 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
306 , a67 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
307 , a68 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
308 , a69 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
309 , a70 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
310 , a71 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
311 , a72 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
312 , a73 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
313 , a74 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
314 , a75 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
315 , a76 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
316 , a77 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
317 , a78 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
318 , a79 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
319 , a80 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
320 , a81 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
321 , a82 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
322 , a83 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
323 , a84 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
324 , a85 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
325 , a86 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
326 , a87 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
327 , a88 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
328 , a89 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
329 , a90 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
330 , a91 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
331 , a92 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
332 , a93 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
333 , a94 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
334 , a95 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
335 , a96 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
336 , a97 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
337 , a98 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
338 , a99 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
339 ) as
340 ddindx binary_integer; indx binary_integer;
341 begin
342 if t is null or t.count = 0 then
343 a0 := JTF_VARCHAR2_TABLE_300();
344 a1 := JTF_VARCHAR2_TABLE_300();
345 a2 := JTF_VARCHAR2_TABLE_300();
346 a3 := JTF_VARCHAR2_TABLE_300();
347 a4 := JTF_VARCHAR2_TABLE_300();
348 a5 := JTF_VARCHAR2_TABLE_300();
349 a6 := JTF_VARCHAR2_TABLE_300();
350 a7 := JTF_VARCHAR2_TABLE_300();
351 a8 := JTF_VARCHAR2_TABLE_300();
352 a9 := JTF_VARCHAR2_TABLE_300();
353 a10 := JTF_VARCHAR2_TABLE_300();
354 a11 := JTF_VARCHAR2_TABLE_300();
355 a12 := JTF_VARCHAR2_TABLE_300();
356 a13 := JTF_VARCHAR2_TABLE_300();
357 a14 := JTF_VARCHAR2_TABLE_300();
358 a15 := JTF_VARCHAR2_TABLE_300();
359 a16 := JTF_VARCHAR2_TABLE_300();
360 a17 := JTF_VARCHAR2_TABLE_300();
361 a18 := JTF_VARCHAR2_TABLE_300();
362 a19 := JTF_VARCHAR2_TABLE_300();
363 a20 := JTF_VARCHAR2_TABLE_300();
364 a21 := JTF_VARCHAR2_TABLE_300();
365 a22 := JTF_VARCHAR2_TABLE_300();
366 a23 := JTF_VARCHAR2_TABLE_300();
367 a24 := JTF_VARCHAR2_TABLE_300();
368 a25 := JTF_VARCHAR2_TABLE_300();
369 a26 := JTF_VARCHAR2_TABLE_300();
370 a27 := JTF_VARCHAR2_TABLE_300();
371 a28 := JTF_VARCHAR2_TABLE_300();
372 a29 := JTF_VARCHAR2_TABLE_300();
373 a30 := JTF_VARCHAR2_TABLE_300();
374 a31 := JTF_VARCHAR2_TABLE_300();
375 a32 := JTF_VARCHAR2_TABLE_300();
376 a33 := JTF_VARCHAR2_TABLE_300();
377 a34 := JTF_VARCHAR2_TABLE_300();
378 a35 := JTF_VARCHAR2_TABLE_300();
379 a36 := JTF_VARCHAR2_TABLE_300();
380 a37 := JTF_VARCHAR2_TABLE_300();
381 a38 := JTF_VARCHAR2_TABLE_300();
382 a39 := JTF_VARCHAR2_TABLE_300();
383 a40 := JTF_VARCHAR2_TABLE_300();
384 a41 := JTF_VARCHAR2_TABLE_300();
385 a42 := JTF_VARCHAR2_TABLE_300();
386 a43 := JTF_VARCHAR2_TABLE_300();
387 a44 := JTF_VARCHAR2_TABLE_300();
388 a45 := JTF_VARCHAR2_TABLE_300();
389 a46 := JTF_VARCHAR2_TABLE_300();
390 a47 := JTF_VARCHAR2_TABLE_300();
391 a48 := JTF_VARCHAR2_TABLE_300();
392 a49 := JTF_VARCHAR2_TABLE_300();
393 a50 := JTF_VARCHAR2_TABLE_300();
394 a51 := JTF_VARCHAR2_TABLE_300();
395 a52 := JTF_VARCHAR2_TABLE_300();
396 a53 := JTF_VARCHAR2_TABLE_300();
397 a54 := JTF_VARCHAR2_TABLE_300();
398 a55 := JTF_VARCHAR2_TABLE_300();
399 a56 := JTF_VARCHAR2_TABLE_300();
400 a57 := JTF_VARCHAR2_TABLE_300();
401 a58 := JTF_VARCHAR2_TABLE_300();
402 a59 := JTF_VARCHAR2_TABLE_300();
403 a60 := JTF_VARCHAR2_TABLE_300();
404 a61 := JTF_VARCHAR2_TABLE_300();
405 a62 := JTF_VARCHAR2_TABLE_300();
406 a63 := JTF_VARCHAR2_TABLE_300();
407 a64 := JTF_VARCHAR2_TABLE_300();
408 a65 := JTF_VARCHAR2_TABLE_300();
409 a66 := JTF_VARCHAR2_TABLE_300();
410 a67 := JTF_VARCHAR2_TABLE_300();
411 a68 := JTF_VARCHAR2_TABLE_300();
412 a69 := JTF_VARCHAR2_TABLE_300();
413 a70 := JTF_VARCHAR2_TABLE_300();
414 a71 := JTF_VARCHAR2_TABLE_300();
415 a72 := JTF_VARCHAR2_TABLE_300();
416 a73 := JTF_VARCHAR2_TABLE_300();
417 a74 := JTF_VARCHAR2_TABLE_300();
418 a75 := JTF_VARCHAR2_TABLE_300();
419 a76 := JTF_VARCHAR2_TABLE_300();
420 a77 := JTF_VARCHAR2_TABLE_300();
421 a78 := JTF_VARCHAR2_TABLE_300();
422 a79 := JTF_VARCHAR2_TABLE_300();
423 a80 := JTF_VARCHAR2_TABLE_300();
424 a81 := JTF_VARCHAR2_TABLE_300();
425 a82 := JTF_VARCHAR2_TABLE_300();
426 a83 := JTF_VARCHAR2_TABLE_300();
427 a84 := JTF_VARCHAR2_TABLE_300();
428 a85 := JTF_VARCHAR2_TABLE_300();
429 a86 := JTF_VARCHAR2_TABLE_300();
430 a87 := JTF_VARCHAR2_TABLE_300();
431 a88 := JTF_VARCHAR2_TABLE_300();
432 a89 := JTF_VARCHAR2_TABLE_300();
433 a90 := JTF_VARCHAR2_TABLE_300();
434 a91 := JTF_VARCHAR2_TABLE_300();
435 a92 := JTF_VARCHAR2_TABLE_300();
436 a93 := JTF_VARCHAR2_TABLE_300();
437 a94 := JTF_VARCHAR2_TABLE_300();
438 a95 := JTF_VARCHAR2_TABLE_300();
439 a96 := JTF_VARCHAR2_TABLE_300();
440 a97 := JTF_VARCHAR2_TABLE_300();
441 a98 := JTF_VARCHAR2_TABLE_300();
442 a99 := JTF_VARCHAR2_TABLE_300();
443 else
444 a0 := JTF_VARCHAR2_TABLE_300();
445 a1 := JTF_VARCHAR2_TABLE_300();
446 a2 := JTF_VARCHAR2_TABLE_300();
447 a3 := JTF_VARCHAR2_TABLE_300();
448 a4 := JTF_VARCHAR2_TABLE_300();
449 a5 := JTF_VARCHAR2_TABLE_300();
450 a6 := JTF_VARCHAR2_TABLE_300();
451 a7 := JTF_VARCHAR2_TABLE_300();
452 a8 := JTF_VARCHAR2_TABLE_300();
453 a9 := JTF_VARCHAR2_TABLE_300();
454 a10 := JTF_VARCHAR2_TABLE_300();
455 a11 := JTF_VARCHAR2_TABLE_300();
456 a12 := JTF_VARCHAR2_TABLE_300();
457 a13 := JTF_VARCHAR2_TABLE_300();
458 a14 := JTF_VARCHAR2_TABLE_300();
459 a15 := JTF_VARCHAR2_TABLE_300();
460 a16 := JTF_VARCHAR2_TABLE_300();
461 a17 := JTF_VARCHAR2_TABLE_300();
462 a18 := JTF_VARCHAR2_TABLE_300();
463 a19 := JTF_VARCHAR2_TABLE_300();
464 a20 := JTF_VARCHAR2_TABLE_300();
465 a21 := JTF_VARCHAR2_TABLE_300();
466 a22 := JTF_VARCHAR2_TABLE_300();
467 a23 := JTF_VARCHAR2_TABLE_300();
468 a24 := JTF_VARCHAR2_TABLE_300();
469 a25 := JTF_VARCHAR2_TABLE_300();
470 a26 := JTF_VARCHAR2_TABLE_300();
471 a27 := JTF_VARCHAR2_TABLE_300();
472 a28 := JTF_VARCHAR2_TABLE_300();
473 a29 := JTF_VARCHAR2_TABLE_300();
474 a30 := JTF_VARCHAR2_TABLE_300();
475 a31 := JTF_VARCHAR2_TABLE_300();
476 a32 := JTF_VARCHAR2_TABLE_300();
477 a33 := JTF_VARCHAR2_TABLE_300();
478 a34 := JTF_VARCHAR2_TABLE_300();
479 a35 := JTF_VARCHAR2_TABLE_300();
480 a36 := JTF_VARCHAR2_TABLE_300();
481 a37 := JTF_VARCHAR2_TABLE_300();
482 a38 := JTF_VARCHAR2_TABLE_300();
483 a39 := JTF_VARCHAR2_TABLE_300();
484 a40 := JTF_VARCHAR2_TABLE_300();
485 a41 := JTF_VARCHAR2_TABLE_300();
486 a42 := JTF_VARCHAR2_TABLE_300();
487 a43 := JTF_VARCHAR2_TABLE_300();
488 a44 := JTF_VARCHAR2_TABLE_300();
489 a45 := JTF_VARCHAR2_TABLE_300();
490 a46 := JTF_VARCHAR2_TABLE_300();
491 a47 := JTF_VARCHAR2_TABLE_300();
492 a48 := JTF_VARCHAR2_TABLE_300();
493 a49 := JTF_VARCHAR2_TABLE_300();
494 a50 := JTF_VARCHAR2_TABLE_300();
495 a51 := JTF_VARCHAR2_TABLE_300();
496 a52 := JTF_VARCHAR2_TABLE_300();
497 a53 := JTF_VARCHAR2_TABLE_300();
498 a54 := JTF_VARCHAR2_TABLE_300();
499 a55 := JTF_VARCHAR2_TABLE_300();
500 a56 := JTF_VARCHAR2_TABLE_300();
501 a57 := JTF_VARCHAR2_TABLE_300();
502 a58 := JTF_VARCHAR2_TABLE_300();
503 a59 := JTF_VARCHAR2_TABLE_300();
504 a60 := JTF_VARCHAR2_TABLE_300();
505 a61 := JTF_VARCHAR2_TABLE_300();
506 a62 := JTF_VARCHAR2_TABLE_300();
507 a63 := JTF_VARCHAR2_TABLE_300();
508 a64 := JTF_VARCHAR2_TABLE_300();
509 a65 := JTF_VARCHAR2_TABLE_300();
510 a66 := JTF_VARCHAR2_TABLE_300();
511 a67 := JTF_VARCHAR2_TABLE_300();
512 a68 := JTF_VARCHAR2_TABLE_300();
513 a69 := JTF_VARCHAR2_TABLE_300();
514 a70 := JTF_VARCHAR2_TABLE_300();
515 a71 := JTF_VARCHAR2_TABLE_300();
516 a72 := JTF_VARCHAR2_TABLE_300();
517 a73 := JTF_VARCHAR2_TABLE_300();
518 a74 := JTF_VARCHAR2_TABLE_300();
519 a75 := JTF_VARCHAR2_TABLE_300();
520 a76 := JTF_VARCHAR2_TABLE_300();
521 a77 := JTF_VARCHAR2_TABLE_300();
522 a78 := JTF_VARCHAR2_TABLE_300();
523 a79 := JTF_VARCHAR2_TABLE_300();
524 a80 := JTF_VARCHAR2_TABLE_300();
525 a81 := JTF_VARCHAR2_TABLE_300();
526 a82 := JTF_VARCHAR2_TABLE_300();
527 a83 := JTF_VARCHAR2_TABLE_300();
528 a84 := JTF_VARCHAR2_TABLE_300();
529 a85 := JTF_VARCHAR2_TABLE_300();
530 a86 := JTF_VARCHAR2_TABLE_300();
531 a87 := JTF_VARCHAR2_TABLE_300();
532 a88 := JTF_VARCHAR2_TABLE_300();
533 a89 := JTF_VARCHAR2_TABLE_300();
534 a90 := JTF_VARCHAR2_TABLE_300();
535 a91 := JTF_VARCHAR2_TABLE_300();
536 a92 := JTF_VARCHAR2_TABLE_300();
537 a93 := JTF_VARCHAR2_TABLE_300();
538 a94 := JTF_VARCHAR2_TABLE_300();
539 a95 := JTF_VARCHAR2_TABLE_300();
540 a96 := JTF_VARCHAR2_TABLE_300();
541 a97 := JTF_VARCHAR2_TABLE_300();
542 a98 := JTF_VARCHAR2_TABLE_300();
543 a99 := JTF_VARCHAR2_TABLE_300();
544 if t.count > 0 then
545 a0.extend(t.count);
546 a1.extend(t.count);
547 a2.extend(t.count);
548 a3.extend(t.count);
549 a4.extend(t.count);
550 a5.extend(t.count);
551 a6.extend(t.count);
552 a7.extend(t.count);
553 a8.extend(t.count);
554 a9.extend(t.count);
555 a10.extend(t.count);
556 a11.extend(t.count);
557 a12.extend(t.count);
558 a13.extend(t.count);
559 a14.extend(t.count);
560 a15.extend(t.count);
561 a16.extend(t.count);
562 a17.extend(t.count);
563 a18.extend(t.count);
564 a19.extend(t.count);
565 a20.extend(t.count);
566 a21.extend(t.count);
567 a22.extend(t.count);
568 a23.extend(t.count);
569 a24.extend(t.count);
570 a25.extend(t.count);
571 a26.extend(t.count);
572 a27.extend(t.count);
573 a28.extend(t.count);
574 a29.extend(t.count);
575 a30.extend(t.count);
576 a31.extend(t.count);
577 a32.extend(t.count);
578 a33.extend(t.count);
579 a34.extend(t.count);
580 a35.extend(t.count);
581 a36.extend(t.count);
582 a37.extend(t.count);
583 a38.extend(t.count);
584 a39.extend(t.count);
585 a40.extend(t.count);
586 a41.extend(t.count);
587 a42.extend(t.count);
588 a43.extend(t.count);
589 a44.extend(t.count);
590 a45.extend(t.count);
591 a46.extend(t.count);
592 a47.extend(t.count);
593 a48.extend(t.count);
594 a49.extend(t.count);
595 a50.extend(t.count);
596 a51.extend(t.count);
597 a52.extend(t.count);
598 a53.extend(t.count);
599 a54.extend(t.count);
600 a55.extend(t.count);
601 a56.extend(t.count);
602 a57.extend(t.count);
603 a58.extend(t.count);
604 a59.extend(t.count);
605 a60.extend(t.count);
606 a61.extend(t.count);
607 a62.extend(t.count);
608 a63.extend(t.count);
609 a64.extend(t.count);
610 a65.extend(t.count);
611 a66.extend(t.count);
612 a67.extend(t.count);
613 a68.extend(t.count);
614 a69.extend(t.count);
615 a70.extend(t.count);
616 a71.extend(t.count);
617 a72.extend(t.count);
618 a73.extend(t.count);
619 a74.extend(t.count);
620 a75.extend(t.count);
621 a76.extend(t.count);
622 a77.extend(t.count);
623 a78.extend(t.count);
624 a79.extend(t.count);
625 a80.extend(t.count);
626 a81.extend(t.count);
627 a82.extend(t.count);
628 a83.extend(t.count);
629 a84.extend(t.count);
630 a85.extend(t.count);
631 a86.extend(t.count);
632 a87.extend(t.count);
633 a88.extend(t.count);
634 a89.extend(t.count);
635 a90.extend(t.count);
636 a91.extend(t.count);
637 a92.extend(t.count);
638 a93.extend(t.count);
639 a94.extend(t.count);
640 a95.extend(t.count);
641 a96.extend(t.count);
642 a97.extend(t.count);
643 a98.extend(t.count);
644 a99.extend(t.count);
645 ddindx := t.first;
646 indx := 1;
647 while true loop
648 a0(indx) := t(ddindx).value1;
649 a1(indx) := t(ddindx).value2;
650 a2(indx) := t(ddindx).value3;
651 a3(indx) := t(ddindx).value4;
652 a4(indx) := t(ddindx).value5;
653 a5(indx) := t(ddindx).value6;
654 a6(indx) := t(ddindx).value7;
655 a7(indx) := t(ddindx).value8;
656 a8(indx) := t(ddindx).value9;
657 a9(indx) := t(ddindx).value10;
658 a10(indx) := t(ddindx).value11;
659 a11(indx) := t(ddindx).value12;
660 a12(indx) := t(ddindx).value13;
661 a13(indx) := t(ddindx).value14;
662 a14(indx) := t(ddindx).value15;
663 a15(indx) := t(ddindx).value16;
664 a16(indx) := t(ddindx).value17;
665 a17(indx) := t(ddindx).value18;
666 a18(indx) := t(ddindx).value19;
667 a19(indx) := t(ddindx).value20;
668 a20(indx) := t(ddindx).value21;
669 a21(indx) := t(ddindx).value22;
670 a22(indx) := t(ddindx).value23;
671 a23(indx) := t(ddindx).value24;
672 a24(indx) := t(ddindx).value25;
673 a25(indx) := t(ddindx).value26;
674 a26(indx) := t(ddindx).value27;
675 a27(indx) := t(ddindx).value28;
676 a28(indx) := t(ddindx).value29;
677 a29(indx) := t(ddindx).value30;
678 a30(indx) := t(ddindx).value31;
679 a31(indx) := t(ddindx).value32;
680 a32(indx) := t(ddindx).value33;
681 a33(indx) := t(ddindx).value34;
682 a34(indx) := t(ddindx).value35;
683 a35(indx) := t(ddindx).value36;
684 a36(indx) := t(ddindx).value37;
685 a37(indx) := t(ddindx).value38;
686 a38(indx) := t(ddindx).value39;
687 a39(indx) := t(ddindx).value40;
688 a40(indx) := t(ddindx).value41;
689 a41(indx) := t(ddindx).value42;
690 a42(indx) := t(ddindx).value43;
691 a43(indx) := t(ddindx).value44;
692 a44(indx) := t(ddindx).value45;
693 a45(indx) := t(ddindx).value46;
694 a46(indx) := t(ddindx).value47;
695 a47(indx) := t(ddindx).value48;
696 a48(indx) := t(ddindx).value49;
697 a49(indx) := t(ddindx).value50;
698 a50(indx) := t(ddindx).value51;
699 a51(indx) := t(ddindx).value52;
700 a52(indx) := t(ddindx).value53;
701 a53(indx) := t(ddindx).value54;
702 a54(indx) := t(ddindx).value55;
703 a55(indx) := t(ddindx).value56;
704 a56(indx) := t(ddindx).value57;
705 a57(indx) := t(ddindx).value58;
706 a58(indx) := t(ddindx).value59;
707 a59(indx) := t(ddindx).value60;
708 a60(indx) := t(ddindx).value61;
709 a61(indx) := t(ddindx).value62;
710 a62(indx) := t(ddindx).value63;
711 a63(indx) := t(ddindx).value64;
712 a64(indx) := t(ddindx).value65;
713 a65(indx) := t(ddindx).value66;
714 a66(indx) := t(ddindx).value67;
715 a67(indx) := t(ddindx).value68;
716 a68(indx) := t(ddindx).value69;
717 a69(indx) := t(ddindx).value70;
718 a70(indx) := t(ddindx).value71;
719 a71(indx) := t(ddindx).value72;
720 a72(indx) := t(ddindx).value73;
721 a73(indx) := t(ddindx).value74;
722 a74(indx) := t(ddindx).value75;
723 a75(indx) := t(ddindx).value76;
724 a76(indx) := t(ddindx).value77;
725 a77(indx) := t(ddindx).value78;
726 a78(indx) := t(ddindx).value79;
727 a79(indx) := t(ddindx).value80;
728 a80(indx) := t(ddindx).value81;
729 a81(indx) := t(ddindx).value82;
730 a82(indx) := t(ddindx).value83;
731 a83(indx) := t(ddindx).value84;
732 a84(indx) := t(ddindx).value85;
733 a85(indx) := t(ddindx).value86;
734 a86(indx) := t(ddindx).value87;
735 a87(indx) := t(ddindx).value88;
736 a88(indx) := t(ddindx).value89;
737 a89(indx) := t(ddindx).value90;
738 a90(indx) := t(ddindx).value91;
739 a91(indx) := t(ddindx).value92;
740 a92(indx) := t(ddindx).value93;
741 a93(indx) := t(ddindx).value94;
742 a94(indx) := t(ddindx).value95;
743 a95(indx) := t(ddindx).value96;
744 a96(indx) := t(ddindx).value97;
745 a97(indx) := t(ddindx).value98;
746 a98(indx) := t(ddindx).value99;
747 a99(indx) := t(ddindx).value100;
748 indx := indx+1;
749 if t.last =ddindx
750 then exit;
751 end if;
752 ddindx := t.next(ddindx);
753 end loop;
754 end if;
755 end if;
756 end rosetta_table_copy_out_p4;
757
758 procedure rosetta_table_copy_in_p5(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.ak_item_rec_table, a0 JTF_NUMBER_TABLE
759 , a1 JTF_VARCHAR2_TABLE_100
760 ) as
761 ddindx binary_integer; indx binary_integer;
762 begin
763 if a0 is not null and a0.count > 0 then
764 if a0.count > 0 then
765 indx := a0.first;
766 ddindx := 1;
767 while true loop
768 t(ddindx).value_id := rosetta_g_miss_num_map(a0(indx));
769 t(ddindx).column_name := a1(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_p5;
779 procedure rosetta_table_copy_out_p5(t jtf_region_pub.ak_item_rec_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
780 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
781 ) as
782 ddindx binary_integer; indx binary_integer;
783 begin
784 if t is null or t.count = 0 then
785 a0 := JTF_NUMBER_TABLE();
786 a1 := JTF_VARCHAR2_TABLE_100();
787 else
788 a0 := JTF_NUMBER_TABLE();
789 a1 := JTF_VARCHAR2_TABLE_100();
790 if t.count > 0 then
791 a0.extend(t.count);
792 a1.extend(t.count);
793 ddindx := t.first;
794 indx := 1;
795 while true loop
796 a0(indx) := rosetta_g_miss_num_map(t(ddindx).value_id);
797 a1(indx) := t(ddindx).column_name;
798 indx := indx+1;
799 if t.last =ddindx
800 then exit;
801 end if;
802 ddindx := t.next(ddindx);
803 end loop;
804 end if;
805 end if;
806 end rosetta_table_copy_out_p5;
807
808 procedure rosetta_table_copy_in_p6(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.ak_bind_table, a0 JTF_VARCHAR2_TABLE_100
809 , a1 JTF_VARCHAR2_TABLE_300
810 ) as
811 ddindx binary_integer; indx binary_integer;
812 begin
813 if a0 is not null and a0.count > 0 then
814 if a0.count > 0 then
815 indx := a0.first;
816 ddindx := 1;
817 while true loop
818 t(ddindx).name := a0(indx);
819 t(ddindx).value := a1(indx);
820 ddindx := ddindx+1;
821 if a0.last =indx
822 then exit;
823 end if;
824 indx := a0.next(indx);
825 end loop;
826 end if;
827 end if;
828 end rosetta_table_copy_in_p6;
829 procedure rosetta_table_copy_out_p6(t jtf_region_pub.ak_bind_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
830 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
831 ) as
832 ddindx binary_integer; indx binary_integer;
833 begin
834 if t is null or t.count = 0 then
835 a0 := JTF_VARCHAR2_TABLE_100();
836 a1 := JTF_VARCHAR2_TABLE_300();
837 else
838 a0 := JTF_VARCHAR2_TABLE_100();
839 a1 := JTF_VARCHAR2_TABLE_300();
840 if t.count > 0 then
841 a0.extend(t.count);
842 a1.extend(t.count);
843 ddindx := t.first;
844 indx := 1;
845 while true loop
846 a0(indx) := t(ddindx).name;
847 a1(indx) := t(ddindx).value;
848 indx := indx+1;
849 if t.last =ddindx
850 then exit;
851 end if;
852 ddindx := t.next(ddindx);
853 end loop;
854 end if;
855 end if;
856 end rosetta_table_copy_out_p6;
857
858 procedure rosetta_table_copy_in_p7(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.ak_region_items_table, a0 JTF_VARCHAR2_TABLE_100
859 , a1 JTF_VARCHAR2_TABLE_100
860 , a2 JTF_VARCHAR2_TABLE_100
861 , a3 JTF_VARCHAR2_TABLE_100
862 , a4 JTF_VARCHAR2_TABLE_100
863 , a5 JTF_VARCHAR2_TABLE_100
864 , a6 JTF_VARCHAR2_TABLE_2000
865 , a7 JTF_NUMBER_TABLE
866 , a8 JTF_VARCHAR2_TABLE_100
867 , a9 JTF_VARCHAR2_TABLE_100
868 , a10 JTF_VARCHAR2_TABLE_100
869 ) as
870 ddindx binary_integer; indx binary_integer;
871 begin
872 if a0 is not null and a0.count > 0 then
873 if a0.count > 0 then
874 indx := a0.first;
875 ddindx := 1;
876 while true loop
877 t(ddindx).attribute_label_long := a0(indx);
878 t(ddindx).attribute_label_short := a1(indx);
879 t(ddindx).column_name := a2(indx);
880 t(ddindx).data_type := a3(indx);
881 t(ddindx).attribute_name := a4(indx);
882 t(ddindx).attribute_code := a5(indx);
883 t(ddindx).attribute_description := a6(indx);
884 t(ddindx).display_value_length := rosetta_g_miss_num_map(a7(indx));
885 t(ddindx).lov_region_code := a8(indx);
886 t(ddindx).node_display_flag := a9(indx);
887 t(ddindx).node_query_flag := a10(indx);
888 ddindx := ddindx+1;
889 if a0.last =indx
890 then exit;
891 end if;
892 indx := a0.next(indx);
893 end loop;
894 end if;
895 end if;
896 end rosetta_table_copy_in_p7;
897 procedure rosetta_table_copy_out_p7(t jtf_region_pub.ak_region_items_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
898 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
899 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
900 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
901 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
902 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
903 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000
904 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
905 , a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
906 , a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
907 , a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
908 ) as
909 ddindx binary_integer; indx binary_integer;
910 begin
911 if t is null or t.count = 0 then
912 a0 := JTF_VARCHAR2_TABLE_100();
913 a1 := JTF_VARCHAR2_TABLE_100();
914 a2 := JTF_VARCHAR2_TABLE_100();
915 a3 := JTF_VARCHAR2_TABLE_100();
916 a4 := JTF_VARCHAR2_TABLE_100();
917 a5 := JTF_VARCHAR2_TABLE_100();
918 a6 := JTF_VARCHAR2_TABLE_2000();
919 a7 := JTF_NUMBER_TABLE();
920 a8 := JTF_VARCHAR2_TABLE_100();
921 a9 := JTF_VARCHAR2_TABLE_100();
922 a10 := JTF_VARCHAR2_TABLE_100();
923 else
924 a0 := JTF_VARCHAR2_TABLE_100();
925 a1 := JTF_VARCHAR2_TABLE_100();
926 a2 := JTF_VARCHAR2_TABLE_100();
927 a3 := JTF_VARCHAR2_TABLE_100();
928 a4 := JTF_VARCHAR2_TABLE_100();
929 a5 := JTF_VARCHAR2_TABLE_100();
930 a6 := JTF_VARCHAR2_TABLE_2000();
931 a7 := JTF_NUMBER_TABLE();
932 a8 := JTF_VARCHAR2_TABLE_100();
933 a9 := JTF_VARCHAR2_TABLE_100();
934 a10 := JTF_VARCHAR2_TABLE_100();
935 if t.count > 0 then
936 a0.extend(t.count);
937 a1.extend(t.count);
938 a2.extend(t.count);
939 a3.extend(t.count);
940 a4.extend(t.count);
941 a5.extend(t.count);
942 a6.extend(t.count);
943 a7.extend(t.count);
944 a8.extend(t.count);
945 a9.extend(t.count);
946 a10.extend(t.count);
947 ddindx := t.first;
948 indx := 1;
949 while true loop
950 a0(indx) := t(ddindx).attribute_label_long;
951 a1(indx) := t(ddindx).attribute_label_short;
952 a2(indx) := t(ddindx).column_name;
953 a3(indx) := t(ddindx).data_type;
954 a4(indx) := t(ddindx).attribute_name;
955 a5(indx) := t(ddindx).attribute_code;
956 a6(indx) := t(ddindx).attribute_description;
957 a7(indx) := rosetta_g_miss_num_map(t(ddindx).display_value_length);
958 a8(indx) := t(ddindx).lov_region_code;
959 a9(indx) := t(ddindx).node_display_flag;
960 a10(indx) := t(ddindx).node_query_flag;
961 indx := indx+1;
962 if t.last =ddindx
963 then exit;
964 end if;
965 ddindx := t.next(ddindx);
966 end loop;
967 end if;
968 end if;
969 end rosetta_table_copy_out_p7;
970
971 procedure rosetta_table_copy_in_p8(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.short_varchar2_table, a0 JTF_VARCHAR2_TABLE_100) as
972 ddindx binary_integer; indx binary_integer;
973 begin
974 if a0 is not null and a0.count > 0 then
975 if a0.count > 0 then
976 indx := a0.first;
977 ddindx := 1;
978 while true loop
979 t(ddindx) := a0(indx);
980 ddindx := ddindx+1;
981 if a0.last =indx
982 then exit;
983 end if;
984 indx := a0.next(indx);
985 end loop;
986 end if;
987 end if;
988 end rosetta_table_copy_in_p8;
989 procedure rosetta_table_copy_out_p8(t jtf_region_pub.short_varchar2_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100) as
990 ddindx binary_integer; indx binary_integer;
991 begin
992 if t is null or t.count = 0 then
993 a0 := JTF_VARCHAR2_TABLE_100();
994 else
995 a0 := JTF_VARCHAR2_TABLE_100();
996 if t.count > 0 then
997 a0.extend(t.count);
998 ddindx := t.first;
999 indx := 1;
1000 while true loop
1001 a0(indx) := t(ddindx);
1002 indx := indx+1;
1003 if t.last =ddindx
1004 then exit;
1005 end if;
1006 ddindx := t.next(ddindx);
1007 end loop;
1008 end if;
1009 end if;
1010 end rosetta_table_copy_out_p8;
1011
1012 procedure rosetta_table_copy_in_p9(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.long_varchar2_table, a0 JTF_VARCHAR2_TABLE_2000) as
1013 ddindx binary_integer; indx binary_integer;
1014 begin
1015 if a0 is not null and a0.count > 0 then
1016 if a0.count > 0 then
1017 indx := a0.first;
1018 ddindx := 1;
1019 while true loop
1020 t(ddindx) := a0(indx);
1021 ddindx := ddindx+1;
1022 if a0.last =indx
1023 then exit;
1024 end if;
1025 indx := a0.next(indx);
1026 end loop;
1027 end if;
1028 end if;
1029 end rosetta_table_copy_in_p9;
1030 procedure rosetta_table_copy_out_p9(t jtf_region_pub.long_varchar2_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000) as
1031 ddindx binary_integer; indx binary_integer;
1032 begin
1033 if t is null or t.count = 0 then
1034 a0 := JTF_VARCHAR2_TABLE_2000();
1035 else
1036 a0 := JTF_VARCHAR2_TABLE_2000();
1037 if t.count > 0 then
1038 a0.extend(t.count);
1039 ddindx := t.first;
1040 indx := 1;
1041 while true loop
1042 a0(indx) := t(ddindx);
1043 indx := indx+1;
1044 if t.last =ddindx
1045 then exit;
1046 end if;
1047 ddindx := t.next(ddindx);
1048 end loop;
1049 end if;
1050 end if;
1051 end rosetta_table_copy_out_p9;
1052
1053 procedure rosetta_table_copy_in_p10(t OUT NOCOPY /* file.sql.39 change */ jtf_region_pub.number_table, a0 JTF_NUMBER_TABLE) as
1054 ddindx binary_integer; indx binary_integer;
1055 begin
1056 if a0 is not null and a0.count > 0 then
1057 if a0.count > 0 then
1058 indx := a0.first;
1059 ddindx := 1;
1060 while true loop
1061 t(ddindx) := a0(indx);
1062 ddindx := ddindx+1;
1063 if a0.last =indx
1064 then exit;
1065 end if;
1066 indx := a0.next(indx);
1067 end loop;
1068 end if;
1069 end if;
1070 end rosetta_table_copy_in_p10;
1071 procedure rosetta_table_copy_out_p10(t jtf_region_pub.number_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
1072 ddindx binary_integer; indx binary_integer;
1073 begin
1074 if t is null or t.count = 0 then
1075 a0 := JTF_NUMBER_TABLE();
1076 else
1077 a0 := JTF_NUMBER_TABLE();
1078 if t.count > 0 then
1079 a0.extend(t.count);
1080 ddindx := t.first;
1081 indx := 1;
1082 while true loop
1083 a0(indx) := t(ddindx);
1084 indx := indx+1;
1085 if t.last =ddindx
1086 then exit;
1087 end if;
1088 ddindx := t.next(ddindx);
1089 end loop;
1090 end if;
1091 end if;
1092 end rosetta_table_copy_out_p10;
1093
1094 procedure get_regions(p_get_region_codes JTF_VARCHAR2_TABLE_100
1095 , p_get_application_id NUMBER
1096 , p_get_responsibility_ids JTF_NUMBER_TABLE
1097 , p_skip_column_name number
1098 , p_lang OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1099 , p_ret_region_codes OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1100 , p_ret_resp_ids OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
1101 , p_ret_object_name OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1102 , p_ret_region_name OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1103 , p_ret_region_description OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000
1104 , p10_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1105 , p10_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1106 , p10_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1107 , p10_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1108 , p10_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1109 , p10_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1110 , p10_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000
1111 , p10_a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
1112 , p10_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1113 , p10_a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1114 , p10_a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1115 )
1116
1117 as
1118 ddp_get_region_codes jtf_region_pub.short_varchar2_table;
1119 ddp_get_responsibility_ids jtf_region_pub.number_table;
1120 ddp_skip_column_name boolean;
1121 ddp_ret_region_codes jtf_region_pub.short_varchar2_table;
1122 ddp_ret_resp_ids jtf_region_pub.number_table;
1123 ddp_ret_object_name jtf_region_pub.short_varchar2_table;
1124 ddp_ret_region_name jtf_region_pub.short_varchar2_table;
1125 ddp_ret_region_description jtf_region_pub.long_varchar2_table;
1126 ddp_ret_region_items_table jtf_region_pub.ak_region_items_table;
1127 ddindx binary_integer; indx binary_integer;
1128 begin
1129
1130 -- copy data to the local IN or IN-OUT args, if any
1131 jtf_region_pub_w.rosetta_table_copy_in_p8(ddp_get_region_codes, p_get_region_codes);
1132
1133
1134 jtf_region_pub_w.rosetta_table_copy_in_p10(ddp_get_responsibility_ids, p_get_responsibility_ids);
1135
1136 if p_skip_column_name is null
1137 then ddp_skip_column_name := null;
1138 elsif p_skip_column_name = 0
1139 then ddp_skip_column_name := false;
1140 else ddp_skip_column_name := true;
1141 end if;
1142
1143
1144
1145
1146
1147
1148
1149
1150 -- here's the delegated call to the old PL/SQL routine
1151 jtf_region_pub.get_regions(ddp_get_region_codes,
1152 p_get_application_id,
1153 ddp_get_responsibility_ids,
1154 ddp_skip_column_name,
1155 p_lang,
1156 ddp_ret_region_codes,
1157 ddp_ret_resp_ids,
1158 ddp_ret_object_name,
1159 ddp_ret_region_name,
1160 ddp_ret_region_description,
1161 ddp_ret_region_items_table);
1162
1163 -- copy data back from the local variables to OUT or IN-OUT args, if any
1164
1165
1166
1167
1168
1169 jtf_region_pub_w.rosetta_table_copy_out_p8(ddp_ret_region_codes, p_ret_region_codes);
1170
1171 jtf_region_pub_w.rosetta_table_copy_out_p10(ddp_ret_resp_ids, p_ret_resp_ids);
1172
1173 jtf_region_pub_w.rosetta_table_copy_out_p8(ddp_ret_object_name, p_ret_object_name);
1174
1175 jtf_region_pub_w.rosetta_table_copy_out_p8(ddp_ret_region_name, p_ret_region_name);
1176
1177 jtf_region_pub_w.rosetta_table_copy_out_p9(ddp_ret_region_description, p_ret_region_description);
1178
1179 jtf_region_pub_w.rosetta_table_copy_out_p7(ddp_ret_region_items_table, p10_a0
1180 , p10_a1
1181 , p10_a2
1182 , p10_a3
1183 , p10_a4
1184 , p10_a5
1185 , p10_a6
1186 , p10_a7
1187 , p10_a8
1188 , p10_a9
1189 , p10_a10
1190 );
1191 end;
1192
1193 procedure get_region(p_region_code VARCHAR2
1194 , p_application_id NUMBER
1195 , p_responsibility_id NUMBER
1196 , p_object_name OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1197 , p_region_name OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1198 , p_region_description OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1199 , p6_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1200 , p6_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1201 , p6_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1202 , p6_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1203 , p6_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1204 , p6_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1205 , p6_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_2000
1206 , p6_a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
1207 , p6_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1208 , p6_a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1209 , p6_a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1210 )
1211
1212 as
1213 ddp_region_items_table jtf_region_pub.ak_region_items_table;
1214 ddindx binary_integer; indx binary_integer;
1215 begin
1216
1217 -- copy data to the local IN or IN-OUT args, if any
1218
1219
1220
1221
1222
1223
1224
1225 -- here's the delegated call to the old PL/SQL routine
1226 jtf_region_pub.get_region(p_region_code,
1227 p_application_id,
1228 p_responsibility_id,
1229 p_object_name,
1230 p_region_name,
1231 p_region_description,
1232 ddp_region_items_table);
1233
1234 -- copy data back from the local variables to OUT or IN-OUT args, if any
1235
1236
1237
1238
1239
1240
1241 jtf_region_pub_w.rosetta_table_copy_out_p7(ddp_region_items_table, p6_a0
1242 , p6_a1
1243 , p6_a2
1244 , p6_a3
1245 , p6_a4
1246 , p6_a5
1247 , p6_a6
1248 , p6_a7
1249 , p6_a8
1250 , p6_a9
1251 , p6_a10
1252 );
1253 end;
1254
1255 procedure ak_query(p_application_id NUMBER
1256 , p_region_code VARCHAR2
1257 , p_where_clause VARCHAR2
1258 , p_order_by_clause VARCHAR2
1259 , p_responsibility_id NUMBER
1260 , p_user_id NUMBER
1261 , p_range_low NUMBER
1262 , p_range_high NUMBER
1263 , p_max_rows IN OUT NOCOPY /* file.sql.39 change */ NUMBER
1264 , p9_a0 JTF_VARCHAR2_TABLE_100
1265 , p9_a1 JTF_VARCHAR2_TABLE_300
1266 , p10_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
1267 , p10_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
1268 , p11_a0 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1269 , p11_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1270 , p11_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1271 , p11_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1272 , p11_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1273 , p11_a5 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1274 , p11_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1275 , p11_a7 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1276 , p11_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1277 , p11_a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1278 , p11_a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1279 , p11_a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1280 , p11_a12 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1281 , p11_a13 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1282 , p11_a14 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1283 , p11_a15 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1284 , p11_a16 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1285 , p11_a17 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1286 , p11_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1287 , p11_a19 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1288 , p11_a20 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1289 , p11_a21 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1290 , p11_a22 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1291 , p11_a23 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1292 , p11_a24 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1293 , p11_a25 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1294 , p11_a26 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1295 , p11_a27 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1296 , p11_a28 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1297 , p11_a29 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1298 , p11_a30 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1299 , p11_a31 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1300 , p11_a32 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1301 , p11_a33 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1302 , p11_a34 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1303 , p11_a35 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1304 , p11_a36 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1305 , p11_a37 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1306 , p11_a38 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1307 , p11_a39 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1308 , p11_a40 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1309 , p11_a41 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1310 , p11_a42 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1311 , p11_a43 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1312 , p11_a44 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1313 , p11_a45 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1314 , p11_a46 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1315 , p11_a47 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1316 , p11_a48 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1317 , p11_a49 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1318 , p11_a50 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1319 , p11_a51 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1320 , p11_a52 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1321 , p11_a53 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1322 , p11_a54 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1323 , p11_a55 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1324 , p11_a56 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1325 , p11_a57 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1326 , p11_a58 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1327 , p11_a59 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1328 , p11_a60 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1329 , p11_a61 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1330 , p11_a62 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1331 , p11_a63 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1332 , p11_a64 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1333 , p11_a65 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1334 , p11_a66 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1335 , p11_a67 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1336 , p11_a68 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1337 , p11_a69 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1338 , p11_a70 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1339 , p11_a71 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1340 , p11_a72 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1341 , p11_a73 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1342 , p11_a74 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1343 , p11_a75 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1344 , p11_a76 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1345 , p11_a77 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1346 , p11_a78 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1347 , p11_a79 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1348 , p11_a80 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1349 , p11_a81 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1350 , p11_a82 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1351 , p11_a83 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1352 , p11_a84 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1353 , p11_a85 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1354 , p11_a86 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1355 , p11_a87 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1356 , p11_a88 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1357 , p11_a89 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1358 , p11_a90 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1359 , p11_a91 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1360 , p11_a92 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1361 , p11_a93 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1362 , p11_a94 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1363 , p11_a95 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1364 , p11_a96 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1365 , p11_a97 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1366 , p11_a98 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1367 , p11_a99 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
1368 )
1369
1370 as
1371 ddp_where_binds jtf_region_pub.ak_bind_table;
1372 ddp_ak_item_rec_table jtf_region_pub.ak_item_rec_table;
1373 ddp_ak_result_table jtf_region_pub.ak_result_table;
1374 ddindx binary_integer; indx binary_integer;
1375 begin
1376
1377 -- copy data to the local IN or IN-OUT args, if any
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387 jtf_region_pub_w.rosetta_table_copy_in_p6(ddp_where_binds, p9_a0
1388 , p9_a1
1389 );
1390
1391
1392
1393 -- here's the delegated call to the old PL/SQL routine
1394 jtf_region_pub.ak_query(p_application_id,
1395 p_region_code,
1396 p_where_clause,
1397 p_order_by_clause,
1398 p_responsibility_id,
1399 p_user_id,
1400 p_range_low,
1401 p_range_high,
1402 p_max_rows,
1403 ddp_where_binds,
1404 ddp_ak_item_rec_table,
1405 ddp_ak_result_table);
1406
1407 -- copy data back from the local variables to OUT or IN-OUT args, if any
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418 jtf_region_pub_w.rosetta_table_copy_out_p5(ddp_ak_item_rec_table, p10_a0
1419 , p10_a1
1420 );
1421
1422 jtf_region_pub_w.rosetta_table_copy_out_p4(ddp_ak_result_table, p11_a0
1423 , p11_a1
1424 , p11_a2
1425 , p11_a3
1426 , p11_a4
1427 , p11_a5
1428 , p11_a6
1429 , p11_a7
1430 , p11_a8
1431 , p11_a9
1432 , p11_a10
1433 , p11_a11
1434 , p11_a12
1435 , p11_a13
1436 , p11_a14
1437 , p11_a15
1438 , p11_a16
1439 , p11_a17
1440 , p11_a18
1441 , p11_a19
1442 , p11_a20
1443 , p11_a21
1444 , p11_a22
1445 , p11_a23
1446 , p11_a24
1447 , p11_a25
1448 , p11_a26
1449 , p11_a27
1450 , p11_a28
1451 , p11_a29
1452 , p11_a30
1453 , p11_a31
1454 , p11_a32
1455 , p11_a33
1456 , p11_a34
1457 , p11_a35
1458 , p11_a36
1459 , p11_a37
1460 , p11_a38
1461 , p11_a39
1462 , p11_a40
1463 , p11_a41
1464 , p11_a42
1465 , p11_a43
1466 , p11_a44
1467 , p11_a45
1468 , p11_a46
1469 , p11_a47
1470 , p11_a48
1471 , p11_a49
1472 , p11_a50
1473 , p11_a51
1474 , p11_a52
1475 , p11_a53
1476 , p11_a54
1477 , p11_a55
1478 , p11_a56
1479 , p11_a57
1480 , p11_a58
1481 , p11_a59
1482 , p11_a60
1483 , p11_a61
1484 , p11_a62
1485 , p11_a63
1486 , p11_a64
1487 , p11_a65
1488 , p11_a66
1489 , p11_a67
1490 , p11_a68
1491 , p11_a69
1492 , p11_a70
1493 , p11_a71
1494 , p11_a72
1495 , p11_a73
1496 , p11_a74
1497 , p11_a75
1498 , p11_a76
1499 , p11_a77
1500 , p11_a78
1501 , p11_a79
1502 , p11_a80
1503 , p11_a81
1504 , p11_a82
1505 , p11_a83
1506 , p11_a84
1507 , p11_a85
1508 , p11_a86
1509 , p11_a87
1510 , p11_a88
1511 , p11_a89
1512 , p11_a90
1513 , p11_a91
1514 , p11_a92
1515 , p11_a93
1516 , p11_a94
1517 , p11_a95
1518 , p11_a96
1519 , p11_a97
1520 , p11_a98
1521 , p11_a99
1522 );
1523 end;
1524
1525 end jtf_region_pub_w;