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