[Home] [Help]
PACKAGE BODY: APPS.JTS_SETUP_FLOW_PVT_W
Source
1 package body jts_setup_flow_pvt_w as
2 /* $Header: jtswcsfb.pls 115.5 2002/04/10 18:10:26 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_p7(t out jts_setup_flow_pvt.setup_flow_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_300
29 , a7 JTF_VARCHAR2_TABLE_300
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_VARCHAR2_TABLE_100
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).flow_id := rosetta_g_miss_num_map(a0(indx));
44 t(ddindx).flow_name := a1(indx);
45 t(ddindx).flow_code := a2(indx);
46 t(ddindx).parent_id := rosetta_g_miss_num_map(a3(indx));
47 t(ddindx).level := rosetta_g_miss_num_map(a4(indx));
48 t(ddindx).flow_sequence := rosetta_g_miss_num_map(a5(indx));
49 t(ddindx).overview_url := a6(indx);
50 t(ddindx).diagnostics_url := a7(indx);
51 t(ddindx).dpf_code := a8(indx);
52 t(ddindx).dpf_asn := a9(indx);
53 t(ddindx).num_steps := rosetta_g_miss_num_map(a10(indx));
54 t(ddindx).flow_type := a11(indx);
55 t(ddindx).has_child_flag := a12(indx);
56 ddindx := ddindx+1;
57 if a0.last =indx
58 then exit;
59 end if;
60 indx := a0.next(indx);
61 end loop;
62 end if;
63 end if;
64 end rosetta_table_copy_in_p7;
65 procedure rosetta_table_copy_out_p7(t jts_setup_flow_pvt.setup_flow_tbl_type, a0 out JTF_NUMBER_TABLE
66 , a1 out JTF_VARCHAR2_TABLE_100
67 , a2 out JTF_VARCHAR2_TABLE_100
68 , a3 out JTF_NUMBER_TABLE
69 , a4 out JTF_NUMBER_TABLE
70 , a5 out JTF_NUMBER_TABLE
71 , a6 out JTF_VARCHAR2_TABLE_300
72 , a7 out JTF_VARCHAR2_TABLE_300
73 , a8 out JTF_VARCHAR2_TABLE_100
74 , a9 out JTF_VARCHAR2_TABLE_100
75 , a10 out JTF_NUMBER_TABLE
76 , a11 out JTF_VARCHAR2_TABLE_100
77 , a12 out JTF_VARCHAR2_TABLE_100
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if t is null or t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 a1 := JTF_VARCHAR2_TABLE_100();
84 a2 := JTF_VARCHAR2_TABLE_100();
85 a3 := JTF_NUMBER_TABLE();
86 a4 := JTF_NUMBER_TABLE();
87 a5 := JTF_NUMBER_TABLE();
88 a6 := JTF_VARCHAR2_TABLE_300();
89 a7 := JTF_VARCHAR2_TABLE_300();
90 a8 := JTF_VARCHAR2_TABLE_100();
91 a9 := JTF_VARCHAR2_TABLE_100();
92 a10 := JTF_NUMBER_TABLE();
93 a11 := JTF_VARCHAR2_TABLE_100();
94 a12 := JTF_VARCHAR2_TABLE_100();
95 else
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_VARCHAR2_TABLE_100();
98 a2 := JTF_VARCHAR2_TABLE_100();
99 a3 := JTF_NUMBER_TABLE();
100 a4 := JTF_NUMBER_TABLE();
101 a5 := JTF_NUMBER_TABLE();
102 a6 := JTF_VARCHAR2_TABLE_300();
103 a7 := JTF_VARCHAR2_TABLE_300();
104 a8 := JTF_VARCHAR2_TABLE_100();
105 a9 := JTF_VARCHAR2_TABLE_100();
106 a10 := JTF_NUMBER_TABLE();
107 a11 := JTF_VARCHAR2_TABLE_100();
108 a12 := JTF_VARCHAR2_TABLE_100();
109 if t.count > 0 then
110 a0.extend(t.count);
111 a1.extend(t.count);
112 a2.extend(t.count);
113 a3.extend(t.count);
114 a4.extend(t.count);
115 a5.extend(t.count);
116 a6.extend(t.count);
117 a7.extend(t.count);
118 a8.extend(t.count);
119 a9.extend(t.count);
120 a10.extend(t.count);
121 a11.extend(t.count);
122 a12.extend(t.count);
123 ddindx := t.first;
124 indx := 1;
125 while true loop
126 a0(indx) := rosetta_g_miss_num_map(t(ddindx).flow_id);
127 a1(indx) := t(ddindx).flow_name;
128 a2(indx) := t(ddindx).flow_code;
129 a3(indx) := rosetta_g_miss_num_map(t(ddindx).parent_id);
130 a4(indx) := rosetta_g_miss_num_map(t(ddindx).level);
131 a5(indx) := rosetta_g_miss_num_map(t(ddindx).flow_sequence);
132 a6(indx) := t(ddindx).overview_url;
133 a7(indx) := t(ddindx).diagnostics_url;
134 a8(indx) := t(ddindx).dpf_code;
135 a9(indx) := t(ddindx).dpf_asn;
136 a10(indx) := rosetta_g_miss_num_map(t(ddindx).num_steps);
137 a11(indx) := t(ddindx).flow_type;
138 a12(indx) := t(ddindx).has_child_flag;
139 indx := indx+1;
140 if t.last =ddindx
141 then exit;
142 end if;
143 ddindx := t.next(ddindx);
144 end loop;
145 end if;
146 end if;
147 end rosetta_table_copy_out_p7;
148
149 procedure rosetta_table_copy_in_p8(t out jts_setup_flow_pvt.flow_tbl_type, a0 JTF_NUMBER_TABLE
150 , a1 JTF_VARCHAR2_TABLE_100
151 , a2 JTF_VARCHAR2_TABLE_100
152 , a3 JTF_NUMBER_TABLE
153 , a4 JTF_NUMBER_TABLE
154 , a5 JTF_NUMBER_TABLE
155 , a6 JTF_VARCHAR2_TABLE_300
156 , a7 JTF_VARCHAR2_TABLE_300
157 , a8 JTF_VARCHAR2_TABLE_100
158 , a9 JTF_VARCHAR2_TABLE_100
159 , a10 JTF_NUMBER_TABLE
160 , a11 JTF_VARCHAR2_TABLE_100
161 , a12 JTF_VARCHAR2_TABLE_100
162 , a13 JTF_NUMBER_TABLE
163 , a14 JTF_VARCHAR2_TABLE_100
164 , a15 JTF_DATE_TABLE
165 , a16 JTF_DATE_TABLE
166 , a17 JTF_VARCHAR2_TABLE_100
167 , a18 JTF_VARCHAR2_TABLE_100
168 ) as
169 ddindx binary_integer; indx binary_integer;
170 begin
171 if a0 is not null and a0.count > 0 then
172 if a0.count > 0 then
173 indx := a0.first;
174 ddindx := 1;
175 while true loop
176 t(ddindx).flow_id := rosetta_g_miss_num_map(a0(indx));
177 t(ddindx).flow_name := a1(indx);
178 t(ddindx).flow_code := a2(indx);
179 t(ddindx).parent_id := rosetta_g_miss_num_map(a3(indx));
180 t(ddindx).level := rosetta_g_miss_num_map(a4(indx));
181 t(ddindx).flow_sequence := rosetta_g_miss_num_map(a5(indx));
182 t(ddindx).overview_url := a6(indx);
183 t(ddindx).diagnostics_url := a7(indx);
184 t(ddindx).dpf_code := a8(indx);
185 t(ddindx).dpf_asn := a9(indx);
186 t(ddindx).num_steps := rosetta_g_miss_num_map(a10(indx));
187 t(ddindx).flow_type := a11(indx);
188 t(ddindx).has_child_flag := a12(indx);
189 t(ddindx).version_id := rosetta_g_miss_num_map(a13(indx));
190 t(ddindx).complete_flag := a14(indx);
191 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a15(indx));
192 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
193 t(ddindx).created_by_name := a17(indx);
194 t(ddindx).last_updated_by_name := a18(indx);
195 ddindx := ddindx+1;
196 if a0.last =indx
197 then exit;
198 end if;
199 indx := a0.next(indx);
200 end loop;
201 end if;
202 end if;
203 end rosetta_table_copy_in_p8;
204 procedure rosetta_table_copy_out_p8(t jts_setup_flow_pvt.flow_tbl_type, a0 out JTF_NUMBER_TABLE
205 , a1 out JTF_VARCHAR2_TABLE_100
206 , a2 out JTF_VARCHAR2_TABLE_100
207 , a3 out JTF_NUMBER_TABLE
208 , a4 out JTF_NUMBER_TABLE
209 , a5 out JTF_NUMBER_TABLE
210 , a6 out JTF_VARCHAR2_TABLE_300
211 , a7 out JTF_VARCHAR2_TABLE_300
212 , a8 out JTF_VARCHAR2_TABLE_100
213 , a9 out JTF_VARCHAR2_TABLE_100
214 , a10 out JTF_NUMBER_TABLE
215 , a11 out JTF_VARCHAR2_TABLE_100
216 , a12 out JTF_VARCHAR2_TABLE_100
217 , a13 out JTF_NUMBER_TABLE
218 , a14 out JTF_VARCHAR2_TABLE_100
219 , a15 out JTF_DATE_TABLE
220 , a16 out JTF_DATE_TABLE
221 , a17 out JTF_VARCHAR2_TABLE_100
222 , a18 out JTF_VARCHAR2_TABLE_100
223 ) as
224 ddindx binary_integer; indx binary_integer;
225 begin
226 if t is null or t.count = 0 then
227 a0 := JTF_NUMBER_TABLE();
228 a1 := JTF_VARCHAR2_TABLE_100();
229 a2 := JTF_VARCHAR2_TABLE_100();
230 a3 := JTF_NUMBER_TABLE();
231 a4 := JTF_NUMBER_TABLE();
232 a5 := JTF_NUMBER_TABLE();
233 a6 := JTF_VARCHAR2_TABLE_300();
234 a7 := JTF_VARCHAR2_TABLE_300();
235 a8 := JTF_VARCHAR2_TABLE_100();
236 a9 := JTF_VARCHAR2_TABLE_100();
237 a10 := JTF_NUMBER_TABLE();
238 a11 := JTF_VARCHAR2_TABLE_100();
239 a12 := JTF_VARCHAR2_TABLE_100();
240 a13 := JTF_NUMBER_TABLE();
241 a14 := JTF_VARCHAR2_TABLE_100();
242 a15 := JTF_DATE_TABLE();
243 a16 := JTF_DATE_TABLE();
244 a17 := JTF_VARCHAR2_TABLE_100();
245 a18 := JTF_VARCHAR2_TABLE_100();
246 else
247 a0 := JTF_NUMBER_TABLE();
248 a1 := JTF_VARCHAR2_TABLE_100();
249 a2 := JTF_VARCHAR2_TABLE_100();
250 a3 := JTF_NUMBER_TABLE();
251 a4 := JTF_NUMBER_TABLE();
252 a5 := JTF_NUMBER_TABLE();
253 a6 := JTF_VARCHAR2_TABLE_300();
254 a7 := JTF_VARCHAR2_TABLE_300();
255 a8 := JTF_VARCHAR2_TABLE_100();
256 a9 := JTF_VARCHAR2_TABLE_100();
257 a10 := JTF_NUMBER_TABLE();
258 a11 := JTF_VARCHAR2_TABLE_100();
259 a12 := JTF_VARCHAR2_TABLE_100();
260 a13 := JTF_NUMBER_TABLE();
261 a14 := JTF_VARCHAR2_TABLE_100();
262 a15 := JTF_DATE_TABLE();
263 a16 := JTF_DATE_TABLE();
264 a17 := JTF_VARCHAR2_TABLE_100();
265 a18 := JTF_VARCHAR2_TABLE_100();
266 if t.count > 0 then
267 a0.extend(t.count);
268 a1.extend(t.count);
269 a2.extend(t.count);
270 a3.extend(t.count);
271 a4.extend(t.count);
272 a5.extend(t.count);
273 a6.extend(t.count);
274 a7.extend(t.count);
275 a8.extend(t.count);
276 a9.extend(t.count);
277 a10.extend(t.count);
278 a11.extend(t.count);
279 a12.extend(t.count);
280 a13.extend(t.count);
281 a14.extend(t.count);
282 a15.extend(t.count);
283 a16.extend(t.count);
284 a17.extend(t.count);
285 a18.extend(t.count);
286 ddindx := t.first;
287 indx := 1;
288 while true loop
289 a0(indx) := rosetta_g_miss_num_map(t(ddindx).flow_id);
290 a1(indx) := t(ddindx).flow_name;
291 a2(indx) := t(ddindx).flow_code;
292 a3(indx) := rosetta_g_miss_num_map(t(ddindx).parent_id);
293 a4(indx) := rosetta_g_miss_num_map(t(ddindx).level);
294 a5(indx) := rosetta_g_miss_num_map(t(ddindx).flow_sequence);
295 a6(indx) := t(ddindx).overview_url;
296 a7(indx) := t(ddindx).diagnostics_url;
297 a8(indx) := t(ddindx).dpf_code;
298 a9(indx) := t(ddindx).dpf_asn;
299 a10(indx) := rosetta_g_miss_num_map(t(ddindx).num_steps);
300 a11(indx) := t(ddindx).flow_type;
301 a12(indx) := t(ddindx).has_child_flag;
302 a13(indx) := rosetta_g_miss_num_map(t(ddindx).version_id);
303 a14(indx) := t(ddindx).complete_flag;
304 a15(indx) := t(ddindx).creation_date;
305 a16(indx) := t(ddindx).last_update_date;
306 a17(indx) := t(ddindx).created_by_name;
307 a18(indx) := t(ddindx).last_updated_by_name;
308 indx := indx+1;
309 if t.last =ddindx
310 then exit;
311 end if;
312 ddindx := t.next(ddindx);
313 end loop;
314 end if;
315 end if;
316 end rosetta_table_copy_out_p8;
317
318 procedure rosetta_table_copy_in_p9(t out jts_setup_flow_pvt.root_setup_flow_tbl_type, a0 JTF_NUMBER_TABLE
319 , a1 JTF_VARCHAR2_TABLE_100
320 , a2 JTF_VARCHAR2_TABLE_100
321 ) as
322 ddindx binary_integer; indx binary_integer;
323 begin
324 if a0 is not null and a0.count > 0 then
325 if a0.count > 0 then
326 indx := a0.first;
327 ddindx := 1;
328 while true loop
329 t(ddindx).flow_id := rosetta_g_miss_num_map(a0(indx));
330 t(ddindx).flow_name := a1(indx);
331 t(ddindx).flow_type := a2(indx);
332 ddindx := ddindx+1;
333 if a0.last =indx
334 then exit;
335 end if;
336 indx := a0.next(indx);
337 end loop;
338 end if;
339 end if;
340 end rosetta_table_copy_in_p9;
341 procedure rosetta_table_copy_out_p9(t jts_setup_flow_pvt.root_setup_flow_tbl_type, a0 out JTF_NUMBER_TABLE
342 , a1 out JTF_VARCHAR2_TABLE_100
343 , a2 out JTF_VARCHAR2_TABLE_100
344 ) as
345 ddindx binary_integer; indx binary_integer;
346 begin
347 if t is null or t.count = 0 then
348 a0 := JTF_NUMBER_TABLE();
349 a1 := JTF_VARCHAR2_TABLE_100();
350 a2 := JTF_VARCHAR2_TABLE_100();
351 else
352 a0 := JTF_NUMBER_TABLE();
353 a1 := JTF_VARCHAR2_TABLE_100();
354 a2 := JTF_VARCHAR2_TABLE_100();
355 if t.count > 0 then
356 a0.extend(t.count);
357 a1.extend(t.count);
358 a2.extend(t.count);
359 ddindx := t.first;
360 indx := 1;
361 while true loop
362 a0(indx) := rosetta_g_miss_num_map(t(ddindx).flow_id);
363 a1(indx) := t(ddindx).flow_name;
364 a2(indx) := t(ddindx).flow_type;
365 indx := indx+1;
366 if t.last =ddindx
367 then exit;
368 end if;
369 ddindx := t.next(ddindx);
370 end loop;
371 end if;
372 end if;
373 end rosetta_table_copy_out_p9;
374
375 procedure get_flow_root_flows(p_api_version NUMBER
376 , p1_a0 out JTF_NUMBER_TABLE
377 , p1_a1 out JTF_VARCHAR2_TABLE_100
378 , p1_a2 out JTF_VARCHAR2_TABLE_100
379 )
380
381 as
382 ddx_flow_tbl jts_setup_flow_pvt.root_setup_flow_tbl_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388
389 -- here's the delegated call to the old PL/SQL routine
390 jts_setup_flow_pvt.get_flow_root_flows(p_api_version,
391 ddx_flow_tbl);
392
393 -- copy data back from the local variables to OUT or IN-OUT args, if any
394
395 jts_setup_flow_pvt_w.rosetta_table_copy_out_p9(ddx_flow_tbl, p1_a0
396 , p1_a1
397 , p1_a2
398 );
399 end;
400
401 procedure get_module_root_flows(p_api_version NUMBER
402 , p1_a0 out JTF_NUMBER_TABLE
403 , p1_a1 out JTF_VARCHAR2_TABLE_100
404 , p1_a2 out JTF_VARCHAR2_TABLE_100
405 )
406
407 as
408 ddx_flow_tbl jts_setup_flow_pvt.root_setup_flow_tbl_type;
409 ddindx binary_integer; indx binary_integer;
410 begin
411
412 -- copy data to the local IN or IN-OUT args, if any
413
414
415 -- here's the delegated call to the old PL/SQL routine
416 jts_setup_flow_pvt.get_module_root_flows(p_api_version,
417 ddx_flow_tbl);
418
419 -- copy data back from the local variables to OUT or IN-OUT args, if any
420
421 jts_setup_flow_pvt_w.rosetta_table_copy_out_p9(ddx_flow_tbl, p1_a0
422 , p1_a1
423 , p1_a2
424 );
425 end;
426
427 procedure get_flow_hiearchy(p_api_version NUMBER
428 , p_flow_id NUMBER
429 , p2_a0 out JTF_NUMBER_TABLE
430 , p2_a1 out JTF_VARCHAR2_TABLE_100
431 , p2_a2 out JTF_VARCHAR2_TABLE_100
432 , p2_a3 out JTF_NUMBER_TABLE
433 , p2_a4 out JTF_NUMBER_TABLE
434 , p2_a5 out JTF_NUMBER_TABLE
435 , p2_a6 out JTF_VARCHAR2_TABLE_300
436 , p2_a7 out JTF_VARCHAR2_TABLE_300
437 , p2_a8 out JTF_VARCHAR2_TABLE_100
438 , p2_a9 out JTF_VARCHAR2_TABLE_100
439 , p2_a10 out JTF_NUMBER_TABLE
440 , p2_a11 out JTF_VARCHAR2_TABLE_100
441 , p2_a12 out JTF_VARCHAR2_TABLE_100
442 )
443
444 as
445 ddx_flow_tbl jts_setup_flow_pvt.setup_flow_tbl_type;
446 ddindx binary_integer; indx binary_integer;
447 begin
448
449 -- copy data to the local IN or IN-OUT args, if any
450
451
452
453 -- here's the delegated call to the old PL/SQL routine
454 jts_setup_flow_pvt.get_flow_hiearchy(p_api_version,
455 p_flow_id,
456 ddx_flow_tbl);
457
458 -- copy data back from the local variables to OUT or IN-OUT args, if any
459
460
461 jts_setup_flow_pvt_w.rosetta_table_copy_out_p7(ddx_flow_tbl, p2_a0
462 , p2_a1
463 , p2_a2
464 , p2_a3
465 , p2_a4
466 , p2_a5
467 , p2_a6
468 , p2_a7
469 , p2_a8
470 , p2_a9
471 , p2_a10
472 , p2_a11
473 , p2_a12
474 );
475 end;
476
477 procedure get_flow_data_hiearchy(p_api_version NUMBER
478 , p_flow_id NUMBER
479 , p_version_id NUMBER
480 , p3_a0 out JTF_NUMBER_TABLE
481 , p3_a1 out JTF_VARCHAR2_TABLE_100
482 , p3_a2 out JTF_VARCHAR2_TABLE_100
483 , p3_a3 out JTF_NUMBER_TABLE
484 , p3_a4 out JTF_NUMBER_TABLE
485 , p3_a5 out JTF_NUMBER_TABLE
486 , p3_a6 out JTF_VARCHAR2_TABLE_300
487 , p3_a7 out JTF_VARCHAR2_TABLE_300
488 , p3_a8 out JTF_VARCHAR2_TABLE_100
489 , p3_a9 out JTF_VARCHAR2_TABLE_100
490 , p3_a10 out JTF_NUMBER_TABLE
491 , p3_a11 out JTF_VARCHAR2_TABLE_100
492 , p3_a12 out JTF_VARCHAR2_TABLE_100
493 , p3_a13 out JTF_NUMBER_TABLE
494 , p3_a14 out JTF_VARCHAR2_TABLE_100
495 , p3_a15 out JTF_DATE_TABLE
496 , p3_a16 out JTF_DATE_TABLE
497 , p3_a17 out JTF_VARCHAR2_TABLE_100
498 , p3_a18 out JTF_VARCHAR2_TABLE_100
499 )
500
501 as
502 ddx_flow_tbl jts_setup_flow_pvt.flow_tbl_type;
503 ddindx binary_integer; indx binary_integer;
504 begin
505
506 -- copy data to the local IN or IN-OUT args, if any
507
508
509
510
511 -- here's the delegated call to the old PL/SQL routine
512 jts_setup_flow_pvt.get_flow_data_hiearchy(p_api_version,
513 p_flow_id,
514 p_version_id,
515 ddx_flow_tbl);
516
517 -- copy data back from the local variables to OUT or IN-OUT args, if any
518
519
520
521 jts_setup_flow_pvt_w.rosetta_table_copy_out_p8(ddx_flow_tbl, p3_a0
522 , p3_a1
523 , p3_a2
524 , p3_a3
525 , p3_a4
526 , p3_a5
527 , p3_a6
528 , p3_a7
529 , p3_a8
530 , p3_a9
531 , p3_a10
532 , p3_a11
533 , p3_a12
534 , p3_a13
535 , p3_a14
536 , p3_a15
537 , p3_a16
538 , p3_a17
539 , p3_a18
540 );
541 end;
542
543 end jts_setup_flow_pvt_w;