[Home] [Help]
PACKAGE BODY: APPS.CSC_PROFILE_CHECK_PUB
Source
1 PACKAGE BODY CSC_PROFILE_CHECK_PUB as
2 /* $Header: cscppckb.pls 115.16 2002/11/29 03:25:49 bhroy ship $ */
3 -- Start of Comments
4 -- Package name : CSC_CHECK_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSC_PROFILE_CHECK_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cscpuckb.pls';
13
14 PROCEDURE Convert_Pub_to_pvt_Rec(
15 p_check_rec IN CHECK_Rec_Type,
16 x_pvt_check_rec OUT NOCOPY CSC_PROFILE_CHECK_PVT.CHECK_Rec_Type
17 )
18 IS
19 BEGIN
20
21 x_pvt_Check_rec.CHECK_ID := P_Check_Rec.CHECK_ID;
22 x_pvt_Check_rec.CHECK_NAME_CODE := P_Check_Rec.CHECK_NAME_CODE;
23 x_pvt_Check_rec.START_DATE_ACTIVE := P_Check_Rec.START_DATE_ACTIVE;
24 x_pvt_Check_rec.END_DATE_ACTIVE := P_Check_Rec.END_DATE_ACTIVE;
25 x_pvt_Check_rec.SEEDED_FLAG := P_Check_Rec.SEEDED_FLAG;
26 x_pvt_Check_rec.SELECT_TYPE := P_Check_Rec.SELECT_TYPE;
27 x_pvt_Check_rec.SELECT_BLOCK_ID := P_Check_Rec.SELECT_BLOCK_ID;
28 x_pvt_Check_rec.DATA_TYPE := P_Check_Rec.DATA_TYPE;
29 x_pvt_Check_rec.FORMAT_MASK := P_Check_Rec.FORMAT_MASK;
30 x_pvt_Check_rec.THRESHOLD_GRADE := P_Check_Rec.THRESHOLD_GRADE;
31 x_pvt_Check_rec.THRESHOLD_RATING_CODE := P_Check_Rec.THRESHOLD_RATING_CODE;
32 x_pvt_Check_rec.THRESHOLD_COLOR_CODE := P_Check_Rec.THRESHOLD_COLOR_CODE;
33 x_pvt_Check_rec.CHECK_LEVEL := P_Check_Rec.CHECK_LEVEL;
34 x_pvt_Check_rec.CHECK_UPPER_LOWER_FLAG := P_Check_Rec.CHECK_UPPER_LOWER_FLAG;
35 x_pvt_Check_rec.CREATED_BY := P_Check_Rec.CREATED_BY;
36 x_pvt_Check_rec.CREATION_DATE := P_Check_Rec.CREATION_DATE;
37 x_pvt_Check_rec.LAST_UPDATED_BY := P_Check_Rec.LAST_UPDATED_BY;
38 x_pvt_Check_rec.LAST_UPDATE_DATE := P_Check_Rec.LAST_UPDATE_DATE;
39 x_pvt_Check_rec.LAST_UPDATE_LOGIN := P_Check_Rec.LAST_UPDATE_LOGIN;
40 x_pvt_Check_rec.OBJECT_VERSION_NUMBER := P_Check_Rec.OBJECT_VERSION_NUMBER;
41 x_pvt_Check_rec.APPLICATION_ID := P_Check_Rec.APPLICATION_ID;
42
43 END Convert_pub_to_pvt_rec;
44
45 PROCEDURE Convert_Columns_to_Rec(
46 p_CHECK_ID IN NUMBER DEFAULT NULL,
47 p_CHECK_NAME IN VARCHAR2,
48 p_CHECK_NAME_CODE IN VARCHAR2,
49 p_DESCRIPTION IN VARCHAR2,
50 p_START_DATE_ACTIVE IN DATE,
51 p_END_DATE_ACTIVE IN DATE,
52 p_SEEDED_FLAG IN VARCHAR2,
53 p_SELECT_TYPE IN VARCHAR2,
54 p_SELECT_BLOCK_ID IN NUMBER,
55 p_DATA_TYPE IN VARCHAR2,
56 p_FORMAT_MASK IN VARCHAR2,
57 p_THRESHOLD_GRADE IN VARCHAR2,
58 p_THRESHOLD_RATING_CODE IN VARCHAR2,
59 p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2,
60 p_THRESHOLD_COLOR_CODE IN VARCHAR2,
61 p_CHECK_LEVEL IN VARCHAR2,
62 -- p_CATEGORY_CODE IN VARCHAR2 := FND_API.G_MISS_CHAR,
63 p_CREATED_BY IN NUMBER,
64 p_CREATION_DATE IN DATE,
65 p_LAST_UPDATED_BY IN NUMBER,
66 p_LAST_UPDATE_DATE IN DATE,
67 p_LAST_UPDATE_LOGIN IN NUMBER,
68 p_OBJECT_VERSION_NUMBER IN NUMBER DEFAULT NULL,
69 p_APPLICATION_ID IN NUMBER,
70 X_Check_Rec OUT NOCOPY Check_Rec_Type
71 )
72 IS
73 BEGIN
74 X_Check_Rec.CHECK_ID := p_CHECK_ID;
75 X_Check_Rec.CHECK_NAME := p_CHECK_NAME;
76 X_Check_Rec.CHECK_NAME_CODE := p_CHECK_NAME_CODE;
77 X_Check_Rec.DESCRIPTION := p_DESCRIPTION;
78 X_Check_Rec.START_DATE_ACTIVE := p_START_DATE_ACTIVE;
79 X_Check_Rec.END_DATE_ACTIVE := p_END_DATE_ACTIVE;
80 X_Check_Rec.SEEDED_FLAG := p_SEEDED_FLAG;
81 X_Check_Rec.SELECT_TYPE := p_SELECT_TYPE;
82 X_Check_Rec.SELECT_BLOCK_ID := p_SELECT_BLOCK_ID;
83 X_Check_Rec.DATA_TYPE := p_DATA_TYPE;
84 X_Check_Rec.FORMAT_MASK := p_FORMAT_MASK;
85 X_Check_Rec.THRESHOLD_GRADE := p_THRESHOLD_GRADE;
86 X_Check_Rec.THRESHOLD_RATING_CODE := p_THRESHOLD_RATING_CODE;
87 X_Check_Rec.CHECK_UPPER_LOWER_FLAG := p_CHECK_UPPER_LOWER_FLAG;
88 X_Check_Rec.THRESHOLD_COLOR_CODE := p_THRESHOLD_COLOR_CODE;
92 X_Check_Rec.CREATION_DATE := p_CREATION_DATE;
89 X_Check_Rec.CHECK_LEVEL := p_CHECK_LEVEL;
90 --X_Check_Rec.CATEGORY_CODE := p_CATEGORY_CODE;
91 X_Check_Rec.CREATED_BY := p_CREATED_BY;
93 X_Check_Rec.LAST_UPDATED_BY := p_LAST_UPDATED_BY;
94 X_Check_Rec.LAST_UPDATE_DATE := p_LAST_UPDATE_DATE;
95 X_Check_Rec.LAST_UPDATE_LOGIN := p_LAST_UPDATE_LOGIN;
96 X_Check_Rec.OBJECT_VERSION_NUMBER := p_OBJECT_VERSION_NUMBER;
97 X_Check_Rec.APPLICATION_ID := p_APPLICATION_ID;
98 END Convert_Columns_to_Rec;
99
100 PROCEDURE Create_Profile_Check(
101 P_Api_Version_Number IN NUMBER,
102 P_Init_Msg_List IN VARCHAR2,
103 P_Commit IN VARCHAR2,
104 p_CHECK_NAME IN VARCHAR2,
105 p_CHECK_NAME_CODE IN VARCHAR2,
106 p_DESCRIPTION IN VARCHAR2,
107 p_START_DATE_ACTIVE IN DATE,
108 p_END_DATE_ACTIVE IN DATE,
109 p_SEEDED_FLAG IN VARCHAR2,
110 p_SELECT_TYPE IN VARCHAR2,
111 p_SELECT_BLOCK_ID IN NUMBER,
112 p_DATA_TYPE IN VARCHAR2,
113 p_FORMAT_MASK IN VARCHAR2,
114 p_THRESHOLD_GRADE IN VARCHAR2,
115 p_THRESHOLD_RATING_CODE IN VARCHAR2,
116 p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2,
117 p_THRESHOLD_COLOR_CODE IN VARCHAR2,
118 p_CHECK_LEVEL IN VARCHAR2,
119 --p_CATEGORY_CODE IN VARCHAR2 := FND_API.G_MISS_CHAR,
120 p_CREATED_BY IN NUMBER,
121 p_CREATION_DATE IN DATE,
122 p_LAST_UPDATED_BY IN NUMBER,
123 p_LAST_UPDATE_DATE IN DATE,
124 p_LAST_UPDATE_LOGIN IN NUMBER,
125 X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER,
126 p_APPLICATION_ID IN NUMBER,
127 X_CHECK_ID OUT NOCOPY NUMBER,
128 X_Return_Status OUT NOCOPY VARCHAR2,
129 X_Msg_Count OUT NOCOPY NUMBER,
130 X_Msg_Data OUT NOCOPY VARCHAR2
131 )
132 IS
133 l_Check_Rec Check_Rec_Type;
134 BEGIN
135 Convert_Columns_to_Rec(
136 p_CHECK_NAME => p_CHECK_NAME,
137 p_CHECK_NAME_CODE => p_CHECK_NAME_CODE,
138 p_DESCRIPTION => p_DESCRIPTION,
139 p_START_DATE_ACTIVE => p_START_DATE_ACTIVE,
140 p_END_DATE_ACTIVE => p_END_DATE_ACTIVE,
141 p_SEEDED_FLAG => p_SEEDED_FLAG,
142 p_SELECT_TYPE => p_SELECT_TYPE,
143 p_SELECT_BLOCK_ID => p_SELECT_BLOCK_ID,
144 p_DATA_TYPE => p_DATA_TYPE,
145 p_FORMAT_MASK => p_FORMAT_MASK,
146 p_THRESHOLD_GRADE => p_THRESHOLD_GRADE,
147 p_THRESHOLD_RATING_CODE => p_THRESHOLD_RATING_CODE,
148 p_CHECK_UPPER_LOWER_FLAG => p_CHECK_UPPER_LOWER_FLAG,
149 p_THRESHOLD_COLOR_CODE => p_THRESHOLD_COLOR_CODE,
150 p_CHECK_LEVEL => p_CHECK_LEVEL,
151 -- p_CATEGORY_CODE => p_CATEGORY_CODE
152 p_CREATED_BY => p_CREATED_BY,
153 p_CREATION_DATE => p_CREATION_DATE,
154 p_LAST_UPDATED_BY => p_LAST_UPDATED_BY,
155 p_LAST_UPDATE_DATE => p_LAST_UPDATE_DATE,
156 p_LAST_UPDATE_LOGIN => p_LAST_UPDATE_LOGIN,
157 p_APPLICATION_ID => p_APPLICATION_ID,
158 X_Check_Rec => l_Check_rec
159 );
160
161 Create_Profile_Check(
162 P_Api_Version_Number => P_Api_Version_Number,
163 P_Init_Msg_List => P_Init_Msg_List,
164 P_Commit => P_Commit,
165 P_Check_Rec => l_Check_Rec,
166 X_CHECK_ID => X_CHECK_ID,
167 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
168 X_Return_Status => X_Return_Status,
169 X_Msg_Count => X_Msg_Count,
170 X_Msg_Data => X_Msg_Data
171 );
172 END Create_Profile_Check;
173
174
175 PROCEDURE Create_Profile_Check(
176 P_Api_Version_Number IN NUMBER,
177 P_Init_Msg_List IN VARCHAR2,
178 P_Commit IN VARCHAR2,
179 P_CHECK_Rec IN CHECK_Rec_Type,
180 X_CHECK_ID OUT NOCOPY NUMBER,
181 X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER,
182 X_Return_Status OUT NOCOPY VARCHAR2,
183 X_Msg_Count OUT NOCOPY NUMBER,
184 X_Msg_Data OUT NOCOPY VARCHAR2
185 )
186 IS
187 l_api_name CONSTANT VARCHAR2(30) := 'Create_check';
188 l_api_version_number CONSTANT NUMBER := 1.0;
189
190 l_pvt_check_rec CSC_PROFILE_CHECK_PVT.CHECK_Rec_Type;
191 BEGIN
192 -- Standard Start of API savepoint
193 SAVEPOINT CREATE_PROFILE_CHECK_PUB;
194
195 -- Standard call to check for call compatibility.
196 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
197 p_api_version_number,
198 l_api_name,
199 G_PKG_NAME)
200 THEN
201 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202 END IF;
203
204
205 -- Initialize message list if p_init_msg_list is set to TRUE.
206 IF FND_API.to_Boolean( p_init_msg_list )
207 THEN
208 FND_MSG_PUB.initialize;
209 END IF;
210
211
212 -- Initialize API return status to SUCCESS
213 x_return_status := FND_API.G_RET_STS_SUCCESS;
214
215 Convert_Pub_to_Pvt_Rec(
216 p_check_Rec => p_check_rec,
217 x_pvt_check_rec => l_pvt_check_rec
218 );
219
220 --
224 P_Api_Version_Number => 1.0,
221 -- API body
222 --
223 CSC_Profile_check_PVT.Create_Profile_check(
225 P_Init_Msg_List => FND_API.G_FALSE,
226 P_Commit => FND_API.G_FALSE,
227 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
228 P_CHECK_Rec => l_pvt_CHECK_Rec ,
229 X_CHECK_ID => x_CHECK_ID,
230 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
231 X_Return_Status => x_return_status,
232 X_Msg_Count => x_msg_count,
233 X_Msg_Data => x_msg_data);
234
235
236 -- Check return status from the above procedure call
237 IF x_return_status = FND_API.G_RET_STS_ERROR then
238 raise FND_API.G_EXC_ERROR;
239 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
240 raise FND_API.G_EXC_UNEXPECTED_ERROR;
241 END IF;
242
243 --
244 -- End of API body.
245 --
246 -- Standard check for p_commit
247 IF FND_API.to_Boolean( p_commit )
248 THEN
249 COMMIT WORK;
250 END IF;
251
252
253 -- Standard call to get message count and if count is 1, get message info.
254 FND_MSG_PUB.Count_And_Get
255 ( p_count => x_msg_count,
256 p_data => x_msg_data
257 );
258
259 EXCEPTION
260 WHEN FND_API.G_EXC_ERROR THEN
261 ROLLBACK TO Create_Profile_Check_PUB;
262 x_return_status := FND_API.G_RET_STS_ERROR;
263 FND_MSG_PUB.Count_And_Get
264 ( p_count => x_msg_count,
265 p_data => x_msg_data
266 );
267 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268 ROLLBACK TO Create_Profile_Check_PUB;
269 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270 FND_MSG_PUB.Count_And_Get
271 ( p_count => x_msg_count,
272 p_data => x_msg_data
273 );
274 WHEN OTHERS THEN
275 ROLLBACK TO Create_Profile_Check_PUB;
276 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
278 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
279 END IF;
280 FND_MSG_PUB.Count_And_Get
281 ( p_count => x_msg_count,
282 p_data => x_msg_data
283 );
284 End Create_Profile_check;
285
286
287 PROCEDURE Update_Profile_Check(
288 P_Api_Version_Number IN NUMBER,
289 P_Init_Msg_List IN VARCHAR2,
290 P_Commit IN VARCHAR2,
291 p_CHECK_ID IN NUMBER,
292 p_CHECK_NAME IN VARCHAR2,
293 p_CHECK_NAME_CODE IN VARCHAR2,
294 p_DESCRIPTION IN VARCHAR2,
295 p_START_DATE_ACTIVE IN DATE,
296 p_END_DATE_ACTIVE IN DATE,
297 p_SEEDED_FLAG IN VARCHAR2,
298 p_SELECT_TYPE IN VARCHAR2,
299 p_SELECT_BLOCK_ID IN NUMBER,
300 p_DATA_TYPE IN VARCHAR2,
301 p_FORMAT_MASK IN VARCHAR2,
302 p_THRESHOLD_GRADE IN VARCHAR2,
303 p_THRESHOLD_RATING_CODE IN VARCHAR2,
304 p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2,
305 p_THRESHOLD_COLOR_CODE IN VARCHAR2,
306 p_CHECK_LEVEL IN VARCHAR2,
307 -- p_CATEGORY_CODE IN VARCHAR2 := FND_API.G_MISS_CHAR,
308 p_CREATED_BY IN NUMBER,
309 p_CREATION_DATE IN DATE,
310 p_LAST_UPDATED_BY IN NUMBER,
311 p_LAST_UPDATE_DATE IN DATE,
312 p_LAST_UPDATE_LOGIN IN NUMBER,
313 px_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER ,
314 p_APPLICATION_ID IN NUMBER,
315 X_Return_Status OUT NOCOPY VARCHAR2,
316 X_Msg_Count OUT NOCOPY NUMBER,
317 X_Msg_Data OUT NOCOPY VARCHAR2
318 )
319 IS
320 l_Check_Rec Check_Rec_Type;
321 BEGIN
322
323 Convert_Columns_to_Rec(
324 p_CHECK_ID => p_CHECK_ID,
325 p_CHECK_NAME => p_CHECK_NAME,
326 p_CHECK_NAME_CODE => p_CHECK_NAME_CODE,
327 p_DESCRIPTION => p_DESCRIPTION,
328 p_START_DATE_ACTIVE => p_START_DATE_ACTIVE,
329 p_END_DATE_ACTIVE => p_END_DATE_ACTIVE,
330 p_SEEDED_FLAG => p_SEEDED_FLAG,
331 p_SELECT_TYPE => p_SELECT_TYPE,
332 p_SELECT_BLOCK_ID => p_SELECT_BLOCK_ID,
333 p_DATA_TYPE => p_DATA_TYPE,
334 p_FORMAT_MASK => p_FORMAT_MASK,
335 p_THRESHOLD_GRADE => p_THRESHOLD_GRADE,
336 p_THRESHOLD_RATING_CODE => p_THRESHOLD_RATING_CODE,
337 p_CHECK_UPPER_LOWER_FLAG => p_CHECK_UPPER_LOWER_FLAG,
338 p_THRESHOLD_COLOR_CODE => p_THRESHOLD_COLOR_CODE,
339 p_CHECK_LEVEL => p_CHECK_LEVEL,
340 -- p_CATEGORY_CODE => p_CATEGORY_CODE
341 p_CREATED_BY => p_CREATED_BY,
342 p_CREATION_DATE => p_CREATION_DATE,
343 p_LAST_UPDATED_BY => p_LAST_UPDATED_BY,
344 p_LAST_UPDATE_DATE => p_LAST_UPDATE_DATE,
345 p_LAST_UPDATE_LOGIN => p_LAST_UPDATE_LOGIN,
346 p_OBJECT_VERSION_NUMBER =>px_OBJECT_VERSION_NUMBER,
347 p_APPLICATION_ID => p_APPLICATION_ID,
348 X_Check_Rec => l_Check_rec
349 );
350
351
352 Update_Profile_check(
353 P_Api_Version_Number => P_Api_Version_Number,
354 P_Init_Msg_List => P_Init_Msg_List,
358 X_Return_Status => X_Return_Status,
355 P_Commit => P_Commit,
356 P_Check_Rec => l_Check_Rec,
357 Px_OBJECT_VERSION_NUMBER => Px_OBJECT_VERSION_NUMBER,
359 X_Msg_Count => X_Msg_Count,
360 X_Msg_Data => X_Msg_Data
361 );
362
363 END;
364
365
366 PROCEDURE Update_Profile_Check(
367 P_Api_Version_Number IN NUMBER,
368 P_Init_Msg_List IN VARCHAR2,
369 P_Commit IN VARCHAR2,
370 P_CHECK_Rec IN CHECK_Rec_Type,
371 PX_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER,
372 X_Return_Status OUT NOCOPY VARCHAR2,
373 X_Msg_Count OUT NOCOPY NUMBER,
374 X_Msg_Data OUT NOCOPY VARCHAR2
375 )
376
377 IS
378 l_api_name CONSTANT VARCHAR2(30) := 'Update_check';
379 l_api_version_number CONSTANT NUMBER := 1.0;
380
381 l_pvt_check_rec CSC_PROFILE_CHECK_PVT.CHECK_Rec_Type;
382 BEGIN
383 -- Standard Start of API savepoint
384 SAVEPOINT UPDATE_CHECK_PUB;
385
386 -- Standard call to check for call compatibility.
387 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
388 p_api_version_number,
389 l_api_name,
390 G_PKG_NAME)
391 THEN
392 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393 END IF;
394
395
396 -- Initialize message list if p_init_msg_list is set to TRUE.
397 IF FND_API.to_Boolean( p_init_msg_list )
398 THEN
399 FND_MSG_PUB.initialize;
400 END IF;
401
402
403 -- Initialize API return status to SUCCESS
404 x_return_status := FND_API.G_RET_STS_SUCCESS;
405
406 --
407 -- API body
408 --
409
410 Convert_Pub_to_Pvt_Rec(
411 p_check_Rec => p_check_rec,
412 x_pvt_check_rec => l_pvt_check_rec
413 );
414
415
416 CSC_Profile_check_PVT.Update_Profile_check(
417 P_Api_Version_Number => 1.0,
418 P_Init_Msg_List => FND_API.G_FALSE,
419 P_Commit => p_commit,
420 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
421 P_CHECK_Rec => l_pvt_CHECK_Rec ,
422 Px_OBJECT_VERSION_NUMBER => Px_OBJECT_VERSION_NUMBER,
423 X_Return_Status => x_return_status,
424 X_Msg_Count => x_msg_count,
425 X_Msg_Data => x_msg_data);
426
427
428 -- Check return status from the above procedure call
429 IF x_return_status = FND_API.G_RET_STS_ERROR then
430 raise FND_API.G_EXC_ERROR;
431 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
432 raise FND_API.G_EXC_UNEXPECTED_ERROR;
433 END IF;
434
435 --
436 -- End of API body
437 --
438
439 -- Standard check for p_commit
440 IF FND_API.to_Boolean( p_commit )
441 THEN
442 COMMIT WORK;
443 END IF;
444
445
446 -- Standard call to get message count and if count is 1, get message info.
447 FND_MSG_PUB.Count_And_Get
448 ( p_count => x_msg_count,
449 p_data => x_msg_data
450 );
451
452 EXCEPTION
453 WHEN FND_API.G_EXC_ERROR THEN
454 ROLLBACK TO Update_Profile_Check_PUB;
455 x_return_status := FND_API.G_RET_STS_ERROR;
456 FND_MSG_PUB.Count_And_Get
457 ( p_count => x_msg_count,
458 p_data => x_msg_data
459 );
460 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461 ROLLBACK TO Update_Profile_Check_PUB;
462 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463 FND_MSG_PUB.Count_And_Get
464 ( p_count => x_msg_count,
465 p_data => x_msg_data
466 );
467 WHEN OTHERS THEN
468 ROLLBACK TO Update_Profile_Check_PUB;
469 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
471 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
472 END IF;
473 FND_MSG_PUB.Count_And_Get
474 ( p_count => x_msg_count,
475 p_data => x_msg_data
476 );
477 End Update_Profile_check;
478
479 PROCEDURE Delete_Profile_check(
480 P_Api_Version_Number IN NUMBER,
481 P_Init_Msg_List IN VARCHAR2,
482 P_Commit IN VARCHAR2,
483 p_Check_Id IN NUMBER,
484 p_Object_version_number IN NUMBER,
485 X_Return_Status OUT NOCOPY VARCHAR2,
486 X_Msg_Count OUT NOCOPY NUMBER,
487 X_Msg_Data OUT NOCOPY VARCHAR2
488 )
489
490 IS
491 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Profile_check';
492 l_api_version_number CONSTANT NUMBER := 1.0;
493 BEGIN
494 -- Standard Start of API savepoint
495 SAVEPOINT DELETE_CHECK_PUB;
496
497 -- Standard call to check for call compatibility.
498 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
499 p_api_version_number,
500 l_api_name,
501 G_PKG_NAME)
502 THEN
503 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504 END IF;
505
506
507 -- Initialize message list if p_init_msg_list is set to TRUE.
508 IF FND_API.to_Boolean( p_init_msg_list )
509 THEN
510 FND_MSG_PUB.initialize;
511 END IF;
512
513
514 -- Initialize API return status to SUCCESS
515 x_return_status := FND_API.G_RET_STS_SUCCESS;
516
517 --
518 -- API body
519 --
520
521 CSC_Profile_check_PVT.Delete_Profile_check(
522 P_Api_Version_Number => 1.0,
523 P_Init_Msg_List => FND_API.G_FALSE,
524 P_Commit => p_commit,
525 P_VALidation_level => FND_API.G_VALID_LEVEL_FULL,
526 P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER,
527 P_CHECK_Id => p_CHECK_Id,
528 X_Return_Status => x_return_status,
529 X_Msg_Count => x_msg_count,
530 X_Msg_Data => x_msg_data);
531
532 -- Check return status from the above procedure call
533 IF x_return_status = FND_API.G_RET_STS_ERROR then
534 raise FND_API.G_EXC_ERROR;
535 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
536 raise FND_API.G_EXC_UNEXPECTED_ERROR;
537 END IF;
538
539 --
540 -- End of API body
541 --
542
543 -- Standard check for p_commit
544 IF FND_API.to_Boolean( p_commit )
545 THEN
546 COMMIT WORK;
547 END IF;
548
549
550
551 -- Standard call to get message count and if count is 1, get message info.
552 FND_MSG_PUB.Count_And_Get
553 ( p_count => x_msg_count,
554 p_data => x_msg_data
555 );
556
557 EXCEPTION
558 WHEN FND_API.G_EXC_ERROR THEN
559 ROLLBACK TO Delete_Profile_Check_PUB;
560 x_return_status := FND_API.G_RET_STS_ERROR;
561 FND_MSG_PUB.Count_And_Get
562 ( p_count => x_msg_count,
563 p_data => x_msg_data
564 );
565 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566 ROLLBACK TO Delete_Profile_Check_PUB;
567 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568 FND_MSG_PUB.Count_And_Get
569 ( p_count => x_msg_count,
570 p_data => x_msg_data
571 );
572 WHEN OTHERS THEN
573 ROLLBACK TO Delete_Profile_Check_PUB;
574 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
576 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
577 END IF;
578 FND_MSG_PUB.Count_And_Get
579 ( p_count => x_msg_count,
580 p_data => x_msg_data
581 );
582 End Delete_Profile_check;
583
584
585
586 End CSC_PROFILE_CHECK_PUB;