print为什么没有执行？一个简单的存储过程问题

Question

Create proc insert_book
@param1 char(10),@param2 varchar(20),@param3 money,@param4 money output
with encryption
as
insert book(编号,书名,价格) Values(@param1,@param2,@param3)
select @param4=sum(价格) from book
go
declare @total_price money 
  exec insert_book '003','Delphi 控件开发指南',$100,@total_price
print '总金额为'+convert(varchar,@total_price)
执行完毕后，为什么看不到print要求显示的内容呢？

Answer 1

结果为null
我想请问，这个传递是不是单向的，只能由实参传给形参

Answer 2

declare @total_price money 
  exec insert_book '003','Delphi 控件开发指南',$100,@total_price output   --加output
print '总金额为'+convert(varchar,@total_price)