create table abonents (
  abid integer,
  abname character variyng ( 32 ),
  constraint pk_abonents primary key (abid)
)

create table events (
  evid integer, 
  abid integer, 
  evname character variyng ( 32 ),
  constraint pk_events primary key (evid),
  constraint fk_events_ref_abonents foreign key (abid) references abonents (abid)
)

if exists (select * from sysobjects where id = object_id(N'[s_eveproc]') and OBJECTPROPERTY(id, N'IsProcedure') =  1 )
drop procedure [s_eveproc]
GO
CREATE PROCEDURE s_eveproc

  @evname varchar( 32 ) ='',
  @abname varchar( 32 ) =''

As 
declare  
		@result int,
    @abid int;

Set @result= 0 ;
Set @abid= 0 ;

Set NoCount ON;

select @abid=abid from abonents where abname=@abname;
if @abid= 0 
begin
  insert into abonents (abname) values (@abname);
  select @abid = scope_identity();
end;

insert into events (abid, evname) values (@abid, @evname);
select @result = scope_identity();


select result=@result;

return(@result);
GO


-- exec s_eveproc @evname='ev1', @abname='ab2';

CREATE OR REPLACE FUNCTION tmp_get_dbver(
  _evname character varying ( 32 ),
  _abname character varying ( 32 )
)
  RETURNS integer AS
$BODY$
declare 
  _result integer;
  _abid integer;
begin

  select abid from abonents where abname=_abname into _abid;

  if _abid is null then
    _abid := nextval('abonents_abid_seq'::regclass);
    insert into abonents (abid, abname) values (_abid, _abname);
  end if;


 _result := nextval('events_evid_seq'::regclass);

  insert into events (evid, abid, evname) values (_result, _abid, _evname);

  
 return _result;
end
$BODY$
  LANGUAGE 'plpgsql' VOLATILE
  COST  100 ;