[Home] [Help]
PACKAGE BODY: APPS.JTS_CONFIG_VERSION_PVT_W
Source
1 package body jts_config_version_pvt_w as
2 /* $Header: jtswcvrb.pls 115.5 2002/03/27 18:03:14 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_p4(t out jts_config_version_pvt.config_version_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_300
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_200
29 , a7 JTF_VARCHAR2_TABLE_200
30 , a8 JTF_VARCHAR2_TABLE_200
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_DATE_TABLE
45 , a23 JTF_NUMBER_TABLE
46 , a24 JTF_DATE_TABLE
47 , a25 JTF_NUMBER_TABLE
48 , a26 JTF_NUMBER_TABLE
49 , a27 JTF_VARCHAR2_TABLE_100
50 , a28 JTF_VARCHAR2_TABLE_100
51 , a29 JTF_VARCHAR2_TABLE_100
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_NUMBER_TABLE
54 , a32 JTF_VARCHAR2_TABLE_100
55 , a33 JTF_VARCHAR2_TABLE_100
56 , a34 JTF_VARCHAR2_TABLE_100
57 , a35 JTF_VARCHAR2_TABLE_100
58 , a36 JTF_DATE_TABLE
59 , a37 JTF_VARCHAR2_TABLE_100
60 , a38 JTF_VARCHAR2_TABLE_100
61 , a39 JTF_VARCHAR2_TABLE_100
62 , a40 JTF_VARCHAR2_TABLE_100
63 , a41 JTF_VARCHAR2_TABLE_100
64 , a42 JTF_NUMBER_TABLE
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if a0 is not null and a0.count > 0 then
69 if a0.count > 0 then
70 indx := a0.first;
71 ddindx := 1;
72 while true loop
73 t(ddindx).configuration_id := rosetta_g_miss_num_map(a0(indx));
74 t(ddindx).version_id := rosetta_g_miss_num_map(a1(indx));
75 t(ddindx).version_name := a2(indx);
76 t(ddindx).version_number := rosetta_g_miss_num_map(a3(indx));
77 t(ddindx).description := a4(indx);
78 t(ddindx).queue_name := a5(indx);
79 t(ddindx).attribute_category := a6(indx);
80 t(ddindx).attribute1 := a7(indx);
81 t(ddindx).attribute2 := a8(indx);
82 t(ddindx).attribute3 := a9(indx);
83 t(ddindx).attribute4 := a10(indx);
84 t(ddindx).attribute5 := a11(indx);
85 t(ddindx).attribute6 := a12(indx);
86 t(ddindx).attribute7 := a13(indx);
87 t(ddindx).attribute8 := a14(indx);
88 t(ddindx).attribute9 := a15(indx);
89 t(ddindx).attribute10 := a16(indx);
90 t(ddindx).attribute11 := a17(indx);
91 t(ddindx).attribute12 := a18(indx);
92 t(ddindx).attribute13 := a19(indx);
93 t(ddindx).attribute14 := a20(indx);
94 t(ddindx).attribute15 := a21(indx);
95 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a22(indx));
96 t(ddindx).created_by := rosetta_g_miss_num_map(a23(indx));
97 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a24(indx));
98 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a25(indx));
99 t(ddindx).last_update_login := rosetta_g_miss_num_map(a26(indx));
100 t(ddindx).created_by_name := a27(indx);
101 t(ddindx).last_updated_by_name := a28(indx);
102 t(ddindx).config_name := a29(indx);
103 t(ddindx).config_desc := a30(indx);
104 t(ddindx).config_flow_id := rosetta_g_miss_num_map(a31(indx));
105 t(ddindx).config_flow_name := a32(indx);
106 t(ddindx).config_flow_type := a33(indx);
107 t(ddindx).config_record_mode := a34(indx);
108 t(ddindx).config_disp_record_mode := a35(indx);
109 t(ddindx).replayed_date := rosetta_g_miss_date_in_map(a36(indx));
110 t(ddindx).replayed_by_name := a37(indx);
111 t(ddindx).replay_status_code := a38(indx);
112 t(ddindx).version_status_code := a39(indx);
113 t(ddindx).replay_status := a40(indx);
114 t(ddindx).version_status := a41(indx);
115 t(ddindx).percent_completed := rosetta_g_miss_num_map(a42(indx));
116 ddindx := ddindx+1;
117 if a0.last =indx
118 then exit;
119 end if;
120 indx := a0.next(indx);
121 end loop;
122 end if;
123 end if;
124 end rosetta_table_copy_in_p4;
125 procedure rosetta_table_copy_out_p4(t jts_config_version_pvt.config_version_tbl_type, a0 out JTF_NUMBER_TABLE
126 , a1 out JTF_NUMBER_TABLE
127 , a2 out JTF_VARCHAR2_TABLE_100
128 , a3 out JTF_NUMBER_TABLE
129 , a4 out JTF_VARCHAR2_TABLE_300
130 , a5 out JTF_VARCHAR2_TABLE_100
131 , a6 out JTF_VARCHAR2_TABLE_200
132 , a7 out JTF_VARCHAR2_TABLE_200
133 , a8 out JTF_VARCHAR2_TABLE_200
134 , a9 out JTF_VARCHAR2_TABLE_200
135 , a10 out JTF_VARCHAR2_TABLE_200
136 , a11 out JTF_VARCHAR2_TABLE_200
137 , a12 out JTF_VARCHAR2_TABLE_200
138 , a13 out JTF_VARCHAR2_TABLE_200
139 , a14 out JTF_VARCHAR2_TABLE_200
140 , a15 out JTF_VARCHAR2_TABLE_200
141 , a16 out JTF_VARCHAR2_TABLE_200
142 , a17 out JTF_VARCHAR2_TABLE_200
143 , a18 out JTF_VARCHAR2_TABLE_200
144 , a19 out JTF_VARCHAR2_TABLE_200
145 , a20 out JTF_VARCHAR2_TABLE_200
146 , a21 out JTF_VARCHAR2_TABLE_200
147 , a22 out JTF_DATE_TABLE
148 , a23 out JTF_NUMBER_TABLE
149 , a24 out JTF_DATE_TABLE
150 , a25 out JTF_NUMBER_TABLE
151 , a26 out JTF_NUMBER_TABLE
152 , a27 out JTF_VARCHAR2_TABLE_100
153 , a28 out JTF_VARCHAR2_TABLE_100
154 , a29 out JTF_VARCHAR2_TABLE_100
155 , a30 out JTF_VARCHAR2_TABLE_300
156 , a31 out JTF_NUMBER_TABLE
157 , a32 out JTF_VARCHAR2_TABLE_100
158 , a33 out JTF_VARCHAR2_TABLE_100
159 , a34 out JTF_VARCHAR2_TABLE_100
160 , a35 out JTF_VARCHAR2_TABLE_100
161 , a36 out JTF_DATE_TABLE
162 , a37 out JTF_VARCHAR2_TABLE_100
163 , a38 out JTF_VARCHAR2_TABLE_100
164 , a39 out JTF_VARCHAR2_TABLE_100
165 , a40 out JTF_VARCHAR2_TABLE_100
166 , a41 out JTF_VARCHAR2_TABLE_100
167 , a42 out JTF_NUMBER_TABLE
168 ) as
169 ddindx binary_integer; indx binary_integer;
170 begin
171 if t is null or t.count = 0 then
172 a0 := JTF_NUMBER_TABLE();
173 a1 := JTF_NUMBER_TABLE();
174 a2 := JTF_VARCHAR2_TABLE_100();
175 a3 := JTF_NUMBER_TABLE();
176 a4 := JTF_VARCHAR2_TABLE_300();
177 a5 := JTF_VARCHAR2_TABLE_100();
178 a6 := JTF_VARCHAR2_TABLE_200();
179 a7 := JTF_VARCHAR2_TABLE_200();
180 a8 := JTF_VARCHAR2_TABLE_200();
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_DATE_TABLE();
195 a23 := JTF_NUMBER_TABLE();
196 a24 := JTF_DATE_TABLE();
197 a25 := JTF_NUMBER_TABLE();
198 a26 := JTF_NUMBER_TABLE();
199 a27 := JTF_VARCHAR2_TABLE_100();
200 a28 := JTF_VARCHAR2_TABLE_100();
201 a29 := JTF_VARCHAR2_TABLE_100();
202 a30 := JTF_VARCHAR2_TABLE_300();
203 a31 := JTF_NUMBER_TABLE();
204 a32 := JTF_VARCHAR2_TABLE_100();
205 a33 := JTF_VARCHAR2_TABLE_100();
206 a34 := JTF_VARCHAR2_TABLE_100();
207 a35 := JTF_VARCHAR2_TABLE_100();
208 a36 := JTF_DATE_TABLE();
209 a37 := JTF_VARCHAR2_TABLE_100();
210 a38 := JTF_VARCHAR2_TABLE_100();
211 a39 := JTF_VARCHAR2_TABLE_100();
212 a40 := JTF_VARCHAR2_TABLE_100();
213 a41 := JTF_VARCHAR2_TABLE_100();
214 a42 := JTF_NUMBER_TABLE();
215 else
216 a0 := JTF_NUMBER_TABLE();
217 a1 := JTF_NUMBER_TABLE();
218 a2 := JTF_VARCHAR2_TABLE_100();
219 a3 := JTF_NUMBER_TABLE();
220 a4 := JTF_VARCHAR2_TABLE_300();
221 a5 := JTF_VARCHAR2_TABLE_100();
222 a6 := JTF_VARCHAR2_TABLE_200();
223 a7 := JTF_VARCHAR2_TABLE_200();
224 a8 := JTF_VARCHAR2_TABLE_200();
225 a9 := JTF_VARCHAR2_TABLE_200();
226 a10 := JTF_VARCHAR2_TABLE_200();
227 a11 := JTF_VARCHAR2_TABLE_200();
228 a12 := JTF_VARCHAR2_TABLE_200();
229 a13 := JTF_VARCHAR2_TABLE_200();
230 a14 := JTF_VARCHAR2_TABLE_200();
231 a15 := JTF_VARCHAR2_TABLE_200();
232 a16 := JTF_VARCHAR2_TABLE_200();
233 a17 := JTF_VARCHAR2_TABLE_200();
234 a18 := JTF_VARCHAR2_TABLE_200();
235 a19 := JTF_VARCHAR2_TABLE_200();
236 a20 := JTF_VARCHAR2_TABLE_200();
237 a21 := JTF_VARCHAR2_TABLE_200();
238 a22 := JTF_DATE_TABLE();
239 a23 := JTF_NUMBER_TABLE();
240 a24 := JTF_DATE_TABLE();
241 a25 := JTF_NUMBER_TABLE();
242 a26 := JTF_NUMBER_TABLE();
243 a27 := JTF_VARCHAR2_TABLE_100();
244 a28 := JTF_VARCHAR2_TABLE_100();
245 a29 := JTF_VARCHAR2_TABLE_100();
246 a30 := JTF_VARCHAR2_TABLE_300();
247 a31 := JTF_NUMBER_TABLE();
248 a32 := JTF_VARCHAR2_TABLE_100();
249 a33 := JTF_VARCHAR2_TABLE_100();
250 a34 := JTF_VARCHAR2_TABLE_100();
251 a35 := JTF_VARCHAR2_TABLE_100();
252 a36 := JTF_DATE_TABLE();
253 a37 := JTF_VARCHAR2_TABLE_100();
254 a38 := JTF_VARCHAR2_TABLE_100();
255 a39 := JTF_VARCHAR2_TABLE_100();
256 a40 := JTF_VARCHAR2_TABLE_100();
257 a41 := JTF_VARCHAR2_TABLE_100();
258 a42 := JTF_NUMBER_TABLE();
259 if t.count > 0 then
260 a0.extend(t.count);
261 a1.extend(t.count);
262 a2.extend(t.count);
263 a3.extend(t.count);
264 a4.extend(t.count);
265 a5.extend(t.count);
266 a6.extend(t.count);
267 a7.extend(t.count);
268 a8.extend(t.count);
269 a9.extend(t.count);
270 a10.extend(t.count);
271 a11.extend(t.count);
272 a12.extend(t.count);
273 a13.extend(t.count);
274 a14.extend(t.count);
275 a15.extend(t.count);
276 a16.extend(t.count);
277 a17.extend(t.count);
278 a18.extend(t.count);
279 a19.extend(t.count);
280 a20.extend(t.count);
281 a21.extend(t.count);
282 a22.extend(t.count);
283 a23.extend(t.count);
284 a24.extend(t.count);
285 a25.extend(t.count);
286 a26.extend(t.count);
287 a27.extend(t.count);
288 a28.extend(t.count);
289 a29.extend(t.count);
290 a30.extend(t.count);
291 a31.extend(t.count);
292 a32.extend(t.count);
293 a33.extend(t.count);
294 a34.extend(t.count);
295 a35.extend(t.count);
296 a36.extend(t.count);
297 a37.extend(t.count);
298 a38.extend(t.count);
299 a39.extend(t.count);
300 a40.extend(t.count);
301 a41.extend(t.count);
302 a42.extend(t.count);
303 ddindx := t.first;
304 indx := 1;
305 while true loop
306 a0(indx) := rosetta_g_miss_num_map(t(ddindx).configuration_id);
307 a1(indx) := rosetta_g_miss_num_map(t(ddindx).version_id);
308 a2(indx) := t(ddindx).version_name;
309 a3(indx) := rosetta_g_miss_num_map(t(ddindx).version_number);
310 a4(indx) := t(ddindx).description;
311 a5(indx) := t(ddindx).queue_name;
312 a6(indx) := t(ddindx).attribute_category;
313 a7(indx) := t(ddindx).attribute1;
314 a8(indx) := t(ddindx).attribute2;
315 a9(indx) := t(ddindx).attribute3;
316 a10(indx) := t(ddindx).attribute4;
317 a11(indx) := t(ddindx).attribute5;
318 a12(indx) := t(ddindx).attribute6;
319 a13(indx) := t(ddindx).attribute7;
320 a14(indx) := t(ddindx).attribute8;
321 a15(indx) := t(ddindx).attribute9;
322 a16(indx) := t(ddindx).attribute10;
323 a17(indx) := t(ddindx).attribute11;
324 a18(indx) := t(ddindx).attribute12;
325 a19(indx) := t(ddindx).attribute13;
326 a20(indx) := t(ddindx).attribute14;
327 a21(indx) := t(ddindx).attribute15;
328 a22(indx) := t(ddindx).creation_date;
329 a23(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
330 a24(indx) := t(ddindx).last_update_date;
331 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
332 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
333 a27(indx) := t(ddindx).created_by_name;
334 a28(indx) := t(ddindx).last_updated_by_name;
335 a29(indx) := t(ddindx).config_name;
336 a30(indx) := t(ddindx).config_desc;
337 a31(indx) := rosetta_g_miss_num_map(t(ddindx).config_flow_id);
338 a32(indx) := t(ddindx).config_flow_name;
339 a33(indx) := t(ddindx).config_flow_type;
340 a34(indx) := t(ddindx).config_record_mode;
341 a35(indx) := t(ddindx).config_disp_record_mode;
342 a36(indx) := t(ddindx).replayed_date;
343 a37(indx) := t(ddindx).replayed_by_name;
344 a38(indx) := t(ddindx).replay_status_code;
345 a39(indx) := t(ddindx).version_status_code;
346 a40(indx) := t(ddindx).replay_status;
347 a41(indx) := t(ddindx).version_status;
348 a42(indx) := rosetta_g_miss_num_map(t(ddindx).percent_completed);
349 indx := indx+1;
350 if t.last =ddindx
351 then exit;
352 end if;
353 ddindx := t.next(ddindx);
354 end loop;
355 end if;
356 end if;
357 end rosetta_table_copy_out_p4;
358
359 procedure rosetta_table_copy_in_p5(t out jts_config_version_pvt.version_id_tbl_type, a0 JTF_NUMBER_TABLE) as
360 ddindx binary_integer; indx binary_integer;
361 begin
362 if a0 is not null and a0.count > 0 then
363 if a0.count > 0 then
364 indx := a0.first;
365 ddindx := 1;
366 while true loop
367 t(ddindx) := a0(indx);
368 ddindx := ddindx+1;
369 if a0.last =indx
370 then exit;
371 end if;
372 indx := a0.next(indx);
373 end loop;
374 end if;
375 end if;
376 end rosetta_table_copy_in_p5;
377 procedure rosetta_table_copy_out_p5(t jts_config_version_pvt.version_id_tbl_type, a0 out JTF_NUMBER_TABLE) as
378 ddindx binary_integer; indx binary_integer;
379 begin
380 if t is null or t.count = 0 then
381 a0 := JTF_NUMBER_TABLE();
382 else
383 a0 := JTF_NUMBER_TABLE();
384 if t.count > 0 then
385 a0.extend(t.count);
386 ddindx := t.first;
387 indx := 1;
388 while true loop
389 a0(indx) := t(ddindx);
390 indx := indx+1;
391 if t.last =ddindx
392 then exit;
393 end if;
394 ddindx := t.next(ddindx);
395 end loop;
396 end if;
397 end if;
398 end rosetta_table_copy_out_p5;
399
400 procedure delete_some_versions(p_api_version NUMBER
401 , p_version_tbl JTF_NUMBER_TABLE
402 )
403
404 as
405 ddp_version_tbl jts_config_version_pvt.version_id_tbl_type;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411 jts_config_version_pvt_w.rosetta_table_copy_in_p5(ddp_version_tbl, p_version_tbl);
412
413 -- here's the delegated call to the old PL/SQL routine
414 jts_config_version_pvt.delete_some_versions(p_api_version,
415 ddp_version_tbl);
416
417 -- copy data back from the local variables to OUT or IN-OUT args, if any
418
419 end;
420
421 procedure get_version(p_api_version NUMBER
422 , p_version_id NUMBER
423 , p2_a0 out NUMBER
424 , p2_a1 out NUMBER
425 , p2_a2 out VARCHAR2
426 , p2_a3 out NUMBER
427 , p2_a4 out VARCHAR2
428 , p2_a5 out VARCHAR2
429 , p2_a6 out VARCHAR2
430 , p2_a7 out VARCHAR2
431 , p2_a8 out VARCHAR2
432 , p2_a9 out VARCHAR2
433 , p2_a10 out VARCHAR2
434 , p2_a11 out VARCHAR2
435 , p2_a12 out VARCHAR2
436 , p2_a13 out VARCHAR2
437 , p2_a14 out VARCHAR2
438 , p2_a15 out VARCHAR2
439 , p2_a16 out VARCHAR2
440 , p2_a17 out VARCHAR2
441 , p2_a18 out VARCHAR2
442 , p2_a19 out VARCHAR2
443 , p2_a20 out VARCHAR2
444 , p2_a21 out VARCHAR2
445 , p2_a22 out DATE
446 , p2_a23 out NUMBER
447 , p2_a24 out DATE
448 , p2_a25 out NUMBER
449 , p2_a26 out NUMBER
450 , p2_a27 out VARCHAR2
451 , p2_a28 out VARCHAR2
452 , p2_a29 out VARCHAR2
453 , p2_a30 out VARCHAR2
454 , p2_a31 out NUMBER
455 , p2_a32 out VARCHAR2
456 , p2_a33 out VARCHAR2
457 , p2_a34 out VARCHAR2
458 , p2_a35 out VARCHAR2
459 , p2_a36 out DATE
460 , p2_a37 out VARCHAR2
461 , p2_a38 out VARCHAR2
462 , p2_a39 out VARCHAR2
463 , p2_a40 out VARCHAR2
464 , p2_a41 out VARCHAR2
465 , p2_a42 out NUMBER
466 , x_return_status out VARCHAR2
467 , x_msg_count out NUMBER
468 , x_msg_data out VARCHAR2
469 )
470
471 as
472 ddx_version_rec jts_config_version_pvt.config_version_rec_type;
473 ddindx binary_integer; indx binary_integer;
474 begin
475
476 -- copy data to the local IN or IN-OUT args, if any
477
478
479
480
481
482
483 -- here's the delegated call to the old PL/SQL routine
484 jts_config_version_pvt.get_version(p_api_version,
485 p_version_id,
486 ddx_version_rec,
487 x_return_status,
488 x_msg_count,
489 x_msg_data);
490
491 -- copy data back from the local variables to OUT or IN-OUT args, if any
492
493
494 p2_a0 := rosetta_g_miss_num_map(ddx_version_rec.configuration_id);
495 p2_a1 := rosetta_g_miss_num_map(ddx_version_rec.version_id);
496 p2_a2 := ddx_version_rec.version_name;
497 p2_a3 := rosetta_g_miss_num_map(ddx_version_rec.version_number);
498 p2_a4 := ddx_version_rec.description;
499 p2_a5 := ddx_version_rec.queue_name;
500 p2_a6 := ddx_version_rec.attribute_category;
501 p2_a7 := ddx_version_rec.attribute1;
502 p2_a8 := ddx_version_rec.attribute2;
503 p2_a9 := ddx_version_rec.attribute3;
504 p2_a10 := ddx_version_rec.attribute4;
505 p2_a11 := ddx_version_rec.attribute5;
506 p2_a12 := ddx_version_rec.attribute6;
507 p2_a13 := ddx_version_rec.attribute7;
508 p2_a14 := ddx_version_rec.attribute8;
509 p2_a15 := ddx_version_rec.attribute9;
510 p2_a16 := ddx_version_rec.attribute10;
511 p2_a17 := ddx_version_rec.attribute11;
512 p2_a18 := ddx_version_rec.attribute12;
513 p2_a19 := ddx_version_rec.attribute13;
514 p2_a20 := ddx_version_rec.attribute14;
515 p2_a21 := ddx_version_rec.attribute15;
516 p2_a22 := ddx_version_rec.creation_date;
517 p2_a23 := rosetta_g_miss_num_map(ddx_version_rec.created_by);
518 p2_a24 := ddx_version_rec.last_update_date;
519 p2_a25 := rosetta_g_miss_num_map(ddx_version_rec.last_updated_by);
520 p2_a26 := rosetta_g_miss_num_map(ddx_version_rec.last_update_login);
521 p2_a27 := ddx_version_rec.created_by_name;
522 p2_a28 := ddx_version_rec.last_updated_by_name;
523 p2_a29 := ddx_version_rec.config_name;
524 p2_a30 := ddx_version_rec.config_desc;
525 p2_a31 := rosetta_g_miss_num_map(ddx_version_rec.config_flow_id);
526 p2_a32 := ddx_version_rec.config_flow_name;
527 p2_a33 := ddx_version_rec.config_flow_type;
528 p2_a34 := ddx_version_rec.config_record_mode;
529 p2_a35 := ddx_version_rec.config_disp_record_mode;
530 p2_a36 := ddx_version_rec.replayed_date;
531 p2_a37 := ddx_version_rec.replayed_by_name;
532 p2_a38 := ddx_version_rec.replay_status_code;
533 p2_a39 := ddx_version_rec.version_status_code;
534 p2_a40 := ddx_version_rec.replay_status;
535 p2_a41 := ddx_version_rec.version_status;
536 p2_a42 := rosetta_g_miss_num_map(ddx_version_rec.percent_completed);
537
538
539
540 end;
541
542 procedure get_versions(p_api_version NUMBER
543 , p_config_id NUMBER
544 , p_order_by VARCHAR2
545 , p_how_to_order VARCHAR2
546 , p4_a0 out JTF_NUMBER_TABLE
547 , p4_a1 out JTF_NUMBER_TABLE
548 , p4_a2 out JTF_VARCHAR2_TABLE_100
549 , p4_a3 out JTF_NUMBER_TABLE
550 , p4_a4 out JTF_VARCHAR2_TABLE_300
551 , p4_a5 out JTF_VARCHAR2_TABLE_100
552 , p4_a6 out JTF_VARCHAR2_TABLE_200
553 , p4_a7 out JTF_VARCHAR2_TABLE_200
554 , p4_a8 out JTF_VARCHAR2_TABLE_200
555 , p4_a9 out JTF_VARCHAR2_TABLE_200
556 , p4_a10 out JTF_VARCHAR2_TABLE_200
557 , p4_a11 out JTF_VARCHAR2_TABLE_200
558 , p4_a12 out JTF_VARCHAR2_TABLE_200
559 , p4_a13 out JTF_VARCHAR2_TABLE_200
560 , p4_a14 out JTF_VARCHAR2_TABLE_200
561 , p4_a15 out JTF_VARCHAR2_TABLE_200
562 , p4_a16 out JTF_VARCHAR2_TABLE_200
563 , p4_a17 out JTF_VARCHAR2_TABLE_200
564 , p4_a18 out JTF_VARCHAR2_TABLE_200
565 , p4_a19 out JTF_VARCHAR2_TABLE_200
566 , p4_a20 out JTF_VARCHAR2_TABLE_200
567 , p4_a21 out JTF_VARCHAR2_TABLE_200
568 , p4_a22 out JTF_DATE_TABLE
569 , p4_a23 out JTF_NUMBER_TABLE
570 , p4_a24 out JTF_DATE_TABLE
571 , p4_a25 out JTF_NUMBER_TABLE
572 , p4_a26 out JTF_NUMBER_TABLE
573 , p4_a27 out JTF_VARCHAR2_TABLE_100
574 , p4_a28 out JTF_VARCHAR2_TABLE_100
575 , p4_a29 out JTF_VARCHAR2_TABLE_100
576 , p4_a30 out JTF_VARCHAR2_TABLE_300
577 , p4_a31 out JTF_NUMBER_TABLE
578 , p4_a32 out JTF_VARCHAR2_TABLE_100
579 , p4_a33 out JTF_VARCHAR2_TABLE_100
580 , p4_a34 out JTF_VARCHAR2_TABLE_100
581 , p4_a35 out JTF_VARCHAR2_TABLE_100
582 , p4_a36 out JTF_DATE_TABLE
583 , p4_a37 out JTF_VARCHAR2_TABLE_100
584 , p4_a38 out JTF_VARCHAR2_TABLE_100
585 , p4_a39 out JTF_VARCHAR2_TABLE_100
586 , p4_a40 out JTF_VARCHAR2_TABLE_100
587 , p4_a41 out JTF_VARCHAR2_TABLE_100
588 , p4_a42 out JTF_NUMBER_TABLE
589 , x_return_status out VARCHAR2
590 , x_msg_count out NUMBER
591 , x_msg_data out VARCHAR2
592 )
593
594 as
595 ddx_version_tbl jts_config_version_pvt.config_version_tbl_type;
596 ddindx binary_integer; indx binary_integer;
597 begin
598
599 -- copy data to the local IN or IN-OUT args, if any
600
601
602
603
604
605
606
607
608 -- here's the delegated call to the old PL/SQL routine
609 jts_config_version_pvt.get_versions(p_api_version,
610 p_config_id,
611 p_order_by,
612 p_how_to_order,
613 ddx_version_tbl,
614 x_return_status,
615 x_msg_count,
616 x_msg_data);
617
618 -- copy data back from the local variables to OUT or IN-OUT args, if any
619
620
621
622
623 jts_config_version_pvt_w.rosetta_table_copy_out_p4(ddx_version_tbl, p4_a0
624 , p4_a1
625 , p4_a2
626 , p4_a3
627 , p4_a4
628 , p4_a5
629 , p4_a6
630 , p4_a7
631 , p4_a8
632 , p4_a9
633 , p4_a10
634 , p4_a11
635 , p4_a12
636 , p4_a13
637 , p4_a14
638 , p4_a15
639 , p4_a16
640 , p4_a17
641 , p4_a18
642 , p4_a19
643 , p4_a20
644 , p4_a21
645 , p4_a22
646 , p4_a23
647 , p4_a24
648 , p4_a25
649 , p4_a26
650 , p4_a27
651 , p4_a28
652 , p4_a29
653 , p4_a30
654 , p4_a31
655 , p4_a32
656 , p4_a33
657 , p4_a34
658 , p4_a35
659 , p4_a36
660 , p4_a37
661 , p4_a38
662 , p4_a39
663 , p4_a40
664 , p4_a41
665 , p4_a42
666 );
667
668
669
670 end;
671
672 end jts_config_version_pvt_w;