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