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:
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
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
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
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
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;
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;
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
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:
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;
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
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:
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;
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
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
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
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
539: , p3_a18
540: );
541: end;
542:
543: end jts_setup_flow_pvt_w;