[Home] [Help]
PACKAGE BODY: APPS.PV_SELATTVAL_PUB
Source
1 PACKAGE BODY PV_SELATTVAL_PUB as
2 /* $Header: pvrpsavb.pls 120.0 2005/05/27 16:15:17 appldev noship $ */
3 -- Start of Comments
4 -- Package name : PV_SELATTVAL_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_SELATTVAL_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvrpsavb.pls';
13
14 AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15 AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16 AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17
18 PROCEDURE Create_selattval(
19 P_Api_Version_Number IN NUMBER,
20 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23 P_Identity_Resource_Id IN NUMBER,
24 P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type
25 := PV_RULE_RECTYPE_PUB.G_MISS_SELATTVAL_REC,
26 X_ATTR_VALUE_ID OUT NOCOPY NUMBER,
27 X_Return_Status OUT NOCOPY VARCHAR2,
28 X_Msg_Count OUT NOCOPY NUMBER,
29 X_Msg_Data OUT NOCOPY VARCHAR2
30 )
31
32 IS
33 l_api_name CONSTANT VARCHAR2(30) := 'Create_selattval';
34 l_api_version_number CONSTANT NUMBER := 2.0;
35 BEGIN
36 -- Standard Start of API savepoint
37 SAVEPOINT CREATE_SELATTVAL_PUB;
38
39 -- Standard call to check for call compatibility.
40 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
41 p_api_version_number,
42 l_api_name,
43 G_PKG_NAME)
44 THEN
45 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46 END IF;
47
48
49 -- Initialize message list if p_init_msg_list is set to TRUE.
50 IF FND_API.to_Boolean( p_init_msg_list )
51 THEN
52 FND_MSG_PUB.initialize;
53 END IF;
54
55
56 -- Debug Message
57 IF (AS_DEBUG_HIGH_ON) THEN
58
59 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
60 END IF;
61
62 IF (AS_DEBUG_HIGH_ON) THEN
63
64
65
66 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
67
68 END IF;
69
70 -- Initialize API return status to SUCCESS
71 x_return_status := FND_API.G_RET_STS_SUCCESS;
72
73 --
74 -- API body
75 --
76
77 -- Calling Private package: Create_SELATTVAL
78 PV_selattval_PVT.Create_selattval(
79 P_Api_Version_Number => 2.0,
80 P_Init_Msg_List => FND_API.G_FALSE,
81 P_Commit => FND_API.G_FALSE,
82 P_Validation_Level => P_Validation_Level,
83 P_Identity_Resource_Id => P_Identity_Resource_Id,
84 P_SELATTVAL_Rec => p_SELATTVAL_Rec ,
85 X_ATTR_VALUE_ID => x_ATTR_VALUE_ID,
86 X_Return_Status => x_return_status,
87 X_Msg_Count => x_msg_count,
88 X_Msg_Data => x_msg_data);
89
90 -- Check return status from the above procedure call
91 IF x_return_status = FND_API.G_RET_STS_ERROR then
92 raise FND_API.G_EXC_ERROR;
93 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
94 raise FND_API.G_EXC_UNEXPECTED_ERROR;
95 END IF;
96
97 --
98 -- End of API body.
99 --
100
101 -- Standard check for p_commit
102 IF FND_API.to_Boolean( p_commit )
103 THEN
104 COMMIT WORK;
105 END IF;
106
107
108 -- Debug Message
109 IF (AS_DEBUG_HIGH_ON) THEN
110
111 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
112 END IF;
113
114 IF (AS_DEBUG_HIGH_ON) THEN
115
116
117
118 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
119
120 END IF;
121
122 -- Standard call to get message count and if count is 1, get message info.
123 FND_MSG_PUB.Count_And_Get
124 ( p_count => x_msg_count,
125 p_data => x_msg_data
126 );
127
128 EXCEPTION
129 WHEN FND_API.G_EXC_ERROR THEN
130 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
131 P_API_NAME => L_API_NAME
132 ,P_PKG_NAME => G_PKG_NAME
133 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
134 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
135 ,X_MSG_COUNT => X_MSG_COUNT
136 ,X_MSG_DATA => X_MSG_DATA
137 ,X_RETURN_STATUS => X_RETURN_STATUS);
138
139 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
141 P_API_NAME => L_API_NAME
142 ,P_PKG_NAME => G_PKG_NAME
143 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
144 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
145 ,X_MSG_COUNT => X_MSG_COUNT
146 ,X_MSG_DATA => X_MSG_DATA
147 ,X_RETURN_STATUS => X_RETURN_STATUS);
148
149 WHEN OTHERS THEN
150 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
151 P_API_NAME => L_API_NAME
152 ,P_PKG_NAME => G_PKG_NAME
153 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
154 ,P_SQLCODE => SQLCODE
155 ,P_SQLERRM => SQLERRM
156 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
157 ,X_MSG_COUNT => X_MSG_COUNT
158 ,X_MSG_DATA => X_MSG_DATA
159 ,X_RETURN_STATUS => X_RETURN_STATUS);
160 End Create_selattval;
161
162
163 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
164 PROCEDURE Update_selattval(
165 P_Api_Version_Number IN NUMBER,
166 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
167 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
168 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169 P_Identity_Resource_Id IN NUMBER,
170 P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
171 X_Return_Status OUT NOCOPY VARCHAR2,
172 X_Msg_Count OUT NOCOPY NUMBER,
173 X_Msg_Data OUT NOCOPY VARCHAR2
174 )
175
176 IS
177 l_api_name CONSTANT VARCHAR2(30) := 'Update_selattval';
178 l_api_version_number CONSTANT NUMBER := 2.0;
179 BEGIN
180 -- Standard Start of API savepoint
181 SAVEPOINT UPDATE_SELATTVAL_PUB;
182
183 -- Standard call to check for call compatibility.
184 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
185 p_api_version_number,
186 l_api_name,
187 G_PKG_NAME)
188 THEN
189 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
190 END IF;
191
192
193 -- Initialize message list if p_init_msg_list is set to TRUE.
194 IF FND_API.to_Boolean( p_init_msg_list )
195 THEN
196 FND_MSG_PUB.initialize;
197 END IF;
198
199
200 -- Debug Message
201 IF (AS_DEBUG_HIGH_ON) THEN
202
203 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
204 END IF;
205 IF (AS_DEBUG_HIGH_ON) THEN
206
207 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
208 END IF;
209
210 -- Initialize API return status to SUCCESS
211 x_return_status := FND_API.G_RET_STS_SUCCESS;
212
213 --
214 -- API body
215 --
216
217 PV_selattval_PVT.Update_selattval(
218 P_Api_Version_Number => 2.0,
219 P_Init_Msg_List => FND_API.G_FALSE,
220 P_Commit => p_commit,
221 P_Validation_Level => P_Validation_Level,
222 P_Identity_Resource_Id => P_Identity_Resource_Id,
223 P_SELATTVAL_Rec => p_SELATTVAL_Rec ,
224 X_Return_Status => x_return_status,
225 X_Msg_Count => x_msg_count,
226 X_Msg_Data => x_msg_data);
227
228 -- Check return status from the above procedure call
229 IF x_return_status = FND_API.G_RET_STS_ERROR then
230 raise FND_API.G_EXC_ERROR;
231 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
232 raise FND_API.G_EXC_UNEXPECTED_ERROR;
233 END IF;
234
235 --
236 -- End of API body
237 --
238
239 -- Standard check for p_commit
240 IF FND_API.to_Boolean( p_commit )
241 THEN
242 COMMIT WORK;
243 END IF;
244
245
246 -- Debug Message
247 IF (AS_DEBUG_HIGH_ON) THEN
248
249 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
250 END IF;
251
252 IF (AS_DEBUG_HIGH_ON) THEN
253
254
255
256 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
257
258 END IF;
259
260 -- Standard call to get message count and if count is 1, get message info.
261 FND_MSG_PUB.Count_And_Get
262 ( p_count => x_msg_count,
263 p_data => x_msg_data
264 );
265
266 EXCEPTION
267 WHEN FND_API.G_EXC_ERROR THEN
268 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
269 P_API_NAME => L_API_NAME
270 ,P_PKG_NAME => G_PKG_NAME
271 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
272 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
273 ,X_MSG_COUNT => X_MSG_COUNT
274 ,X_MSG_DATA => X_MSG_DATA
275 ,X_RETURN_STATUS => X_RETURN_STATUS);
276
277 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
279 P_API_NAME => L_API_NAME
280 ,P_PKG_NAME => G_PKG_NAME
281 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
282 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
283 ,X_MSG_COUNT => X_MSG_COUNT
284 ,X_MSG_DATA => X_MSG_DATA
285 ,X_RETURN_STATUS => X_RETURN_STATUS);
286
287 WHEN OTHERS THEN
288 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
289 P_API_NAME => L_API_NAME
290 ,P_PKG_NAME => G_PKG_NAME
291 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
292 ,P_SQLCODE => SQLCODE
293 ,P_SQLERRM => SQLERRM
294 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
295 ,X_MSG_COUNT => X_MSG_COUNT
296 ,X_MSG_DATA => X_MSG_DATA
297 ,X_RETURN_STATUS => X_RETURN_STATUS);
298 End Update_selattval;
299
300
301 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
302 -- The Master delete procedure may not be needed depends on different business requirements.
303 PROCEDURE Delete_selattval(
304 P_Api_Version_Number IN NUMBER,
305 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
306 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
307 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
308 P_Identity_Resource_Id IN NUMBER,
309 P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
310 X_Return_Status OUT NOCOPY VARCHAR2,
311 X_Msg_Count OUT NOCOPY NUMBER,
312 X_Msg_Data OUT NOCOPY VARCHAR2
313 )
314
315 IS
316 l_api_name CONSTANT VARCHAR2(30) := 'Delete_selattval';
317 l_api_version_number CONSTANT NUMBER := 2.0;
318 BEGIN
319 -- Standard Start of API savepoint
320 SAVEPOINT DELETE_SELATTVAL_PUB;
321
322 -- Standard call to check for call compatibility.
323 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
324 p_api_version_number,
325 l_api_name,
326 G_PKG_NAME)
327 THEN
328 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
329 END IF;
330
331
332 -- Initialize message list if p_init_msg_list is set to TRUE.
333 IF FND_API.to_Boolean( p_init_msg_list )
334 THEN
335 FND_MSG_PUB.initialize;
336 END IF;
337
338
339 -- Debug Message
340 IF (AS_DEBUG_HIGH_ON) THEN
341
342 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
343 END IF;
344
345 IF (AS_DEBUG_HIGH_ON) THEN
346
347
348
349 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
350
351 END IF;
352
353 -- Initialize API return status to SUCCESS
354 x_return_status := FND_API.G_RET_STS_SUCCESS;
355
356 --
357 -- API body
361 P_Api_Version_Number => 2.0,
358 --
359
360 PV_selattval_PVT.Delete_selattval(
362 P_Init_Msg_List => FND_API.G_FALSE,
363 P_Commit => p_commit,
364 P_Validation_Level => p_Validation_Level,
365 P_Identity_Resource_Id => P_Identity_Resource_Id,
366 P_SELATTVAL_Rec => p_SELATTVAL_Rec,
367 X_Return_Status => x_return_status,
368 X_Msg_Count => x_msg_count,
369 X_Msg_Data => x_msg_data);
370
371
372 -- Check return status from the above procedure call
373 IF x_return_status = FND_API.G_RET_STS_ERROR then
374 raise FND_API.G_EXC_ERROR;
375 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
376 raise FND_API.G_EXC_UNEXPECTED_ERROR;
377 END IF;
378
379 --
380 -- End of API body
381 --
382
383 -- Standard check for p_commit
384 IF FND_API.to_Boolean( p_commit )
385 THEN
386 COMMIT WORK;
387 END IF;
388
389
390 -- Debug Message
391 IF (AS_DEBUG_HIGH_ON) THEN
392
393 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
394 END IF;
395
396 IF (AS_DEBUG_HIGH_ON) THEN
397
398
399
400 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
401
402 END IF;
403
404 -- Standard call to get message count and if count is 1, get message info.
405 FND_MSG_PUB.Count_And_Get
406 ( p_count => x_msg_count,
407 p_data => x_msg_data
408 );
409
410 EXCEPTION
411 WHEN FND_API.G_EXC_ERROR THEN
412 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
413 P_API_NAME => L_API_NAME
414 ,P_PKG_NAME => G_PKG_NAME
415 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
416 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
417 ,X_MSG_COUNT => X_MSG_COUNT
418 ,X_MSG_DATA => X_MSG_DATA
419 ,X_RETURN_STATUS => X_RETURN_STATUS);
420
421 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
423 P_API_NAME => L_API_NAME
424 ,P_PKG_NAME => G_PKG_NAME
425 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
426 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
427 ,X_MSG_COUNT => X_MSG_COUNT
428 ,X_MSG_DATA => X_MSG_DATA
429 ,X_RETURN_STATUS => X_RETURN_STATUS);
430
431 WHEN OTHERS THEN
432 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
433 P_API_NAME => L_API_NAME
434 ,P_PKG_NAME => G_PKG_NAME
435 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
436 ,P_SQLCODE => SQLCODE
437 ,P_SQLERRM => SQLERRM
438 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
439 ,X_MSG_COUNT => X_MSG_COUNT
440 ,X_MSG_DATA => X_MSG_DATA
441 ,X_RETURN_STATUS => X_RETURN_STATUS);
442 End Delete_selattval;
443
444 End PV_SELATTVAL_PUB;