1: package body jtf_terr_lookup_pub_w as
2: /* $Header: jtftlkwb.pls 120.0 2005/06/02 18:21:17 appldev 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_p3(t OUT NOCOPY jtf_terr_lookup_pub.org_name_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_400
83: end loop;
84: end if;
85: end if;
86: end rosetta_table_copy_in_p3;
87: procedure rosetta_table_copy_out_p3(t jtf_terr_lookup_pub.org_name_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
88: , a1 OUT NOCOPY JTF_NUMBER_TABLE
89: , a2 OUT NOCOPY JTF_NUMBER_TABLE
90: , a3 OUT NOCOPY JTF_NUMBER_TABLE
91: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_400
222: end if;
223: end if;
224: end rosetta_table_copy_out_p3;
225:
226: procedure rosetta_table_copy_in_p5(t OUT NOCOPY jtf_terr_lookup_pub.win_rsc_tbl_type, a0 JTF_NUMBER_TABLE
227: , a1 JTF_NUMBER_TABLE
228: , a2 JTF_VARCHAR2_TABLE_200
229: , a3 JTF_VARCHAR2_TABLE_200
230: , a4 JTF_VARCHAR2_TABLE_200
265: end loop;
266: end if;
267: end if;
268: end rosetta_table_copy_in_p5;
269: procedure rosetta_table_copy_out_p5(t jtf_terr_lookup_pub.win_rsc_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
270: , a1 OUT NOCOPY JTF_NUMBER_TABLE
271: , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_200
272: , a3 OUT NOCOPY JTF_VARCHAR2_TABLE_200
273: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_200
349: end if;
350: end if;
351: end rosetta_table_copy_out_p5;
352:
353: procedure rosetta_table_copy_in_p7(t OUT NOCOPY jtf_terr_lookup_pub.winners_tbl_type, a0 JTF_VARCHAR2_TABLE_100
354: , a1 JTF_NUMBER_TABLE
355: , a2 JTF_NUMBER_TABLE
356: , a3 JTF_NUMBER_TABLE
357: , a4 JTF_NUMBER_TABLE
442: end loop;
443: end if;
444: end if;
445: end rosetta_table_copy_in_p7;
446: procedure rosetta_table_copy_out_p7(t jtf_terr_lookup_pub.winners_tbl_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_100
447: , a1 OUT NOCOPY JTF_NUMBER_TABLE
448: , a2 OUT NOCOPY JTF_NUMBER_TABLE
449: , a3 OUT NOCOPY JTF_NUMBER_TABLE
450: , a4 OUT NOCOPY JTF_NUMBER_TABLE
699: , p22_a22 OUT NOCOPY JTF_VARCHAR2_TABLE_100
700: , p22_a23 OUT NOCOPY JTF_VARCHAR2_TABLE_100
701: )
702: as
703: ddx_result_tbl jtf_terr_lookup_pub.org_name_tbl_type;
704: ddindx binary_integer; indx binary_integer;
705: begin
706:
707: -- copy data to the local IN or IN-OUT NOCOPY args, if any
728:
729:
730:
731: -- here's the delegated call to the old PL/SQL routine
732: jtf_terr_lookup_pub.get_org_contacts(p_range_low,
733: p_range_high,
734: p_search_name,
735: p_state,
736: p_country,
775:
776:
777:
778:
779: jtf_terr_lookup_pub_w.rosetta_table_copy_out_p3(ddx_result_tbl, p22_a0
780: , p22_a1
781: , p22_a2
782: , p22_a3
783: , p22_a4
956: , p10_a36 OUT NOCOPY JTF_VARCHAR2_TABLE_400
957: , p10_a37 OUT NOCOPY JTF_VARCHAR2_TABLE_400
958: )
959: as
960: ddp_trans_rec jtf_terr_lookup_pub.trans_rec_type;
961: ddx_winners_tbl jtf_terr_lookup_pub.winners_tbl_type;
962: ddindx binary_integer; indx binary_integer;
963: begin
964:
957: , p10_a37 OUT NOCOPY JTF_VARCHAR2_TABLE_400
958: )
959: as
960: ddp_trans_rec jtf_terr_lookup_pub.trans_rec_type;
961: ddx_winners_tbl jtf_terr_lookup_pub.winners_tbl_type;
962: ddindx binary_integer; indx binary_integer;
963: begin
964:
965: -- copy data to the local IN or IN-OUT NOCOPY args, if any
1079:
1080:
1081:
1082: -- here's the delegated call to the old PL/SQL routine
1083: jtf_terr_lookup_pub.get_winners(p_api_version_number,
1084: p_init_msg_list,
1085: ddp_trans_rec,
1086: p_source_id,
1087: p_trans_id,
1102:
1103:
1104:
1105:
1106: jtf_terr_lookup_pub_w.rosetta_table_copy_out_p7(ddx_winners_tbl, p10_a0
1107: , p10_a1
1108: , p10_a2
1109: , p10_a3
1110: , p10_a4
1143: , p10_a37
1144: );
1145: end;
1146:
1147: end jtf_terr_lookup_pub_w;
1148: