[Home] [Help]
PACKAGE BODY: APPS.CSC_CHECK_RATINGS_PUB
Source
1 PACKAGE BODY CSC_CHECK_RATINGS_PUB as
2 /* $Header: cscpprab.pls 115.12 2002/11/29 04:05:49 bhroy ship $ */
3 -- Start of Comments
4 -- Package name : CSC_CHECK_RATINGS_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSC_CHECK_RATINGS_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cscpurab.pls';
13
14 PROCEDURE Convert_Pub_to_pvt_Rec(
15 P_CHK_RATING_Rec IN CHK_RATING_Rec_Type,
16 x_PVT_CHK_RATING_Rec OUT NOCOPY CSC_CHECK_RATINGS_PVT.CHK_RATING_Rec_Type
17 )
18 IS
19 BEGIN
20 x_pvt_CHK_RATING_REC.CHECK_ID := P_CHK_RATING_Rec.CHECK_ID;
21 x_pvt_CHK_RATING_REC.CHECK_RATING_GRADE := P_CHK_RATING_Rec.CHECK_RATING_GRADE;
22 x_pvt_CHK_RATING_REC.RATING_COLOR_ID := P_CHK_RATING_Rec.RATING_COLOR_ID;
23 x_pvt_CHK_RATING_REC.RATING_CODE := P_CHK_RATING_Rec.RATING_CODE;
24 x_pvt_CHK_RATING_REC.COLOR_CODE := P_CHK_RATING_Rec.COLOR_CODE;
25 x_pvt_CHK_RATING_REC.RANGE_LOW_VALUE := P_CHK_RATING_Rec.RANGE_LOW_VALUE;
26 x_pvt_CHK_RATING_REC.RANGE_HIGH_VALUE := P_CHK_RATING_Rec.RANGE_HIGH_VALUE;
27 x_pvt_CHK_RATING_REC.LAST_UPDATE_DATE := P_CHK_RATING_Rec.LAST_UPDATE_DATE;
28 x_pvt_CHK_RATING_REC.LAST_UPDATED_BY := P_CHK_RATING_Rec.LAST_UPDATED_BY;
29 x_pvt_CHK_RATING_REC.CREATION_DATE := P_CHK_RATING_Rec.CREATION_DATE;
30 x_pvt_CHK_RATING_REC.CREATED_BY := P_CHK_RATING_Rec.CREATED_BY;
31 x_pvt_CHK_RATING_REC.LAST_UPDATE_LOGIN := P_CHK_RATING_Rec.LAST_UPDATE_LOGIN;
32 x_pvt_CHK_RATING_REC.SEEDED_FLAG := P_CHK_RATING_Rec.SEEDED_FLAG;
33
34 END Convert_pub_to_pvt_rec;
35
36 PROCEDURE Convert_Columns_to_Rec(
37 p_CHECK_RATING_ID IN NUMBER DEFAULT NULL,
38 p_CHECK_ID IN NUMBER,
39 p_CHECK_RATING_GRADE IN VARCHAR2,
40 p_RATING_COLOR_ID IN NUMBER,
41 p_RATING_CODE IN VARCHAR2,
42 p_COLOR_CODE IN VARCHAR2,
43 p_RANGE_LOW_VALUE IN VARCHAR2,
44 p_RANGE_HIGH_VALUE IN VARCHAR2,
45 p_LAST_UPDATE_DATE IN DATE,
46 p_LAST_UPDATED_BY IN NUMBER,
47 p_CREATION_DATE IN DATE,
48 p_CREATED_BY IN NUMBER,
49 p_LAST_UPDATE_LOGIN IN NUMBER,
50 p_SEEDED_FLAG IN VARCHAR2,
51 X_Chk_rating_rec OUT NOCOPY CHK_RATING_Rec_Type
52 )
53 IS
54 BEGIN
55
56 X_Chk_rating_rec.CHECK_ID := P_CHECK_ID;
57 X_Chk_rating_rec.CHECK_RATING_ID := P_CHECK_RATING_ID;
58 X_Chk_rating_rec.CHECK_ID := P_CHECK_ID;
59 X_Chk_rating_rec.CHECK_RATING_GRADE := P_CHECK_RATING_GRADE;
60 X_Chk_rating_rec.RATING_COLOR_ID := P_RATING_COLOR_ID;
61 X_Chk_rating_rec.RATING_CODE := P_RATING_CODE;
62 X_Chk_rating_rec.COLOR_CODE := P_COLOR_CODE;
63 X_Chk_rating_rec.RANGE_LOW_VALUE := P_RANGE_LOW_VALUE;
64 X_Chk_rating_rec.RANGE_HIGH_VALUE := P_RANGE_HIGH_VALUE;
65 X_Chk_rating_rec.CREATED_BY := P_CREATED_BY;
66 X_Chk_rating_rec.CREATION_DATE := P_CREATION_DATE;
67 X_Chk_rating_rec.LAST_UPDATED_BY := P_LAST_UPDATED_BY;
68 X_Chk_rating_rec.LAST_UPDATE_DATE := P_LAST_UPDATE_DATE;
69 X_Chk_rating_rec.LAST_UPDATE_LOGIN := P_LAST_UPDATE_LOGIN;
70 X_Chk_rating_rec.SEEDED_FLAG := P_SEEDED_FLAG;
71
72 END Convert_Columns_to_Rec;
73
74
75
76 PROCEDURE Create_check_ratings(
77 P_Api_Version_Number IN NUMBER,
78 P_Init_Msg_List IN VARCHAR2,
79 P_Commit IN VARCHAR2,
80 p_validation_level IN NUMBER,
81 px_CHECK_RATING_ID IN OUT NOCOPY NUMBER,
82 p_CHECK_ID IN NUMBER,
83 p_CHECK_RATING_GRADE IN VARCHAR2,
84 p_RATING_COLOR_ID IN NUMBER,
85 p_RATING_CODE IN VARCHAR2,
86 p_COLOR_CODE IN VARCHAR2,
87 p_RANGE_LOW_VALUE IN VARCHAR2,
88 p_RANGE_HIGH_VALUE IN VARCHAR2,
89 p_LAST_UPDATE_DATE IN DATE,
90 p_LAST_UPDATED_BY IN NUMBER,
91 p_CREATION_DATE IN DATE,
92 p_CREATED_BY IN NUMBER,
93 p_LAST_UPDATE_LOGIN IN NUMBER,
94 p_SEEDED_FLAG IN VARCHAR2,
95 X_Return_Status OUT NOCOPY VARCHAR2,
99 IS
96 X_Msg_Count OUT NOCOPY NUMBER,
97 X_Msg_Data OUT NOCOPY VARCHAR2
98 )
100 l_chk_rating_rec CHK_RATING_Rec_Type := G_MISS_CHK_RATING_Rec;
101 BEGIN
102
103 Convert_Columns_to_Rec(
104 --p_CHECK_RATING_ID => p_CHECK_RATING_ID,
105 p_CHECK_ID => p_CHECK_ID,
106 p_CHECK_RATING_GRADE => p_CHECK_RATING_GRADE,
107 p_RATING_COLOR_ID => p_RATING_COLOR_ID,
108 p_RATING_CODE => p_RATING_CODE,
109 p_COLOR_CODE => p_COLOR_CODE,
110 p_RANGE_LOW_VALUE => p_RANGE_LOW_VALUE,
111 p_RANGE_HIGH_VALUE => p_RANGE_HIGH_VALUE,
112 P_CREATED_BY => P_CREATED_BY,
113 P_CREATION_DATE => P_CREATION_DATE,
114 P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
115 P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
116 P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN,
117 p_SEEDED_FLAG => p_SEEDED_FLAG,
118 X_CHk_Rating_Rec => l_chk_rating_rec
119 );
120
121 Create_check_ratings(
122 P_Api_Version_Number => 1.0,
123 P_Init_Msg_List => CSC_CORE_UTILS_PVT.G_FALSE,
124 P_Commit => CSC_CORE_UTILS_PVT.G_FALSE,
125 P_Validation_Level => CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
126 px_Check_Rating_id => px_check_rating_id,
127 P_CHK_RATING_Rec => l_CHK_RATING_Rec ,
128 X_Return_Status => x_return_status,
129 X_Msg_Count => x_msg_count,
130 X_Msg_Data => x_msg_data
131 );
132
133
134 END Create_check_ratings;
135
136
137 PROCEDURE Create_check_ratings(
138 P_Api_Version_Number IN NUMBER,
139 P_Init_Msg_List IN VARCHAR2,
140 P_Commit IN VARCHAR2,
141 p_validation_level IN NUMBER ,
142 px_Check_Rating_ID IN OUT NOCOPY NUMBER,
143 P_CHK_RATING_Rec IN CHK_RATING_Rec_Type,
144 X_Return_Status OUT NOCOPY VARCHAR2,
145 X_Msg_Count OUT NOCOPY NUMBER,
146 X_Msg_Data OUT NOCOPY VARCHAR2
147 )
148
149 IS
150 l_api_name CONSTANT VARCHAR2(30) := 'Create_check_ratings';
151 l_api_version_number CONSTANT NUMBER := 1.0;
152 l_PVT_CHK_RATING_Rec CSC_CHECK_RATINGS_PVT.CHK_RATING_Rec_Type;
153 BEGIN
154 -- Standard Start of API savepoint
155 SAVEPOINT CREATE_CHECK_RATINGS_PUB;
156
157 -- Standard call to check for call compatibility.
158 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
159 p_api_version_number,
160 l_api_name,
161 G_PKG_NAME)
162 THEN
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 END IF;
165
166
167 -- Initialize message list if p_init_msg_list is set to TRUE.
168 IF FND_API.to_Boolean( p_init_msg_list )
169 THEN
170 FND_MSG_PUB.initialize;
171 END IF;
172
173
174 -- Initialize API return status to SUCCESS
175 x_return_status := FND_API.G_RET_STS_SUCCESS;
176
177 --
178 -- API body
179 --
180 Convert_Pub_to_pvt_Rec(
181 P_CHK_RATING_Rec => P_CHK_RATING_Rec,
182 x_PVT_CHK_RATING_Rec => l_PVT_CHK_RATING_Rec );
183
184
185 CSC_check_ratings_PVT.Create_check_ratings(
186 P_Api_Version_Number => 1.0,
187 P_Init_Msg_List => CSC_CORE_UTILS_PVT.G_FALSE,
188 P_Commit => CSC_CORE_UTILS_PVT.G_FALSE,
189 P_Validation_Level => CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
190 px_Check_Rating_id => px_check_rating_id,
191 P_CHK_RATING_Rec => l_PVT_CHK_RATING_Rec ,
192 X_Return_Status => x_return_status,
193 X_Msg_Count => x_msg_count,
194 X_Msg_Data => x_msg_data
195 );
196
197
198 -- Check return status from the above procedure call
199 IF x_return_status = FND_API.G_RET_STS_ERROR then
200 raise FND_API.G_EXC_ERROR;
201 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
202 raise FND_API.G_EXC_UNEXPECTED_ERROR;
203 END IF;
204
205 --
206 -- End of API body.
207 --
208
209 -- Standard check for p_commit
210 IF FND_API.to_Boolean( p_commit )
211 THEN
212 COMMIT WORK;
213 END IF;
214
215
216 -- Standard call to get message count and if count is 1, get message info.
217 FND_MSG_PUB.Count_And_Get
218 ( p_count => x_msg_count,
219 p_data => x_msg_data
220 );
221
222 EXCEPTION
223 WHEN FND_API.G_EXC_ERROR THEN
224 ROLLBACK TO Create_check_ratings_PUB;
225 x_return_status := FND_API.G_RET_STS_ERROR;
226 FND_MSG_PUB.Count_And_Get
227 ( p_count => x_msg_count,
228 p_data => x_msg_data
229 );
230 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231 ROLLBACK TO Create_check_ratings_PUB;
232 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233 FND_MSG_PUB.Count_And_Get
234 ( p_count => x_msg_count,
235 p_data => x_msg_data
236 );
237 WHEN OTHERS THEN
238 ROLLBACK TO Create_check_ratings_PUB;
239 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
241 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
242 END IF;
246 );
243 FND_MSG_PUB.Count_And_Get
244 ( p_count => x_msg_count,
245 p_data => x_msg_data
247 End Create_check_ratings;
248
249
250 PROCEDURE Update_check_ratings(
251 P_Api_Version_Number IN NUMBER,
252 P_Init_Msg_List IN VARCHAR2,
253 P_Commit IN VARCHAR2,
254 p_validation_level IN NUMBER ,
255 p_CHECK_RATING_ID IN NUMBER,
256 p_CHECK_ID IN NUMBER,
257 p_CHECK_RATING_GRADE IN VARCHAR2,
258 p_RATING_COLOR_ID IN NUMBER,
259 p_RATING_CODE IN VARCHAR2,
260 p_COLOR_CODE IN VARCHAR2,
261 p_RANGE_LOW_VALUE IN VARCHAR2,
262 p_RANGE_HIGH_VALUE IN VARCHAR2,
263 p_LAST_UPDATE_DATE IN DATE,
264 p_LAST_UPDATED_BY IN NUMBER,
265 p_CREATION_DATE IN DATE,
266 p_CREATED_BY IN NUMBER,
267 p_LAST_UPDATE_LOGIN IN NUMBER,
268 p_SEEDED_FLAG IN VARCHAR2,
269 X_Return_Status OUT NOCOPY VARCHAR2,
270 X_Msg_Count OUT NOCOPY NUMBER,
271 X_Msg_Data OUT NOCOPY VARCHAR2
272 )
273 IS
274 l_chk_rating_rec CHK_RATING_Rec_Type := G_MISS_CHK_RATING_Rec;
275 BEGIN
276
277 Convert_Columns_to_Rec(
278 p_CHECK_RATING_ID => p_CHECK_RATING_ID,
279 p_CHECK_ID => p_CHECK_ID,
280 p_CHECK_RATING_GRADE => p_CHECK_RATING_GRADE,
281 p_RATING_COLOR_ID => p_RATING_COLOR_ID,
282 p_RATING_CODE => p_RATING_CODE,
283 p_COLOR_CODE => p_COLOR_CODE,
284 p_RANGE_LOW_VALUE => p_RANGE_LOW_VALUE,
285 p_RANGE_HIGH_VALUE => p_RANGE_HIGH_VALUE,
286 P_CREATED_BY => P_CREATED_BY,
287 P_CREATION_DATE => P_CREATION_DATE,
288 P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
289 P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
290 P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN,
291 P_SEEDED_FLAG => P_SEEDED_FLAG,
292 X_CHk_Rating_Rec => l_chk_rating_rec
293 );
294
295 Update_check_ratings(
296 P_Api_Version_Number => 1.0,
297 P_Init_Msg_List => CSC_CORE_UTILS_PVT.G_FALSE,
298 P_Commit => CSC_CORE_UTILS_PVT.G_FALSE,
299 P_Validation_Level => CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
300 P_CHK_RATING_Rec => l_CHK_RATING_Rec ,
301 X_Return_Status => x_return_status,
302 X_Msg_Count => x_msg_count,
303 X_Msg_Data => x_msg_data
304 );
305
306 END Update_check_ratings;
307
308 PROCEDURE Update_check_ratings(
309 P_Api_Version_Number IN NUMBER,
310 P_Init_Msg_List IN VARCHAR2,
311 P_Commit IN VARCHAR2,
312 p_validation_level IN NUMBER ,
313 P_CHK_RATING_Rec IN CHK_RATING_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) := 'Update_check_ratings';
321 l_api_version_number CONSTANT NUMBER := 1.0;
322 l_pvt_CHK_RATING_rec CSC_CHECK_RATINGS_PVT.CHK_RATING_Rec_Type;
323 BEGIN
324 -- Standard Start of API savepoint
325 SAVEPOINT UPDATE_CHECK_RATINGS_PUB;
326
327 -- Standard call to check for call compatibility.
328 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
329 p_api_version_number,
330 l_api_name,
331 G_PKG_NAME)
332 THEN
333 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334 END IF;
335
336
337 -- Initialize message list if p_init_msg_list is set to TRUE.
338 IF FND_API.to_Boolean( p_init_msg_list )
339 THEN
340 FND_MSG_PUB.initialize;
341 END IF;
342
343
344 -- Initialize API return status to SUCCESS
345 x_return_status := FND_API.G_RET_STS_SUCCESS;
346
347 --
348 -- API body
349 --
350 Convert_Pub_to_pvt_Rec(
351 P_CHK_RATING_Rec => P_CHK_RATING_Rec,
352 x_PVT_CHK_RATING_Rec => l_PVT_CHK_RATING_Rec );
353
354
355 CSC_check_ratings_PVT.Update_check_ratings(
356 P_Api_Version_Number => 1.0,
357 P_Init_Msg_List => CSC_CORE_UTILS_PVT.G_FALSE,
358 P_Commit => CSC_CORE_UTILS_PVT.G_FALSE,
359 P_Validation_Level => CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
360 P_CHK_RATING_Rec => l_PVT_CHK_RATING_Rec ,
361 X_Return_Status => x_return_status,
362 X_Msg_Count => x_msg_count,
363 X_Msg_Data => x_msg_data
364 );
365
366
367 -- Check return status from the above procedure call
368 IF x_return_status = FND_API.G_RET_STS_ERROR then
369 raise FND_API.G_EXC_ERROR;
370 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
371 raise FND_API.G_EXC_UNEXPECTED_ERROR;
372 END IF;
373
374 --
375 -- End of API body
376 --
377
378 -- Standard check for p_commit
379 IF FND_API.to_Boolean( p_commit )
380 THEN
381 COMMIT WORK;
382 END IF;
383
384
385 -- Standard call to get message count and if count is 1, get message info.
389 );
386 FND_MSG_PUB.Count_And_Get
387 ( p_count => x_msg_count,
388 p_data => x_msg_data
390
391 EXCEPTION
392 WHEN FND_API.G_EXC_ERROR THEN
393 ROLLBACK TO Update_check_ratings_PUB;
394 x_return_status := FND_API.G_RET_STS_ERROR;
395 FND_MSG_PUB.Count_And_Get
396 ( p_count => x_msg_count,
397 p_data => x_msg_data
398 );
399 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400 ROLLBACK TO Update_check_ratings_PUB;
401 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402 FND_MSG_PUB.Count_And_Get
403 ( p_count => x_msg_count,
404 p_data => x_msg_data
405 );
406 WHEN OTHERS THEN
407 ROLLBACK TO Update_check_ratings_PUB;
408 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
410 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
411 END IF;
412 FND_MSG_PUB.Count_And_Get
413 ( p_count => x_msg_count,
414 p_data => x_msg_data
415 );
416 End Update_check_ratings;
417
418
419 PROCEDURE Delete_check_ratings(
420 P_Api_Version_Number IN NUMBER,
421 P_Init_Msg_List IN VARCHAR2,
422 P_Commit IN VARCHAR2,
423 p_validation_level IN NUMBER ,
424 P_CHECK_RATING_ID IN NUMBER,
425 X_Return_Status OUT NOCOPY VARCHAR2,
426 X_Msg_Count OUT NOCOPY NUMBER,
427 X_Msg_Data OUT NOCOPY VARCHAR2
428 )
429 IS
430 l_api_name CONSTANT VARCHAR2(30) := 'Delete_check_ratings';
431 l_api_version_number CONSTANT NUMBER := 2.0;
432 l_pvt_CHK_RATING_rec CSC_CHECK_RATINGS_PVT.CHK_RATING_Rec_Type;
433 BEGIN
434 -- Standard Start of API savepoint
435 SAVEPOINT DELETE_CHECK_RATINGS_PUB;
436
437 -- Standard call to check for call compatibility.
438 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
439 p_api_version_number,
440 l_api_name,
441 G_PKG_NAME)
442 THEN
443 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444 END IF;
445
446
447 -- Initialize message list if p_init_msg_list is set to TRUE.
448 IF FND_API.to_Boolean( p_init_msg_list )
449 THEN
450 FND_MSG_PUB.initialize;
451 END IF;
452
453
454 -- Initialize API return status to SUCCESS
455 x_return_status := FND_API.G_RET_STS_SUCCESS;
456
457 --
458 -- API body
459 --
460
461
462 CSC_check_ratings_PVT.Delete_check_ratings(
463 P_Api_Version_Number => 1.0,
464 P_Init_Msg_List => CSC_CORE_UTILS_PVT.G_FALSE,
465 P_Commit => p_commit,
466 P_Validation_Level => CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
467 P_CHECK_RATING_Id => p_CHECK_RATING_Id,
468 X_Return_Status => x_return_status,
469 X_Msg_Count => x_msg_count,
470 X_Msg_Data => x_msg_data );
471
472
473
474 -- Check return status from the above procedure call
475 IF x_return_status = FND_API.G_RET_STS_ERROR then
476 raise FND_API.G_EXC_ERROR;
477 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
478 raise FND_API.G_EXC_UNEXPECTED_ERROR;
479 END IF;
480
481 --
482 -- End of API body
483 --
484
485 -- Standard check for p_commit
486 IF FND_API.to_Boolean( p_commit )
487 THEN
488 COMMIT WORK;
489 END IF;
490
491
492 -- Standard call to get message count and if count is 1, get message info.
493 FND_MSG_PUB.Count_And_Get
494 ( p_count => x_msg_count,
495 p_data => x_msg_data
496 );
497
498 EXCEPTION
499 WHEN FND_API.G_EXC_ERROR THEN
500 ROLLBACK TO Delete_check_ratings_PUB;
501 x_return_status := FND_API.G_RET_STS_ERROR;
502 FND_MSG_PUB.Count_And_Get
503 ( p_count => x_msg_count,
504 p_data => x_msg_data
505 );
506 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507 ROLLBACK TO Delete_check_ratings_PUB;
508 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509 FND_MSG_PUB.Count_And_Get
510 ( p_count => x_msg_count,
511 p_data => x_msg_data
512 );
513 WHEN OTHERS THEN
514 ROLLBACK TO Delete_check_ratings_PUB;
515 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
517 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
518 END IF;
519 FND_MSG_PUB.Count_And_Get
520 ( p_count => x_msg_count,
521 p_data => x_msg_data
522 );
523
524 End Delete_check_ratings;
525
526
527 End CSC_CHECK_RATINGS_PUB;