586: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
587: raise FND_API.G_EXC_ERROR;
588: END IF;
589: --
590: PSB_MESSAGE_S.Print_Success;
591: retcode := 0 ;
592: --
593: COMMIT WORK;
594:
601: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
602: l_api_name ) ;
603: END IF ;
604: --
605: PSB_MESSAGE_S.Print_Error( p_mode => FND_FILE.OUTPUT,
606: p_print_header => FND_API.G_TRUE);
607: --
608: retcode := 2 ;
609: --