[Home] [Help]
1: PACKAGE BODY CSI_GIS_INSTANCE_LOC_PUB AS
2: /* $Header: csipgilb.pls 120.0.12010000.10 2009/01/09 08:54:19 jgootyag noship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2008 Oracle Corporation, Redwood Shores, CA, USA
10: -- csipgilb.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package CSI_GIS_INSTANCE_LOC_PUB
15: --
16: -- NOTES
17: --
18: -- HISTORY
19: --
20: -- 11-NOV-2008 jgootyag Initial Creation
21: ***************************************************************************/
22:
23: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_GIS_INSTANCE_LOC_PUB';
24: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csipgisb.pls';
25:
26: /*Procedure to create or update asset/instance geolocation latitude and longitude values*/
27: PROCEDURE CREATEUPDATE_INST_GEOLOC_INFO
27: PROCEDURE CREATEUPDATE_INST_GEOLOC_INFO
28: (
29: p_api_version IN NUMBER
30: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
31: ,p_CSI_instance_geoloc_tbl IN CSI_GIS_INSTANCE_LOC_PUB.csi_instance_geoloc_tbl_type
32: ,p_asset_context IN VARCHAR2 :='EAM'
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
35: ,x_msg_data OUT NOCOPY VARCHAR2
514: l_msg_count NUMBER;
515: l_msg_data VARCHAR2(4000);
516: l_index BINARY_INTEGER:=0;
517: l_instance_id NUMBER;
518: l_csi_instance_geoloc_tbl CSI_GIS_INSTANCE_LOC_PUB.CSI_instance_geoloc_tbl_type;
519: l_count NUMBER;
520: l_geocode_format VARCHAR2(3);
521:
522: CURSOR import_inst_geo_loc_cur IS
633:
634: /*calling create update API*/
635: IF l_csi_instance_geoloc_tbl.count > 0 THEN
636:
637: CSI_GIS_INSTANCE_LOC_PUB.CREATEUPDATE_INST_GEOLOC_INFO(p_api_version => 1,
638: p_commit => FND_API.G_TRUE
639: ,p_csi_instance_geoloc_tbl => l_csi_instance_geoloc_tbl
640: ,x_return_status => l_return_status
641: ,x_msg_count => l_msg_count
646: csi_t_gen_utility_pvt.add( 'Completed processing records');
647:
648: END IMPORT_INSTANCE_GEO_LOCATION;
649:
650: END CSI_GIS_INSTANCE_LOC_PUB;