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',
66: 'Entered Create_Rt_Tran');
67: END IF;
68:
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',
66: 'Entered Create_Rt_Tran');
67: END IF;
68:
69: -- Initialize API return status to success
71:
72: -- Api body starts
73:
74: -- Check the required parameters
75: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
77: 'Checking required parameters');
78: end if;
79:
72: -- Api body starts
73:
74: -- Check the required parameters
75: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
77: 'Checking required parameters');
78: end if;
79:
80: -- Check the required parameters
93: p_param_name => 'COMMON_FLOW_STATUS_ID',
94: p_api_name => lc_api_name);
95:
96: -- Insert row
97: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
98: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
99: 'Calling Insert_Row table handler');
100: end if;
101:
94: p_api_name => lc_api_name);
95:
96: -- Insert row
97: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
98: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
99: 'Calling Insert_Row table handler');
100: end if;
101:
102: Begin
121: );
122:
123: END;
124:
125: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
126: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
127: 'Returned from Insert_Row table handler');
128: end if;
129:
122:
123: END;
124:
125: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
126: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
127: 'Returned from Insert_Row table handler');
128: end if;
129:
130: -- Api body ends here
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
143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
144: 'Leaving Create_Rt_Tran');
145: END IF;
146:
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
143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
144: 'Leaving Create_Rt_Tran');
145: END IF;
146:
147: EXCEPTION
157: (p_count => x_msg_count,
158: p_data => x_msg_data );
159:
160: -- save message in debug log
161: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
162: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
163: 'EXC_ERROR['||x_msg_data||']');
164: END IF;
165: WHEN FND_API.G_EXC_ERROR THEN
158: p_data => x_msg_data );
159:
160: -- save message in debug log
161: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
162: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
163: 'EXC_ERROR['||x_msg_data||']');
164: END IF;
165: WHEN FND_API.G_EXC_ERROR THEN
166: ROLLBACK TO Create_Rt_Tran;
170: (p_count => x_msg_count,
171: p_data => x_msg_data );
172:
173: -- save message in debug log
174: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
175: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
176: 'EXC_ERROR['||x_msg_data||']');
177: END IF;
178:
171: p_data => x_msg_data );
172:
173: -- save message in debug log
174: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
175: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
176: 'EXC_ERROR['||x_msg_data||']');
177: END IF;
178:
179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
190: end if;
191: FND_MSG_PUB.Add_Exc_Msg
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');
190: end if;
191: FND_MSG_PUB.Add_Exc_Msg
192: (G_PKG_NAME ,
197: ( p_count => x_msg_count,
198: p_data => x_msg_data );
199:
200: -- save message in debug log
201: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
203: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
204: END IF;
205:
198: p_data => x_msg_data );
199:
200: -- save message in debug log
201: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
203: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
204: END IF;
205:
206: WHEN OTHERS THEN
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');
217: end if;
218: FND_MSG_PUB.Add_Exc_Msg
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');
217: end if;
218: FND_MSG_PUB.Add_Exc_Msg
219: (G_PKG_NAME ,
224: (p_count => x_msg_count,
225: p_data => x_msg_data );
226:
227: -- save message in debug log
228: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: -- create a seeded message
230: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
231: 'SQL Message['||sqlerrm||']' );
232: END IF;
226:
227: -- save message in debug log
228: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: -- create a seeded message
230: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
231: 'SQL Message['||sqlerrm||']' );
232: END IF;
233:
234: END Create_Rt_Tran;
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',
295: 'Entered Update_Rt_Tran');
296: END IF;
297:
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',
295: 'Entered Update_Rt_Tran');
296: END IF;
297:
298: -- Initialize API return status to success
300:
301: -- Api body starts
302:
303: -- Check the required parameters
304: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
306: 'Checking required parameters');
307: end if;
308:
301: -- Api body starts
302:
303: -- Check the required parameters
304: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
306: 'Checking required parameters');
307: end if;
308:
309: -- Check the required parameters
327: p_param_name => 'COMMON_FLOW_STATUS_ID',
328: p_api_name => lc_api_name);
329:
330: -- Update row
331: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
332: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
333: 'Calling Update_Row table handler');
334: end if;
335:
328: p_api_name => lc_api_name);
329:
330: -- Update row
331: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
332: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
333: 'Calling Update_Row table handler');
334: end if;
335:
336: Begin
354: x_obj_ver_number := p_rt_tran_rec.object_version_number + 1;
355:
356: END;
357:
358: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
360: 'Returned from Update_Row table handler');
361: end if;
362:
355:
356: END;
357:
358: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
360: 'Returned from Update_Row table handler');
361: end if;
362:
363: -- Api body ends here
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
376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
377: 'Leaving Update_Rt_Tran');
378: END IF;
379:
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
376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
377: 'Leaving Update_Rt_Tran');
378: END IF;
379:
380: EXCEPTION
390: (p_count => x_msg_count,
391: p_data => x_msg_data );
392:
393: -- save message in debug log
394: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
396: 'EXC_ERROR['||x_msg_data||']');
397: END IF;
398: WHEN FND_API.G_EXC_ERROR THEN
391: p_data => x_msg_data );
392:
393: -- save message in debug log
394: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
396: 'EXC_ERROR['||x_msg_data||']');
397: END IF;
398: WHEN FND_API.G_EXC_ERROR THEN
399: ROLLBACK TO Update_Rt_Tran;
403: (p_count => x_msg_count,
404: p_data => x_msg_data );
405:
406: -- save message in debug log
407: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
409: 'EXC_ERROR['||x_msg_data||']');
410: END IF;
411:
404: p_data => x_msg_data );
405:
406: -- save message in debug log
407: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
409: 'EXC_ERROR['||x_msg_data||']');
410: END IF;
411:
412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
422: end if;
423: FND_MSG_PUB.Add_Exc_Msg
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');
422: end if;
423: FND_MSG_PUB.Add_Exc_Msg
424: (G_PKG_NAME ,
429: ( p_count => x_msg_count,
430: p_data => x_msg_data );
431:
432: -- save message in debug log
433: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
434: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
435: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
436: END IF;
437:
430: p_data => x_msg_data );
431:
432: -- save message in debug log
433: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
434: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
435: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
436: END IF;
437:
438: WHEN OTHERS THEN
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');
449: end if;
450: FND_MSG_PUB.Add_Exc_Msg
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');
449: end if;
450: FND_MSG_PUB.Add_Exc_Msg
451: (G_PKG_NAME ,
456: (p_count => x_msg_count,
457: p_data => x_msg_data );
458:
459: -- save message in debug log
460: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
461: -- create a seeded message
462: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
463: 'SQL Message['||sqlerrm||']' );
464: END IF;
458:
459: -- save message in debug log
460: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
461: -- create a seeded message
462: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
463: 'SQL Message['||sqlerrm||']' );
464: END IF;
465:
466: END Update_Rt_Tran;
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',
516: 'Entered Delete_Rt_Tran');
517: END IF;
518:
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',
516: 'Entered Delete_Rt_Tran');
517: END IF;
518:
519: -- Initialize API return status to success
521:
522: -- Api body starts
523:
524: -- Check the required parameters
525: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
526: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
527: 'Checking required parameter');
528: end if;
529:
522: -- Api body starts
523:
524: -- Check the required parameters
525: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
526: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
527: 'Checking required parameter');
528: end if;
529:
530: -- Check the required parameter
533: p_param_name => 'RT_TRAN_ID',
534: p_api_name => lc_api_name);
535:
536: -- Delete row
537: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
538: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
539: 'Calling Delete_Row table handler');
540: end if;
541:
534: p_api_name => lc_api_name);
535:
536: -- Delete row
537: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
538: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
539: 'Calling Delete_Row table handler');
540: end if;
541:
542: BEGIN
546: ( p_rt_tran_id => p_rt_tran_id);
547:
548: END;
549:
550: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
552: 'Returned from Delete_Row table handler');
553: end if;
554:
547:
548: END;
549:
550: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
552: 'Returned from Delete_Row table handler');
553: end if;
554:
555: -- Api body ends here
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
568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
569: 'Leaving Delete_Rt_Tran');
570: END IF;
571:
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
568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
569: 'Leaving Delete_Rt_Tran');
570: END IF;
571:
572: EXCEPTION
580: (p_count => x_msg_count,
581: p_data => x_msg_data );
582:
583: -- save message in debug log
584: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
586: 'EXC_ERROR['||x_msg_data||']');
587: END IF;
588:
581: p_data => x_msg_data );
582:
583: -- save message in debug log
584: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
586: 'EXC_ERROR['||x_msg_data||']');
587: END IF;
588:
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
600: end if;
601: FND_MSG_PUB.Add_Exc_Msg
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');
600: end if;
601: FND_MSG_PUB.Add_Exc_Msg
602: (G_PKG_NAME ,
607: ( p_count => x_msg_count,
608: p_data => x_msg_data );
609:
610: -- save message in debug log
611: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
612: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
613: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
614: END IF;
615:
608: p_data => x_msg_data );
609:
610: -- save message in debug log
611: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
612: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
613: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
614: END IF;
615:
616: WHEN OTHERS THEN
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');
628: end if;
629: FND_MSG_PUB.Add_Exc_Msg
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');
628: end if;
629: FND_MSG_PUB.Add_Exc_Msg
630: (G_PKG_NAME ,
635: (p_count => x_msg_count,
636: p_data => x_msg_data );
637:
638: -- save message in debug log
639: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: -- create a seeded message
641: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
642: 'SQL Message['||sqlerrm||']' );
643: END IF;
637:
638: -- save message in debug log
639: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
640: -- create a seeded message
641: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
642: 'SQL Message['||sqlerrm||']' );
643: END IF;
644:
645: END Delete_Rt_Tran;
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',
696: 'Entered Lock_Rt_Tran');
697: END IF;
698:
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',
696: 'Entered Lock_Rt_Tran');
697: END IF;
698:
699: -- Initialize API return status to success
701:
702: -- Api body starts
703:
704: -- Check the required parameters
705: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
706: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
707: 'Checking required parameters');
708: end if;
709:
702: -- Api body starts
703:
704: -- Check the required parameters
705: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
706: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
707: 'Checking required parameters');
708: end if;
709:
710: -- Check the required parameters
718: p_param_name => 'OBJECT_VERSION_NUMBER',
719: p_api_name => lc_api_name);
720:
721: -- Lock row
722: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
724: 'Calling Lock_Row table handler');
725: end if;
726:
719: p_api_name => lc_api_name);
720:
721: -- Lock row
722: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
724: 'Calling Lock_Row table handler');
725: end if;
726:
727: Begin
734: );
735:
736: END;
737:
738: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
739: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
740: 'Returned from Lock_Row table handler');
741: end if;
742:
735:
736: END;
737:
738: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
739: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
740: 'Returned from Lock_Row table handler');
741: end if;
742:
743: -- Api body ends here
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
756: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
757: 'Leaving Lock_Rt_Tran');
758: END IF;
759:
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
756: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
757: 'Leaving Lock_Rt_Tran');
758: END IF;
759:
760: EXCEPTION
767: (p_count => x_msg_count,
768: p_data => x_msg_data );
769:
770: -- save message in debug log
771: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
773: 'EXC_ERROR['||x_msg_data||']');
774: END IF;
775:
768: p_data => x_msg_data );
769:
770: -- save message in debug log
771: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
773: 'EXC_ERROR['||x_msg_data||']');
774: END IF;
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
786: end if;
787: FND_MSG_PUB.Add_Exc_Msg
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');
786: end if;
787: FND_MSG_PUB.Add_Exc_Msg
788: (G_PKG_NAME ,
793: ( p_count => x_msg_count,
794: p_data => x_msg_data );
795:
796: -- save message in debug log
797: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
799: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
800: END IF;
801:
794: p_data => x_msg_data );
795:
796: -- save message in debug log
797: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
799: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
800: END IF;
801:
802: WHEN OTHERS THEN
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');
813: end if;
814: FND_MSG_PUB.Add_Exc_Msg
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');
813: end if;
814: FND_MSG_PUB.Add_Exc_Msg
815: (G_PKG_NAME ,
820: (p_count => x_msg_count,
821: p_data => x_msg_data );
822:
823: -- save message in debug log
824: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: -- create a seeded message
826: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
827: 'SQL Message['||sqlerrm||']' );
828: END IF;
822:
823: -- save message in debug log
824: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: -- create a seeded message
826: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
827: 'SQL Message['||sqlerrm||']' );
828: END IF;
829:
830: END Lock_Rt_Tran;