47: -- p_Qual_Usgs_Rec Qual_Usgs_All_Rec_Type G_MISS_QUAL_USGS_ALL_REC
48: --
49: -- Optional
50: -- Parameter Name Data Type Default
51: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
52: -- P_Commit VARCHAR2 FND_API.G_FALSE
53: --
54: -- OUT :
55: -- Parameter Name Data Type Default
48: --
49: -- Optional
50: -- Parameter Name Data Type Default
51: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
52: -- P_Commit VARCHAR2 FND_API.G_FALSE
53: --
54: -- OUT :
55: -- Parameter Name Data Type Default
56: -- x_Return_Status VARCHAR2(1)
70: --
71: PROCEDURE Create_Qualifier
72: (p_Api_Version IN NUMBER,
73: -- commented out eihsu 11/04
74: p_Init_Msg_List IN VARCHAR2 ,-- := FND_API.G_FALSE,
75: p_Commit IN VARCHAR2 ,-- := FND_API.G_FALSE,
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_Msg_Count OUT NOCOPY NUMBER,
78: x_Msg_Data OUT NOCOPY VARCHAR2,
71: PROCEDURE Create_Qualifier
72: (p_Api_Version IN NUMBER,
73: -- commented out eihsu 11/04
74: p_Init_Msg_List IN VARCHAR2 ,-- := FND_API.G_FALSE,
75: p_Commit IN VARCHAR2 ,-- := FND_API.G_FALSE,
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_Msg_Count OUT NOCOPY NUMBER,
78: x_Msg_Data OUT NOCOPY VARCHAR2,
79: -- commented out eihsu 11/04
94: -- Standard Start of API savepoint;
95: SAVEPOINT CREATE_QUALIFIER_PUB;
96:
97: -- Standard call to check for call compatibility.
98: IF NOT FND_API.Compatible_API_Call (
99: l_api_version,
100: p_api_version ,
101: l_api_name,
102: G_PKG_NAME)
100: p_api_version ,
101: l_api_name,
102: G_PKG_NAME)
103: THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: END IF;
106:
107: -- Initialize message list if p_init_msg_list is set to TRUE.
108: IF FND_API.to_Boolean( p_init_msg_list )
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: END IF;
106:
107: -- Initialize message list if p_init_msg_list is set to TRUE.
108: IF FND_API.to_Boolean( p_init_msg_list )
109: THEN
110: FND_MSG_PUB.initialize;
111: END IF;
112:
121: -- Start of API body.
122: -------------------------------------------------------------------------------------------------------
123:
124: -- Initialize API return status to success
125: l_return_status := FND_API.G_RET_STS_SUCCESS;
126:
127: ----plsdbg.put('QUALPUB.CREATE_QUALIFIER: calling PRIVATE.Create_Qualifier ');
128:
129: -- All of the values have been converted, so call the Create_Qualifier Private API
127: ----plsdbg.put('QUALPUB.CREATE_QUALIFIER: calling PRIVATE.Create_Qualifier ');
128:
129: -- All of the values have been converted, so call the Create_Qualifier Private API
130: JTF_QUALIFIER_PVT.Create_Qualifier ( p_api_version => 1.0,
131: p_Init_Msg_List => FND_API.G_FALSE,
132: p_Commit => FND_API.G_FALSE,
133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
134: x_Return_Status => l_return_status,
135: x_Msg_Count => x_msg_count,
128:
129: -- All of the values have been converted, so call the Create_Qualifier Private API
130: JTF_QUALIFIER_PVT.Create_Qualifier ( p_api_version => 1.0,
131: p_Init_Msg_List => FND_API.G_FALSE,
132: p_Commit => FND_API.G_FALSE,
133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
134: x_Return_Status => l_return_status,
135: x_Msg_Count => x_msg_count,
136: x_Msg_Data => x_msg_data,
129: -- All of the values have been converted, so call the Create_Qualifier Private API
130: JTF_QUALIFIER_PVT.Create_Qualifier ( p_api_version => 1.0,
131: p_Init_Msg_List => FND_API.G_FALSE,
132: p_Commit => FND_API.G_FALSE,
133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
134: x_Return_Status => l_return_status,
135: x_Msg_Count => x_msg_count,
136: x_Msg_Data => x_msg_data,
137: p_Seed_Qual_Rec => p_seed_qual_rec,
140: x_Qual_Usgs_Rec => x_qual_usgs_rec);
141:
142: --dbms_output.put_line('After calling private JTF_QUALIFIER_PVT.Create_Qualifier ');
143:
144: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
145: RAISE FND_API.G_EXC_ERROR;
146: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
141:
142: --dbms_output.put_line('After calling private JTF_QUALIFIER_PVT.Create_Qualifier ');
143:
144: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
145: RAISE FND_API.G_EXC_ERROR;
146: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149:
142: --dbms_output.put_line('After calling private JTF_QUALIFIER_PVT.Create_Qualifier ');
143:
144: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
145: RAISE FND_API.G_EXC_ERROR;
146: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149:
150: /* save return status */
143:
144: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
145: RAISE FND_API.G_EXC_ERROR;
146: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149:
150: /* save return status */
151: x_return_status := l_return_status;
154: -- End of API body.
155: -------------------------------------------------------------------------------------------------------
156:
157: -- Standard check of p_commit.
158: IF FND_API.To_Boolean ( p_commit )
159: THEN
160: COMMIT WORK;
161: END IF;
162:
176:
177:
178: EXCEPTION
179:
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO CREATE_QUALIFIER_PUB;
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183:
184: FND_MSG_PUB.Count_And_Get
178: EXCEPTION
179:
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO CREATE_QUALIFIER_PUB;
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183:
184: FND_MSG_PUB.Count_And_Get
185: ( p_count => x_msg_count,
186: p_data => x_msg_data
185: ( p_count => x_msg_count,
186: p_data => x_msg_data
187: );
188:
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: ROLLBACK TO CREATE_QUALIFIER_PUB;
191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
192:
193: FND_MSG_PUB.Count_And_Get
187: );
188:
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: ROLLBACK TO CREATE_QUALIFIER_PUB;
191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
192:
193: FND_MSG_PUB.Count_And_Get
194: ( p_count => x_msg_count,
195: p_data => x_msg_data
197:
198:
199: WHEN OTHERS THEN
200: ROLLBACK TO CREATE_QUALIFIER_PUB;
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
202:
203: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
204: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
205: END IF;
231: -- p_Qual_Usgs_Rec Qual_Usgs_All_Rec_Type
232: --
233: -- Optional
234: -- Parameter Name Data Type Default
235: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
236: -- P_Commit VARCHAR2 FND_API.G_FALSE
237: --
238: -- OUT :
239: -- Parameter Name Data Type
232: --
233: -- Optional
234: -- Parameter Name Data Type Default
235: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
236: -- P_Commit VARCHAR2 FND_API.G_FALSE
237: --
238: -- OUT :
239: -- Parameter Name Data Type
240: -- x_Return_Status VARCHAR2(1)
250: -- End of Comments
251: --
252: PROCEDURE Update_Qualifier
253: (p_api_version IN NUMBER,
254: p_Init_Msg_List IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
255: p_Commit IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
256: x_Return_Status OUT NOCOPY VARCHAR2,
257: x_Msg_Count OUT NOCOPY NUMBER,
258: x_Msg_Data OUT NOCOPY VARCHAR2,
251: --
252: PROCEDURE Update_Qualifier
253: (p_api_version IN NUMBER,
254: p_Init_Msg_List IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
255: p_Commit IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
256: x_Return_Status OUT NOCOPY VARCHAR2,
257: x_Msg_Count OUT NOCOPY NUMBER,
258: x_Msg_Data OUT NOCOPY VARCHAR2,
259: p_Seed_Qual_Rec IN Seed_Qual_Rec_Type,
280: -- Standard Start of API savepoint;
281: SAVEPOINT UPDATE_QUALIFIER_PUB;
282:
283: -- Standard call to check for call compatibility.
284: IF NOT FND_API.Compatible_API_Call (
285: l_api_version,
286: p_api_version ,
287: l_api_name,
288: G_PKG_NAME)
286: p_api_version ,
287: l_api_name,
288: G_PKG_NAME)
289: THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291: END IF;
292:
293: -- Initialize message list if p_init_msg_list is set to TRUE.
294: IF FND_API.to_Boolean( p_init_msg_list )
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291: END IF;
292:
293: -- Initialize message list if p_init_msg_list is set to TRUE.
294: IF FND_API.to_Boolean( p_init_msg_list )
295: THEN
296: FND_MSG_PUB.initialize;
297: END IF;
298:
307: -- Start of API body.
308: -------------------------------------------------------------------------------------------------------
309:
310: -- Initialize API return status to success
311: l_return_status := FND_API.G_RET_STS_SUCCESS;
312:
313: ----plsdbg.put('QUALPUB.UPDATE_QUAL: Calling Update Qual in PVT package');
314:
315: -- All of the values have been converted, so call the Create_Qualifier Private API
313: ----plsdbg.put('QUALPUB.UPDATE_QUAL: Calling Update Qual in PVT package');
314:
315: -- All of the values have been converted, so call the Create_Qualifier Private API
316: JTF_QUALIFIER_PVT.Update_Qualifier ( p_api_version => 1.0,
317: p_Init_Msg_List => FND_API.G_FALSE,
318: p_Commit => FND_API.G_FALSE,
319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: x_Return_Status => l_return_status,
321: x_Msg_Count => x_msg_count,
314:
315: -- All of the values have been converted, so call the Create_Qualifier Private API
316: JTF_QUALIFIER_PVT.Update_Qualifier ( p_api_version => 1.0,
317: p_Init_Msg_List => FND_API.G_FALSE,
318: p_Commit => FND_API.G_FALSE,
319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: x_Return_Status => l_return_status,
321: x_Msg_Count => x_msg_count,
322: x_Msg_Data => x_msg_data,
315: -- All of the values have been converted, so call the Create_Qualifier Private API
316: JTF_QUALIFIER_PVT.Update_Qualifier ( p_api_version => 1.0,
317: p_Init_Msg_List => FND_API.G_FALSE,
318: p_Commit => FND_API.G_FALSE,
319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: x_Return_Status => l_return_status,
321: x_Msg_Count => x_msg_count,
322: x_Msg_Data => x_msg_data,
323: p_Seed_Qual_Rec => p_seed_qual_rec,
324: p_Qual_Usgs_Rec => p_qual_usgs_rec,
325: x_Seed_Qual_Rec => x_seed_qual_rec,
326: x_Qual_Usgs_Rec => x_qual_usgs_rec);
327:
328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
325: x_Seed_Qual_Rec => x_seed_qual_rec,
326: x_Qual_Usgs_Rec => x_qual_usgs_rec);
327:
328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
326: x_Qual_Usgs_Rec => x_qual_usgs_rec);
327:
328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
334: /* save return status */
327:
328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
334: /* save return status */
335: x_return_status := l_return_status;
340: -- End of API body.
341: -------------------------------------------------------------------------------------------------------
342:
343: -- Standard check of p_commit.
344: IF FND_API.To_Boolean ( p_commit )
345: THEN
346: COMMIT WORK;
347: END IF;
348:
361:
362:
363: EXCEPTION
364:
365: WHEN FND_API.G_EXC_ERROR THEN
366: ROLLBACK TO UPDATE_QUALIFIER_PUB;
367: x_return_status := FND_API.G_RET_STS_ERROR ;
368:
369: FND_MSG_PUB.Count_And_Get
363: EXCEPTION
364:
365: WHEN FND_API.G_EXC_ERROR THEN
366: ROLLBACK TO UPDATE_QUALIFIER_PUB;
367: x_return_status := FND_API.G_RET_STS_ERROR ;
368:
369: FND_MSG_PUB.Count_And_Get
370: ( p_count => x_msg_count,
371: p_data => x_msg_data
370: ( p_count => x_msg_count,
371: p_data => x_msg_data
372: );
373:
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375: ROLLBACK TO UPDATE_QUALIFIER_PUB;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
377:
378: FND_MSG_PUB.Count_And_Get
372: );
373:
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375: ROLLBACK TO UPDATE_QUALIFIER_PUB;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
377:
378: FND_MSG_PUB.Count_And_Get
379: ( p_count => x_msg_count,
380: p_data => x_msg_data
382:
383:
384: WHEN OTHERS THEN
385: ROLLBACK TO UPDATE_QUALIFIER_PUB;
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
387:
388: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
389: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
390: END IF;
416: -- p_Qual_Usgs_Id NUMBER
417: --
418: -- Optional
419: -- Parameter Name Data Type Default
420: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
421: -- P_Commit VARCHAR2 FND_API.G_FALSE
422: --
423: -- OUT :
424: -- Parameter Name Data Type
417: --
418: -- Optional
419: -- Parameter Name Data Type Default
420: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
421: -- P_Commit VARCHAR2 FND_API.G_FALSE
422: --
423: -- OUT :
424: -- Parameter Name Data Type
425: -- x_Return_Status VARCHAR2(1)
433: -- End of Comments
434: --
435: PROCEDURE Delete_Qualifier
436: (p_api_version IN NUMBER,
437: p_Init_Msg_List IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
438: p_Commit IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
439: x_Return_Status OUT NOCOPY VARCHAR2,
440: x_Msg_Count OUT NOCOPY NUMBER,
441: x_Msg_Data OUT NOCOPY VARCHAR2,
434: --
435: PROCEDURE Delete_Qualifier
436: (p_api_version IN NUMBER,
437: p_Init_Msg_List IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
438: p_Commit IN VARCHAR2, -- 2372550: JDOCHERT : 05/1402 -- := FND_API.G_FALSE,
439: x_Return_Status OUT NOCOPY VARCHAR2,
440: x_Msg_Count OUT NOCOPY NUMBER,
441: x_Msg_Data OUT NOCOPY VARCHAR2,
442: p_Seeded_Qual_Id IN NUMBER,
454: -- Standard Start of API savepoint;
455: SAVEPOINT DELETE_QUALIFIER_PUB;
456:
457: -- Standard call to check for call compatibility.
458: IF NOT FND_API.Compatible_API_Call (
459: l_api_version,
460: p_api_version ,
461: l_api_name,
462: G_PKG_NAME)
460: p_api_version ,
461: l_api_name,
462: G_PKG_NAME)
463: THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
467: -- Initialize message list if p_init_msg_list is set to TRUE.
468: IF FND_API.to_Boolean( p_init_msg_list )
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
467: -- Initialize message list if p_init_msg_list is set to TRUE.
468: IF FND_API.to_Boolean( p_init_msg_list )
469: THEN
470: FND_MSG_PUB.initialize;
471: END IF;
472:
481: -- Start of API body.
482: -------------------------------------------------------------------------------------------------------
483:
484: -- Initialize API return status to success
485: l_return_status := FND_API.G_RET_STS_SUCCESS;
486:
487:
488: -- All of the values have been converted, so call the Create_Qualifier Private API
489: JTF_QUALIFIER_PVT.Delete_Qualifier ( p_api_version => 1.0,
486:
487:
488: -- All of the values have been converted, so call the Create_Qualifier Private API
489: JTF_QUALIFIER_PVT.Delete_Qualifier ( p_api_version => 1.0,
490: p_Init_Msg_List => FND_API.G_FALSE,
491: p_Commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: x_Return_Status => l_return_status,
494: x_Msg_Count => x_msg_count,
487:
488: -- All of the values have been converted, so call the Create_Qualifier Private API
489: JTF_QUALIFIER_PVT.Delete_Qualifier ( p_api_version => 1.0,
490: p_Init_Msg_List => FND_API.G_FALSE,
491: p_Commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: x_Return_Status => l_return_status,
494: x_Msg_Count => x_msg_count,
495: x_Msg_Data => x_msg_data,
488: -- All of the values have been converted, so call the Create_Qualifier Private API
489: JTF_QUALIFIER_PVT.Delete_Qualifier ( p_api_version => 1.0,
490: p_Init_Msg_List => FND_API.G_FALSE,
491: p_Commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: x_Return_Status => l_return_status,
494: x_Msg_Count => x_msg_count,
495: x_Msg_Data => x_msg_data,
496: p_Seeded_Qual_Id => p_seeded_qual_id,
495: x_Msg_Data => x_msg_data,
496: p_Seeded_Qual_Id => p_seeded_qual_id,
497: p_Qual_Usg_Id => p_qual_usg_id);
498:
499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
496: p_Seeded_Qual_Id => p_seeded_qual_id,
497: p_Qual_Usg_Id => p_qual_usg_id);
498:
499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
497: p_Qual_Usg_Id => p_qual_usg_id);
498:
499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505: /* save return status */
498:
499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505: /* save return status */
506: x_return_status := l_return_status;
511: -- End of API body.
512: -------------------------------------------------------------------------------------------------------
513:
514: -- Standard check of p_commit.
515: IF FND_API.To_Boolean ( p_commit )
516: THEN
517: COMMIT WORK;
518: END IF;
519:
532:
533:
534: EXCEPTION
535:
536: WHEN FND_API.G_EXC_ERROR THEN
537: ROLLBACK TO DELETE_QUALIFIER_PUB;
538: x_return_status := FND_API.G_RET_STS_ERROR ;
539:
540: FND_MSG_PUB.Count_And_Get
534: EXCEPTION
535:
536: WHEN FND_API.G_EXC_ERROR THEN
537: ROLLBACK TO DELETE_QUALIFIER_PUB;
538: x_return_status := FND_API.G_RET_STS_ERROR ;
539:
540: FND_MSG_PUB.Count_And_Get
541: ( p_count => x_msg_count,
542: p_data => x_msg_data
541: ( p_count => x_msg_count,
542: p_data => x_msg_data
543: );
544:
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO DELETE_QUALIFIER_PUB;
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
548:
549: FND_MSG_PUB.Count_And_Get
543: );
544:
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: ROLLBACK TO DELETE_QUALIFIER_PUB;
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
548:
549: FND_MSG_PUB.Count_And_Get
550: ( p_count => x_msg_count,
551: p_data => x_msg_data
553:
554:
555: WHEN OTHERS THEN
556: ROLLBACK TO DELETE_QUALIFIER_PUB;
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
558:
559: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
560: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
561: END IF;