[Home] [Help]
PACKAGE BODY: APPS.BIS_APPLICATION_PVT
Source
1 PACKAGE BODY BIS_Application_PVT AS
2 /* $Header: BISVAPPB.pls 115.6 99/09/17 19:17:15 porting ship $ */
3 --
4 /*
5 REM +=======================================================================+
6 REM | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
7 REM | All rights reserved. |
8 REM +=======================================================================+
9 REM | FILENAME |
10 REM | BISVAPPS.pls |
11 REM | |
12 REM | DESCRIPTION |
13 REM | Public record specifications for application
14 REM |
15 REM | NOTES |
16 REM | |
17 REM | HISTORY |
18 REM | 15-MAR-99 Ansingha Creation
19 REM |
20 REM +=======================================================================+
21 */
22 --
23 G_PKG_NAME CONSTANT VARCHAR2(30):='BIS_APPLICATION_PVT';
24 --
25 PROCEDURE Retrieve_Applications
26 ( p_api_version IN NUMBER
27 , x_Application_tbl OUT BIS_Application_PVT.Application_Tbl_Type
28 , x_return_status OUT VARCHAR2
29 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
30 )
31 IS
32
33 cursor app_cursor is
34 select application_id, APPLICATION_SHORT_NAME, APPLICATION_NAME
35 from fnd_application_vl
36 ORDER by UPPER(APPLICATION_NAME);
37
38 l_rec Application_Rec_Type;
39
40 BEGIN
41
42 x_return_status := FND_API.G_RET_STS_SUCCESS;
43
44 for cr in app_cursor LOOP
45
46 l_rec.Application_ID := cr.Application_ID;
47 l_rec.Application_Short_Name := cr.Application_Short_Name;
48 l_rec.Application_Name := cr.Application_Name;
49 x_Application_tbl(x_Application_tbl.COUNT + 1) := l_rec;
50
51 END LOOP;
52
53 IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
54
55 EXCEPTION
56 WHEN NO_DATA_FOUND THEN
57 x_return_status := FND_API.G_RET_STS_ERROR ;
58 IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
59 RAISE FND_API.G_EXC_ERROR;
60 when FND_API.G_EXC_ERROR then
61 x_return_status := FND_API.G_RET_STS_ERROR ;
62 IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
63 RAISE FND_API.G_EXC_ERROR;
64 when FND_API.G_EXC_UNEXPECTED_ERROR then
65 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
66 IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
67 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68 when others then
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70 IF app_cursor%ISOPEN THEN CLOSE app_cursor; END IF;
71 BIS_UTILITIES_PVT.Add_Error_Message
72 ( p_error_msg_id => SQLCODE
73 , p_error_description => SQLERRM
74 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
75 );
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77
78 END Retrieve_Applications;
79 --
80 -- Validates measure
81 PROCEDURE Validate_Application
82 ( p_api_version IN NUMBER
83 , p_Application_Rec IN BIS_Application_PVT.Application_Rec_Type
84 , x_return_status OUT VARCHAR2
85 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
86 )
87 IS
88
89 l_dummy number;
90
91 CURSOR chk_application is
92 select 1
93 from fnd_application_vl
94 where Application_id = p_Application_Rec.Application_id;
95
96 begin
97 x_return_status := FND_API.G_RET_STS_SUCCESS;
98
99 if (p_Application_Rec.Application_id <>
100 BIS_Application_PVT.G_NO_APPLICATION_ID) then
101 if(BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Rec.Application_id)
102 =FND_API.G_TRUE) then
103 open chk_application;
104 fetch chk_application into l_dummy;
105 if (chk_application%NOTFOUND) then
106 close chk_application;
107 -- POPULATE THE error table
108 BIS_UTILITIES_PVT.Add_Error_Message
109 ( p_error_msg_name => 'BIS_INVALID_APPLICAIOTN_ID'
110 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
111 , p_error_proc_name => G_PKG_NAME||'.Validate_Application'
112 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
113 );
114
115 RAISE FND_API.G_EXC_ERROR;
116 end if;
117 close chk_application;
118 end if;
119 end if;
120
121 EXCEPTION
122 WHEN NO_DATA_FOUND THEN
123 x_return_status := FND_API.G_RET_STS_ERROR ;
124 IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
125 RAISE FND_API.G_EXC_ERROR;
126 when FND_API.G_EXC_ERROR then
127 x_return_status := FND_API.G_RET_STS_ERROR ;
128 IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
129 RAISE FND_API.G_EXC_ERROR;
130 when FND_API.G_EXC_UNEXPECTED_ERROR then
131 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132 IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
133 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134 when others then
135 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
136 IF chk_application%ISOPEN THEN CLOSE chk_application; END IF;
137 BIS_UTILITIES_PVT.Add_Error_Message
138 ( p_error_msg_id => SQLCODE
139 , p_error_description => SQLERRM
140 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
141 );
142 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143
144 END Validate_Application;
145 --
146 --
147 -- Value - ID conversion
148 PROCEDURE Value_ID_Conversion
149 ( p_api_version IN NUMBER
150 , p_Application_Rec IN BIS_Application_PVT.Application_Rec_Type
151 , x_Application_Rec OUT BIS_Application_PVT.Application_Rec_Type
152 , x_return_status OUT VARCHAR2
153 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
154 )
155 IS
156
157 BEGIN
158
159 x_return_status := FND_API.G_RET_STS_SUCCESS;
160 x_Application_Rec := p_Application_Rec;
161
162 BIS_Application_PVT.Value_ID_Conversion
163 ( p_api_version
164 , p_Application_Rec.Application_Short_Name
165 , p_Application_Rec.Application_Name
166 , x_Application_Rec.Application_ID
167 , x_return_status
168 , x_error_Tbl
169 );
170
171 EXCEPTION
172 WHEN NO_DATA_FOUND THEN
173 x_return_status := FND_API.G_RET_STS_ERROR ;
174 RAISE FND_API.G_EXC_ERROR;
175 when FND_API.G_EXC_ERROR then
176 x_return_status := FND_API.G_RET_STS_ERROR ;
177 RAISE FND_API.G_EXC_ERROR;
178 when FND_API.G_EXC_UNEXPECTED_ERROR then
179 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181 when others then
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183 BIS_UTILITIES_PVT.Add_Error_Message
184 ( p_error_msg_id => SQLCODE
185 , p_error_description => SQLERRM
186 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Applications'
187 );
188 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189
190 END Value_ID_Conversion;
191 --
192 PROCEDURE Value_ID_Conversion
193 ( p_api_version IN NUMBER
194 , p_Application_Short_Name IN VARCHAR2
195 , p_Application_Name IN VARCHAR2
196 , x_Application_ID OUT NUMBER
197 , x_return_status OUT VARCHAR2
198 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
199 )
200 IS
201
202 BEGIN
203 x_return_status := FND_API.G_RET_STS_SUCCESS;
204
205 if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Short_Name)
206 = FND_API.G_TRUE) then
207 SELECT Application_id into x_Application_ID
208 FROM fnd_application_vl
209 WHERE Application_short_name = p_Application_Short_Name;
210 elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Name)
211 = FND_API.G_TRUE) then
212 SELECT Application_id into x_Application_ID
213 FROM fnd_application_vl
214 WHERE Application_name = p_Application_Name;
215 else
216 -- POLPULATE ERROR TABLE
217 RAISE FND_API.G_EXC_ERROR;
218 end if;
219
220 EXCEPTION
221 WHEN NO_DATA_FOUND THEN
222 x_return_status := FND_API.G_RET_STS_ERROR ;
223 RAISE FND_API.G_EXC_ERROR;
224 when FND_API.G_EXC_ERROR then
225 x_return_status := FND_API.G_RET_STS_ERROR ;
226 RAISE FND_API.G_EXC_ERROR;
227 when FND_API.G_EXC_UNEXPECTED_ERROR then
228 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
229 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230 when others then
231 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232 BIS_UTILITIES_PVT.Add_Error_Message
233 ( p_error_msg_id => SQLCODE
234 , p_error_description => SQLERRM
235 , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
236 );
237 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238
239 END Value_ID_Conversion;
240 --
241 END BIS_Application_PVT;