57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean( p_init_msg_list ) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
65: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
134: COMMIT WORK;
135: END IF;
136:
137: -- Standard call to get message count and IF count is get message info.
138: FND_MSG_PUB.Count_And_Get
139: (p_count => x_msg_count,
140: p_data => x_msg_data );
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151:
152: -- The definition already exists. No duplicates are allowed.
153: FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
154: FND_MSG_PUB.add;
155:
156: FND_MSG_PUB.Count_And_Get
157: (p_count => x_msg_count,
158: p_data => x_msg_data );
152: -- The definition already exists. No duplicates are allowed.
153: FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
154: FND_MSG_PUB.add;
155:
156: FND_MSG_PUB.Count_And_Get
157: (p_count => x_msg_count,
158: p_data => x_msg_data );
159:
160: -- save message in debug log
165: WHEN FND_API.G_EXC_ERROR THEN
166: ROLLBACK TO Create_Rt_Tran;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: FND_MSG_PUB.Count_And_Get
170: (p_count => x_msg_count,
171: p_data => x_msg_data );
172:
173: -- save message in debug log
180: ROLLBACK TO Create_Rt_Tran;
181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182:
183: -- save message in fnd stack
184: IF FND_MSG_PUB.Check_Msg_Level
185: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
186: THEN
187: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182:
183: -- save message in fnd stack
184: IF FND_MSG_PUB.Check_Msg_Level
185: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
186: THEN
187: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
189: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
185: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
186: THEN
187: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
189: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
190: end if;
191: FND_MSG_PUB.Add_Exc_Msg
192: (G_PKG_NAME ,
193: lc_api_name );
187: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
189: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
190: end if;
191: FND_MSG_PUB.Add_Exc_Msg
192: (G_PKG_NAME ,
193: lc_api_name );
194: END IF;
195:
192: (G_PKG_NAME ,
193: lc_api_name );
194: END IF;
195:
196: FND_MSG_PUB.Count_And_Get
197: ( p_count => x_msg_count,
198: p_data => x_msg_data );
199:
200: -- save message in debug log
207: ROLLBACK TO Create_Rt_Tran;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
210: -- save message in fnd stack
211: IF FND_MSG_PUB.Check_Msg_Level
212: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
213: THEN
214: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
210: -- save message in fnd stack
211: IF FND_MSG_PUB.Check_Msg_Level
212: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
213: THEN
214: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
216: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
212: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
213: THEN
214: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
216: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
217: end if;
218: FND_MSG_PUB.Add_Exc_Msg
219: (G_PKG_NAME ,
220: lc_api_name );
214: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
216: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
217: end if;
218: FND_MSG_PUB.Add_Exc_Msg
219: (G_PKG_NAME ,
220: lc_api_name );
221: END IF;
222:
219: (G_PKG_NAME ,
220: lc_api_name );
221: END IF;
222:
223: FND_MSG_PUB.Count_And_Get
224: (p_count => x_msg_count,
225: p_data => x_msg_data );
226:
227: -- save message in debug log
286: END IF;
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
367: COMMIT WORK;
368: END IF;
369:
370: -- Standard call to get message count and IF count is get message info.
371: FND_MSG_PUB.Count_And_Get
372: (p_count => x_msg_count,
373: p_data => x_msg_data );
374:
375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
383: x_return_status := FND_API.G_RET_STS_ERROR;
384:
385: -- The definition already exists. No duplicates are allowed.
386: FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
387: FND_MSG_PUB.add;
388:
389: FND_MSG_PUB.Count_And_Get
390: (p_count => x_msg_count,
391: p_data => x_msg_data );
385: -- The definition already exists. No duplicates are allowed.
386: FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
387: FND_MSG_PUB.add;
388:
389: FND_MSG_PUB.Count_And_Get
390: (p_count => x_msg_count,
391: p_data => x_msg_data );
392:
393: -- save message in debug log
398: WHEN FND_API.G_EXC_ERROR THEN
399: ROLLBACK TO Update_Rt_Tran;
400: x_return_status := FND_API.G_RET_STS_ERROR;
401:
402: FND_MSG_PUB.Count_And_Get
403: (p_count => x_msg_count,
404: p_data => x_msg_data );
405:
406: -- save message in debug log
412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
413: ROLLBACK TO Update_Rt_Tran;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415:
416: IF FND_MSG_PUB.Check_Msg_Level
417: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
418: THEN
419: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
420: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
413: ROLLBACK TO Update_Rt_Tran;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415:
416: IF FND_MSG_PUB.Check_Msg_Level
417: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
418: THEN
419: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
420: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
421: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
417: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
418: THEN
419: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
420: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
421: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
422: end if;
423: FND_MSG_PUB.Add_Exc_Msg
424: (G_PKG_NAME ,
425: lc_api_name );
419: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
420: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
421: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
422: end if;
423: FND_MSG_PUB.Add_Exc_Msg
424: (G_PKG_NAME ,
425: lc_api_name );
426: END IF;
427:
424: (G_PKG_NAME ,
425: lc_api_name );
426: END IF;
427:
428: FND_MSG_PUB.Count_And_Get
429: ( p_count => x_msg_count,
430: p_data => x_msg_data );
431:
432: -- save message in debug log
439: ROLLBACK TO Update_Rt_Tran;
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441:
442: -- save message in fnd stack
443: IF FND_MSG_PUB.Check_Msg_Level
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441:
442: -- save message in fnd stack
443: IF FND_MSG_PUB.Check_Msg_Level
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
448: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
448: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
449: end if;
450: FND_MSG_PUB.Add_Exc_Msg
451: (G_PKG_NAME ,
452: lc_api_name );
446: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
447: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
448: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
449: end if;
450: FND_MSG_PUB.Add_Exc_Msg
451: (G_PKG_NAME ,
452: lc_api_name );
453: END IF;
454:
451: (G_PKG_NAME ,
452: lc_api_name );
453: END IF;
454:
455: FND_MSG_PUB.Count_And_Get
456: (p_count => x_msg_count,
457: p_data => x_msg_data );
458:
459: -- save message in debug log
507: END IF;
508:
509: -- Initialize message list if p_init_msg_list is set to TRUE.
510: IF FND_API.to_Boolean( p_init_msg_list ) THEN
511: FND_MSG_PUB.initialize;
512: END IF;
513:
514: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
515: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
559: COMMIT WORK;
560: END IF;
561:
562: -- Standard call to get message count and IF count is get message info.
563: FND_MSG_PUB.Count_And_Get
564: (p_count => x_msg_count,
565: p_data => x_msg_data );
566:
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: ROLLBACK TO Delete_Rt_Tran;
576:
577: x_return_status := FND_API.G_RET_STS_ERROR;
578:
579: FND_MSG_PUB.Count_And_Get
580: (p_count => x_msg_count,
581: p_data => x_msg_data );
582:
583: -- save message in debug log
590: ROLLBACK TO Delete_Rt_Tran;
591:
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593:
594: IF FND_MSG_PUB.Check_Msg_Level
595: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
596: THEN
597: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
591:
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593:
594: IF FND_MSG_PUB.Check_Msg_Level
595: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
596: THEN
597: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
599: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
595: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
596: THEN
597: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
599: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
600: end if;
601: FND_MSG_PUB.Add_Exc_Msg
602: (G_PKG_NAME ,
603: lc_api_name );
597: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
599: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
600: end if;
601: FND_MSG_PUB.Add_Exc_Msg
602: (G_PKG_NAME ,
603: lc_api_name );
604: END IF;
605:
602: (G_PKG_NAME ,
603: lc_api_name );
604: END IF;
605:
606: FND_MSG_PUB.Count_And_Get
607: ( p_count => x_msg_count,
608: p_data => x_msg_data );
609:
610: -- save message in debug log
618:
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620:
621: -- save message in fnd stack
622: IF FND_MSG_PUB.Check_Msg_Level
623: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
624: THEN
625: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620:
621: -- save message in fnd stack
622: IF FND_MSG_PUB.Check_Msg_Level
623: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
624: THEN
625: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
627: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
623: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
624: THEN
625: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
627: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
628: end if;
629: FND_MSG_PUB.Add_Exc_Msg
630: (G_PKG_NAME ,
631: lc_api_name );
625: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
627: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
628: end if;
629: FND_MSG_PUB.Add_Exc_Msg
630: (G_PKG_NAME ,
631: lc_api_name );
632: END IF;
633:
630: (G_PKG_NAME ,
631: lc_api_name );
632: END IF;
633:
634: FND_MSG_PUB.Count_And_Get
635: (p_count => x_msg_count,
636: p_data => x_msg_data );
637:
638: -- save message in debug log
687: END IF;
688:
689: -- Initialize message list if p_init_msg_list is set to TRUE.
690: IF FND_API.to_Boolean( p_init_msg_list ) THEN
691: FND_MSG_PUB.initialize;
692: END IF;
693:
694: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
747: COMMIT WORK;
748: END IF;
749:
750: -- Standard call to get message count and IF count is get message info.
751: FND_MSG_PUB.Count_And_Get
752: (p_count => x_msg_count,
753: p_data => x_msg_data );
754:
755: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: WHEN FND_API.G_EXC_ERROR THEN
763: ROLLBACK TO Lock_Rt_Tran;
764: x_return_status := FND_API.G_RET_STS_ERROR;
765:
766: FND_MSG_PUB.Count_And_Get
767: (p_count => x_msg_count,
768: p_data => x_msg_data );
769:
770: -- save message in debug log
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777: ROLLBACK TO Lock_Rt_Tran;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779:
780: IF FND_MSG_PUB.Check_Msg_Level
781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
782: THEN
783: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
777: ROLLBACK TO Lock_Rt_Tran;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779:
780: IF FND_MSG_PUB.Check_Msg_Level
781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
782: THEN
783: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
785: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
782: THEN
783: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
785: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
786: end if;
787: FND_MSG_PUB.Add_Exc_Msg
788: (G_PKG_NAME ,
789: lc_api_name );
783: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
785: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
786: end if;
787: FND_MSG_PUB.Add_Exc_Msg
788: (G_PKG_NAME ,
789: lc_api_name );
790: END IF;
791:
788: (G_PKG_NAME ,
789: lc_api_name );
790: END IF;
791:
792: FND_MSG_PUB.Count_And_Get
793: ( p_count => x_msg_count,
794: p_data => x_msg_data );
795:
796: -- save message in debug log
803: ROLLBACK TO Lock_Rt_Tran;
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805:
806: -- save message in fnd stack
807: IF FND_MSG_PUB.Check_Msg_Level
808: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
809: THEN
810: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805:
806: -- save message in fnd stack
807: IF FND_MSG_PUB.Check_Msg_Level
808: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
809: THEN
810: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
812: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
808: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
809: THEN
810: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
812: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
813: end if;
814: FND_MSG_PUB.Add_Exc_Msg
815: (G_PKG_NAME ,
816: lc_api_name );
810: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
812: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
813: end if;
814: FND_MSG_PUB.Add_Exc_Msg
815: (G_PKG_NAME ,
816: lc_api_name );
817: END IF;
818:
815: (G_PKG_NAME ,
816: lc_api_name );
817: END IF;
818:
819: FND_MSG_PUB.Count_And_Get
820: (p_count => x_msg_count,
821: p_data => x_msg_data );
822:
823: -- save message in debug log