1: package body ahl_ua_flight_schedules_pub_w as
2: /* $Header: AHLUFSWB.pls 120.0 2005/05/26 00:59:51 appldev noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy ahl_ua_flight_schedules_pub.flight_visit_sch_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body ahl_ua_flight_schedules_pub_w as
2: /* $Header: AHLUFSWB.pls 120.0 2005/05/26 00:59:51 appldev noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy ahl_ua_flight_schedules_pub.flight_visit_sch_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_DATE_TABLE
7: , a4 JTF_DATE_TABLE
114: end loop;
115: end if;
116: end if;
117: end rosetta_table_copy_in_p2;
118: procedure rosetta_table_copy_out_p2(t ahl_ua_flight_schedules_pub.flight_visit_sch_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
119: , a1 out nocopy JTF_VARCHAR2_TABLE_100
120: , a2 out nocopy JTF_VARCHAR2_TABLE_100
121: , a3 out nocopy JTF_DATE_TABLE
122: , a4 out nocopy JTF_DATE_TABLE
446: , p10_a44 out nocopy JTF_VARCHAR2_TABLE_100
447: )
448:
449: as
450: ddp_flight_search_rec ahl_ua_flight_schedules_pub.flight_search_rec_type;
451: ddx_flight_schedules_tbl ahl_ua_flight_schedules_pvt.flight_schedules_tbl_type;
452: ddindx binary_integer; indx binary_integer;
453: begin
454:
475: ddp_flight_search_rec.end_date := p9_a10;
476:
477:
478: -- here's the delegated call to the old PL/SQL routine
479: ahl_ua_flight_schedules_pub.get_flight_schedule_details(p_api_version,
480: p_init_msg_list,
481: p_commit,
482: p_validation_level,
483: p_default,
665: , p9_a44
666: );
667:
668: -- here's the delegated call to the old PL/SQL routine
669: ahl_ua_flight_schedules_pub.process_flight_schedules(p_api_version,
670: p_init_msg_list,
671: p_commit,
672: p_validation_level,
673: p_default,
795: , p9_a48 in out nocopy JTF_VARCHAR2_TABLE_100
796: )
797:
798: as
799: ddp_x_flight_visit_sch_tbl ahl_ua_flight_schedules_pub.flight_visit_sch_tbl_type;
800: ddindx binary_integer; indx binary_integer;
801: begin
802:
803: -- copy data to the local IN or IN-OUT args, if any
809:
810:
811:
812:
813: ahl_ua_flight_schedules_pub_w.rosetta_table_copy_in_p2(ddp_x_flight_visit_sch_tbl, p9_a0
814: , p9_a1
815: , p9_a2
816: , p9_a3
817: , p9_a4
861: , p9_a48
862: );
863:
864: -- here's the delegated call to the old PL/SQL routine
865: ahl_ua_flight_schedules_pub.process_flightvisit_sch(p_api_version,
866: p_init_msg_list,
867: p_commit,
868: p_validation_level,
869: p_default,
882:
883:
884:
885:
886: ahl_ua_flight_schedules_pub_w.rosetta_table_copy_out_p2(ddp_x_flight_visit_sch_tbl, p9_a0
887: , p9_a1
888: , p9_a2
889: , p9_a3
890: , p9_a4
934: , p9_a48
935: );
936: end;
937:
938: end ahl_ua_flight_schedules_pub_w;