请高手帮忙：SQL Sserver 2000数据库存储过程出现“列名 'IsFull' 无效”的错误，该怎么改才对？谢谢！！

在sql server 2000查询分析器中输入的脚本代码如下：
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF NOT EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[StoredProcedureIsFull]') AND type in (N'P', N'PC'))
BEGIN
EXEC dbo.sp_executesql @statement = N'CREATE PROCEDURE [dbo].[StoredProcedureIsFull]
(   
    @roomID char(4)    
)
AS     
 Update Room Set IsFull=1 Where RoomID=@roomID 
 RETURN 
' 
END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF NOT EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[StoredProcedureAddClient]') AND type in (N'P', N'PC'))
BEGIN
EXEC dbo.sp_executesql @statement = N'CREATE PROCEDURE [dbo].[StoredProcedureAddClient]
 (
  @roomID char(4)
  
 )
AS
 Update Room Set FactPeopleNum=FactPeopleNum+1 Where RoomID=@roomID
 RETURN 
' 
END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF NOT EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[StoredProcedureMinusClient]') AND type in (N'P', N'PC'))
BEGIN
EXEC dbo.sp_executesql @statement = N'CREATE PROCEDURE [dbo].[StoredProcedureMinusClient]
 (
  @roomID char(4)
  
 )
AS
 Update Room Set FactPeopleNum=FactPeopleNum-1 Where RoomID=@roomID
 RETURN 
' 
END