403: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
404: raise FND_API.G_EXC_ERROR;
405: end if;
406: /* Start Bug No. 2322856 */
407: -- PSB_MESSAGE_S.Print_Success;
408: /* End Bug No. 2322856 */
409: retcode := 0 ;
410: --
411: COMMIT WORK;
422: p_concurrency_class => 'MAINTENANCE',
423: p_concurrency_entity_name => 'DATA_EXTRACT',
424: p_concurrency_entity_id => p_data_extract_id);
425:
426: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
427: p_print_header => FND_API.G_TRUE );
428: retcode := 2 ;
429: COMMIT WORK ;
430: --
438: p_concurrency_class => 'MAINTENANCE',
439: p_concurrency_entity_name => 'DATA_EXTRACT',
440: p_concurrency_entity_id => p_data_extract_id);
441:
442: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
443: p_print_header => FND_API.G_TRUE );
444: retcode := 2 ;
445: COMMIT WORK ;
446:
461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
462: l_api_name ) ;
463: END IF ;
464: --
465: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
466: p_print_header => FND_API.G_TRUE );
467: --
468: retcode := 2 ;
469: COMMIT WORK ;