[Home] [Help]
PACKAGE BODY: APPS.CSF_SPATIAL_GEO_TOOLS
Source
1 PACKAGE BODY CSF_SPATIAL_GEO_TOOLS AS
2 /* $Header: CSFPGEOWB.pls 120.1 2011/02/24 08:50:26 sseshaiy noship $*/
3
4 -- Start of Comments
5 -- API Name : CSF_LF_ReverseGeoCoding
6 -- Type : Public
7 -- Pre-req :
8 -- Function : Returns address after doing reverse geo coding
9 -- Parameters :
10 -- IN
11 -- p_api_version IN NUMBER required :=
12 -- p_init_msg_list IN VARCHAR2 = NULL optional :=
13 -- p_latitude IN NUMBER required :=
14 -- p_longitude IN NUMBER required :=
15 -- p_country OUT VARCHAR2 :=
16 -- p_state OUT VARCHAR2 :=
17 -- p_county OUT VARCHAR2 :=
18 -- p_city OUT VARCHAR2 :=
19 -- p_roadname OUT VARCHAR2 :=
20 -- p_postalcode OUT VARCHAR2 :=
21 -- p_bnum OUT VARCHAR2 :=
22 -- p_dist OUT VARCHAR2 :=
23 -- p_accuracy_lvl OUT VARCHAR2 :=
24 -- x_msg_count OUT NUMBER :=
25 -- x_msg_data OUT VARCHAR2 :=
26 -- x_return_status OUT VARCHAR2 :=
27 -- Version:
28 -- End Comments
29 PROCEDURE CSF_LF_ReverseGeoCoding
30 ( p_api_version IN NUMBER
31 , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
32 , p_latitude IN NUMBER
33 , p_longitude IN NUMBER
34 , p_dataset IN VARCHAR2
35 , p_country OUT NOCOPY VARCHAR2
36 , p_state OUT NOCOPY VARCHAR2
37 , p_county OUT NOCOPY VARCHAR2
38 , p_city OUT NOCOPY VARCHAR2
39 , p_roadname OUT NOCOPY VARCHAR2
40 , p_postalcode OUT NOCOPY VARCHAR2
41 , p_bnum OUT NOCOPY VARCHAR2
42 , p_dist OUT NOCOPY VARCHAR2
43 , p_accuracy_lvl OUT NOCOPY VARCHAR2
44 , x_msg_count OUT NOCOPY NUMBER
45 , x_msg_data OUT NOCOPY VARCHAR2
46 , x_return_status OUT NOCOPY VARCHAR2
47 )
48
49 IS
50 l_api_name CONSTANT VARCHAR2(30) := 'CSF_LF_ReverseGeoCoding';
51 l_api_version CONSTANT NUMBER := 1.0;
52
53 BEGIN
54
55 if ( l_api_version <> p_api_version ) then
56 raise csf_lf_version_error;
57 end if;
58
59 if ( p_init_msg_list = 'TRUE' ) then
60 x_msg_count := 0; /* FND_MSG_PUB.initialize; */
61 end if;
62
63 x_return_status := FND_API.G_RET_STS_SUCCESS;
64 --
65 -- Validate parameters
66 --
67
68 if ( p_latitude = NULL or p_latitude = '' ) then
69 raise CSF_LF_LATITUDE_NOT_SET_ERROR;
70 end if;
71
72 if ( p_longitude = NULL or p_longitude = '' ) then
73 raise CSF_LF_LONGITUDE_NOT_SET_ERROR;
74 end if;
75
76 --Initialize message count and mssage data.
77 x_msg_count := 0;
78 x_msg_data := 'Success';
79
80 csf_lf_geopvt.CSF_LF_ResolveGEOAddress(
81 p_api_version => l_api_version
82 , p_latitude => p_latitude
83 , p_longitude => p_longitude
84 , p_dataset => p_dataset
85 , p_country => p_country
86 , p_state => p_state
87 , p_county => p_county
88 , p_city => p_city
89 , p_roadname => p_roadname
90 , p_postalCode => p_postalcode
91 , p_bnum => p_bnum
92 , p_dist => p_dist
93 , p_accuracy_lvl => p_accuracy_lvl
94 , x_msg_count => x_msg_count
95 , x_msg_data => x_msg_data
96 , x_return_status => x_return_status);
97
98 EXCEPTION
99 when CSF_LF_VERSION_ERROR then
100 x_return_status := FND_API.G_RET_STS_ERROR;
101 x_msg_count := 1;
102 x_msg_data := 'Incompatibale version';
103 when others then
104 x_return_status := FND_API.G_RET_STS_ERROR;
105
106 END CSF_LF_ReverseGeoCoding;
107
108 END CSF_SPATIAL_GEO_TOOLS ;