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_Flow_Status');
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_Flow_Status');
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 parameter
89: p_param_name => 'STATUS_CODE',
90: p_api_name => lc_api_name);
91:
92: -- Insert row
93: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
95: 'Calling Insert_Row table handler');
96: end if;
97:
90: p_api_name => lc_api_name);
91:
92: -- Insert row
93: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
95: 'Calling Insert_Row table handler');
96: end if;
97:
98: Begin
129: p_attribute15 => p_flow_status_rec.attribute15
130: );
131: END;
132:
133: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
135: 'Returned from Insert_Row table handler');
136: end if;
137:
130: );
131: END;
132:
133: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
135: 'Returned from Insert_Row table handler');
136: end if;
137:
138: -- Api body ends here
146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count,
148: p_data => x_msg_data );
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
152: 'Leaving Create_Flow_Status');
153: END IF;
154:
147: (p_count => x_msg_count,
148: p_data => x_msg_data );
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
152: 'Leaving Create_Flow_Status');
153: END IF;
154:
155: EXCEPTION
165: (p_count => x_msg_count,
166: p_data => x_msg_data );
167:
168: -- save message in debug log
169: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
171: 'EXC_ERROR['||x_msg_data||']');
172: END IF;
173:
166: p_data => x_msg_data );
167:
168: -- save message in debug log
169: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
171: 'EXC_ERROR['||x_msg_data||']');
172: END IF;
173:
174: WHEN FND_API.G_EXC_ERROR THEN
179: (p_count => x_msg_count,
180: p_data => x_msg_data );
181:
182: -- save message in debug log
183: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
185: 'EXC_ERROR['||x_msg_data||']');
186: END IF;
187:
180: p_data => x_msg_data );
181:
182: -- save message in debug log
183: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
185: 'EXC_ERROR['||x_msg_data||']');
186: END IF;
187:
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
192: -- save message in fnd stack
193: IF FND_MSG_PUB.Check_Msg_Level
194: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195: THEN
196: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
198: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
199: end if;
200: FND_MSG_PUB.Add_Exc_Msg
193: IF FND_MSG_PUB.Check_Msg_Level
194: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195: THEN
196: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
198: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
199: end if;
200: FND_MSG_PUB.Add_Exc_Msg
201: (G_PKG_NAME ,
206: ( p_count => x_msg_count,
207: p_data => x_msg_data );
208:
209: -- save message in debug log
210: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
212: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
213: END IF;
214:
207: p_data => x_msg_data );
208:
209: -- save message in debug log
210: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
212: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
213: END IF;
214:
215: WHEN OTHERS THEN
219: -- save message in fnd stack
220: IF FND_MSG_PUB.Check_Msg_Level
221: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
222: THEN
223: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
224: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
225: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
226: end if;
227: FND_MSG_PUB.Add_Exc_Msg
220: IF FND_MSG_PUB.Check_Msg_Level
221: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
222: THEN
223: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
224: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
225: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
226: end if;
227: FND_MSG_PUB.Add_Exc_Msg
228: (G_PKG_NAME ,
233: (p_count => x_msg_count,
234: p_data => x_msg_data );
235:
236: -- save message in debug log
237: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: -- create a seeded message
239: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
240: 'SQL Message['||sqlerrm||']' );
241: END IF;
235:
236: -- save message in debug log
237: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: -- create a seeded message
239: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
240: 'SQL Message['||sqlerrm||']' );
241: END IF;
242:
243: END Create_Flow_Status;
298: IF FND_API.to_Boolean( p_init_msg_list ) THEN
299: FND_MSG_PUB.initialize;
300: END IF;
301:
302: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
303: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
304: 'Entered Update_Flow_Status');
305: END IF;
306:
299: FND_MSG_PUB.initialize;
300: END IF;
301:
302: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
303: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
304: 'Entered Update_Flow_Status');
305: END IF;
306:
307: -- Initialize API return status to success
309:
310: -- Api body starts
311:
312: -- Check the required parameters
313: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
314: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
315: 'Checking required parameters');
316: end if;
317:
310: -- Api body starts
311:
312: -- Check the required parameters
313: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
314: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
315: 'Checking required parameters');
316: end if;
317:
318: -- Check the required parameter
333: p_api_name => lc_api_name);
334:
335:
336: -- Update row
337: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
338: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
339: 'Calling Update_Row table handler');
340: end if;
341:
334:
335:
336: -- Update row
337: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
338: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
339: 'Calling Update_Row table handler');
340: end if;
341:
342: Begin
373: x_obj_ver_number := p_flow_status_rec.object_version_number + 1;
374:
375: END;
376:
377: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
379: 'Returned from Update_Row table handler');
380: end if;
381:
374:
375: END;
376:
377: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
379: 'Returned from Update_Row table handler');
380: end if;
381:
382: -- Api body ends here
390: FND_MSG_PUB.Count_And_Get
391: (p_count => x_msg_count,
392: p_data => x_msg_data );
393:
394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
396: 'Leaving Update_Flow_Status');
397: END IF;
398:
391: (p_count => x_msg_count,
392: p_data => x_msg_data );
393:
394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
396: 'Leaving Update_Flow_Status');
397: END IF;
398:
399: EXCEPTION
409: (p_count => x_msg_count,
410: p_data => x_msg_data );
411:
412: -- save message in debug log
413: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
415: 'EXC_ERROR['||x_msg_data||']');
416: END IF;
417: WHEN FND_API.G_EXC_ERROR THEN
410: p_data => x_msg_data );
411:
412: -- save message in debug log
413: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
415: 'EXC_ERROR['||x_msg_data||']');
416: END IF;
417: WHEN FND_API.G_EXC_ERROR THEN
418: ROLLBACK TO Update_Flow_Status;
422: (p_count => x_msg_count,
423: p_data => x_msg_data );
424:
425: -- save message in debug log
426: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
428: 'EXC_ERROR['||x_msg_data||']');
429: END IF;
430:
423: p_data => x_msg_data );
424:
425: -- save message in debug log
426: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
428: 'EXC_ERROR['||x_msg_data||']');
429: END IF;
430:
431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
434:
435: IF FND_MSG_PUB.Check_Msg_Level
436: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
437: THEN
438: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
440: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
441: end if;
442: FND_MSG_PUB.Add_Exc_Msg
435: IF FND_MSG_PUB.Check_Msg_Level
436: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
437: THEN
438: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
440: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
441: end if;
442: FND_MSG_PUB.Add_Exc_Msg
443: (G_PKG_NAME ,
448: ( p_count => x_msg_count,
449: p_data => x_msg_data );
450:
451: -- save message in debug log
452: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
454: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
455: END IF;
456:
449: p_data => x_msg_data );
450:
451: -- save message in debug log
452: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
454: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
455: END IF;
456:
457: WHEN OTHERS THEN
461: -- save message in fnd stack
462: IF FND_MSG_PUB.Check_Msg_Level
463: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN
465: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
466: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
467: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
468: end if;
469: FND_MSG_PUB.Add_Exc_Msg
462: IF FND_MSG_PUB.Check_Msg_Level
463: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN
465: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
466: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
467: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
468: end if;
469: FND_MSG_PUB.Add_Exc_Msg
470: (G_PKG_NAME ,
475: (p_count => x_msg_count,
476: p_data => x_msg_data );
477:
478: -- save message in debug log
479: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: -- create a seeded message
481: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
482: 'SQL Message['||sqlerrm||']' );
483: END IF;
477:
478: -- save message in debug log
479: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: -- create a seeded message
481: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
482: 'SQL Message['||sqlerrm||']' );
483: END IF;
484:
485: END Update_Flow_Status;
529: IF FND_API.to_Boolean( p_init_msg_list ) THEN
530: FND_MSG_PUB.initialize;
531: END IF;
532:
533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
535: 'Entered Delete_Flow_Status');
536: END IF;
537:
530: FND_MSG_PUB.initialize;
531: END IF;
532:
533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
535: 'Entered Delete_Flow_Status');
536: END IF;
537:
538: -- Initialize API return status to success
540:
541: -- Api body starts
542:
543: -- Check the required parameters
544: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
545: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
546: 'Checking required parameter');
547: end if;
548:
541: -- Api body starts
542:
543: -- Check the required parameters
544: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
545: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
546: 'Checking required parameter');
547: end if;
548:
549: -- Check the required parameter
552: p_param_name => 'FLOW_STATUS_ID',
553: p_api_name => lc_api_name);
554:
555: -- Delete row
556: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
557: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
558: 'Calling Delete_Row table handler');
559: end if;
560:
553: p_api_name => lc_api_name);
554:
555: -- Delete row
556: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
557: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
558: 'Calling Delete_Row table handler');
559: end if;
560:
561: BEGIN
565: ( p_flow_status_id => p_flow_status_id);
566:
567: END;
568:
569: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
570: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
571: 'Returned from Delete_Row table handler');
572: end if;
573:
566:
567: END;
568:
569: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
570: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
571: 'Returned from Delete_Row table handler');
572: end if;
573:
574: -- Api body ends here
582: FND_MSG_PUB.Count_And_Get
583: (p_count => x_msg_count,
584: p_data => x_msg_data );
585:
586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
588: 'Leaving Delete_Flow_Status');
589: END IF;
590:
583: (p_count => x_msg_count,
584: p_data => x_msg_data );
585:
586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
588: 'Leaving Delete_Flow_Status');
589: END IF;
590:
591: EXCEPTION
599: (p_count => x_msg_count,
600: p_data => x_msg_data );
601:
602: -- save message in debug log
603: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
604: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
605: 'EXC_ERROR['||x_msg_data||']');
606: END IF;
607:
600: p_data => x_msg_data );
601:
602: -- save message in debug log
603: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
604: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
605: 'EXC_ERROR['||x_msg_data||']');
606: END IF;
607:
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
612:
613: IF FND_MSG_PUB.Check_Msg_Level
614: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
615: THEN
616: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
617: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
618: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
619: end if;
620: FND_MSG_PUB.Add_Exc_Msg
613: IF FND_MSG_PUB.Check_Msg_Level
614: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
615: THEN
616: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
617: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
618: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
619: end if;
620: FND_MSG_PUB.Add_Exc_Msg
621: (G_PKG_NAME ,
626: ( p_count => x_msg_count,
627: p_data => x_msg_data );
628:
629: -- save message in debug log
630: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
632: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
633: END IF;
634:
627: p_data => x_msg_data );
628:
629: -- save message in debug log
630: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
632: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
633: END IF;
634:
635: WHEN OTHERS THEN
640: -- save message in fnd stack
641: IF FND_MSG_PUB.Check_Msg_Level
642: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
643: THEN
644: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
645: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
646: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
647: end if;
648: FND_MSG_PUB.Add_Exc_Msg
641: IF FND_MSG_PUB.Check_Msg_Level
642: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
643: THEN
644: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
645: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
646: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
647: end if;
648: FND_MSG_PUB.Add_Exc_Msg
649: (G_PKG_NAME ,
654: (p_count => x_msg_count,
655: p_data => x_msg_data );
656:
657: -- save message in debug log
658: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: -- create a seeded message
660: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
661: 'SQL Message['||sqlerrm||']' );
662: END IF;
656:
657: -- save message in debug log
658: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: -- create a seeded message
660: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
661: 'SQL Message['||sqlerrm||']' );
662: END IF;
663:
664: END Delete_Flow_Status;
709: IF FND_API.to_Boolean( p_init_msg_list ) THEN
710: FND_MSG_PUB.initialize;
711: END IF;
712:
713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
715: 'Entered Lock_Flow_Status');
716: END IF;
717:
710: FND_MSG_PUB.initialize;
711: END IF;
712:
713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
715: 'Entered Lock_Flow_Status');
716: END IF;
717:
718: -- Initialize API return status to success
720:
721: -- Api body starts
722:
723: -- Check the required parameters
724: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
726: 'Checking required parameters');
727: end if;
728:
721: -- Api body starts
722:
723: -- Check the required parameters
724: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
726: 'Checking required parameters');
727: end if;
728:
729: -- Check the required parameter
738: p_param_name => 'OBJECT_VERSION_NUMBER',
739: p_api_name => lc_api_name);
740:
741: -- Lock row
742: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
744: 'Calling Lock_Row table handler');
745: end if;
746:
739: p_api_name => lc_api_name);
740:
741: -- Lock row
742: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
744: 'Calling Lock_Row table handler');
745: end if;
746:
747: Begin
754: );
755:
756: END;
757:
758: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
759: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
760: 'Returned from Lock_Row table handler');
761: end if;
762:
755:
756: END;
757:
758: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
759: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
760: 'Returned from Lock_Row table handler');
761: end if;
762:
763: -- Api body ends here
771: FND_MSG_PUB.Count_And_Get
772: (p_count => x_msg_count,
773: p_data => x_msg_data );
774:
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
777: 'Leaving Lock_Flow_Status');
778: END IF;
779:
772: (p_count => x_msg_count,
773: p_data => x_msg_data );
774:
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
777: 'Leaving Lock_Flow_Status');
778: END IF;
779:
780: EXCEPTION
787: (p_count => x_msg_count,
788: p_data => x_msg_data );
789:
790: -- save message in debug log
791: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
792: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
793: 'EXC_ERROR['||x_msg_data||']');
794: END IF;
795:
788: p_data => x_msg_data );
789:
790: -- save message in debug log
791: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
792: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
793: 'EXC_ERROR['||x_msg_data||']');
794: END IF;
795:
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799:
800: IF FND_MSG_PUB.Check_Msg_Level
801: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
802: THEN
803: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
804: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
805: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
806: end if;
807: FND_MSG_PUB.Add_Exc_Msg
800: IF FND_MSG_PUB.Check_Msg_Level
801: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
802: THEN
803: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
804: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
805: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
806: end if;
807: FND_MSG_PUB.Add_Exc_Msg
808: (G_PKG_NAME ,
813: ( p_count => x_msg_count,
814: p_data => x_msg_data );
815:
816: -- save message in debug log
817: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
819: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
820: END IF;
821:
814: p_data => x_msg_data );
815:
816: -- save message in debug log
817: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
819: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
820: END IF;
821:
822: WHEN OTHERS THEN
826: -- save message in fnd stack
827: IF FND_MSG_PUB.Check_Msg_Level
828: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
829: THEN
830: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
831: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
832: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
833: end if;
834: FND_MSG_PUB.Add_Exc_Msg
827: IF FND_MSG_PUB.Check_Msg_Level
828: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
829: THEN
830: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
831: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
832: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
833: end if;
834: FND_MSG_PUB.Add_Exc_Msg
835: (G_PKG_NAME ,
840: (p_count => x_msg_count,
841: p_data => x_msg_data );
842:
843: -- save message in debug log
844: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
845: -- create a seeded message
846: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
847: 'SQL Message['||sqlerrm||']' );
848: END IF;
842:
843: -- save message in debug log
844: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
845: -- create a seeded message
846: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
847: 'SQL Message['||sqlerrm||']' );
848: END IF;
849:
850: END Lock_Flow_Status;