[Home] [Help]
PACKAGE BODY: APPS.PV_ENTYROUT_PUB
Source
1 PACKAGE BODY PV_ENTYROUT_PUB as
2 /* $Header: pvrpertb.pls 120.0 2005/05/27 16:23:46 appldev noship $ */
3 -- Start of Comments
4 -- Package name : PV_ENTYROUT_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ENTYROUT_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvrpertb.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_entyrout(
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_ENTYROUT_Rec IN PV_RULE_RECTYPE_PUB.ENTYROUT_Rec_Type
25 := PV_RULE_RECTYPE_PUB.G_MISS_ENTYROUT_REC,
26 X_ENTITY_ROUTING_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_entyrout';
34 l_api_version_number CONSTANT NUMBER := 2.0;
35 BEGIN
36 -- Standard Start of API savepoint
37 SAVEPOINT CREATE_ENTYROUT_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_ENTYROUT
78 PV_entyrout_PVT.Create_entyrout(
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_ENTYROUT_Rec => p_ENTYROUT_Rec ,
85 X_ENTITY_ROUTING_ID => x_ENTITY_ROUTING_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_entyrout;
161
162
163 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
164 PROCEDURE Update_entyrout(
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_ENTYROUT_Rec IN PV_RULE_RECTYPE_PUB.ENTYROUT_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_entyrout';
178 l_api_version_number CONSTANT NUMBER := 2.0;
179 BEGIN
180 -- Standard Start of API savepoint
181 SAVEPOINT UPDATE_ENTYROUT_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
206 IF (AS_DEBUG_HIGH_ON) THEN
207
208
209
210 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
211
212 END IF;
213
214 -- Initialize API return status to SUCCESS
215 x_return_status := FND_API.G_RET_STS_SUCCESS;
216
217 --
218 -- API body
219 --
220
221 PV_entyrout_PVT.Update_entyrout(
222 P_Api_Version_Number => 2.0,
223 P_Init_Msg_List => FND_API.G_FALSE,
224 P_Commit => p_commit,
225 P_Validation_Level => P_Validation_Level,
226 P_Identity_Resource_Id => P_Identity_Resource_Id,
227 P_ENTYROUT_Rec => p_ENTYROUT_Rec ,
228 X_Return_Status => x_return_status,
229 X_Msg_Count => x_msg_count,
230 X_Msg_Data => x_msg_data);
231
232 -- Check return status from the above procedure call
233 IF x_return_status = FND_API.G_RET_STS_ERROR then
234 raise FND_API.G_EXC_ERROR;
235 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
236 raise FND_API.G_EXC_UNEXPECTED_ERROR;
237 END IF;
238
239 --
240 -- End of API body
241 --
242
243 -- Standard check for p_commit
244 IF FND_API.to_Boolean( p_commit )
245 THEN
246 COMMIT WORK;
247 END IF;
248
249
250 -- Debug Message
251 IF (AS_DEBUG_HIGH_ON) THEN
252
253 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
254 END IF;
255
256 IF (AS_DEBUG_HIGH_ON) THEN
257
258
259
260 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
261
262 END IF;
263
264 -- Standard call to get message count and if count is 1, get message info.
265 FND_MSG_PUB.Count_And_Get
266 ( p_count => x_msg_count,
267 p_data => x_msg_data
268 );
269
270 EXCEPTION
271 WHEN FND_API.G_EXC_ERROR THEN
272 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
273 P_API_NAME => L_API_NAME
274 ,P_PKG_NAME => G_PKG_NAME
275 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
276 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
277 ,X_MSG_COUNT => X_MSG_COUNT
278 ,X_MSG_DATA => X_MSG_DATA
279 ,X_RETURN_STATUS => X_RETURN_STATUS);
280
281 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
283 P_API_NAME => L_API_NAME
284 ,P_PKG_NAME => G_PKG_NAME
285 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
286 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
287 ,X_MSG_COUNT => X_MSG_COUNT
288 ,X_MSG_DATA => X_MSG_DATA
289 ,X_RETURN_STATUS => X_RETURN_STATUS);
290
291 WHEN OTHERS THEN
292 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
293 P_API_NAME => L_API_NAME
294 ,P_PKG_NAME => G_PKG_NAME
295 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
296 ,P_SQLCODE => SQLCODE
297 ,P_SQLERRM => SQLERRM
298 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
299 ,X_MSG_COUNT => X_MSG_COUNT
300 ,X_MSG_DATA => X_MSG_DATA
301 ,X_RETURN_STATUS => X_RETURN_STATUS);
302 End Update_entyrout;
303
304
305 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
306 -- The Master delete procedure may not be needed depends on different business requirements.
307 PROCEDURE Delete_entyrout(
308 P_Api_Version_Number IN NUMBER,
309 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
310 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
311 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
312 P_Identity_Resource_Id IN NUMBER,
313 P_ENTYROUT_Rec IN PV_RULE_RECTYPE_PUB.ENTYROUT_Rec_Type,
314 X_Return_Status OUT NOCOPY VARCHAR2,
315 X_Msg_Count OUT NOCOPY NUMBER,
316 X_Msg_Data OUT NOCOPY VARCHAR2
317 )
318
319 IS
320 l_api_name CONSTANT VARCHAR2(30) := 'Delete_entyrout';
321 l_api_version_number CONSTANT NUMBER := 2.0;
322 BEGIN
323 -- Standard Start of API savepoint
324 SAVEPOINT DELETE_ENTYROUT_PUB;
325
326 -- Standard call to check for call compatibility.
327 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
328 p_api_version_number,
329 l_api_name,
330 G_PKG_NAME)
331 THEN
332 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333 END IF;
334
335
336 -- Initialize message list if p_init_msg_list is set to TRUE.
337 IF FND_API.to_Boolean( p_init_msg_list )
338 THEN
339 FND_MSG_PUB.initialize;
340 END IF;
341
342
343 -- Debug Message
344 IF (AS_DEBUG_HIGH_ON) THEN
345
346 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
347 END IF;
348
349 IF (AS_DEBUG_HIGH_ON) THEN
350
351
352
353 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
354
355 END IF;
356
357 -- Initialize API return status to SUCCESS
358 x_return_status := FND_API.G_RET_STS_SUCCESS;
359
360 --
361 -- API body
362 --
363
364 PV_entyrout_PVT.Delete_entyrout(
365 P_Api_Version_Number => 2.0,
366 P_Init_Msg_List => FND_API.G_FALSE,
367 P_Commit => p_commit,
368 P_Validation_Level => p_Validation_Level,
369 P_Identity_Resource_Id => P_Identity_Resource_Id,
370 P_ENTYROUT_Rec => p_ENTYROUT_Rec,
371 X_Return_Status => x_return_status,
372 X_Msg_Count => x_msg_count,
373 X_Msg_Data => x_msg_data);
374
375 -- Check return status from the above procedure call
376 IF x_return_status = FND_API.G_RET_STS_ERROR then
377 raise FND_API.G_EXC_ERROR;
378 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
379 raise FND_API.G_EXC_UNEXPECTED_ERROR;
380 END IF;
381
382 --
383 -- End of API body
384 --
385
386 -- Standard check for p_commit
387 IF FND_API.to_Boolean( p_commit )
388 THEN
389 COMMIT WORK;
390 END IF;
391
392
393 -- Debug Message
394 IF (AS_DEBUG_HIGH_ON) THEN
395
396 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
397 END IF;
398
399 IF (AS_DEBUG_HIGH_ON) THEN
400
401
402
403 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
404
405 END IF;
406
407 -- Standard call to get message count and if count is 1, get message info.
408 FND_MSG_PUB.Count_And_Get
409 ( p_count => x_msg_count,
410 p_data => x_msg_data
411 );
412
413 EXCEPTION
414 WHEN FND_API.G_EXC_ERROR THEN
415 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
416 P_API_NAME => L_API_NAME
417 ,P_PKG_NAME => G_PKG_NAME
418 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
419 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
420 ,X_MSG_COUNT => X_MSG_COUNT
421 ,X_MSG_DATA => X_MSG_DATA
422 ,X_RETURN_STATUS => X_RETURN_STATUS);
423
424 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
425 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
426 P_API_NAME => L_API_NAME
427 ,P_PKG_NAME => G_PKG_NAME
428 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
429 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
430 ,X_MSG_COUNT => X_MSG_COUNT
431 ,X_MSG_DATA => X_MSG_DATA
432 ,X_RETURN_STATUS => X_RETURN_STATUS);
433
434 WHEN OTHERS THEN
435 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
436 P_API_NAME => L_API_NAME
437 ,P_PKG_NAME => G_PKG_NAME
438 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
439 ,P_SQLCODE => SQLCODE
440 ,P_SQLERRM => SQLERRM
441 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
442 ,X_MSG_COUNT => X_MSG_COUNT
443 ,X_MSG_DATA => X_MSG_DATA
444 ,X_RETURN_STATUS => X_RETURN_STATUS);
445 End Delete_entyrout;
446
447
448 End PV_ENTYROUT_PUB;