[Home] [Help]
PACKAGE BODY: APPS.AS_SCORECARD_RULES_PUB
Source
1 PACKAGE BODY AS_SCORECARD_RULES_PUB AS
2 /* $Header: asxpscob.pls 120.1 2005/06/24 16:56:39 appldev ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_SCORECARD_RULES_PUB';
5 G_FILE_NAME CONSTANT VARCHAR2(16) := 'asxpscob.pls';
6
7
8 -- *****************************************************
9 -- FOR AS_SCORECARD_RULES_PUB
10 FUNCTION Init_AS_SCORECARD_Rec RETURN AS_SCORECARD_RULES_PUB.SCORECARD_REC_TYPE IS
11 l_return_rec AS_SCORECARD_RULES_PUB.SCORECARD_REC_TYPE ;
12 BEGIN
13 l_return_rec := AS_SCORECARD_RULES_PUB.G_MISS_SCORECARD_REC;
14 RETURN l_return_rec ;
15 END;
16
17
18 FUNCTION Init_AS_CARDRULE_QUAL_Rec RETURN AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_REC_TYPE IS
19 l_return_rec AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_REC_TYPE;
20 BEGIN
21 l_return_rec := AS_SCORECARD_RULES_PUB.G_MISS_CARDRULE_QUAL_REC;
22 RETURN l_return_rec ;
23 END;
24
25 FUNCTION Init_AS_CARDRULE_QUAL_Tbl RETURN AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_Tbl_TYPE IS
26 l_return_rec AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_Tbl_TYPE;
27 BEGIN
28 l_return_rec := AS_SCORECARD_RULES_PUB.G_MISS_CARDRULE_QUAL_TBL;
29 RETURN l_return_rec ;
30 END;
31
32
33 Procedure Create_ScoreCard (
34 p_api_version IN NUMBER := 2.0,
35 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36 p_commit IN VARCHAR2 := FND_API.G_FALSE,
37 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
38 x_return_status OUT NOCOPY VARCHAR2,
39 x_msg_count OUT NOCOPY NUMBER,
40 x_msg_data OUT NOCOPY VARCHAR2,
41 P_SCORECARD_REC IN AS_SCORECARD_RULES_PUB.SCORECARD_REC_TYPE
42 := G_MISS_SCORECARD_REC,
43 X_SCORECARD_ID OUT NOCOPY NUMBER)
44 IS
45 l_api_name CONSTANT VARCHAR2(30) := 'Create_ScoreCard';
46 l_api_version_number CONSTANT NUMBER := 2.0;
47 l_return_status VARCHAR2(1);
48 l_msg_count NUMBER;
49 l_msg_data VARCHAR2(32767);
50
51 BEGIN
52 -- Standard Start of API savepoint
53 SAVEPOINT CREATE_SCORECARD_PUB;
54
55 -- Standard call to check for call compatibility.
56 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
57 p_api_version,
58 l_api_name,
59 G_PKG_NAME)
60 THEN
61 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62 END IF;
63
64
65 -- Initialize message list if p_init_msg_list is set to TRUE.
66 IF FND_API.to_Boolean( p_init_msg_list )
67 THEN
68 FND_MSG_PUB.initialize;
69 END IF;
70
71 -- Debug Message
72 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
73 'Public API: ' || l_api_name || 'start');
74
75 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
76 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
77
78
79 -- Initialize API return status to SUCCESS
80 x_return_status := FND_API.G_RET_STS_SUCCESS;
81
82 --
83 -- API body
84 --
85
86 -- Calling Private package: Create_SALES_LEADS
87 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
88 'Public API: Calling AS_SCORECARD_RULES_PVT.Create_Scorecard');
89
90 AS_SCORECARD_RULES_PVT.Create_ScoreCard(
91 p_api_version => p_api_version
92 , p_init_msg_list => FND_API.G_FALSE
93 , p_commit => p_commit
94 , p_validation_level => p_validation_level
95 , p_scorecard_rec => p_scorecard_rec
96 , x_scorecard_id => x_scorecard_id
97 , x_return_status => x_return_status
98 , x_msg_count => x_msg_count
99 , x_msg_data => x_msg_data
100 );
101
102
103 IF x_return_status = FND_API.G_RET_STS_ERROR then
104 raise FND_API.G_EXC_ERROR;
105 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
106 raise FND_API.G_EXC_UNEXPECTED_ERROR;
107 END IF;
108
109 --
110 -- End of API body
111 --
112
113 -- Standard check for p_commit
114 IF FND_API.to_Boolean( p_commit )
115 THEN
116 COMMIT WORK;
117 END IF;
118
119 -- Debug Message
120 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
121 'PUB: ' || l_api_name || ' end');
122 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
123 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
124
125 -- Standard call to get message count and if count is 1, get message info.
126 FND_MSG_PUB.Count_And_Get
127 ( p_count => x_msg_count,
128 p_data => x_msg_data
129 );
130
131 EXCEPTION
132 WHEN FND_API.G_EXC_ERROR THEN
133 as_utility_pvt.HANDLE_EXCEPTIONS(
134 P_API_NAME => L_API_NAME
135 ,P_PKG_NAME => G_PKG_NAME
136 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
137 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
138 ,X_MSG_COUNT => X_MSG_COUNT
139 ,X_MSG_DATA => X_MSG_DATA
140 ,X_RETURN_STATUS => X_RETURN_STATUS);
141
142 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143 as_utility_pvt.HANDLE_EXCEPTIONS(
144 P_API_NAME => L_API_NAME
145 ,P_PKG_NAME => G_PKG_NAME
146 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
147 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
148 ,X_MSG_COUNT => X_MSG_COUNT
149 ,X_MSG_DATA => X_MSG_DATA
150 ,X_RETURN_STATUS => X_RETURN_STATUS);
151
152 WHEN OTHERS THEN
153 as_utility_pvt.HANDLE_EXCEPTIONS(
154 P_API_NAME => L_API_NAME
155 ,P_PKG_NAME => G_PKG_NAME
156 ,P_EXCEPTION_LEVEL => as_utility_pvt.G_EXC_OTHERS
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
162
163 END CREATE_SCORECARD;
164
165
166
167 Procedure Update_ScoreCard (
168 p_api_version IN NUMBER := 2.0,
169 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
170 p_commit IN VARCHAR2 := FND_API.G_FALSE,
171 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2,
175 P_SCORECARD_REC IN AS_SCORECARD_RULES_PUB.SCORECARD_REC_TYPE
176 := G_MISS_SCORECARD_REC)
177 IS
178 l_api_name CONSTANT VARCHAR2(30) := 'Update_ScoreCard';
179 l_api_version_number CONSTANT NUMBER := 2.0;
180 l_return_status VARCHAR2(1);
181 l_msg_count NUMBER;
182 l_msg_data VARCHAR2(32767);
183
184 BEGIN
185
186 -- Standard Start of API savepoint
187 SAVEPOINT UPDATE_SCORECARD_PUB;
188
189 -- Standard call to check for call compatibility.
190 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
191 p_api_version,
192 l_api_name,
193 G_PKG_NAME)
194 THEN
195 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196 END IF;
197
198 -- Initialize message list if p_init_msg_list is set to TRUE.
199 IF FND_API.to_Boolean( p_init_msg_list )
200 THEN
201 FND_MSG_PUB.initialize;
202 END IF;
203
204 -- Debug Message
205 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
206 'PUB: ' || l_api_name || ' start');
207 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
208 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
209
210
211 -- Initialize API return status to SUCCESS
212 x_return_status := FND_API.G_RET_STS_SUCCESS;
213
214 --
215 -- Api body
216 --
217
218 -- Debug Message
219 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
220 'Public API: Calling AS_SALES_LEADS_PVT.Update_sales_lead');
221
222 AS_SCORECARD_RULES_PVT.Update_ScoreCard(
223 p_api_version => p_api_version
224 , p_init_msg_list => p_init_msg_list
225 , p_commit => p_commit
226 , p_validation_level => p_validation_level
227 , p_scorecard_rec => p_scorecard_rec
228 , x_return_status => x_return_status
229 , x_msg_count => x_msg_count
230 , x_msg_data => x_msg_data
231 );
232
233 IF x_return_status <> FND_API.G_RET_STS_SUCCESS 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 -- Debug Message
250 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
251 'PUB: ' || l_api_name || ' end');
252 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
253 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
254
255 -- Standard call to get message count and if count is 1, get message info.
256 FND_MSG_PUB.Count_And_Get
257 ( p_count => x_msg_count,
258 p_data => x_msg_data );
259
260 EXCEPTION
261 WHEN FND_API.G_EXC_ERROR THEN
262 as_utility_pvt.HANDLE_EXCEPTIONS(
263 P_API_NAME => L_API_NAME
264 ,P_PKG_NAME => G_PKG_NAME
265 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
266 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
267 ,X_MSG_COUNT => X_MSG_COUNT
268 ,X_MSG_DATA => X_MSG_DATA
269 ,X_RETURN_STATUS => X_RETURN_STATUS);
270
271 WHEN FND_API.G_EXC_UNEXPECTED_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_UNEXP_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 OTHERS 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 => as_utility_pvt.G_EXC_OTHERS
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 END Update_ScoreCard;
292
293
294
295 Procedure Delete_ScoreCard (
296 p_api_version IN NUMBER := 2.0,
297 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
298 p_commit IN VARCHAR2 := FND_API.G_FALSE,
299 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
300 x_return_status OUT NOCOPY VARCHAR2,
301 x_msg_count OUT NOCOPY NUMBER,
302 x_msg_data OUT NOCOPY VARCHAR2,
303 P_SCORECARD_ID IN NUMBER)
304 IS
305
306 l_api_name CONSTANT VARCHAR2(30) := 'Delete_ScoreCard';
307 l_api_version_number CONSTANT NUMBER := 2.0;
308 l_return_status VARCHAR2(1);
309 l_msg_count NUMBER;
310 l_msg_data VARCHAR2(32767);
311 l_scorecard_id NUMBER := P_scorecard_id;
312
313 BEGIN
314 -- Standard Start of API savepoint
315 SAVEPOINT DELETE_SCORECARD_PUB;
316
317 -- Standard call to check for call compatibility.
318 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
319 p_api_version,
320 l_api_name,
321 G_PKG_NAME)
322 THEN
323 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324 END IF;
325
326 -- Initialize message list if p_init_msg_list is set to TRUE.
327 IF FND_API.to_Boolean( p_init_msg_list )
328 THEN
329 FND_MSG_PUB.initialize;
330 END IF;
331
332 -- Debug Message
333 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
334 'PUB:' || l_api_name || 'start');
335 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
336 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
337
338
339 -- Initialize API return status to SUCCESS
340 x_return_status := FND_API.G_RET_STS_SUCCESS;
341
342 --
343 -- Api body
344 --
345
346 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
347 'Public API: Calling AS_SCORECARD_RULES_PVT.Delete_SCORECARD');
348
349 AS_SCORECARD_RULES_PVT.Delete_ScoreCard(
350 p_api_version => p_api_version
351 , p_init_msg_list => p_init_msg_list
352 , p_commit => p_commit
353 , p_validation_level => p_validation_level
354 , p_scorecard_id => l_scorecard_id
355 , x_return_status => l_return_status
356 , x_msg_count => l_msg_count
357 , x_msg_data => l_msg_data
358 );
359 --shdeshpa
360 -- delete from as_scorecard_qual_rules where scorecard_id = p_scorecard_id
361
362 IF x_return_status = FND_API.G_RET_STS_ERROR then
363 raise FND_API.G_EXC_ERROR;
364 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
365 raise FND_API.G_EXC_UNEXPECTED_ERROR;
366 END IF;
367
368 --
369 -- End of API body
370 --
371
372 -- Standard check for p_commit
373 IF FND_API.to_Boolean( p_commit )
374 THEN
375 COMMIT WORK;
376 END IF;
377
378 -- Debug Message
379 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
380 'PUB: ' || l_api_name || ' end');
381 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
382 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
383
384 FND_MSG_PUB.Count_And_Get
385 ( p_count => x_msg_count,
386 p_data => x_msg_data );
387
388 EXCEPTION
389 WHEN FND_API.G_EXC_ERROR THEN
390 as_utility_pvt.HANDLE_EXCEPTIONS(
394 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
391 P_API_NAME => L_API_NAME
392 ,P_PKG_NAME => G_PKG_NAME
393 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
395 ,X_MSG_COUNT => X_MSG_COUNT
396 ,X_MSG_DATA => X_MSG_DATA
397 ,X_RETURN_STATUS => X_RETURN_STATUS);
398
399 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400 as_utility_pvt.HANDLE_EXCEPTIONS(
401 P_API_NAME => L_API_NAME
402 ,P_PKG_NAME => G_PKG_NAME
403 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
404 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
405 ,X_MSG_COUNT => X_MSG_COUNT
406 ,X_MSG_DATA => X_MSG_DATA
407 ,X_RETURN_STATUS => X_RETURN_STATUS);
408
409 WHEN OTHERS THEN
410 as_utility_pvt.HANDLE_EXCEPTIONS(
411 P_API_NAME => L_API_NAME
412 ,P_PKG_NAME => G_PKG_NAME
413 ,P_EXCEPTION_LEVEL => as_utility_pvt.G_EXC_OTHERS
414 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
415 ,X_MSG_COUNT => X_MSG_COUNT
416 ,X_MSG_DATA => X_MSG_DATA
417 ,X_RETURN_STATUS => X_RETURN_STATUS);
418
419 END Delete_ScoreCard;
420
421
422 Procedure Create_CardRule_QUAL (
423 p_api_version IN NUMBER := 2.0,
424 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
425 p_commit IN VARCHAR2 := FND_API.G_FALSE,
426 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
427 x_return_status OUT NOCOPY VARCHAR2,
428 x_msg_count OUT NOCOPY NUMBER,
429 x_msg_data OUT NOCOPY VARCHAR2,
430 p_CardRule_Qual_rec IN AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_REC_TYPE,
431 x_qual_value_id OUT NOCOPY NUMBER)
432 IS
433 l_api_name CONSTANT VARCHAR2(30) := 'Create_CardRule_QUAL';
434 l_api_version_number CONSTANT NUMBER := 2.0;
435 l_return_status VARCHAR2(1);
436 l_msg_count NUMBER;
437 l_msg_data VARCHAR2(32767);
438
439 BEGIN
440 -- Standard Start of API savepoint
441 SAVEPOINT CREATE_CARD_RULE_PUB;
442
443 -- Standard call to check for call compatibility.
444 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
445 p_api_version,
446 l_api_name,
447 G_PKG_NAME)
448 THEN
449 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450 END IF;
451
452
453 -- Initialize message list if p_init_msg_list is set to TRUE.
454 IF FND_API.to_Boolean( p_init_msg_list )
455 THEN
456 FND_MSG_PUB.initialize;
457 END IF;
458
459 -- Debug Message
460 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
461 'PUB: ' || l_api_name || ' start');
462 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
463 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
464
465
466 -- Initialize API return status to SUCCESS
467 x_return_status := FND_API.G_RET_STS_SUCCESS;
468
469 --
470 -- API body
471 --
472
473 -- Calling Private package: Create_SALES_LEADS
474 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
475 'Public API: Calling AS_SCORECARD_RULES_PVT.Create_CardRule_Qual');
476
477 AS_SCORECARD_RULES_PVT.Create_CardRule_Qual(
478 p_api_version => p_api_version
479 , p_init_msg_list => FND_API.G_FALSE
480 , p_commit => p_commit
481 , p_validation_level => p_validation_level
482 , p_cardrule_qual_rec => p_cardrule_qual_rec
483 , x_qual_value_id => x_qual_value_id
484 , x_return_status => x_return_status
485 , x_msg_count => x_msg_count
486 , x_msg_data => x_msg_data
487 );
488
489 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
490 RAISE FND_API.G_EXC_ERROR;
491 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
492 raise FND_API.G_EXC_UNEXPECTED_ERROR;
493 END IF;
494
495 --
496 -- End of API body
497 --
498
499 -- Standard check for p_commit
500 IF FND_API.to_Boolean( p_commit )
501 THEN
502 COMMIT WORK;
503 END IF;
504
505 -- Debug Message
506 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
507 'PUB: ' || l_api_name || ' end');
508 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
509 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
510
511 -- Standard call to get message count and if count is 1, get message info.
512 FND_MSG_PUB.Count_And_Get
513 ( p_count => x_msg_count,
514 p_data => x_msg_data
515 );
516
517 EXCEPTION
521 ,P_PKG_NAME => G_PKG_NAME
518 WHEN FND_API.G_EXC_ERROR THEN
519 as_utility_pvt.HANDLE_EXCEPTIONS(
520 P_API_NAME => L_API_NAME
522 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
523 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
524 ,X_MSG_COUNT => X_MSG_COUNT
525 ,X_MSG_DATA => X_MSG_DATA
526 ,X_RETURN_STATUS => X_RETURN_STATUS);
527
528 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
529 as_utility_pvt.HANDLE_EXCEPTIONS(
530 P_API_NAME => L_API_NAME
531 ,P_PKG_NAME => G_PKG_NAME
532 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
533 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
534 ,X_MSG_COUNT => X_MSG_COUNT
535 ,X_MSG_DATA => X_MSG_DATA
536 ,X_RETURN_STATUS => X_RETURN_STATUS);
537
538 WHEN OTHERS THEN
539 as_utility_pvt.HANDLE_EXCEPTIONS(
540 P_API_NAME => L_API_NAME
541 ,P_PKG_NAME => G_PKG_NAME
542 ,P_EXCEPTION_LEVEL => as_utility_pvt.G_EXC_OTHERS
543 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
544 ,X_MSG_COUNT => X_MSG_COUNT
545 ,X_MSG_DATA => X_MSG_DATA
546 ,X_RETURN_STATUS => X_RETURN_STATUS);
547
548 END Create_CardRule_Qual;
549
550
551
552 Procedure Update_CardRule_QUAL (
553 p_api_version IN NUMBER := 2.0,
554 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
555 p_commit IN VARCHAR2 := FND_API.G_FALSE,
556 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
557 x_return_status OUT NOCOPY VARCHAR2,
558 x_msg_count OUT NOCOPY NUMBER,
559 x_msg_data OUT NOCOPY VARCHAR2,
560 p_CardRule_Qual_rec IN AS_SCORECARD_RULES_PUB.CARDRULE_QUAL_REC_TYPE)
561 IS
562 l_api_name CONSTANT VARCHAR2(30) := 'Update_CARDRULE_QUAL';
563 l_api_version_number CONSTANT NUMBER := 2.0;
564 l_return_status VARCHAR2(1);
565 l_msg_count NUMBER;
566 l_msg_data VARCHAR2(32767);
567
568 BEGIN
569
570 -- Standard Start of API savepoint
571 SAVEPOINT UPDATE_CARDRULE_QUAL_PUB;
572
573 -- Standard call to check for call compatibility.
574 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
575 p_api_version,
576 l_api_name,
577 G_PKG_NAME)
578 THEN
579 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580 END IF;
581
582 -- Initialize message list if p_init_msg_list is set to TRUE.
583 IF FND_API.to_Boolean( p_init_msg_list )
584 THEN
585 FND_MSG_PUB.initialize;
586 END IF;
587
588 -- Debug Message
589 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
590 'PUB: ' || l_api_name || ' start');
591 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
592 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
593
594
595 -- Initialize API return status to SUCCESS
596 x_return_status := FND_API.G_RET_STS_SUCCESS;
597
598 --
599 -- Api body
600 --
601
602 -- Debug Message
603 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
604 'Public API: Calling AS_SCORECARD_RULES_PVT.Update_CardRule_Qual');
605
606
607 AS_SCORECARD_RULES_PVT.Update_CardRule_Qual(
608 p_api_version => p_api_version
609 , p_init_msg_list => FND_API.G_FALSE
610 , p_commit => p_commit
611 , p_validation_level => p_validation_level
612 , p_cardrule_qual_rec => p_cardrule_qual_rec
613 , x_return_status => x_return_status
614 , x_msg_count => x_msg_count
615 , x_msg_data => x_msg_data
616 );
617
618 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
619 RAISE FND_API.G_EXC_ERROR;
620 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
621 raise FND_API.G_EXC_UNEXPECTED_ERROR;
622 END IF;
623
624 --
625 -- End of API body.
626 --
627
628 -- Standard check for p_commit
629 IF FND_API.to_Boolean( p_commit )
630 THEN
631 COMMIT WORK;
632 END IF;
633
634 -- Debug Message
635 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
636 'PUB: ' || l_api_name || ' end');
637 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
638 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
639
640 -- Standard call to get message count and if count is 1, get message info.
641 FND_MSG_PUB.Count_And_Get
642 ( p_count => x_msg_count,
643 p_data => x_msg_data );
644
648 P_API_NAME => L_API_NAME
645 EXCEPTION
646 WHEN FND_API.G_EXC_ERROR THEN
647 as_utility_pvt.HANDLE_EXCEPTIONS(
649 ,P_PKG_NAME => G_PKG_NAME
650 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
651 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
652 ,X_MSG_COUNT => X_MSG_COUNT
653 ,X_MSG_DATA => X_MSG_DATA
654 ,X_RETURN_STATUS => X_RETURN_STATUS);
655
656 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
657 as_utility_pvt.HANDLE_EXCEPTIONS(
658 P_API_NAME => L_API_NAME
659 ,P_PKG_NAME => G_PKG_NAME
660 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
661 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
662 ,X_MSG_COUNT => X_MSG_COUNT
663 ,X_MSG_DATA => X_MSG_DATA
664 ,X_RETURN_STATUS => X_RETURN_STATUS);
665
666 WHEN OTHERS THEN
667 as_utility_pvt.HANDLE_EXCEPTIONS(
668 P_API_NAME => L_API_NAME
669 ,P_PKG_NAME => G_PKG_NAME
670 ,P_EXCEPTION_LEVEL => as_utility_pvt.G_EXC_OTHERS
671 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
672 ,X_MSG_COUNT => X_MSG_COUNT
673 ,X_MSG_DATA => X_MSG_DATA
674 ,X_RETURN_STATUS => X_RETURN_STATUS);
675 END Update_CardRule_Qual;
676
677
678
679 -- pass in the qual value Id
680 Procedure Delete_CardRule_QUAL (
681 p_api_version IN NUMBER := 2.0,
682 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
683 p_commit IN VARCHAR2 := FND_API.G_FALSE,
684 p_validation_level IN NUMBER := AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
685 x_return_status OUT NOCOPY VARCHAR2,
686 x_msg_count OUT NOCOPY NUMBER,
687 x_msg_data OUT NOCOPY VARCHAR2,
688 p_qual_value_id IN NUMBER)
689 IS
690 l_api_name CONSTANT VARCHAR2(30) := 'Delete_CARDRULE_QUAL';
691 l_api_version_number CONSTANT NUMBER := 2.0;
692 l_return_status VARCHAR2(1);
693 l_msg_count NUMBER;
694 l_msg_data VARCHAR2(32767);
695
696 BEGIN
697 -- Standard Start of API savepoint
698 SAVEPOINT DELETE_CARD_RULE_PUB;
699
700 -- Standard call to check for call compatibility.
701 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
702 p_api_version,
703 l_api_name,
704 G_PKG_NAME)
705 THEN
706 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
707 END IF;
708
709 -- Initialize message list if p_init_msg_list is set to TRUE.
710 IF FND_API.to_Boolean( p_init_msg_list )
711 THEN
712 FND_MSG_PUB.initialize;
713 END IF;
714
715 -- Debug Message
716 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
717 'PUB:' || l_api_name || 'start');
718 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
719 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
720
721
722 -- Initialize API return status to SUCCESS
723 x_return_status := FND_API.G_RET_STS_SUCCESS;
724
725 --
726 -- Api body
727 --
728
729 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
730 'Public API: Calling AS_SCORECARD_RULES_PVT.Delete_CardRule_Qual');
731
732 AS_SCORECARD_RULES_PVT.Delete_CardRule_Qual(
733 p_api_version => p_api_version
734 , p_init_msg_list => FND_API.G_FALSE
735 , p_commit => p_commit
736 , p_validation_level => p_validation_level
737 , p_qual_value_id => p_qual_value_id
738 , x_return_status => x_return_status
739 , x_msg_count => x_msg_count
740 , x_msg_data => x_msg_data
741 );
742
743 IF x_return_status = FND_API.G_RET_STS_ERROR then
744 raise FND_API.G_EXC_ERROR;
745 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
746 raise FND_API.G_EXC_UNEXPECTED_ERROR;
747 END IF;
748
749 --
750 -- End of API body
751 --
752
753 -- Standard check for p_commit
754 IF FND_API.to_Boolean( p_commit )
755 THEN
756 COMMIT WORK;
757 END IF;
758
759 -- Debug Message
760 AS_UTILITY_PVT.DEBUG_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
761 'PUB: ' || l_api_name || ' end');
762 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:'
763 || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
764
765 FND_MSG_PUB.Count_And_Get
766 ( p_count => x_msg_count,
767 p_data => x_msg_data );
768
769 EXCEPTION
770 WHEN FND_API.G_EXC_ERROR THEN
771 as_utility_pvt.HANDLE_EXCEPTIONS(
772 P_API_NAME => L_API_NAME
773 ,P_PKG_NAME => G_PKG_NAME
774 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
775 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
776 ,X_MSG_COUNT => X_MSG_COUNT
777 ,X_MSG_DATA => X_MSG_DATA
778 ,X_RETURN_STATUS => X_RETURN_STATUS);
779
780 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
781 as_utility_pvt.HANDLE_EXCEPTIONS(
782 P_API_NAME => L_API_NAME
783 ,P_PKG_NAME => G_PKG_NAME
784 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
785 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
786 ,X_MSG_COUNT => X_MSG_COUNT
787 ,X_MSG_DATA => X_MSG_DATA
788 ,X_RETURN_STATUS => X_RETURN_STATUS);
789
790 WHEN OTHERS THEN
791 as_utility_pvt.HANDLE_EXCEPTIONS(
792 P_API_NAME => L_API_NAME
793 ,P_PKG_NAME => G_PKG_NAME
794 ,P_EXCEPTION_LEVEL => as_utility_pvt.G_EXC_OTHERS
795 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
796 ,X_MSG_COUNT => X_MSG_COUNT
797 ,X_MSG_DATA => X_MSG_DATA
798 ,X_RETURN_STATUS => X_RETURN_STATUS);
799
800 END Delete_CardRule_Qual;
801
802
803
804 END AS_SCORECARD_RULES_PUB;