if not exists(select * from syscolumns where name = 'VAMA6' and object_Name(id)='VAM1')
  alter table VAM1 add VAMA6 tinyint default(0) with values
go  
/****** Object:  StoredProcedure [dbo].[Nurse_VAMA6_Judge]    Script Date: 03/28/2017 14:40:53 ******/
IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Nurse_VAMA6_Judge]') AND type in (N'P', N'PC'))
DROP PROCEDURE [dbo].[Nurse_VAMA6_Judge]
GO

/****** Object:  StoredProcedure [dbo].[Nurse_VAMA6_Update]    Script Date: 03/28/2017 14:40:53 ******/
IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Nurse_VAMA6_Update]') AND type in (N'P', N'PC'))
DROP PROCEDURE [dbo].[Nurse_VAMA6_Update]
GO

/****** Object:  StoredProcedure [dbo].[Nurse_VAMA6_Judge]    Script Date: 03/28/2017 14:40:54 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

--alter 2017.3.20  判断病人档案是否锁定
CREATE proc [dbo].[Nurse_VAMA6_Judge]
  @mode tinyint  -- 场合 1=医嘱 2=病历 3=护理 4=费用 5=病案首页
  ,@vae01 int
as  
  return 0 --暂不启用，启用时把此行注释掉既可
  
  declare @smsg varchar(256)
  if exists(select VAA07 from VAM1 where vaa07=@vae01 and VAMA6=1)
  begin
    set @smsg = '当前病人所有医疗档案及费用已被医务科锁定，不能进行改动.'
    RAISERROR(@smsg, 16, 1) with nowait
        RETURN @mode
  end
GO

/****** Object:  StoredProcedure [dbo].[Nurse_VAMA6_Update]    Script Date: 03/28/2017 14:40:54 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

--alter 2017.3.20  
create proc [dbo].[Nurse_VAMA6_Update]
  @vae01 int
  ,@sign tinyint --0取消锁定
as  
  update VAM1 set VAMA6=@sign where VAA07=@vae01
GO