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