[Home] [Help]
PACKAGE BODY: APPS.BIS_PMV_REGION_PVT
Source
1 PACKAGE BODY BIS_PMV_REGION_PVT AS
2 /* $Header: BISVREPB.pls 120.1 2006/02/07 20:28:27 hengliu noship $ */
3 /*
4 REM +=======================================================================+
5 REM | Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA |
6 REM | All rights reserved. |
7 REM +=======================================================================+
8 REM | FILENAME |
9 REM | BISVREPB.pls |
10 REM | |
11 REM | DESCRIPTION |
12 REM | Module: Private API for Region |
13 REM | |
14 REM | NOTES |
15 REM | 02/03/04 nbarik Created. |
16 REM | 05/22/04 adrao Added Exception Handling |
17 REM | 02/07/06 hengliu Bug#4955493 - Cannot overwrite global menu/title |
18 REM +=======================================================================+
19 */
20
21 PROCEDURE CREATE_REGION
22 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
23 , p_Report_Region_Rec IN BIS_AK_REGION_PUB.Bis_Region_Rec_Type
24 , x_return_status OUT NOCOPY VARCHAR2
25 , x_msg_count OUT NOCOPY NUMBER
26 , x_msg_data OUT NOCOPY VARCHAR2
27 ) IS
28 BEGIN
29 FND_MSG_PUB.Initialize;
30 x_return_status := FND_API.G_RET_STS_SUCCESS;
31 BIS_AK_REGION_PUB.INSERT_REGION_ROW
32 ( p_commit => p_commit
33 , p_Report_Region_Rec => p_Report_Region_Rec
34 , x_return_status => x_return_status
35 , x_msg_count => x_msg_count
36 , x_msg_data => x_msg_data
37 );
38 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
39 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40 END IF;
41
42 BIS_REGION_EXTENSION_PVT.CREATE_REGION_EXTN_RECORD
43 ( p_commit => p_commit
44 , pRegionCode => p_Report_Region_Rec.Region_Code
45 , pRegionAppId => p_Report_Region_Rec.Region_Application_Id
46 , pAttribute16 => p_Report_Region_Rec.Kpi_Id || ''
47 , pAttribute17 => p_Report_Region_Rec.Analysis_Option_Id || ''
48 , pAttribute18 => p_Report_Region_Rec.Dim_Set_Id || ''
49 , pAttribute19 => p_Report_Region_Rec.Global_Menu || ''
50 , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
51 );
52 x_return_status := FND_API.G_RET_STS_SUCCESS;
53 EXCEPTION
54 WHEN FND_API.G_EXC_ERROR THEN
55 IF (x_msg_data IS NULL) THEN
56 FND_MSG_PUB.Count_And_Get
57 ( p_encoded => FND_API.G_FALSE
58 , p_count => x_msg_count
59 , p_data => x_msg_data
60 );
61 END IF;
62 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
63 x_return_status := FND_API.G_RET_STS_ERROR;
64 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65 IF (x_msg_data IS NULL) THEN
66 FND_MSG_PUB.Count_And_Get
67 ( p_encoded => FND_API.G_FALSE
68 , p_count => x_msg_count
69 , p_data => x_msg_data
70 );
71 END IF;
72 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
74 WHEN OTHERS THEN
75 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76 IF (x_msg_data IS NOT NULL) THEN
77 x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.CREATE_REGION ';
78 ELSE
79 x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.CREATE_REGION ';
80 END IF;
81 --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
82 END CREATE_REGION;
83
84 PROCEDURE UPDATE_REGION
85 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
86 , p_Report_Region_Rec IN BIS_AK_REGION_PUB.Bis_Region_Rec_Type
87 , x_return_status OUT NOCOPY VARCHAR2
88 , x_msg_count OUT NOCOPY NUMBER
89 , x_msg_data OUT NOCOPY VARCHAR2
90 ) IS
91 BEGIN
92 FND_MSG_PUB.Initialize;
93 x_return_status := FND_API.G_RET_STS_SUCCESS;
94 BIS_AK_REGION_PUB.UPDATE_REGION_ROW
95 ( p_commit => p_commit
96 , p_Report_Region_Rec => p_Report_Region_Rec
97 , x_return_status => x_return_status
98 , x_msg_count => x_msg_count
99 , x_msg_data => x_msg_data
100 );
101 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
102 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103 END IF;
104
105 BIS_REGION_EXTENSION_PVT.UPDATE_REGION_EXTN_RECORD
106 ( p_commit => p_commit
107 , pRegionCode => p_Report_Region_Rec.Region_Code
108 , pRegionAppId => p_Report_Region_Rec.Region_Application_Id
109 , pAttribute16 => p_Report_Region_Rec.Kpi_Id || ''
110 , pAttribute17 => p_Report_Region_Rec.Analysis_Option_Id || ''
111 , pAttribute18 => p_Report_Region_Rec.Dim_Set_Id || ''
112 , pAttribute19 => p_Report_Region_Rec.Global_Menu || ''
113 , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
114 );
115 x_return_status := FND_API.G_RET_STS_SUCCESS;
116 EXCEPTION
117 WHEN FND_API.G_EXC_ERROR THEN
118 IF (x_msg_data IS NULL) THEN
119 FND_MSG_PUB.Count_And_Get
120 ( p_encoded => FND_API.G_FALSE
121 , p_count => x_msg_count
122 , p_data => x_msg_data
123 );
124 END IF;
125 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
126 x_return_status := FND_API.G_RET_STS_ERROR;
127 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128 IF (x_msg_data IS NULL) THEN
129 FND_MSG_PUB.Count_And_Get
130 ( p_encoded => FND_API.G_FALSE
131 , p_count => x_msg_count
132 , p_data => x_msg_data
133 );
134 END IF;
135 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
137 WHEN OTHERS THEN
138 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139 IF (x_msg_data IS NOT NULL) THEN
140 x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.UPDATE_REGION ';
141 ELSE
142 x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.UPDATE_REGION ';
143 END IF;
144 --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
145 END UPDATE_REGION;
146
147 PROCEDURE DELETE_REGION
148 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
149 , p_Region_Code IN VARCHAR2
150 , p_Region_Application_Id IN NUMBER
151 , x_return_status OUT NOCOPY VARCHAR2
152 , x_msg_count OUT NOCOPY NUMBER
153 , x_msg_data OUT NOCOPY VARCHAR2
154 ) IS
155 BEGIN
156 FND_MSG_PUB.Initialize;
157 x_return_status := FND_API.G_RET_STS_SUCCESS;
158 BIS_AK_REGION_PUB.DELETE_REGION_ROW
159 ( p_REGION_CODE => p_Region_Code
160 , p_REGION_APPLICATION_ID => p_Region_Application_Id
161 , x_return_status => x_return_status
162 , x_msg_count => x_msg_count
163 , x_msg_data => x_msg_data
164 , p_commit => p_commit
165 );
166 IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
167 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168 END IF;
169
170 BIS_REGION_EXTENSION_PVT.DELETE_REGION_EXTN_RECORD
171 ( p_commit => p_commit
172 , pRegionCode => p_Region_Code
173 , pRegionAppId => p_Region_Application_Id
174 );
175 x_return_status := FND_API.G_RET_STS_SUCCESS;
176 EXCEPTION
177 WHEN FND_API.G_EXC_ERROR THEN
178 IF (x_msg_data IS NULL) THEN
179 FND_MSG_PUB.Count_And_Get
180 ( p_encoded => FND_API.G_FALSE
181 , p_count => x_msg_count
182 , p_data => x_msg_data
183 );
184 END IF;
185 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
186 x_return_status := FND_API.G_RET_STS_ERROR;
187 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188 IF (x_msg_data IS NULL) THEN
189 FND_MSG_PUB.Count_And_Get
190 ( p_encoded => FND_API.G_FALSE
191 , p_count => x_msg_count
192 , p_data => x_msg_data
193 );
194 END IF;
195 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196 --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
197 WHEN OTHERS THEN
198 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199 IF (x_msg_data IS NOT NULL) THEN
200 x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.DELETE_REGION ';
201 ELSE
202 x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.DELETE_REGION ';
203 END IF;
204 --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
205 END DELETE_REGION;
206
207 END BIS_PMV_REGION_PVT;