126: , p_item_key
127: , '.DEBUG_FLAG'
128: );
129:
130: IF FND_API.to_Boolean( l_debug_flag ) THEN
131: x_debug_flag := TRUE ;
132: END IF ;
133:
134:
168: */
169: PROCEDURE Create_Change_Action
170: (
171: p_api_version IN NUMBER --
172: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
173: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
174: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
175: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
176: ,p_output_dir IN VARCHAR2 := NULL --
169: PROCEDURE Create_Change_Action
170: (
171: p_api_version IN NUMBER --
172: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
173: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
174: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
175: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
176: ,p_output_dir IN VARCHAR2 := NULL --
177: ,p_debug_filename IN VARCHAR2 := NULL --
170: (
171: p_api_version IN NUMBER --
172: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
173: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
174: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
175: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
176: ,p_output_dir IN VARCHAR2 := NULL --
177: ,p_debug_filename IN VARCHAR2 := NULL --
178: ,x_return_status OUT NOCOPY VARCHAR2 --
171: p_api_version IN NUMBER --
172: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
173: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
174: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
175: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
176: ,p_output_dir IN VARCHAR2 := NULL --
177: ,p_debug_filename IN VARCHAR2 := NULL --
178: ,x_return_status OUT NOCOPY VARCHAR2 --
179: ,x_msg_count OUT NOCOPY NUMBER --
198: ,p_action_date IN DATE DEFAULT SYSDATE --
199: ,p_change_description IN VARCHAR2 DEFAULT NULL --
200: ,p_user_id IN NUMBER DEFAULT NULL --
201: ,p_api_caller IN VARCHAR2 DEFAULT NULL --
202: ,p_raise_event_flag IN VARCHAR2 := FND_API.G_FALSE -- R12
203: ,p_local_organization_id IN NUMBER DEFAULT NULL --Bug 4704384
204: ,x_change_action_id OUT NOCOPY NUMBER --
205: )
206: IS
220: -- Standard Start of API savepoint
221: SAVEPOINT Create_Change_Action;
222:
223: -- Standard call to check for call compatibility
224: IF NOT FND_API.Compatible_API_Call ( l_api_version
225: ,p_api_version
226: ,l_api_name
227: ,G_PKG_NAME )
228: THEN
225: ,p_api_version
226: ,l_api_name
227: ,G_PKG_NAME )
228: THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: END IF;
231:
232: -- Initialize message list if p_init_msg_list is set to TRUE.
233: IF FND_API.to_Boolean( p_init_msg_list ) THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: END IF;
231:
232: -- Initialize message list if p_init_msg_list is set to TRUE.
233: IF FND_API.to_Boolean( p_init_msg_list ) THEN
234: FND_MSG_PUB.initialize;
235: END IF ;
236:
237: -- For Test/Debug
234: FND_MSG_PUB.initialize;
235: END IF ;
236:
237: -- For Test/Debug
238: IF FND_API.to_Boolean( p_debug ) THEN
239: Open_Debug_Session(p_output_dir, p_debug_filename ) ;
240: END IF ;
241:
242:
266: Write_Debug('Initializing return status... ' );
267: END IF ;
268:
269: -- Initialize API return status to success
270: x_return_status := FND_API.G_RET_STS_SUCCESS;
271:
272:
273: -- Real code starts here
274: -- FND_PROFILE package is not available for workflow (WF),
325: ,X_LOCAL_ORGANIZATION_ID => p_local_organization_id --Bug 4704384
326: ) ;
327:
328: x_change_action_id := l_new_action_id;
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
330:
331:
332: IF g_debug_flag THEN
333: Write_Debug('Action row inserted successfully... ' );
341: -- response.
342: -- In case of UI, it will be handled by ChangeActionAMImpl
343: --
344: --
345: IF FND_API.to_Boolean( p_raise_event_flag )
346: THEN
347:
348: IF g_debug_flag THEN
349: Write_Debug('p_raise_event_flag is True... ' );
382: END IF ;
383:
384:
385: EXCEPTION
386: WHEN FND_API.G_EXC_ERROR THEN
387: ROLLBACK TO Create_Change_Action;
388: x_return_status := FND_API.G_RET_STS_ERROR;
389: FND_MSG_PUB.Count_And_Get
390: ( p_count => x_msg_count
384:
385: EXCEPTION
386: WHEN FND_API.G_EXC_ERROR THEN
387: ROLLBACK TO Create_Change_Action;
388: x_return_status := FND_API.G_RET_STS_ERROR;
389: FND_MSG_PUB.Count_And_Get
390: ( p_count => x_msg_count
391: ,p_data => x_msg_data );
392: IF g_debug_flag THEN
392: IF g_debug_flag THEN
393: Write_Debug('Rollback and Finish with unxepcted error.') ;
394: Close_Debug_Session ;
395: END IF ;
396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
397: ROLLBACK TO Create_Change_Action;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get
400: ( p_count => x_msg_count
394: Close_Debug_Session ;
395: END IF ;
396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
397: ROLLBACK TO Create_Change_Action;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get
400: ( p_count => x_msg_count
401: ,p_data => x_msg_data );
402: IF g_debug_flag THEN
404: Close_Debug_Session ;
405: END IF ;
406: WHEN OTHERS THEN
407: ROLLBACK TO Create_Change_Action;
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
409: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
410: THEN
411: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
412: END IF;
449: -- Standard Start of API savepoint
450: SAVEPOINT Update_Workflow_Info_PUB;
451:
452: -- Standard call to check for call compatibility
453: IF NOT FND_API.Compatible_API_Call ( l_api_version
454: ,p_api_version
455: ,l_api_name
456: ,G_PKG_NAME )
457: THEN
454: ,p_api_version
455: ,l_api_name
456: ,G_PKG_NAME )
457: THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: END IF;
460:
461: -- Initialize message list if p_init_msg_list is set to TRUE.
462: IF FND_API.to_Boolean( p_init_msg_list ) THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: END IF;
460:
461: -- Initialize message list if p_init_msg_list is set to TRUE.
462: IF FND_API.to_Boolean( p_init_msg_list ) THEN
463: FND_MSG_PUB.initialize;
464: END IF ;
465:
466: -- For Test/Debug
463: FND_MSG_PUB.initialize;
464: END IF ;
465:
466: -- For Test/Debug
467: IF FND_API.to_Boolean( p_debug ) THEN
468: Open_Debug_Session(p_output_dir, p_debug_filename ) ;
469: END IF ;
470:
471: -- Write debug message if debug mode is on
479: Write_Debug('Initializing return status... ' );
480: END IF ;
481:
482: -- Initialize API return status to success
483: x_return_status := FND_API.G_RET_STS_SUCCESS;
484:
485: -- Update the comment table
486: UPDATE Eng_Change_Actions
487: SET workflow_item_type = p_workflow_item_type
487: SET workflow_item_type = p_workflow_item_type
488: ,workflow_item_key = p_workflow_item_key
489: WHERE action_id = p_change_action_id;
490:
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
492:
493: IF g_debug_flag THEN
494: Write_Debug('Action row updated successfully... ' );
495: END IF ;
503: Close_Debug_Session ;
504: END IF ;
505:
506: EXCEPTION
507: WHEN FND_API.G_EXC_ERROR THEN
508: ROLLBACK TO Update_Workflow_Info_PUB;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count
505:
506: EXCEPTION
507: WHEN FND_API.G_EXC_ERROR THEN
508: ROLLBACK TO Update_Workflow_Info_PUB;
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count
512: ,p_data => x_msg_data );
513: IF g_debug_flag THEN
513: IF g_debug_flag THEN
514: Write_Debug('Rollback and Finish with unxepcted error.') ;
515: Close_Debug_Session ;
516: END IF ;
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO Update_Workflow_Info_PUB;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: FND_MSG_PUB.Count_And_Get
521: ( p_count => x_msg_count
515: Close_Debug_Session ;
516: END IF ;
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO Update_Workflow_Info_PUB;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: FND_MSG_PUB.Count_And_Get
521: ( p_count => x_msg_count
522: ,p_data => x_msg_data );
523: IF g_debug_flag THEN
525: Close_Debug_Session ;
526: END IF ;
527: WHEN OTHERS THEN
528: ROLLBACK TO Update_Workflow_Info_PUB;
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
531: THEN
532: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
533: END IF;
550: */
551: PROCEDURE Respond_Notification
552: (
553: p_api_version IN NUMBER --
554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
556: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
557: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
558: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
551: PROCEDURE Respond_Notification
552: (
553: p_api_version IN NUMBER --
554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
556: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
557: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
558: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
559: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.respNotif.log'
552: (
553: p_api_version IN NUMBER --
554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
556: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
557: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
558: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
559: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.respNotif.log'
560: ,x_return_status OUT NOCOPY VARCHAR2 --
553: p_api_version IN NUMBER --
554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
556: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
557: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
558: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
559: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.respNotif.log'
560: ,x_return_status OUT NOCOPY VARCHAR2 --
561: ,x_msg_count OUT NOCOPY NUMBER --
581: -- Standard Start of API savepoint
582: SAVEPOINT Respond_Notification_PUB;
583:
584: -- Standard call to check for call compatibility
585: IF NOT FND_API.Compatible_API_Call ( l_api_version
586: ,p_api_version
587: ,l_api_name
588: ,G_PKG_NAME )
589: THEN
586: ,p_api_version
587: ,l_api_name
588: ,G_PKG_NAME )
589: THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593: -- Initialize message list if p_init_msg_list is set to TRUE.
594: IF FND_API.to_Boolean( p_init_msg_list ) THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593: -- Initialize message list if p_init_msg_list is set to TRUE.
594: IF FND_API.to_Boolean( p_init_msg_list ) THEN
595: FND_MSG_PUB.initialize;
596: END IF ;
597:
598: -- For Test/Debug
595: FND_MSG_PUB.initialize;
596: END IF ;
597:
598: -- For Test/Debug
599: IF FND_API.to_Boolean( p_debug ) THEN
600: Open_Debug_Session(p_output_dir, p_debug_filename ) ;
601: END IF ;
602:
603: -- Write debug message if debug mode is on
611: Write_Debug('Initializing return status... ' );
612: END IF ;
613:
614: -- Initialize API return status to success
615: x_return_status := FND_API.G_RET_STS_SUCCESS;
616:
617: -- look up parent action's action type, workflow item type and item key
618: SELECT action_type, workflow_item_type, workflow_item_key
619: INTO l_action_type, l_wf_item_type, l_wf_item_key
631: ,p_response_comment => p_comment
632: ,p_action_source => NULL
633: );
634:
635: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
636: THEN
637: x_return_status := l_return_status;
638: x_msg_count := l_msg_count;
639: x_msg_data := l_msg_data;
638: x_msg_count := l_msg_count;
639: x_msg_data := l_msg_data;
640: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
641: --#FND_MSG_PUB.Add;
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
644: IF g_debug_flag THEN
645: Write_Debug('Successful: Calling ENG_WORKFLOW_UTIL.RespondToActReqCommentFromUI');
646: END IF;
655: Close_Debug_Session ;
656: END IF ;
657:
658: EXCEPTION
659: WHEN FND_API.G_EXC_ERROR THEN
660: ROLLBACK TO Respond_Notification_PUB;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: FND_MSG_PUB.Count_And_Get
663: ( p_count => x_msg_count
657:
658: EXCEPTION
659: WHEN FND_API.G_EXC_ERROR THEN
660: ROLLBACK TO Respond_Notification_PUB;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: FND_MSG_PUB.Count_And_Get
663: ( p_count => x_msg_count
664: ,p_data => x_msg_data );
665: IF g_debug_flag THEN
665: IF g_debug_flag THEN
666: Write_Debug('Rollback and Finish with unxepcted error.') ;
667: Close_Debug_Session ;
668: END IF ;
669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670: ROLLBACK TO Respond_Notification_PUB;
671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
672: FND_MSG_PUB.Count_And_Get
673: ( p_count => x_msg_count
667: Close_Debug_Session ;
668: END IF ;
669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670: ROLLBACK TO Respond_Notification_PUB;
671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
672: FND_MSG_PUB.Count_And_Get
673: ( p_count => x_msg_count
674: ,p_data => x_msg_data );
675: IF g_debug_flag THEN
677: Close_Debug_Session ;
678: END IF ;
679: WHEN OTHERS THEN
680: ROLLBACK TO Respond_Notification_PUB;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
683: THEN
684: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
685: END IF;
754: */
755: PROCEDURE Delete_Line_Actions
756: (
757: p_api_version IN NUMBER --
758: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
759: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
760: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
761: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
762: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
755: PROCEDURE Delete_Line_Actions
756: (
757: p_api_version IN NUMBER --
758: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
759: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
760: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
761: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
762: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
763: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.line.log'
756: (
757: p_api_version IN NUMBER --
758: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
759: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
760: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
761: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
762: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
763: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.line.log'
764: ,x_return_status OUT NOCOPY VARCHAR2 --
757: p_api_version IN NUMBER --
758: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
759: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
760: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
761: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
762: ,p_output_dir IN VARCHAR2 := '/nfs/log/bis_top/utl/plm115dv/log' --
763: ,p_debug_filename IN VARCHAR2 := 'eng.chgmt.action.line.log'
764: ,x_return_status OUT NOCOPY VARCHAR2 --
765: ,x_msg_count OUT NOCOPY NUMBER --
784: -- Standard Start of API savepoint
785: SAVEPOINT Delete_Line_Actions_PUB;
786:
787: -- Standard call to check for call compatibility
788: IF NOT FND_API.Compatible_API_Call ( l_api_version
789: ,p_api_version
790: ,l_api_name
791: ,G_PKG_NAME )
792: THEN
789: ,p_api_version
790: ,l_api_name
791: ,G_PKG_NAME )
792: THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: -- Initialize message list if p_init_msg_list is set to TRUE.
797: IF FND_API.to_Boolean( p_init_msg_list ) THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: -- Initialize message list if p_init_msg_list is set to TRUE.
797: IF FND_API.to_Boolean( p_init_msg_list ) THEN
798: FND_MSG_PUB.initialize;
799: END IF ;
800:
801: -- For Test/Debug
798: FND_MSG_PUB.initialize;
799: END IF ;
800:
801: -- For Test/Debug
802: IF FND_API.to_Boolean( p_debug ) THEN
803: Open_Debug_Session(p_output_dir, p_debug_filename ) ;
804: END IF ;
805:
806: -- Write debug message if debug mode is on
813: Write_Debug('Initializing return status... ' );
814: END IF ;
815:
816: -- Initialize API return status to success
817: x_return_status := FND_API.G_RET_STS_SUCCESS;
818:
819: -- Delete all the action log records for the line
820: OPEN ECACursor;
821: LOOP
825: END LOOP;
826: CLOSE ECACursor;
827: -- End of Delete
828:
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830:
831: IF g_debug_flag THEN
832: Write_Debug('Action rows deleted successfully... ' );
833: END IF ;
841: Close_Debug_Session ;
842: END IF ;
843:
844: EXCEPTION
845: WHEN FND_API.G_EXC_ERROR THEN
846: ROLLBACK TO Delete_Line_Actions_PUB;
847: x_return_status := FND_API.G_RET_STS_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: ( p_count => x_msg_count
843:
844: EXCEPTION
845: WHEN FND_API.G_EXC_ERROR THEN
846: ROLLBACK TO Delete_Line_Actions_PUB;
847: x_return_status := FND_API.G_RET_STS_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: ( p_count => x_msg_count
850: ,p_data => x_msg_data );
851: IF g_debug_flag THEN
851: IF g_debug_flag THEN
852: Write_Debug('Rollback and Finish with unxepcted error.') ;
853: Close_Debug_Session ;
854: END IF ;
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
856: ROLLBACK TO Delete_Line_Actions_PUB;
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858: FND_MSG_PUB.Count_And_Get
859: ( p_count => x_msg_count
853: Close_Debug_Session ;
854: END IF ;
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
856: ROLLBACK TO Delete_Line_Actions_PUB;
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858: FND_MSG_PUB.Count_And_Get
859: ( p_count => x_msg_count
860: ,p_data => x_msg_data );
861: IF g_debug_flag THEN
863: Close_Debug_Session ;
864: END IF ;
865: WHEN OTHERS THEN
866: ROLLBACK TO Delete_Line_Actions_PUB;
867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
868: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
869: THEN
870: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
871: END IF;