PACKAGE BODY: APPS.CSI_GIS_INSTANCE_GEO_LOC_PVT

Source

1 PACKAGE BODY CSI_GIS_INSTANCE_GEO_LOC_PVT AS
2 /* $Header: csivgilb.pls 120.0.12010000.2 2008/11/11 13:10:26 jgootyag noship $ */
3 /***************************************************************************
4 --
5 --  Copyright (c) 2008 Oracle Corporation, Redwood Shores, CA, USA
6 --  All rights reserved.
7 --
8 --  FILENAME
9 --
10 --      csivgilb.pls
11 --
12 --  DESCRIPTION
13 --
14 --      Body of package CSI_GIS_INSTANCE_GEO_LOC_PVT
15 --
16 --  NOTES
17 --
18 --  HISTORY
19 --
20 --  11-NOV-2008     jgootyag     Initial Creation
21 ***************************************************************************/
22 
23 PROCEDURE INSERT_ROW
24 (
25     p_instance_id             IN          NUMBER
26    ,p_inst_latitude           IN          NUMBER
27    ,p_inst_longitude          IN          NUMBER
28    , x_return_status           OUT NOCOPY  VARCHAR2
29 )  IS
30 
31 BEGIN
32 
33 	x_return_status         := FND_API.G_RET_STS_SUCCESS;
34 
35 	    INSERT INTO CSI_II_GEOLOCATIONS
36 	     (
37 	      INSTANCE_ID,
38 	      INST_LATITUDE,
39 	      INST_LONGITUDE,
40 	      VALID_FLAG,
41 	      CREATION_DATE,
42 	      CREATED_BY,
43 	      LAST_UPDATED_BY,
44 	      LAST_UPDATE_LOGIN,
45 	      LAST_UPDATE_DATE
46 	     )
47 	     VALUES
48 	     (
49 	      p_instance_id,
50           p_inst_latitude,
51 	      p_inst_longitude,
52 	      'Y',
53 	      SYSDATE,
54           FND_GLOBAL.user_id,
55 	      FND_GLOBAL.user_id,
56 	      FND_GLOBAL.login_id,
57           SYSDATE
58          );
59 
60    EXCEPTION
61 
62      WHEN OTHERS THEN
63             x_return_status         := FND_API.G_RET_STS_ERROR;
64 
65   END INSERT_ROW;
66 
67 
68  PROCEDURE UPDATE_ROW
69   ( p_instance_id             IN          NUMBER
70    ,p_inst_latitude           IN          NUMBER
71    ,p_inst_longitude          IN          NUMBER
72    ,p_valid_flag              IN          VARCHAR2
73    ,x_return_status           OUT NOCOPY  VARCHAR2
74 )   IS
75 
76   l_instance_id NUMBER;
77 
78 BEGIN
79 
80  	x_return_status         := FND_API.G_RET_STS_SUCCESS;
81 
82 	IF p_valid_flag = 'N' THEN
83 
84         UPDATE CSI_II_GEOLOCATIONS
85 	    SET
86 	      VALID_FLAG         =  p_valid_flag,
87 	      LAST_UPDATED_BY    =  FND_GLOBAL.user_id,
88 	      LAST_UPDATE_LOGIN  =  FND_GLOBAL.login_id,
89 	      LAST_UPDATE_DATE   =  SYSDATE
90 
91 	    WHERE
92 	      INSTANCE_ID = p_instance_id;
93 	ELSE
94 	          UPDATE CSI_II_GEOLOCATIONS
95 	    SET
96 	      INST_LATITUDE           =  p_inst_latitude,
97 	      INST_LONGITUDE          =  p_inst_longitude,
98 	      VALID_FLAG         =  NVL(p_valid_flag,'Y'),
99 	      LAST_UPDATED_BY    =  FND_GLOBAL.user_id,
100 	      LAST_UPDATE_LOGIN  =  FND_GLOBAL.login_id,
101 	      LAST_UPDATE_DATE   =  SYSDATE
102 
103 	    WHERE
104 	      INSTANCE_ID = p_instance_id;
105 	END IF;
106 
107 
108   EXCEPTION
109      WHEN NO_DATA_FOUND THEN
110 	           x_return_status         := FND_API.G_RET_STS_SUCCESS;
111 			   Return;
112 
113      WHEN OTHERS THEN
114                x_return_status := FND_API.G_RET_STS_ERROR;
115 
116   END UPDATE_ROW;
117 END CSI_GIS_INSTANCE_GEO_LOC_PVT;