declare @tablename varchar(128)
set @tablename = '<sometable>'

create table #proc_lines (line_no int identity(1,1),line varchar(256))

insert into #proc_lines(line)
select 'Create Procedure sp_'+@tablename+'_store'

/*generate input parameter list
@colname datatype  
! need OUTPUT for Primary Key column*/
insert into #proc_lines(line)
select 
	'@'+
	c.[name]+
	' '+
	d.[name]+
	--need (length) for character datatypes
	case when d.[name] in ('nvarchar','varchar','nchar','char')
		then '('+
		cast(c.length as varchar)+
		')'
		else
		''
	end+',' line 
from 
	sysobjects t
	join syscolumns c on t.id = c.id
	join systypes d on c.xusertype = d.xusertype
where 
	t.[name] = @tablename 
	and t.xtype = 'U'
Order by c.colorder

/*! don't need coma for last param*/
update #proc_lines 
set line = left(line,(len(line)-1))
where line_no = (select max(line_no) from #proc_lines)

insert into #proc_lines(line)
select 'AS ' 
--Etc...

/*ultimatley will BCP this out to .sql text file somewhere*/
select * from #proc_lines

drop table #proc_lines