[Home] [Help]
1: package body ahl_mc_path_position_pvt_w as
2: /* $Header: AHLWPOSB.pls 120.1 2008/02/29 07:55:16 sathapli 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p1(t out nocopy ahl_mc_path_position_pvt.path_position_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_DATE_TABLE
19: , a3 JTF_NUMBER_TABLE
20: , a4 JTF_DATE_TABLE
87: end loop;
88: end if;
89: end if;
90: end rosetta_table_copy_in_p1;
91: procedure rosetta_table_copy_out_p1(t ahl_mc_path_position_pvt.path_position_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
92: , a1 out nocopy JTF_NUMBER_TABLE
93: , a2 out nocopy JTF_DATE_TABLE
94: , a3 out nocopy JTF_NUMBER_TABLE
95: , a4 out nocopy JTF_DATE_TABLE
293: , x_position_id out nocopy NUMBER
294: )
295:
296: as
297: ddp_path_position_tbl ahl_mc_path_position_pvt.path_position_tbl_type;
298: ddindx binary_integer; indx binary_integer;
299: begin
300:
301: -- copy data to the local IN or IN-OUT args, if any
305:
306:
307:
308:
309: ahl_mc_path_position_pvt_w.rosetta_table_copy_in_p1(ddp_path_position_tbl, p7_a0
310: , p7_a1
311: , p7_a2
312: , p7_a3
313: , p7_a4
340:
341:
342:
343: -- here's the delegated call to the old PL/SQL routine
344: ahl_mc_path_position_pvt.create_position_id(p_api_version,
345: p_init_msg_list,
346: p_commit,
347: p_validation_level,
348: x_return_status,
398: , p_code_flag VARCHAR2
399: ) return varchar2
400:
401: as
402: ddp_path_position_tbl ahl_mc_path_position_pvt.path_position_tbl_type;
403: ddindx binary_integer; indx binary_integer;
404: ddrosetta_retval varchar2(4000);
405: begin
406:
404: ddrosetta_retval varchar2(4000);
405: begin
406:
407: -- copy data to the local IN or IN-OUT args, if any
408: ahl_mc_path_position_pvt_w.rosetta_table_copy_in_p1(ddp_path_position_tbl, p0_a0
409: , p0_a1
410: , p0_a2
411: , p0_a3
412: , p0_a4
437: );
438:
439:
440: -- here's the delegated call to the old PL/SQL routine
441: ddrosetta_retval := ahl_mc_path_position_pvt.get_posref_by_path(ddp_path_position_tbl,
442: p_code_flag);
443:
444: -- copy data back from the local variables to OUT or IN-OUT args, if any
445:
460: -- copy data to the local IN or IN-OUT args, if any
461:
462:
463: -- here's the delegated call to the old PL/SQL routine
464: ddrosetta_retval := ahl_mc_path_position_pvt.check_pos_ref_path(p_from_csi_id,
465: p_to_csi_id);
466:
467: -- copy data back from the local variables to OUT or IN-OUT args, if any
468: if ddrosetta_retval is null
505: , p0_a28 JTF_VARCHAR2_TABLE_200
506: ) return varchar2
507:
508: as
509: ddp_path_position_tbl ahl_mc_path_position_pvt.path_position_tbl_type;
510: ddindx binary_integer; indx binary_integer;
511: ddrosetta_retval varchar2(4000);
512: begin
513:
511: ddrosetta_retval varchar2(4000);
512: begin
513:
514: -- copy data to the local IN or IN-OUT args, if any
515: ahl_mc_path_position_pvt_w.rosetta_table_copy_in_p1(ddp_path_position_tbl, p0_a0
516: , p0_a1
517: , p0_a2
518: , p0_a3
519: , p0_a4
543: , p0_a28
544: );
545:
546: -- here's the delegated call to the old PL/SQL routine
547: ddrosetta_retval := ahl_mc_path_position_pvt.encode(ddp_path_position_tbl);
548:
549: -- copy data back from the local variables to OUT or IN-OUT args, if any
550:
551: return ddrosetta_retval;
550:
551: return ddrosetta_retval;
552: end;
553:
554: end ahl_mc_path_position_pvt_w;