--增加分类
GO
IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=1)
insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description)  Values(1, 'SC1', 'HOMaster 基础管理', 1, 0, 0, 0, Null)
else
print 'SYS_ScriptCategories.id=1 已经存在.'

GO


--删除旧记录
delete from SYS_Scripts where id=5257 --删除脚本内容
GO


GO
IF not EXISTS(SELECT * FROM SYS_Scripts WHERE id=5257)
insert into SYS_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode)  Values(5257, 85, 'SQL_检索病人信息', '检索病人信息', '检索病人信息，不关联挂号记录表', 1, 0, '<?xml version="1.0"?>
<Configs Ver="1"><Win WD="600" SZ="1"/><Grid Head="1" UseW="1"><Sql>Declare @FieldName varchar(20),
        @context varchar(128)

SET @FieldName = ''%s'' 
SET @context = ''%s''
IF @FieldName = ''a.VAA03''
BEGIN
  SELECT @context = dbo.GetFillVAA03(@context)
END

IF Object_id(''tempdb..#a'') IS NOT NULL DROP TABLE #a

select a.VAA01  into #a
from VAA1 a
  left join VBU1 d on d.VBU01 = a.VBU01 
where %s = @context 

SELECT a.VAA01, a.VAA02, a.VAA03, a.VAA04, a.VAA05, a.VAA06, a.ABBRP, a.ABBRW, a.VAA15, a.VAA33, a.VAA34  , a.ABW01 ,
  a.VAA12 , a.VAA10 , a.AAU01 , a.ACK01 , a.BDP02 , a.AAT02  , a.ACC02  , a.ABQ02 , a.ABC02 , a.VAA35 , a.BDX02 , 
  d.VCB04 , c.ABW02 , a.VAA33 , a.VBU01 , d.VBU14 , a.BEP06B  , 0 as VAC01 , d.VBU15 , d.VBU17 , d.VBU30 , 
  a.VAA47 , a.VAA48 , a.VAA49 ,a.VAA82
From VAA1 a with(nolock)
  LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01
  LEFT JOIN VBU1 d with(nolock) on a.VBU01 = d.VBU01  
where %s like @context and a.VAA01A = 0</Sql><HD><Ie FD="VAA03" CA="门诊号" WD="70" SZ="1"/><Ie FD="VAA02" CA="卡号" WD="100" SZ="1"/><Ie FD="VAA05" CA="姓名" WD="100" SZ="1"/><Ie FD="ABW02" CA="性别" WD="100" SZ="1"/><Ie FD="VAA10" CA="年龄" WD="100" SZ="1"/><Ie FD="VAA12" CA="出生日期" WD="100" SZ="1"/><Ie FD="VAA15" CA="证件号" WD="100" SZ="1"/><Ie FD="VAA33" CA="地址" WD="100" SZ="1"/></HD></Grid></Configs>
', 1, Null, '2015-11-06 11:27:24', '(8088)王海涛', 0)
else
print 'SYS_Scripts.id=5257 已经存在.'

GO