[Home] [Help]
PACKAGE BODY: APPS.JTS_CONFIGURATION_PVT_W
Source
1 package body jts_configuration_pvt_w as
2 /* $Header: jtswcfgb.pls 115.4 2002/03/22 19:07:52 pkm 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_p5(t out jts_configuration_pvt.config_rec_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_300
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_200
32 , a10 JTF_VARCHAR2_TABLE_200
33 , a11 JTF_VARCHAR2_TABLE_200
34 , a12 JTF_VARCHAR2_TABLE_200
35 , a13 JTF_VARCHAR2_TABLE_200
36 , a14 JTF_VARCHAR2_TABLE_200
37 , a15 JTF_VARCHAR2_TABLE_200
38 , a16 JTF_VARCHAR2_TABLE_200
39 , a17 JTF_VARCHAR2_TABLE_200
40 , a18 JTF_VARCHAR2_TABLE_200
41 , a19 JTF_VARCHAR2_TABLE_200
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 , a23 JTF_VARCHAR2_TABLE_200
46 , a24 JTF_VARCHAR2_TABLE_200
47 , a25 JTF_DATE_TABLE
48 , a26 JTF_NUMBER_TABLE
49 , a27 JTF_DATE_TABLE
50 , a28 JTF_NUMBER_TABLE
51 , a29 JTF_NUMBER_TABLE
52 , a30 JTF_VARCHAR2_TABLE_100
53 , a31 JTF_VARCHAR2_TABLE_100
54 ) as
55 ddindx binary_integer; indx binary_integer;
56 begin
57 if a0 is not null and a0.count > 0 then
58 if a0.count > 0 then
59 indx := a0.first;
60 ddindx := 1;
61 while true loop
62 t(ddindx).configuration_id := rosetta_g_miss_num_map(a0(indx));
63 t(ddindx).config_name := a1(indx);
64 t(ddindx).description := a2(indx);
65 t(ddindx).flow_id := rosetta_g_miss_num_map(a3(indx));
66 t(ddindx).flow_name := a4(indx);
67 t(ddindx).flow_type_code := a5(indx);
68 t(ddindx).flow_type := a6(indx);
69 t(ddindx).record_mode := a7(indx);
70 t(ddindx).displayed_record_mode := a8(indx);
71 t(ddindx).attribute_category := a9(indx);
72 t(ddindx).attribute1 := a10(indx);
73 t(ddindx).attribute2 := a11(indx);
74 t(ddindx).attribute3 := a12(indx);
75 t(ddindx).attribute4 := a13(indx);
76 t(ddindx).attribute5 := a14(indx);
77 t(ddindx).attribute6 := a15(indx);
78 t(ddindx).attribute7 := a16(indx);
79 t(ddindx).attribute8 := a17(indx);
80 t(ddindx).attribute9 := a18(indx);
81 t(ddindx).attribute10 := a19(indx);
82 t(ddindx).attribute11 := a20(indx);
83 t(ddindx).attribute12 := a21(indx);
84 t(ddindx).attribute13 := a22(indx);
85 t(ddindx).attribute14 := a23(indx);
86 t(ddindx).attribute15 := a24(indx);
87 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a25(indx));
88 t(ddindx).created_by := rosetta_g_miss_num_map(a26(indx));
89 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a27(indx));
90 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a28(indx));
91 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
92 t(ddindx).created_by_name := a30(indx);
93 t(ddindx).last_updated_by_name := a31(indx);
94 ddindx := ddindx+1;
95 if a0.last =indx
96 then exit;
97 end if;
98 indx := a0.next(indx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_in_p5;
103 procedure rosetta_table_copy_out_p5(t jts_configuration_pvt.config_rec_tbl_type, a0 out JTF_NUMBER_TABLE
104 , a1 out JTF_VARCHAR2_TABLE_100
105 , a2 out JTF_VARCHAR2_TABLE_300
106 , a3 out JTF_NUMBER_TABLE
107 , a4 out JTF_VARCHAR2_TABLE_100
108 , a5 out JTF_VARCHAR2_TABLE_100
109 , a6 out JTF_VARCHAR2_TABLE_100
110 , a7 out JTF_VARCHAR2_TABLE_100
111 , a8 out JTF_VARCHAR2_TABLE_100
112 , a9 out JTF_VARCHAR2_TABLE_200
113 , a10 out JTF_VARCHAR2_TABLE_200
114 , a11 out JTF_VARCHAR2_TABLE_200
115 , a12 out JTF_VARCHAR2_TABLE_200
116 , a13 out JTF_VARCHAR2_TABLE_200
117 , a14 out JTF_VARCHAR2_TABLE_200
118 , a15 out JTF_VARCHAR2_TABLE_200
119 , a16 out JTF_VARCHAR2_TABLE_200
120 , a17 out JTF_VARCHAR2_TABLE_200
121 , a18 out JTF_VARCHAR2_TABLE_200
122 , a19 out JTF_VARCHAR2_TABLE_200
123 , a20 out JTF_VARCHAR2_TABLE_200
124 , a21 out JTF_VARCHAR2_TABLE_200
125 , a22 out JTF_VARCHAR2_TABLE_200
126 , a23 out JTF_VARCHAR2_TABLE_200
127 , a24 out JTF_VARCHAR2_TABLE_200
128 , a25 out JTF_DATE_TABLE
129 , a26 out JTF_NUMBER_TABLE
130 , a27 out JTF_DATE_TABLE
131 , a28 out JTF_NUMBER_TABLE
132 , a29 out JTF_NUMBER_TABLE
133 , a30 out JTF_VARCHAR2_TABLE_100
134 , a31 out JTF_VARCHAR2_TABLE_100
135 ) as
136 ddindx binary_integer; indx binary_integer;
137 begin
138 if t is null or t.count = 0 then
139 a0 := JTF_NUMBER_TABLE();
140 a1 := JTF_VARCHAR2_TABLE_100();
141 a2 := JTF_VARCHAR2_TABLE_300();
142 a3 := JTF_NUMBER_TABLE();
143 a4 := JTF_VARCHAR2_TABLE_100();
144 a5 := JTF_VARCHAR2_TABLE_100();
145 a6 := JTF_VARCHAR2_TABLE_100();
146 a7 := JTF_VARCHAR2_TABLE_100();
147 a8 := JTF_VARCHAR2_TABLE_100();
148 a9 := JTF_VARCHAR2_TABLE_200();
149 a10 := JTF_VARCHAR2_TABLE_200();
150 a11 := JTF_VARCHAR2_TABLE_200();
151 a12 := JTF_VARCHAR2_TABLE_200();
152 a13 := JTF_VARCHAR2_TABLE_200();
153 a14 := JTF_VARCHAR2_TABLE_200();
154 a15 := JTF_VARCHAR2_TABLE_200();
155 a16 := JTF_VARCHAR2_TABLE_200();
156 a17 := JTF_VARCHAR2_TABLE_200();
157 a18 := JTF_VARCHAR2_TABLE_200();
158 a19 := JTF_VARCHAR2_TABLE_200();
159 a20 := JTF_VARCHAR2_TABLE_200();
160 a21 := JTF_VARCHAR2_TABLE_200();
161 a22 := JTF_VARCHAR2_TABLE_200();
162 a23 := JTF_VARCHAR2_TABLE_200();
163 a24 := JTF_VARCHAR2_TABLE_200();
164 a25 := JTF_DATE_TABLE();
165 a26 := JTF_NUMBER_TABLE();
166 a27 := JTF_DATE_TABLE();
167 a28 := JTF_NUMBER_TABLE();
168 a29 := JTF_NUMBER_TABLE();
169 a30 := JTF_VARCHAR2_TABLE_100();
170 a31 := JTF_VARCHAR2_TABLE_100();
171 else
172 a0 := JTF_NUMBER_TABLE();
173 a1 := JTF_VARCHAR2_TABLE_100();
174 a2 := JTF_VARCHAR2_TABLE_300();
175 a3 := JTF_NUMBER_TABLE();
176 a4 := JTF_VARCHAR2_TABLE_100();
177 a5 := JTF_VARCHAR2_TABLE_100();
178 a6 := JTF_VARCHAR2_TABLE_100();
179 a7 := JTF_VARCHAR2_TABLE_100();
180 a8 := JTF_VARCHAR2_TABLE_100();
181 a9 := JTF_VARCHAR2_TABLE_200();
182 a10 := JTF_VARCHAR2_TABLE_200();
183 a11 := JTF_VARCHAR2_TABLE_200();
184 a12 := JTF_VARCHAR2_TABLE_200();
185 a13 := JTF_VARCHAR2_TABLE_200();
186 a14 := JTF_VARCHAR2_TABLE_200();
187 a15 := JTF_VARCHAR2_TABLE_200();
188 a16 := JTF_VARCHAR2_TABLE_200();
189 a17 := JTF_VARCHAR2_TABLE_200();
190 a18 := JTF_VARCHAR2_TABLE_200();
191 a19 := JTF_VARCHAR2_TABLE_200();
192 a20 := JTF_VARCHAR2_TABLE_200();
193 a21 := JTF_VARCHAR2_TABLE_200();
194 a22 := JTF_VARCHAR2_TABLE_200();
195 a23 := JTF_VARCHAR2_TABLE_200();
196 a24 := JTF_VARCHAR2_TABLE_200();
197 a25 := JTF_DATE_TABLE();
198 a26 := JTF_NUMBER_TABLE();
199 a27 := JTF_DATE_TABLE();
200 a28 := JTF_NUMBER_TABLE();
201 a29 := JTF_NUMBER_TABLE();
202 a30 := JTF_VARCHAR2_TABLE_100();
203 a31 := JTF_VARCHAR2_TABLE_100();
204 if t.count > 0 then
205 a0.extend(t.count);
206 a1.extend(t.count);
207 a2.extend(t.count);
208 a3.extend(t.count);
209 a4.extend(t.count);
210 a5.extend(t.count);
211 a6.extend(t.count);
212 a7.extend(t.count);
213 a8.extend(t.count);
214 a9.extend(t.count);
215 a10.extend(t.count);
216 a11.extend(t.count);
217 a12.extend(t.count);
218 a13.extend(t.count);
219 a14.extend(t.count);
220 a15.extend(t.count);
221 a16.extend(t.count);
222 a17.extend(t.count);
223 a18.extend(t.count);
224 a19.extend(t.count);
225 a20.extend(t.count);
226 a21.extend(t.count);
227 a22.extend(t.count);
228 a23.extend(t.count);
229 a24.extend(t.count);
230 a25.extend(t.count);
231 a26.extend(t.count);
232 a27.extend(t.count);
233 a28.extend(t.count);
234 a29.extend(t.count);
235 a30.extend(t.count);
236 a31.extend(t.count);
237 ddindx := t.first;
238 indx := 1;
239 while true loop
240 a0(indx) := rosetta_g_miss_num_map(t(ddindx).configuration_id);
241 a1(indx) := t(ddindx).config_name;
242 a2(indx) := t(ddindx).description;
243 a3(indx) := rosetta_g_miss_num_map(t(ddindx).flow_id);
244 a4(indx) := t(ddindx).flow_name;
245 a5(indx) := t(ddindx).flow_type_code;
246 a6(indx) := t(ddindx).flow_type;
247 a7(indx) := t(ddindx).record_mode;
248 a8(indx) := t(ddindx).displayed_record_mode;
249 a9(indx) := t(ddindx).attribute_category;
250 a10(indx) := t(ddindx).attribute1;
251 a11(indx) := t(ddindx).attribute2;
252 a12(indx) := t(ddindx).attribute3;
253 a13(indx) := t(ddindx).attribute4;
254 a14(indx) := t(ddindx).attribute5;
255 a15(indx) := t(ddindx).attribute6;
256 a16(indx) := t(ddindx).attribute7;
257 a17(indx) := t(ddindx).attribute8;
258 a18(indx) := t(ddindx).attribute9;
259 a19(indx) := t(ddindx).attribute10;
260 a20(indx) := t(ddindx).attribute11;
261 a21(indx) := t(ddindx).attribute12;
262 a22(indx) := t(ddindx).attribute13;
263 a23(indx) := t(ddindx).attribute14;
264 a24(indx) := t(ddindx).attribute15;
265 a25(indx) := t(ddindx).creation_date;
266 a26(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
267 a27(indx) := t(ddindx).last_update_date;
268 a28(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
269 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
270 a30(indx) := t(ddindx).created_by_name;
271 a31(indx) := t(ddindx).last_updated_by_name;
272 indx := indx+1;
273 if t.last =ddindx
274 then exit;
275 end if;
276 ddindx := t.next(ddindx);
277 end loop;
278 end if;
279 end if;
280 end rosetta_table_copy_out_p5;
281
282 procedure create_configuration(p_api_version NUMBER
283 , x_config_id out NUMBER
284 , x_return_status out VARCHAR2
285 , x_msg_count out NUMBER
286 , x_msg_data out VARCHAR2
287 , p1_a0 NUMBER := 0-1962.0724
288 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
289 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
290 , p1_a3 NUMBER := 0-1962.0724
291 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
292 , p1_a5 VARCHAR2 := fnd_api.g_miss_char
293 , p1_a6 VARCHAR2 := fnd_api.g_miss_char
294 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
295 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
296 , p1_a9 VARCHAR2 := fnd_api.g_miss_char
297 , p1_a10 VARCHAR2 := fnd_api.g_miss_char
298 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
299 , p1_a12 VARCHAR2 := fnd_api.g_miss_char
300 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
301 , p1_a14 VARCHAR2 := fnd_api.g_miss_char
302 , p1_a15 VARCHAR2 := fnd_api.g_miss_char
303 , p1_a16 VARCHAR2 := fnd_api.g_miss_char
304 , p1_a17 VARCHAR2 := fnd_api.g_miss_char
305 , p1_a18 VARCHAR2 := fnd_api.g_miss_char
306 , p1_a19 VARCHAR2 := fnd_api.g_miss_char
307 , p1_a20 VARCHAR2 := fnd_api.g_miss_char
308 , p1_a21 VARCHAR2 := fnd_api.g_miss_char
309 , p1_a22 VARCHAR2 := fnd_api.g_miss_char
310 , p1_a23 VARCHAR2 := fnd_api.g_miss_char
311 , p1_a24 VARCHAR2 := fnd_api.g_miss_char
312 , p1_a25 DATE := fnd_api.g_miss_date
313 , p1_a26 NUMBER := 0-1962.0724
314 , p1_a27 DATE := fnd_api.g_miss_date
315 , p1_a28 NUMBER := 0-1962.0724
316 , p1_a29 NUMBER := 0-1962.0724
317 , p1_a30 VARCHAR2 := fnd_api.g_miss_char
318 , p1_a31 VARCHAR2 := fnd_api.g_miss_char
319 )
320
321 as
322 ddp_configuration_rec jts_configuration_pvt.config_rec_type;
323 ddindx binary_integer; indx binary_integer;
324 begin
325
326 -- copy data to the local IN or IN-OUT args, if any
327
328 ddp_configuration_rec.configuration_id := rosetta_g_miss_num_map(p1_a0);
329 ddp_configuration_rec.config_name := p1_a1;
330 ddp_configuration_rec.description := p1_a2;
331 ddp_configuration_rec.flow_id := rosetta_g_miss_num_map(p1_a3);
332 ddp_configuration_rec.flow_name := p1_a4;
333 ddp_configuration_rec.flow_type_code := p1_a5;
334 ddp_configuration_rec.flow_type := p1_a6;
335 ddp_configuration_rec.record_mode := p1_a7;
336 ddp_configuration_rec.displayed_record_mode := p1_a8;
337 ddp_configuration_rec.attribute_category := p1_a9;
338 ddp_configuration_rec.attribute1 := p1_a10;
339 ddp_configuration_rec.attribute2 := p1_a11;
340 ddp_configuration_rec.attribute3 := p1_a12;
341 ddp_configuration_rec.attribute4 := p1_a13;
342 ddp_configuration_rec.attribute5 := p1_a14;
343 ddp_configuration_rec.attribute6 := p1_a15;
344 ddp_configuration_rec.attribute7 := p1_a16;
345 ddp_configuration_rec.attribute8 := p1_a17;
346 ddp_configuration_rec.attribute9 := p1_a18;
347 ddp_configuration_rec.attribute10 := p1_a19;
348 ddp_configuration_rec.attribute11 := p1_a20;
349 ddp_configuration_rec.attribute12 := p1_a21;
350 ddp_configuration_rec.attribute13 := p1_a22;
351 ddp_configuration_rec.attribute14 := p1_a23;
352 ddp_configuration_rec.attribute15 := p1_a24;
353 ddp_configuration_rec.creation_date := rosetta_g_miss_date_in_map(p1_a25);
354 ddp_configuration_rec.created_by := rosetta_g_miss_num_map(p1_a26);
358 ddp_configuration_rec.created_by_name := p1_a30;
355 ddp_configuration_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a27);
356 ddp_configuration_rec.last_updated_by := rosetta_g_miss_num_map(p1_a28);
357 ddp_configuration_rec.last_update_login := rosetta_g_miss_num_map(p1_a29);
359 ddp_configuration_rec.last_updated_by_name := p1_a31;
360
361
362
363
364
365 -- here's the delegated call to the old PL/SQL routine
366 jts_configuration_pvt.create_configuration(p_api_version,
367 ddp_configuration_rec,
368 x_config_id,
369 x_return_status,
370 x_msg_count,
371 x_msg_data);
372
373 -- copy data back from the local variables to OUT or IN-OUT args, if any
374
375
376
377
378
379 end;
380
381 procedure get_configuration(p_api_version NUMBER
382 , p_init_msg_list VARCHAR2
383 , p_config_id NUMBER
384 , p3_a0 out NUMBER
385 , p3_a1 out VARCHAR2
386 , p3_a2 out VARCHAR2
387 , p3_a3 out NUMBER
388 , p3_a4 out VARCHAR2
389 , p3_a5 out VARCHAR2
390 , p3_a6 out VARCHAR2
391 , p3_a7 out VARCHAR2
392 , p3_a8 out VARCHAR2
393 , p3_a9 out VARCHAR2
394 , p3_a10 out VARCHAR2
395 , p3_a11 out VARCHAR2
396 , p3_a12 out VARCHAR2
397 , p3_a13 out VARCHAR2
398 , p3_a14 out VARCHAR2
399 , p3_a15 out VARCHAR2
400 , p3_a16 out VARCHAR2
401 , p3_a17 out VARCHAR2
402 , p3_a18 out VARCHAR2
403 , p3_a19 out VARCHAR2
404 , p3_a20 out VARCHAR2
405 , p3_a21 out VARCHAR2
406 , p3_a22 out VARCHAR2
407 , p3_a23 out VARCHAR2
408 , p3_a24 out VARCHAR2
409 , p3_a25 out DATE
410 , p3_a26 out NUMBER
411 , p3_a27 out DATE
412 , p3_a28 out NUMBER
413 , p3_a29 out NUMBER
414 , p3_a30 out VARCHAR2
415 , p3_a31 out VARCHAR2
416 , x_return_status out VARCHAR2
417 , x_msg_count out NUMBER
418 , x_msg_data out VARCHAR2
419 )
420
421 as
422 ddx_configuration_rec jts_configuration_pvt.config_rec_type;
423 ddindx binary_integer; indx binary_integer;
424 begin
425
426 -- copy data to the local IN or IN-OUT args, if any
427
428
429
430
431
432
433
434 -- here's the delegated call to the old PL/SQL routine
435 jts_configuration_pvt.get_configuration(p_api_version,
436 p_init_msg_list,
437 p_config_id,
438 ddx_configuration_rec,
439 x_return_status,
440 x_msg_count,
441 x_msg_data);
442
443 -- copy data back from the local variables to OUT or IN-OUT args, if any
444
445
446
447 p3_a0 := rosetta_g_miss_num_map(ddx_configuration_rec.configuration_id);
448 p3_a1 := ddx_configuration_rec.config_name;
449 p3_a2 := ddx_configuration_rec.description;
450 p3_a3 := rosetta_g_miss_num_map(ddx_configuration_rec.flow_id);
451 p3_a4 := ddx_configuration_rec.flow_name;
452 p3_a5 := ddx_configuration_rec.flow_type_code;
453 p3_a6 := ddx_configuration_rec.flow_type;
454 p3_a7 := ddx_configuration_rec.record_mode;
455 p3_a8 := ddx_configuration_rec.displayed_record_mode;
456 p3_a9 := ddx_configuration_rec.attribute_category;
457 p3_a10 := ddx_configuration_rec.attribute1;
458 p3_a11 := ddx_configuration_rec.attribute2;
459 p3_a12 := ddx_configuration_rec.attribute3;
460 p3_a13 := ddx_configuration_rec.attribute4;
461 p3_a14 := ddx_configuration_rec.attribute5;
462 p3_a15 := ddx_configuration_rec.attribute6;
463 p3_a16 := ddx_configuration_rec.attribute7;
464 p3_a17 := ddx_configuration_rec.attribute8;
465 p3_a18 := ddx_configuration_rec.attribute9;
466 p3_a19 := ddx_configuration_rec.attribute10;
467 p3_a20 := ddx_configuration_rec.attribute11;
468 p3_a21 := ddx_configuration_rec.attribute12;
469 p3_a22 := ddx_configuration_rec.attribute13;
470 p3_a23 := ddx_configuration_rec.attribute14;
471 p3_a24 := ddx_configuration_rec.attribute15;
472 p3_a25 := ddx_configuration_rec.creation_date;
473 p3_a26 := rosetta_g_miss_num_map(ddx_configuration_rec.created_by);
474 p3_a27 := ddx_configuration_rec.last_update_date;
475 p3_a28 := rosetta_g_miss_num_map(ddx_configuration_rec.last_updated_by);
476 p3_a29 := rosetta_g_miss_num_map(ddx_configuration_rec.last_update_login);
477 p3_a30 := ddx_configuration_rec.created_by_name;
478 p3_a31 := ddx_configuration_rec.last_updated_by_name;
479
480
481
482 end;
483
484 procedure get_configurations(p_api_version NUMBER
485 , p_where_clause VARCHAR2
486 , p_order_by VARCHAR2
487 , p_how_to_order VARCHAR2
488 , p4_a0 out JTF_NUMBER_TABLE
489 , p4_a1 out JTF_VARCHAR2_TABLE_100
490 , p4_a2 out JTF_VARCHAR2_TABLE_300
491 , p4_a3 out JTF_NUMBER_TABLE
492 , p4_a4 out JTF_VARCHAR2_TABLE_100
493 , p4_a5 out JTF_VARCHAR2_TABLE_100
494 , p4_a6 out JTF_VARCHAR2_TABLE_100
495 , p4_a7 out JTF_VARCHAR2_TABLE_100
496 , p4_a8 out JTF_VARCHAR2_TABLE_100
497 , p4_a9 out JTF_VARCHAR2_TABLE_200
498 , p4_a10 out JTF_VARCHAR2_TABLE_200
499 , p4_a11 out JTF_VARCHAR2_TABLE_200
500 , p4_a12 out JTF_VARCHAR2_TABLE_200
501 , p4_a13 out JTF_VARCHAR2_TABLE_200
502 , p4_a14 out JTF_VARCHAR2_TABLE_200
503 , p4_a15 out JTF_VARCHAR2_TABLE_200
504 , p4_a16 out JTF_VARCHAR2_TABLE_200
505 , p4_a17 out JTF_VARCHAR2_TABLE_200
506 , p4_a18 out JTF_VARCHAR2_TABLE_200
507 , p4_a19 out JTF_VARCHAR2_TABLE_200
508 , p4_a20 out JTF_VARCHAR2_TABLE_200
509 , p4_a21 out JTF_VARCHAR2_TABLE_200
510 , p4_a22 out JTF_VARCHAR2_TABLE_200
511 , p4_a23 out JTF_VARCHAR2_TABLE_200
512 , p4_a24 out JTF_VARCHAR2_TABLE_200
513 , p4_a25 out JTF_DATE_TABLE
514 , p4_a26 out JTF_NUMBER_TABLE
515 , p4_a27 out JTF_DATE_TABLE
516 , p4_a28 out JTF_NUMBER_TABLE
517 , p4_a29 out JTF_NUMBER_TABLE
518 , p4_a30 out JTF_VARCHAR2_TABLE_100
519 , p4_a31 out JTF_VARCHAR2_TABLE_100
520 , x_return_status out VARCHAR2
521 , x_msg_count out NUMBER
522 , x_msg_data out VARCHAR2
523 )
524
525 as
526 ddx_configuration_tbl jts_configuration_pvt.config_rec_tbl_type;
527 ddindx binary_integer; indx binary_integer;
528 begin
529
530 -- copy data to the local IN or IN-OUT args, if any
531
532
533
534
535
536
537
538
539 -- here's the delegated call to the old PL/SQL routine
540 jts_configuration_pvt.get_configurations(p_api_version,
541 p_where_clause,
542 p_order_by,
543 p_how_to_order,
544 ddx_configuration_tbl,
545 x_return_status,
546 x_msg_count,
547 x_msg_data);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552
553
554 jts_configuration_pvt_w.rosetta_table_copy_out_p5(ddx_configuration_tbl, p4_a0
555 , p4_a1
556 , p4_a2
557 , p4_a3
558 , p4_a4
559 , p4_a5
560 , p4_a6
561 , p4_a7
562 , p4_a8
563 , p4_a9
564 , p4_a10
565 , p4_a11
566 , p4_a12
567 , p4_a13
568 , p4_a14
569 , p4_a15
570 , p4_a16
571 , p4_a17
572 , p4_a18
573 , p4_a19
574 , p4_a20
575 , p4_a21
576 , p4_a22
577 , p4_a23
578 , p4_a24
579 , p4_a25
580 , p4_a26
581 , p4_a27
582 , p4_a28
583 , p4_a29
584 , p4_a30
585 , p4_a31
586 );
587
588
589
590 end;
591
592 end jts_configuration_pvt_w;