1: package body ahl_di_doc_revision_pub_w as
2: /* $Header: AHLREVWB.pls 120.0 2005/05/26 02:36:54 appldev noship $ */
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:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p1(t out nocopy ahl_di_doc_revision_pub.revision_tbl, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_VARCHAR2_TABLE_100
16: , a3 JTF_VARCHAR2_TABLE_100
17: , a4 JTF_VARCHAR2_TABLE_100
112: end loop;
113: end if;
114: end if;
115: end rosetta_table_copy_in_p1;
116: procedure rosetta_table_copy_out_p1(t ahl_di_doc_revision_pub.revision_tbl, a0 out nocopy JTF_NUMBER_TABLE
117: , a1 out nocopy JTF_NUMBER_TABLE
118: , a2 out nocopy JTF_VARCHAR2_TABLE_100
119: , a3 out nocopy JTF_VARCHAR2_TABLE_100
120: , a4 out nocopy JTF_VARCHAR2_TABLE_100
401: , x_msg_data out nocopy VARCHAR2
402: )
403:
404: as
405: ddp_x_revision_tbl ahl_di_doc_revision_pub.revision_tbl;
406: ddindx binary_integer; indx binary_integer;
407: begin
408:
409: -- copy data to the local IN or IN-OUT args, if any
411:
412:
413:
414:
415: ahl_di_doc_revision_pub_w.rosetta_table_copy_in_p1(ddp_x_revision_tbl, p5_a0
416: , p5_a1
417: , p5_a2
418: , p5_a3
419: , p5_a4
461:
462:
463:
464: -- here's the delegated call to the old PL/SQL routine
465: ahl_di_doc_revision_pub.create_revision(p_api_version,
466: p_init_msg_list,
467: p_commit,
468: p_validate_only,
469: p_validation_level,
478:
479:
480:
481:
482: ahl_di_doc_revision_pub_w.rosetta_table_copy_out_p1(ddp_x_revision_tbl, p5_a0
483: , p5_a1
484: , p5_a2
485: , p5_a3
486: , p5_a4
583: , x_msg_data out nocopy VARCHAR2
584: )
585:
586: as
587: ddp_x_revision_tbl ahl_di_doc_revision_pub.revision_tbl;
588: ddindx binary_integer; indx binary_integer;
589: begin
590:
591: -- copy data to the local IN or IN-OUT args, if any
593:
594:
595:
596:
597: ahl_di_doc_revision_pub_w.rosetta_table_copy_in_p1(ddp_x_revision_tbl, p5_a0
598: , p5_a1
599: , p5_a2
600: , p5_a3
601: , p5_a4
643:
644:
645:
646: -- here's the delegated call to the old PL/SQL routine
647: ahl_di_doc_revision_pub.modify_revision(p_api_version,
648: p_init_msg_list,
649: p_commit,
650: p_validate_only,
651: p_validation_level,
660:
661:
662:
663:
664: ahl_di_doc_revision_pub_w.rosetta_table_copy_out_p1(ddp_x_revision_tbl, p5_a0
665: , p5_a1
666: , p5_a2
667: , p5_a3
668: , p5_a4
710:
711:
712: end;
713:
714: end ahl_di_doc_revision_pub_w;