--删除旧记录 --delete from Report_Objects where Code='LIS.U.000002' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000002') begin --插入 Declare @Report_Id_629 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_629 out Declare @Report_Id_629_CateID int Set @Report_Id_629_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_629, 'LIS.U.000002', '工作量统计', Null, Null, @Report_Id_629_CateID, 1, 3, 200, 0, Null, '2011-12-28 16:26:41', '2011-12-28 16:26:41', Null, ' 5E71776454E280902435381B8FC7236Edeclare @FindOptions varchar(20) , @FindField varchar(20) , @BDate varchar(20) , @EDate varchar(20) , @SQL varchar(8000) set @FindOptions = :FindOptions set @BDate = :BDate set @EDate = :EDate SELECT @FindField = (CASE @FindOptions WHEN ''检检日期'' THEN ''B.LAB20'' WHEN ''审核日期'' THEN ''B.LAB53'' WHEN ''样本类型'' THEN ''B.ABB02'' WHEN ''医疗类别'' THEN ''F.ACF03'' WHEN ''送检科室'' THEN ''G.BCK03'' WHEN ''病人类别'' THEN ''B.BDP02'' WHEN ''送检医生'' THEN ''B.BCE03'' WHEN ''检验技师'' THEN ''B.BCE03D'' WHEN ''仪器'' THEN ''C.BEY03'' WHEN ''检验小组'' THEN ''E.BEZ03'' END) set @SQL = '' select '' + @FindField + '' AS 统计条件, '' + @FindField + '' as '' + @FindOptions + '', count(distinct A.LAB01) as 样本数 , count(LAC01) as 项目数, Count(case when BFO01>0 then 1 else null end) as 细菌数 from LAC1 A Join LAB1 B On A.LAB01=B.LAB01 Left Join BEY1 C On C.BEY01=B.BEY01A Left Join BFB1 D On D.BEY01=B.BEY01A Left Join BEZ1 E On E.BEZ01=D.BEZ01 Left Join ACF1 F On F.ACF01=B.ACF01 Left Join BCK1 G On G.BCK01=B.BCK01C Left Join BFC1 H On H.BBX01 = A.BBX01 where LAB20 between '''''' + @BDate + '''''' And '''''' + @EDate + '''''' and LAB32=3 group by '' + @FindField + '' order by '' + @FindField exec(@SQL)declare @FindOptions varchar(20) , @FindField varchar(20) , @BDate varchar(20) , @EDate varchar(20) , @SQL varchar(8000) set @FindOptions = :FindOptions set @BDate = :BDate set @EDate = :EDate SELECT @FindField = (CASE @FindOptions WHEN ''检检日期'' THEN ''B.LAB20'' WHEN ''审核日期'' THEN ''B.LAB53'' WHEN ''样本类型'' THEN ''B.ABB02'' WHEN ''医疗类别'' THEN ''F.ACF03'' WHEN ''送检科室'' THEN ''G.BCK03'' WHEN ''病人类别'' THEN ''B.BDP02'' WHEN ''送检医生'' THEN ''B.BCE03'' WHEN ''检验技师'' THEN ''B.BCE03D'' WHEN ''仪器'' THEN ''C.BEY03'' WHEN ''检验小组'' THEN ''E.BEZ03'' END) set @SQL = ''SELECT '' + @FindField + '' as 统计条件, '' + @FindField + '' as ''+ @FindOptions +'', H.BBX04 as 项目编码, H.BBX05 as 项目名称, count(H.BBX01) AS 数量 FROM LAC1 A Join LAB1 B On A.LAB01=B.LAB01 Left Join BEY1 C On C.BEY01=A.BEY01 Left Join BFB1 D On D.BEY01=A.BEY01 Left Join BEZ1 E On E.BEZ01=D.BEZ01 Left Join ACF1 F On F.ACF01=B.ACF01 Left Join BCK1 G On G.BCK01=B.BCK01C Join BBX1 H On H.BBX01=A.BBX01 Left Join BFC1 I On I.BBX01=A.BBX01 where LAB20 between '''''' + @BDate + '''''' And '''''' + @EDate + '''''' and LAB32=3 GROUP BY '' + @FindField + '', H.BBX04, H.BBX05 ORDER BY '' + @FindField EXEC(@SQL)检检日期 审核日期 样本类型 医疗类别 送检科室 病人类别 送检医生 检验技师 仪器 检验小组 ', Null, 1, 1, Null, 1, 0) end else --更新 begin update Report_Objects set Config=' 5E71776454E280902435381B8FC7236Edeclare @FindOptions varchar(20) , @FindField varchar(20) , @BDate varchar(20) , @EDate varchar(20) , @SQL varchar(8000) set @FindOptions = :FindOptions set @BDate = :BDate set @EDate = :EDate SELECT @FindField = (CASE @FindOptions WHEN ''检检日期'' THEN ''B.LAB20'' WHEN ''审核日期'' THEN ''B.LAB53'' WHEN ''样本类型'' THEN ''B.ABB02'' WHEN ''医疗类别'' THEN ''F.ACF03'' WHEN ''送检科室'' THEN ''G.BCK03'' WHEN ''病人类别'' THEN ''B.BDP02'' WHEN ''送检医生'' THEN ''B.BCE03'' WHEN ''检验技师'' THEN ''B.BCE03D'' WHEN ''仪器'' THEN ''C.BEY03'' WHEN ''检验小组'' THEN ''E.BEZ03'' END) set @SQL = '' select '' + @FindField + '' AS 统计条件, '' + @FindField + '' as '' + @FindOptions + '', count(distinct A.LAB01) as 样本数 , count(LAC01) as 项目数, Count(case when BFO01>0 then 1 else null end) as 细菌数 from LAC1 A Join LAB1 B On A.LAB01=B.LAB01 Left Join BEY1 C On C.BEY01=B.BEY01A Left Join BFB1 D On D.BEY01=B.BEY01A Left Join BEZ1 E On E.BEZ01=D.BEZ01 Left Join ACF1 F On F.ACF01=B.ACF01 Left Join BCK1 G On G.BCK01=B.BCK01C Left Join BFC1 H On H.BBX01 = A.BBX01 where LAB20 between '''''' + @BDate + '''''' And '''''' + @EDate + '''''' and LAB32=3 group by '' + @FindField + '' order by '' + @FindField exec(@SQL)declare @FindOptions varchar(20) , @FindField varchar(20) , @BDate varchar(20) , @EDate varchar(20) , @SQL varchar(8000) set @FindOptions = :FindOptions set @BDate = :BDate set @EDate = :EDate SELECT @FindField = (CASE @FindOptions WHEN ''检检日期'' THEN ''B.LAB20'' WHEN ''审核日期'' THEN ''B.LAB53'' WHEN ''样本类型'' THEN ''B.ABB02'' WHEN ''医疗类别'' THEN ''F.ACF03'' WHEN ''送检科室'' THEN ''G.BCK03'' WHEN ''病人类别'' THEN ''B.BDP02'' WHEN ''送检医生'' THEN ''B.BCE03'' WHEN ''检验技师'' THEN ''B.BCE03D'' WHEN ''仪器'' THEN ''C.BEY03'' WHEN ''检验小组'' THEN ''E.BEZ03'' END) set @SQL = ''SELECT '' + @FindField + '' as 统计条件, '' + @FindField + '' as ''+ @FindOptions +'', H.BBX04 as 项目编码, H.BBX05 as 项目名称, count(H.BBX01) AS 数量 FROM LAC1 A Join LAB1 B On A.LAB01=B.LAB01 Left Join BEY1 C On C.BEY01=A.BEY01 Left Join BFB1 D On D.BEY01=A.BEY01 Left Join BEZ1 E On E.BEZ01=D.BEZ01 Left Join ACF1 F On F.ACF01=B.ACF01 Left Join BCK1 G On G.BCK01=B.BCK01C Join BBX1 H On H.BBX01=A.BBX01 Left Join BFC1 I On I.BBX01=A.BBX01 where LAB20 between '''''' + @BDate + '''''' And '''''' + @EDate + '''''' and LAB32=3 GROUP BY '' + @FindField + '', H.BBX04, H.BBX05 ORDER BY '' + @FindField EXEC(@SQL)检检日期 审核日期 样本类型 医疗类别 送检科室 病人类别 送检医生 检验技师 仪器 检验小组 ' where Code='LIS.U.000002' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000003' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000003') begin --插入 Declare @Report_Id_734 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_734 out Declare @Report_Id_734_CateID int Set @Report_Id_734_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_734, 'LIS.U.000003', '迁回单人检验历史数据', Null, Null, @Report_Id_734_CateID, 1, 3, 200, 0, Null, '2012-08-29 16:50:58', '2014-04-14 15:39:33', Null, ' 127D90968A8686636AC8E078DF090CF6declare @LAB09 varchar(50) set @LAB09=:LAB09 select * into #a from LAB2 where LAB09=@LAB09 and @LAB09>'''' insert into LAB1 select * from #a delete a from LAB2 a join #a b on b.LAB01 = a.LAB01 insert into LAC1 select * from LAC2 where exists(select * from #a where LAB01=LAC2.LAB01) delete a from LAC2 a join #a b on b.LAB01 = a.LAB01 select ''迁回''+convert(varchar(10),count(*))+''条样本记录，可前往检验管理系统中查阅报告单'' 迁移结果说明 from #a drop table #a<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1"><Sql>select distinct VAA05,LAB09,ABBRP from LAB2</Sql><Order>order by VAA05</Order><HD><Ie FD="LAB09" CA="病历号" WD="100"/><Ie FD="VAA05" CA="姓名" WD="100"/></HD><QF><Ie FD="LAB09" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="VAA05" WE="7"/></QF></Grid></Configs> ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 127D90968A8686636AC8E078DF090CF6declare @LAB09 varchar(50) set @LAB09=:LAB09 select * into #a from LAB2 where LAB09=@LAB09 and @LAB09>'''' insert into LAB1 select * from #a delete a from LAB2 a join #a b on b.LAB01 = a.LAB01 insert into LAC1 select * from LAC2 where exists(select * from #a where LAB01=LAC2.LAB01) delete a from LAC2 a join #a b on b.LAB01 = a.LAB01 select ''迁回''+convert(varchar(10),count(*))+''条样本记录，可前往检验管理系统中查阅报告单'' 迁移结果说明 from #a drop table #a<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1"><Sql>select distinct VAA05,LAB09,ABBRP from LAB2</Sql><Order>order by VAA05</Order><HD><Ie FD="LAB09" CA="病历号" WD="100"/><Ie FD="VAA05" CA="姓名" WD="100"/></HD><QF><Ie FD="LAB09" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="VAA05" WE="7"/></QF></Grid></Configs> ' where Code='LIS.U.000003' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000005' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000005') begin --插入 Declare @Report_Id_830 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_830 out Declare @Report_Id_830_CateID int Set @Report_Id_830_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_830, 'LIS.U.000005', '标本登记查询病人信息', Null, Null, @Report_Id_830_CateID, 1, 3, 200, 0, Null, '2013-03-20 11:42:31', '2013-03-22 10:49:53', Null, ' 7BEBFD59DC2A4F637C366264E57BBB61DECLARE @BeginDate varchar(30) , @EndDate varchar(30) , @ACF01 int/*医疗类别*/ , @BCE01C int/*核收人*/ , @VAA02 varchar(20)/*病历号*/ , @LAA08 varchar(20)/*条码号*/ , @VAA05 varchar(64)/*病人*/ , @BCK01A int/*申请病区ID*/ , @BCK01B int/*申请科室ID*/ , @BCK01C int/*核收科室ID*/ , @LAA32 int/*状态*/ , @PRNCP int/*打印*/ , @VCB04 varchar(20) /*会员卡*/ , @LAA42 int/*作废*/ select @BeginDate=:BeginDate , @EndDate=:EndDate , @ACF01 = :ACF01 , @BCE01C=:BCE01C , @VAA02=:VAA02 , @LAA08=:LAA08 , @VAA05=:VAA05 , @BCK01A=:BCK01A , @BCK01B=:BCK01B , @BCK01C=:BCK01C , @LAA32=:LAA32 , @PRNCP=:PRNCP , @VCB04=:VCB04 , @LAA42=:LAA42 declare @sql varchar(8000) --select @BeginDate = convert(varchar(10), @BeginDate, 120), @EndDate = convert(varchar(10), @EndDate, 120) + '' 23:59:59.999'' set @sql = '' SELECT (case when ISNULL(PRNCP, 0) > 0 then 0 else 1 end) AS Checked, A.LAA01, A.LAA02, A.VAA01, A.VAA07, A.VAP01, A.ACF01, A.VAA02, A.LAA08, A.LAA09, A.VAA05, A.ABW01, A.LAA12, A.LAA13 , A.AAU01, A.BES02, A.LAA16, A.BEL01, A.LAA18, A.LAA19, A.LAA20, A.ABB02, A.BCK01A, A.BCK01B, A.BCQ04, A.BCE03A, A.LAA26 , A.BCE03B, A.LAA28, A.BCK01C, A.BCE01C, A.BCE03C, A.LAA31, A.LAA32, A.LAA33, A.PRNCP, A.LAA35, A.VAF01, A.LAA37, A.LAA38 , BCE01D, BCE03D, LAA48, BCE01E, BCE03E, LAA51, LAA52, LAA53, LAA54 , F.ACF03, W.ABW02, U.AAU02, K1.BCK03 AS BCK03B, A.BAQ03, A.LAA45, L.BEL12, L.BEL08, A1.VBU01, (case when A.LAA08 = A.LAA09 then 0 else 1 end) as IsWG , '''''''' as Field1, '''''''' as Field2, '''''''' as Field3, '''''''' as Field4, '''''''' as Field5 , '''''''' as Field6, '''''''' as Field7, '''''''' as Field8, '''''''' as Field9, '''''''' as Field10 FROM LAA1 A LEFT JOIN ACF1 F ON F.ACF01 = A.ACF01 LEFT JOIN ABW1 W ON W.ABW01 = A.ABW01 LEFT JOIN AAU1 U ON U.AAU01 = A.AAU01 LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01B LEFT JOIN VAA1 A1 ON A1.VAA01 = A.VAA01 LEFT JOIN BEL1 L ON L.BEL01 = A.BEL01 WHERE A.LAA28 between '''''' + @BeginDate + '''''' and '''''' + @EndDate + '''''''' if @BCE01C>0 set @sql = @sql+'' and A.BCE01C=''''''+convert(varchar, @BCE01C)+'''''''' if @VAA02>'''' set @sql = @sql+'' and (A.VAA02 = '''''' + @VAA02 + '''''' or A1.VAA03=''''''+@VAA02+'''''' or A1.VAA04=''''''+@VAA02+'''''' or ((select top 1 F1.SCF04 from SCF1 F1 join SCA1 C1 on C1.SCA01 = F1.SCA01 and C1.VAA01 = A.VAA01) = ''''''+@VAA02+'''''') )'' if @LAA08>'''' set @sql = @sql+'' and A.LAA08=''''''+@LAA08+'''''''' if @VAA05>'''' set @sql = @sql+'' and A.VAA05=''''''+@VAA05+'''''''' if @VCB04>'''' set @sql = @sql+'' and A1.VAA02=''''''+@VCB04+'''''''' if @BCK01A>0 set @sql = @sql+'' and A.BCK01A='' + convert(varchar, @BCK01A) if @BCK01B>0 set @sql = @sql+'' and A.BCK01B='' + convert(varchar, @BCK01B) if @BCK01C>0 set @sql = @sql+'' and A.BCK01C='' + convert(varchar, @BCK01C) if @LAA32>-1 set @sql = @sql+'' and A.LAA32='' + convert(varchar, @LAA32) if @PRNCP=0 set @sql = @sql+'' and A.PRNCP=0'' else if @PRNCP>=1 set @sql = @sql+'' and A.PRNCP>=1'' if @ACF01 > 0 set @sql = @sql + '' and A.ACF01 = '' + CONVERT(VARCHAR, @ACF01) if @LAA42 = 0 set @sql = @sql + '' and A.LAA42 = 0'' else if @LAA42 = 1 set @sql = @sql + '' and A.LAA42 >= 1'' exec (@sql)0=全部 1=门诊 2=住院 4=体检<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>SELECT DISTINCT a.BCK01,a.BCK02,a.BCK03,ABBRP,ABBRW FROM BCK1 a JOIN BAZ1 b ON a.BCK01=b.BCK01 and b.BAU01=''02''</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select BCK01, BCK02, BCK03, ABBRP, ABBRW from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select BCK01, BCK02, BCK03, ABBRP, ABBRW from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs>-1=全部 0=登记 1=核收 3=新开样本 4=完成 5=拒收 6=作废-1=全部 0=未打印 1=已打印<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select Distinct st.BCE01, st.BCE02, st.BCE03, st.BCE04, st.BCE05, st.BCE06, st.BCK01, st.ABBRP, st.ABBRW From BCE1 st Join BCK1 te On st.BCK01 = te.BCK01 Join BAZ1 td On te.BCK01 = td.BCK01 Where td.BAU01=''31'' And st.BCE41 = 1</Sql><HD><Ie FD="BCE02" CA="编码" WD="100"/><Ie FD="BCE03" CA="名称" WD="100"/></HD><QF><Ie FD="BCE02" WE="7"/><Ie FD="BCE03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs>0=未作废 1=已作废 ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 7BEBFD59DC2A4F637C366264E57BBB61DECLARE @BeginDate varchar(30) , @EndDate varchar(30) , @ACF01 int/*医疗类别*/ , @BCE01C int/*核收人*/ , @VAA02 varchar(20)/*病历号*/ , @LAA08 varchar(20)/*条码号*/ , @VAA05 varchar(64)/*病人*/ , @BCK01A int/*申请病区ID*/ , @BCK01B int/*申请科室ID*/ , @BCK01C int/*核收科室ID*/ , @LAA32 int/*状态*/ , @PRNCP int/*打印*/ , @VCB04 varchar(20) /*会员卡*/ , @LAA42 int/*作废*/ select @BeginDate=:BeginDate , @EndDate=:EndDate , @ACF01 = :ACF01 , @BCE01C=:BCE01C , @VAA02=:VAA02 , @LAA08=:LAA08 , @VAA05=:VAA05 , @BCK01A=:BCK01A , @BCK01B=:BCK01B , @BCK01C=:BCK01C , @LAA32=:LAA32 , @PRNCP=:PRNCP , @VCB04=:VCB04 , @LAA42=:LAA42 declare @sql varchar(8000) --select @BeginDate = convert(varchar(10), @BeginDate, 120), @EndDate = convert(varchar(10), @EndDate, 120) + '' 23:59:59.999'' set @sql = '' SELECT (case when ISNULL(PRNCP, 0) > 0 then 0 else 1 end) AS Checked, A.LAA01, A.LAA02, A.VAA01, A.VAA07, A.VAP01, A.ACF01, A.VAA02, A.LAA08, A.LAA09, A.VAA05, A.ABW01, A.LAA12, A.LAA13 , A.AAU01, A.BES02, A.LAA16, A.BEL01, A.LAA18, A.LAA19, A.LAA20, A.ABB02, A.BCK01A, A.BCK01B, A.BCQ04, A.BCE03A, A.LAA26 , A.BCE03B, A.LAA28, A.BCK01C, A.BCE01C, A.BCE03C, A.LAA31, A.LAA32, A.LAA33, A.PRNCP, A.LAA35, A.VAF01, A.LAA37, A.LAA38 , BCE01D, BCE03D, LAA48, BCE01E, BCE03E, LAA51, LAA52, LAA53, LAA54 , F.ACF03, W.ABW02, U.AAU02, K1.BCK03 AS BCK03B, A.BAQ03, A.LAA45, L.BEL12, L.BEL08, A1.VBU01, (case when A.LAA08 = A.LAA09 then 0 else 1 end) as IsWG , '''''''' as Field1, '''''''' as Field2, '''''''' as Field3, '''''''' as Field4, '''''''' as Field5 , '''''''' as Field6, '''''''' as Field7, '''''''' as Field8, '''''''' as Field9, '''''''' as Field10 FROM LAA1 A LEFT JOIN ACF1 F ON F.ACF01 = A.ACF01 LEFT JOIN ABW1 W ON W.ABW01 = A.ABW01 LEFT JOIN AAU1 U ON U.AAU01 = A.AAU01 LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01B LEFT JOIN VAA1 A1 ON A1.VAA01 = A.VAA01 LEFT JOIN BEL1 L ON L.BEL01 = A.BEL01 WHERE A.LAA28 between '''''' + @BeginDate + '''''' and '''''' + @EndDate + '''''''' if @BCE01C>0 set @sql = @sql+'' and A.BCE01C=''''''+convert(varchar, @BCE01C)+'''''''' if @VAA02>'''' set @sql = @sql+'' and (A.VAA02 = '''''' + @VAA02 + '''''' or A1.VAA03=''''''+@VAA02+'''''' or A1.VAA04=''''''+@VAA02+'''''' or ((select top 1 F1.SCF04 from SCF1 F1 join SCA1 C1 on C1.SCA01 = F1.SCA01 and C1.VAA01 = A.VAA01) = ''''''+@VAA02+'''''') )'' if @LAA08>'''' set @sql = @sql+'' and A.LAA08=''''''+@LAA08+'''''''' if @VAA05>'''' set @sql = @sql+'' and A.VAA05=''''''+@VAA05+'''''''' if @VCB04>'''' set @sql = @sql+'' and A1.VAA02=''''''+@VCB04+'''''''' if @BCK01A>0 set @sql = @sql+'' and A.BCK01A='' + convert(varchar, @BCK01A) if @BCK01B>0 set @sql = @sql+'' and A.BCK01B='' + convert(varchar, @BCK01B) if @BCK01C>0 set @sql = @sql+'' and A.BCK01C='' + convert(varchar, @BCK01C) if @LAA32>-1 set @sql = @sql+'' and A.LAA32='' + convert(varchar, @LAA32) if @PRNCP=0 set @sql = @sql+'' and A.PRNCP=0'' else if @PRNCP>=1 set @sql = @sql+'' and A.PRNCP>=1'' if @ACF01 > 0 set @sql = @sql + '' and A.ACF01 = '' + CONVERT(VARCHAR, @ACF01) if @LAA42 = 0 set @sql = @sql + '' and A.LAA42 = 0'' else if @LAA42 = 1 set @sql = @sql + '' and A.LAA42 >= 1'' exec (@sql)0=全部 1=门诊 2=住院 4=体检<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>SELECT DISTINCT a.BCK01,a.BCK02,a.BCK03,ABBRP,ABBRW FROM BCK1 a JOIN BAZ1 b ON a.BCK01=b.BCK01 and b.BAU01=''02''</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select BCK01, BCK02, BCK03, ABBRP, ABBRW from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select BCK01, BCK02, BCK03, ABBRP, ABBRW from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD><QF><Ie FD="BCK02" WE="7"/><Ie FD="BCK03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs>-1=全部 0=登记 1=核收 3=新开样本 4=完成 5=拒收 6=作废-1=全部 0=未打印 1=已打印<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1" QDB="1"><Sql>select Distinct st.BCE01, st.BCE02, st.BCE03, st.BCE04, st.BCE05, st.BCE06, st.BCK01, st.ABBRP, st.ABBRW From BCE1 st Join BCK1 te On st.BCK01 = te.BCK01 Join BAZ1 td On te.BCK01 = td.BCK01 Where td.BAU01=''31'' And st.BCE41 = 1</Sql><HD><Ie FD="BCE02" CA="编码" WD="100"/><Ie FD="BCE03" CA="名称" WD="100"/></HD><QF><Ie FD="BCE02" WE="7"/><Ie FD="BCE03" WE="7"/><Ie FD="ABBRP" WE="7"/><Ie FD="ABBRW" WE="7"/></QF></Grid></Configs>0=未作废 1=已作废 ' where Code='LIS.U.000005' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000006' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000006') begin --插入 Declare @Report_Id_831 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_831 out Declare @Report_Id_831_CateID int Set @Report_Id_831_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_831, 'LIS.U.000006', '标本登记查询项目信息', Null, Null, @Report_Id_831_CateID, 1, 3, 200, 0, Null, '2013-03-22 10:49:56', '2013-03-22 10:49:56', Null, ' 60172F4C10A81688EC54F42E160FAA1Ddeclare @LAA01 varchar(1000) set @LAA01 = :LAA01 if OBJECT_ID(''tempdb..#LAK1'') is not null drop table #LAK1 SELECT Distinct 1 AS Checked, K.LAK01, K.LAA01, K.VAF01, K.BBX01A, K.BBX01, K.LAK09 , X1.BBX05 AS BBX05A, X2.BBX05 AS BBX05, C.BFC03, A1.ACF01, 1 VBI01 , ISNULL(L.BEL01, 0) AS BEL01, L.BEL02, L.ABBRP, L.ABBRW, L.BEL05, L.BEL06, L.BEL07 , L.BEL08, L.BEL09, L.BBY01, L.BEL11, convert(varchar(2), '''') as Number INTO #LAK1 FROM LAK1 K LEFT JOIN BBX1 X1 ON X1.BBX01 = K.BBX01A LEFT JOIN BBX1 X2 ON X2.BBX01 = K.BBX01 LEFT JOIN BFC1 C ON C.BBX01 = K.BBX01 LEFT JOIN BEL1 L ON L.BEL01 = X2.BBX19 left join LAA1 A1 on A1.LAA01 = K.LAA01 WHERE K.LAA01 in (@LAA01) ORDER BY K.BBX01A, K.BBX01 SELECT * FROM #LAK1 DROP TABLE #LAK1 ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 60172F4C10A81688EC54F42E160FAA1Ddeclare @LAA01 varchar(1000) set @LAA01 = :LAA01 if OBJECT_ID(''tempdb..#LAK1'') is not null drop table #LAK1 SELECT Distinct 1 AS Checked, K.LAK01, K.LAA01, K.VAF01, K.BBX01A, K.BBX01, K.LAK09 , X1.BBX05 AS BBX05A, X2.BBX05 AS BBX05, C.BFC03, A1.ACF01, 1 VBI01 , ISNULL(L.BEL01, 0) AS BEL01, L.BEL02, L.ABBRP, L.ABBRW, L.BEL05, L.BEL06, L.BEL07 , L.BEL08, L.BEL09, L.BBY01, L.BEL11, convert(varchar(2), '''') as Number INTO #LAK1 FROM LAK1 K LEFT JOIN BBX1 X1 ON X1.BBX01 = K.BBX01A LEFT JOIN BBX1 X2 ON X2.BBX01 = K.BBX01 LEFT JOIN BFC1 C ON C.BBX01 = K.BBX01 LEFT JOIN BEL1 L ON L.BEL01 = X2.BBX19 left join LAA1 A1 on A1.LAA01 = K.LAA01 WHERE K.LAA01 in (@LAA01) ORDER BY K.BBX01A, K.BBX01 SELECT * FROM #LAK1 DROP TABLE #LAK1 ' where Code='LIS.U.000006' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000007' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000007') begin --插入 Declare @Report_Id_835 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_835 out Declare @Report_Id_835_CateID int Set @Report_Id_835_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_835, 'LIS.U.000007', '样本查询(不弹出窗口)', Null, Null, @Report_Id_835_CateID, 1, 3, 200, 0, Null, '2013-03-28 14:52:04', '2013-03-28 15:07:59', Null, ' 4CBD97DBEEAEC0963A65897787B23DFDdeclare @UserID int , @BeginDate varchar(20) , @EndDate varchar(20) , @Group int , @BEY01 int , @ACF01 varchar(4) , @BCK01C varchar(200) , @ABB02 varchar(30) , @BCE03 varchar(30) , @BCK01D varchar(200) , @LAB32 int , @LAB36 int , @BEY09 varchar(50) , @LAB42 varchar(20) , @LAB09 varchar(20) , @VAA05 varchar(64) , @BCE01B varchar(10) , @BCE01D varchar(10) , @OpenSecret int select @UserID = :UserID , @BeginDate = :BeginDate , @EndDate = :EndDate , @Group = :Group , @BEY01 = :BEY01 , @ACF01 = :ACF01 , @BCK01C = :BCK01C , @ABB02 = :ABB02 , @BCE03 = :BCE03 , @BCK01D = :BCK01D , @LAB32 = :LAB32 , @LAB36 = :LAB36 , @BEY09 = :BEY09 , @LAB42 = :LAB42 , @LAB09 = :LAB09 , @VAA05 = :VAA05 , @BCE01B = :BCE01B , @BCE01D = :BCE01D , @OpenSecret = :OpenSecret DECLARE @sql VARCHAR(8000) set @sql = '' if OBJECT_ID(''''tempdb..#LAB1'''') is not null drop table #LAB1 select Checked=0, B1.BEZ01, Z1.BEZ03, A.LAB01, A.LAB02, A.VAA01, A.VAA07, A.VAP01, A.BCK01A, A.ABBRP, A.ABBRW, A.LAB09, A.VAA05, ISNULL(A.ABW01, 0) ABW01 , A.LAB12, ISNULL(A.AAU01, ''''Y'''') AAU01, A.LAB14, A.BDP02, A.LAB16, A.BES02, A.LAB18, ISNULL(A.ACF01, 1) ACF01, A.LAB20, ISNULL(A.LAB21, 1) LAB21, A.LAB22 , A.LAB23, A.ABB02, A.BEY01A, A.BEY01B, A.BEW02, A.BCK01B, Y.BEY07, A.LAB30, A.LAB31, ISNULL(A.LAB32, 0) LAB32, A.LAB33 , A.LAB34, A.LAB35, A.LAB36, A.LAB37, A.BCE03, A.BCK01C, ISNULL(A.LAB40, GETDATE()) LAB40, A.VAF01, A.LAB42, A.LAB43, A.BCE03A , A.BCE03C, A.LAB46, A.BCE01D, A.BCE03D, A.BCE03E, A.LAB50, A.BCE01B, A.BCE03B, A.LAB53, A.LAB54 , A.LAB55, A.LAB56, A.BET02, A.LAB58, A.LAB59, A.LAB60, A.LAB61, A.LAB62, A.LAB63, A.LAB64, A.BEX02 , A.BCK01D, A.BAQ03, isnull(A.LAB68, 0) LAB68, A.LAB69, ISNULL(A.LAB70, 0) LAB70, ISNULL(A.LAB71, 0) LAB71 , A.BCE01F, A.BCE03F, A.LAB74, A.VAA01_64, A.VAA07_64 , K1.BCK03 AS BCK03A, K2.BCK03 AS BCK03B, K3.BCK03 AS BCK03C, K4.BCK03 AS BCK03D , U1.AAU02, Y.BEY03 BEY03A, Y.BEY02 BEY02A , (CASE A.ACF01 WHEN 1 THEN ''''门诊'''' WHEN 2 THEN ''''住院'''' WHEN 4 THEN ''''体检'''' ELSE ''''其他'''' END) ACF03 , ISNULL(H1.BFU01, 0) BFU01, ISNULL(U.BFU03, '''''''') BFU03, H1.LAH08, convert(varchar(2000), '''''''') as TESTAREA, convert(varchar(100), '''''''') as Postfix , A.LAB77, A.LAB78 into #LAB1 From LAB1 A LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01A LEFT JOIN BCK1 K2 ON K2.BCK01 = A.BCK01B LEFT JOIN BCK1 K3 ON K3.BCK01 = A.BCK01C LEFT JOIN BCK1 K4 ON K4.BCK01 = A.BCK01D LEFT JOIN BEY1 Y ON Y.BEY01 = A.BEY01A AND ISNULL(Y.BEY52, 0) = 0 LEFT JOIN AAU1 U1 ON U1.AAU01 = A.AAU01 LEFT JOIN LAH1 H1 ON H1.LAB01 = A.LAB01 LEFT JOIN BFU1 U ON U.BFU01 = H1.BFU01 JOIN BFB1 B1 ON B1.BEY01 = A.BEY01A JOIN BEZ1 Z1 ON Z1.BEZ01 = B1.BEZ01 '' set @sql = @sql + '' Where A.LAB20 Between '''''' + @BeginDate + '''''' and '''''' + @EndDate + '''''''' select @Group = isnull(@Group, 0), @BEY01 = isnull(@BEY01, 0) if @Group > -1 set @sql = @sql + '' and B1.BEZ01 = '' + CONVERT(VARCHAR, @Group) if @BEY01 > -1 set @sql = @sql + '' And A.BEY01A = '' + CONVERT(VARCHAR, @BEY01) if @ACF01 > ''0'' set @sql = @sql + '' and A.ACF01 = '' + @ACF01 if @BCK01C > ''-1'' set @sql = @sql + '' And A.BCK01C IN ('' + @BCK01C + '')'' if @ABB02 > '''' set @sql = @sql + '' And A.ABB02 = '''''' + @ABB02 + '''''''' if @BCE03 > '''' set @sql = @sql + '' And A.BCE03 = '''''' + @BCE03 + '''''''' if @BCK01D > ''-1'' set @sql = @sql + '' And A.BCK01D = '' + @BCK01D if @LAB32 = 1 set @sql = @sql + '' And (A.LAB32 = 3)'' if @LAB32 = 2 set @sql = @sql + '' And (A.LAB32 <= 2 or A.LAB32 is null)'' if @LAB36 = 1 set @sql = @sql + '' And (A.LAB36 >= 1)'' if @LAB36 = 2 set @sql = @sql + '' And (A.LAB36 = 0 or A.LAB36 is null)'' if @BEY09 > '''' set @sql = @sql + '' and Y.BEY09 = '''''' + @BEY09 + '''''''' if @LAB42 > '''' begin set @LAB42 = ''%%'' + @LAB42 + ''%%'' set @sql = @sql + '' And A.LAB42 like '''''' + @LAB42 + '''''''' end if @LAB09 > '''' begin set @LAB09 = ''%%'' + @LAB09 + ''%%'' set @sql = @sql + '' And A.LAB09 like '''''' + @LAB09 + '''''''' end if @VAA05 > '''' begin set @VAA05 = ''%%'' + @VAA05 + ''%%'' set @sql = @sql + '' And (A.VAA05 like '''''' + @VAA05 + '''''' or A.ABBRP like '''''' + @VAA05 + '''''' or A.ABBRW like '''''' + @VAA05 + '''''')'' end if @BCE01B > ''0'' set @sql = @sql + '' and A.BCE01B = '' + @BCE01B if @BCE01D > ''0'' set @sql = @sql + '' and A.BCE01D = '' + @BCE01D if @OpenSecret = 0 set @sql = @sql + '' and (isnull(A.LAB70, 0) = 0 or A.BCE01D = '' + convert(varchar, @UserID) + '')'' --set @sql = @sql + '' Order BY A.BEY01A, Convert(varchar(10), A.LAB20, 120), LAB23'' --SET @SQL = @SQL + ''order by A.BEY01A, A.LAB23'' SET @sql = @sql + '' SELECT * FROM #LAB1 Order BY BEY01A, Convert(varchar(10),LAB20, 120), LAB23 DROP TABLE #LAB1'' EXEC(@sql)<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>DECLARE @BCE01 int SELECT @BCE01 = &lt;UserID&gt; Select A.BEZ01, A.BEZ02, A.BEZ03 From BEZ1 A Join BFA1 B On A.BEZ01 = B.BEZ01 Where B.BCE01 = @BCE01</Sql><HD><Ie FD="BEZ02" CA="编码" WD="100"/><Ie FD="BEZ03" CA="名称" WD="100"/></HD></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>DECLARE @BEZ01 int SELECT @BEZ01 = &lt;Group&gt; select -1 BEY01, '''' BEY02, ''所有仪器'' BEY03, 0 ISDEF union all select A.BEY01,A.BEY02,A.BEY03, B.ISDEF from BEY1 A Join BFB1 B On A.BEY01=B.BEY01 Join BEZ1 C On C.BEZ01=B.BEZ01 where C.BEZ01 = @BEZ01</Sql><HD><Ie FD="BEY02" CA="编码" WD="100"/><Ie FD="BEY03" CA="名称" WD="100"/></HD></Grid></Configs>0= 1=门诊 2=住院 3=体检 4=其他<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>SELECT DISTINCT A.BCK01,A.BCK02,A.BCK03,ABBRP,ABBRW FROM BCK1 A JOIN BAZ1 B ON A.BCK01=B.BCK01 And B.BAU01=''02''</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid><Sql>SELECT DISTINCT A.BCK01,A.BCK02,A.BCK03,ABBRP,ABBRW FROM BCK1 A JOIN BAZ1 B ON A.BCK01=B.BCK01 And B.BAU01=''01''</Sql><HD><Ie FD="BCK03" WD="100"/></HD><QF><Ie FD="BCK03" WE="7"/><Ie FD="BCK02" WE="7"/><Ie FD="abbrp" WE="7"/></QF></Grid></Configs>1=已审核 2=未审核1=已打印 2=未打印 ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 4CBD97DBEEAEC0963A65897787B23DFDdeclare @UserID int , @BeginDate varchar(20) , @EndDate varchar(20) , @Group int , @BEY01 int , @ACF01 varchar(4) , @BCK01C varchar(200) , @ABB02 varchar(30) , @BCE03 varchar(30) , @BCK01D varchar(200) , @LAB32 int , @LAB36 int , @BEY09 varchar(50) , @LAB42 varchar(20) , @LAB09 varchar(20) , @VAA05 varchar(64) , @BCE01B varchar(10) , @BCE01D varchar(10) , @OpenSecret int select @UserID = :UserID , @BeginDate = :BeginDate , @EndDate = :EndDate , @Group = :Group , @BEY01 = :BEY01 , @ACF01 = :ACF01 , @BCK01C = :BCK01C , @ABB02 = :ABB02 , @BCE03 = :BCE03 , @BCK01D = :BCK01D , @LAB32 = :LAB32 , @LAB36 = :LAB36 , @BEY09 = :BEY09 , @LAB42 = :LAB42 , @LAB09 = :LAB09 , @VAA05 = :VAA05 , @BCE01B = :BCE01B , @BCE01D = :BCE01D , @OpenSecret = :OpenSecret DECLARE @sql VARCHAR(8000) set @sql = '' if OBJECT_ID(''''tempdb..#LAB1'''') is not null drop table #LAB1 select Checked=0, B1.BEZ01, Z1.BEZ03, A.LAB01, A.LAB02, A.VAA01, A.VAA07, A.VAP01, A.BCK01A, A.ABBRP, A.ABBRW, A.LAB09, A.VAA05, ISNULL(A.ABW01, 0) ABW01 , A.LAB12, ISNULL(A.AAU01, ''''Y'''') AAU01, A.LAB14, A.BDP02, A.LAB16, A.BES02, A.LAB18, ISNULL(A.ACF01, 1) ACF01, A.LAB20, ISNULL(A.LAB21, 1) LAB21, A.LAB22 , A.LAB23, A.ABB02, A.BEY01A, A.BEY01B, A.BEW02, A.BCK01B, Y.BEY07, A.LAB30, A.LAB31, ISNULL(A.LAB32, 0) LAB32, A.LAB33 , A.LAB34, A.LAB35, A.LAB36, A.LAB37, A.BCE03, A.BCK01C, ISNULL(A.LAB40, GETDATE()) LAB40, A.VAF01, A.LAB42, A.LAB43, A.BCE03A , A.BCE03C, A.LAB46, A.BCE01D, A.BCE03D, A.BCE03E, A.LAB50, A.BCE01B, A.BCE03B, A.LAB53, A.LAB54 , A.LAB55, A.LAB56, A.BET02, A.LAB58, A.LAB59, A.LAB60, A.LAB61, A.LAB62, A.LAB63, A.LAB64, A.BEX02 , A.BCK01D, A.BAQ03, isnull(A.LAB68, 0) LAB68, A.LAB69, ISNULL(A.LAB70, 0) LAB70, ISNULL(A.LAB71, 0) LAB71 , A.BCE01F, A.BCE03F, A.LAB74, A.VAA01_64, A.VAA07_64 , K1.BCK03 AS BCK03A, K2.BCK03 AS BCK03B, K3.BCK03 AS BCK03C, K4.BCK03 AS BCK03D , U1.AAU02, Y.BEY03 BEY03A, Y.BEY02 BEY02A , (CASE A.ACF01 WHEN 1 THEN ''''门诊'''' WHEN 2 THEN ''''住院'''' WHEN 4 THEN ''''体检'''' ELSE ''''其他'''' END) ACF03 , ISNULL(H1.BFU01, 0) BFU01, ISNULL(U.BFU03, '''''''') BFU03, H1.LAH08, convert(varchar(2000), '''''''') as TESTAREA, convert(varchar(100), '''''''') as Postfix , A.LAB77, A.LAB78 into #LAB1 From LAB1 A LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01A LEFT JOIN BCK1 K2 ON K2.BCK01 = A.BCK01B LEFT JOIN BCK1 K3 ON K3.BCK01 = A.BCK01C LEFT JOIN BCK1 K4 ON K4.BCK01 = A.BCK01D LEFT JOIN BEY1 Y ON Y.BEY01 = A.BEY01A AND ISNULL(Y.BEY52, 0) = 0 LEFT JOIN AAU1 U1 ON U1.AAU01 = A.AAU01 LEFT JOIN LAH1 H1 ON H1.LAB01 = A.LAB01 LEFT JOIN BFU1 U ON U.BFU01 = H1.BFU01 JOIN BFB1 B1 ON B1.BEY01 = A.BEY01A JOIN BEZ1 Z1 ON Z1.BEZ01 = B1.BEZ01 '' set @sql = @sql + '' Where A.LAB20 Between '''''' + @BeginDate + '''''' and '''''' + @EndDate + '''''''' select @Group = isnull(@Group, 0), @BEY01 = isnull(@BEY01, 0) if @Group > -1 set @sql = @sql + '' and B1.BEZ01 = '' + CONVERT(VARCHAR, @Group) if @BEY01 > -1 set @sql = @sql + '' And A.BEY01A = '' + CONVERT(VARCHAR, @BEY01) if @ACF01 > ''0'' set @sql = @sql + '' and A.ACF01 = '' + @ACF01 if @BCK01C > ''-1'' set @sql = @sql + '' And A.BCK01C IN ('' + @BCK01C + '')'' if @ABB02 > '''' set @sql = @sql + '' And A.ABB02 = '''''' + @ABB02 + '''''''' if @BCE03 > '''' set @sql = @sql + '' And A.BCE03 = '''''' + @BCE03 + '''''''' if @BCK01D > ''-1'' set @sql = @sql + '' And A.BCK01D = '' + @BCK01D if @LAB32 = 1 set @sql = @sql + '' And (A.LAB32 = 3)'' if @LAB32 = 2 set @sql = @sql + '' And (A.LAB32 <= 2 or A.LAB32 is null)'' if @LAB36 = 1 set @sql = @sql + '' And (A.LAB36 >= 1)'' if @LAB36 = 2 set @sql = @sql + '' And (A.LAB36 = 0 or A.LAB36 is null)'' if @BEY09 > '''' set @sql = @sql + '' and Y.BEY09 = '''''' + @BEY09 + '''''''' if @LAB42 > '''' begin set @LAB42 = ''%%'' + @LAB42 + ''%%'' set @sql = @sql + '' And A.LAB42 like '''''' + @LAB42 + '''''''' end if @LAB09 > '''' begin set @LAB09 = ''%%'' + @LAB09 + ''%%'' set @sql = @sql + '' And A.LAB09 like '''''' + @LAB09 + '''''''' end if @VAA05 > '''' begin set @VAA05 = ''%%'' + @VAA05 + ''%%'' set @sql = @sql + '' And (A.VAA05 like '''''' + @VAA05 + '''''' or A.ABBRP like '''''' + @VAA05 + '''''' or A.ABBRW like '''''' + @VAA05 + '''''')'' end if @BCE01B > ''0'' set @sql = @sql + '' and A.BCE01B = '' + @BCE01B if @BCE01D > ''0'' set @sql = @sql + '' and A.BCE01D = '' + @BCE01D if @OpenSecret = 0 set @sql = @sql + '' and (isnull(A.LAB70, 0) = 0 or A.BCE01D = '' + convert(varchar, @UserID) + '')'' --set @sql = @sql + '' Order BY A.BEY01A, Convert(varchar(10), A.LAB20, 120), LAB23'' --SET @SQL = @SQL + ''order by A.BEY01A, A.LAB23'' SET @sql = @sql + '' SELECT * FROM #LAB1 Order BY BEY01A, Convert(varchar(10),LAB20, 120), LAB23 DROP TABLE #LAB1'' EXEC(@sql)<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>DECLARE @BCE01 int SELECT @BCE01 = &lt;UserID&gt; Select A.BEZ01, A.BEZ02, A.BEZ03 From BEZ1 A Join BFA1 B On A.BEZ01 = B.BEZ01 Where B.BCE01 = @BCE01</Sql><HD><Ie FD="BEZ02" CA="编码" WD="100"/><Ie FD="BEZ03" CA="名称" WD="100"/></HD></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>DECLARE @BEZ01 int SELECT @BEZ01 = &lt;Group&gt; select -1 BEY01, '''' BEY02, ''所有仪器'' BEY03, 0 ISDEF union all select A.BEY01,A.BEY02,A.BEY03, B.ISDEF from BEY1 A Join BFB1 B On A.BEY01=B.BEY01 Join BEZ1 C On C.BEZ01=B.BEZ01 where C.BEZ01 = @BEZ01</Sql><HD><Ie FD="BEY02" CA="编码" WD="100"/><Ie FD="BEY03" CA="名称" WD="100"/></HD></Grid></Configs>0= 1=门诊 2=住院 3=体检 4=其他<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>SELECT DISTINCT A.BCK01,A.BCK02,A.BCK03,ABBRP,ABBRW FROM BCK1 A JOIN BAZ1 B ON A.BCK01=B.BCK01 And B.BAU01=''02''</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD></Grid></Configs><?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid><Sql>SELECT DISTINCT A.BCK01,A.BCK02,A.BCK03,ABBRP,ABBRW FROM BCK1 A JOIN BAZ1 B ON A.BCK01=B.BCK01 And B.BAU01=''01''</Sql><HD><Ie FD="BCK03" WD="100"/></HD><QF><Ie FD="BCK03" WE="7"/><Ie FD="BCK02" WE="7"/><Ie FD="abbrp" WE="7"/></QF></Grid></Configs>1=已审核 2=未审核1=已打印 2=未打印 ' where Code='LIS.U.000007' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000008' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000008') begin --插入 Declare @Report_Id_1013 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1013 out Declare @Report_Id_1013_CateID int Set @Report_Id_1013_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1013, 'LIS.U.000008', '危急值报告', Null, Null, @Report_Id_1013_CateID, 1, 3, 200, 0, Null, '2014-01-02 10:35:42', '2014-01-02 10:35:42', Null, ' 515597CC48B7C82A69DF59694055E293declare @BCK01 int select @BCK01 =:BCK01 declare @sqlstr varchar(8000) set @sqlstr = ''select * from LTI1 where ISNULL(LTI13, '''''''') = '''''''' '' if isnull(@BCK01, 0) > 0 set @sqlstr = @sqlstr + '' and LTI04 = '' + convert(varchar, @BCK01) set @sqlstr = @sqlstr + '' order by LTI13, LTI11'' EXEC(@sqlstr)<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1"><Sql>select BCK01, BCK02, BCK03 from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD></Grid></Configs> ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 515597CC48B7C82A69DF59694055E293declare @BCK01 int select @BCK01 =:BCK01 declare @sqlstr varchar(8000) set @sqlstr = ''select * from LTI1 where ISNULL(LTI13, '''''''') = '''''''' '' if isnull(@BCK01, 0) > 0 set @sqlstr = @sqlstr + '' and LTI04 = '' + convert(varchar, @BCK01) set @sqlstr = @sqlstr + '' order by LTI13, LTI11'' EXEC(@sqlstr)<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1"><Sql>select BCK01, BCK02, BCK03 from BCK1</Sql><HD><Ie FD="BCK02" CA="编码" WD="100"/><Ie FD="BCK03" CA="名称" WD="100"/></HD></Grid></Configs> ' where Code='LIS.U.000008' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000009' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000009') begin --插入 Declare @Report_Id_1022 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1022 out Declare @Report_Id_1022_CateID int Set @Report_Id_1022_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1022, 'LIS.U.000009', '条码查询', Null, Null, @Report_Id_1022_CateID, 1, 3, 200, 0, Null, '2014-01-16 15:11:19', '2014-01-16 15:11:19', Null, ' 6764A2AB097C0A3F35FF8C59511492DDDeclare @BeginDate datetime , @EndDate Datetime select @BeginDate = :BeginDate , @EndDate = :EndDate select A.LAA08 AS 条码号, A.VAA05 病人姓名, (case when A.ACF01=1 then ''门诊'' when A.ACF01=2 then ''住院'' else ''体检'' end) 医疗类型 , B.ABW02 性别, A.ABB02 样本类型, A.LAA28 采样时间, ''1'' as ss from LAA1 A left join ABW1 B on B.ABW01 = A.ABW01 where A.LAA28 between @BeginDate and @EndDate and not exists(select * from LAB1 B where B.LAB42 = A.LAA08) ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 6764A2AB097C0A3F35FF8C59511492DDDeclare @BeginDate datetime , @EndDate Datetime select @BeginDate = :BeginDate , @EndDate = :EndDate select A.LAA08 AS 条码号, A.VAA05 病人姓名, (case when A.ACF01=1 then ''门诊'' when A.ACF01=2 then ''住院'' else ''体检'' end) 医疗类型 , B.ABW02 性别, A.ABB02 样本类型, A.LAA28 采样时间, ''1'' as ss from LAA1 A left join ABW1 B on B.ABW01 = A.ABW01 where A.LAA28 between @BeginDate and @EndDate and not exists(select * from LAB1 B where B.LAB42 = A.LAA08) ' where Code='LIS.U.000009' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000010' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000010') begin --插入 Declare @Report_Id_1057 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1057 out Declare @Report_Id_1057_CateID int Set @Report_Id_1057_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1057, 'LIS.U.000010', '样本合并打印', '请输入目的样本的样本号', Null, @Report_Id_1057_CateID, 1, 3, 200, 0, Null, '2014-05-22 11:52:06', '2014-05-22 11:52:06', Null, ' 30DE57550E0241AB5578A0CAEFD3DC2Cdeclare @LAB22 varchar(20) , @Date datetime , @BEY01 int select @LAB22=:LAB22 , @Date=:Date , @BEY01=:BEY01 declare @BeginDate datetime, @EndDate datetime, @LAB01 int select @BeginDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 00:00:00'', 121) , @EndDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 23:59:59'', 121) select @LAB01 = (case when LAB01A > 0 then LAB01A else LAB01 end) from LAB1 where (LAB20 between @BeginDate and @EndDate) and BEY01A = @BEY01 and LAB22 = @LAB22 select A.LAB01 ID, A.LAB02 检验单号, A.VAA01 病人ID, A.VAA07 就诊ID, A.VAP01 婴儿ID, A.BCK01A 病人科室ID, KA.BCK03 病人科室 , A.ABBRP 拼音码, A.ABBRW 五笔码, A.LAB09 病历号, A.VAA05 姓名, W.ABW02 性别, A.LAB12 年龄, U.AAU02 年龄单位 , A.LAB14 出生日期, A.BDP02 病人类别, A.LAB16 床号, A.BES02 生理体征, A.LAB18 诊断, A.ACF01 医疗类别, A.LAB20 检验时间 , A.LAB21 检验类型, A.LAB22 标本号, A.LAB23 标本序号, A.ABB02 样本类型, A.BEY01A 仪器ID, A.BEY01B 接收仪器ID , A.BEW02 标本形态, A.BCK01B 执行科室ID, A.BEY07 普通, A.LAB30 合并报告ID, A.LAB31 报告性质, A.LAB32 检验状态 , A.LAB33 报告状态, A.LAB34 报告时间, A.LAB35 打印时间, A.LAB36 打印次数, A.LAB37 申请类型, A.BCE03 送检医生 , A.BCK01C 送检科室ID, A.LAB40 送检时间, A.VAF01 医嘱ID, A.LAB42 样本条码, A.LAB43 采样时间, A.BCE03A 采样人, A.BCE03C 核收人 , A.LAB46 核收时间, A.BCE01D 检验人ID, A.BCE03D 检验人, A.BCE03E 反审人, A.LAB50 培养时间, A.BCE01B 审核人ID, A.BCE03B 审核人 , A.LAB53 审核时间, A.LAB54 未通过审核原因, A.LAB55 金额, A.LAB56 检验评语, A.BET02 检验备注, A.LAB58 检验项目, A.LAB59 是否传送 , A.LAB60 创建时间, A.LAB61 接收时间, A.LAB62 架号, A.LAB63 杯号, A.LAB64 稀释倍数, A.BEX02 检验方法, A.BCK01D 病区 , A.BAQ03 工作单位, A.LAB01A 合并ID, A.LAB69 项目编码 from LAB1 A left join BCK1 KA on KA.BCK01 = A.BCK01A left join ABW1 W on W.ABW01 = A.ABW01 left join AAU1 U on U.AAU01 = A.AAU01 where A.LAB01 = @LAB01declare @LAB22 varchar(20) , @Date datetime , @BEY01 int select @LAB22=:LAB22 , @Date=:Date , @BEY01=:BEY01 declare @LAB01 int/*目的样本*/, @BeginDate datetime, @EndDate datetime select @BeginDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 00:00:00'', 121) , @EndDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 23:59:59'', 121) select @LAB01 = (case when LAB01A > 0 then LAB01A else LAB01 end) from LAB1 where (LAB20 between @BeginDate and @EndDate) and BEY01A = @BEY01 and LAB22 = @LAB22 if OBJECT_ID(''tempdb..#LAB1'') is not null drop table #LAB1 select * into #LAB1 from LAB1 where LAB01 = @LAB01 or LAB01A = @LAB01 select A.LAC01 ID , A.LAB01 检验标本ID , A.BBX01A 诊疗组合项目ID , X.BBX05 组合项目 , A.BBX01 诊疗项目ID , X1.BBX05 明细项目 , A.LAJ01 酶标测试ID , A.BFO01 细菌ID , A.BEY01 仪器ID , A.LAC08 原始定量 , A.LAC09 原始定性 , A.LAC10 报告结果 , A.LAC11 结果标志 , A.LAC12 危急标志 , A.LAC13 参考低值 , A.LAC14 参考高值 , A.LAC15 参考范围 , A.ROWNR 次序 , A.LAC29 异常低值 , A.LAC30 异常高值 , A.VAF01 医嘱ID from LAC1 A left join BBX1 X on X.BBX01 = A.BBX01A left join BBX1 X1 on X1.BBX01 = A.BBX01 where exists(select * from #LAB1 B where B.LAB01 = A.LAB01) drop table #LAB1<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>select BEY01, BEY03 from BEY1</Sql><HD><Ie FD="BEY01" CA="仪器ID" WD="100"/><Ie FD="BEY03" CA="仪器名称" WD="100"/></HD></Grid></Configs> ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 30DE57550E0241AB5578A0CAEFD3DC2Cdeclare @LAB22 varchar(20) , @Date datetime , @BEY01 int select @LAB22=:LAB22 , @Date=:Date , @BEY01=:BEY01 declare @BeginDate datetime, @EndDate datetime, @LAB01 int select @BeginDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 00:00:00'', 121) , @EndDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 23:59:59'', 121) select @LAB01 = (case when LAB01A > 0 then LAB01A else LAB01 end) from LAB1 where (LAB20 between @BeginDate and @EndDate) and BEY01A = @BEY01 and LAB22 = @LAB22 select A.LAB01 ID, A.LAB02 检验单号, A.VAA01 病人ID, A.VAA07 就诊ID, A.VAP01 婴儿ID, A.BCK01A 病人科室ID, KA.BCK03 病人科室 , A.ABBRP 拼音码, A.ABBRW 五笔码, A.LAB09 病历号, A.VAA05 姓名, W.ABW02 性别, A.LAB12 年龄, U.AAU02 年龄单位 , A.LAB14 出生日期, A.BDP02 病人类别, A.LAB16 床号, A.BES02 生理体征, A.LAB18 诊断, A.ACF01 医疗类别, A.LAB20 检验时间 , A.LAB21 检验类型, A.LAB22 标本号, A.LAB23 标本序号, A.ABB02 样本类型, A.BEY01A 仪器ID, A.BEY01B 接收仪器ID , A.BEW02 标本形态, A.BCK01B 执行科室ID, A.BEY07 普通, A.LAB30 合并报告ID, A.LAB31 报告性质, A.LAB32 检验状态 , A.LAB33 报告状态, A.LAB34 报告时间, A.LAB35 打印时间, A.LAB36 打印次数, A.LAB37 申请类型, A.BCE03 送检医生 , A.BCK01C 送检科室ID, A.LAB40 送检时间, A.VAF01 医嘱ID, A.LAB42 样本条码, A.LAB43 采样时间, A.BCE03A 采样人, A.BCE03C 核收人 , A.LAB46 核收时间, A.BCE01D 检验人ID, A.BCE03D 检验人, A.BCE03E 反审人, A.LAB50 培养时间, A.BCE01B 审核人ID, A.BCE03B 审核人 , A.LAB53 审核时间, A.LAB54 未通过审核原因, A.LAB55 金额, A.LAB56 检验评语, A.BET02 检验备注, A.LAB58 检验项目, A.LAB59 是否传送 , A.LAB60 创建时间, A.LAB61 接收时间, A.LAB62 架号, A.LAB63 杯号, A.LAB64 稀释倍数, A.BEX02 检验方法, A.BCK01D 病区 , A.BAQ03 工作单位, A.LAB01A 合并ID, A.LAB69 项目编码 from LAB1 A left join BCK1 KA on KA.BCK01 = A.BCK01A left join ABW1 W on W.ABW01 = A.ABW01 left join AAU1 U on U.AAU01 = A.AAU01 where A.LAB01 = @LAB01declare @LAB22 varchar(20) , @Date datetime , @BEY01 int select @LAB22=:LAB22 , @Date=:Date , @BEY01=:BEY01 declare @LAB01 int/*目的样本*/, @BeginDate datetime, @EndDate datetime select @BeginDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 00:00:00'', 121) , @EndDate = CONVERT(datetime, CONVERT(varchar(10), @Date, 121)+'' 23:59:59'', 121) select @LAB01 = (case when LAB01A > 0 then LAB01A else LAB01 end) from LAB1 where (LAB20 between @BeginDate and @EndDate) and BEY01A = @BEY01 and LAB22 = @LAB22 if OBJECT_ID(''tempdb..#LAB1'') is not null drop table #LAB1 select * into #LAB1 from LAB1 where LAB01 = @LAB01 or LAB01A = @LAB01 select A.LAC01 ID , A.LAB01 检验标本ID , A.BBX01A 诊疗组合项目ID , X.BBX05 组合项目 , A.BBX01 诊疗项目ID , X1.BBX05 明细项目 , A.LAJ01 酶标测试ID , A.BFO01 细菌ID , A.BEY01 仪器ID , A.LAC08 原始定量 , A.LAC09 原始定性 , A.LAC10 报告结果 , A.LAC11 结果标志 , A.LAC12 危急标志 , A.LAC13 参考低值 , A.LAC14 参考高值 , A.LAC15 参考范围 , A.ROWNR 次序 , A.LAC29 异常低值 , A.LAC30 异常高值 , A.VAF01 医嘱ID from LAC1 A left join BBX1 X on X.BBX01 = A.BBX01A left join BBX1 X1 on X1.BBX01 = A.BBX01 where exists(select * from #LAB1 B where B.LAB01 = A.LAB01) drop table #LAB1<?xml version="1.0"?> <Configs Ver="1"><Win SZ="1"/><Grid Head="1" AWS="1"><Sql>select BEY01, BEY03 from BEY1</Sql><HD><Ie FD="BEY01" CA="仪器ID" WD="100"/><Ie FD="BEY03" CA="仪器名称" WD="100"/></HD></Grid></Configs> ' where Code='LIS.U.000010' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000011' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000011') begin --插入 Declare @Report_Id_1155 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1155 out Declare @Report_Id_1155_CateID int Set @Report_Id_1155_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1155, 'LIS.U.000011', '标本登记查询病人信息（单病人检索）', Null, Null, @Report_Id_1155_CateID, 1, 3, 200, 0, Null, '2015-09-25 16:59:27', '2015-09-25 17:00:08', Null, ' C7744091A03BE7AD3A0C721DEAB73FEBDECLARE @BDate datetime , @EDate datetime , @LAA08 varchar(20) , @VAA02 varchar(20) , @VCB04 varchar(20) SELECT @BDate = :BDate , @EDate = :EDate , @LAA08 = :LAA08 , @VAA02 = :VAA02 , @VCB04 = :VCB04 SELECT 1 AS Checked, A.LAA01, A.LAA02, A.VAA01, A.VAA07, A.VAP01, A.ACF01, A.VAA02, A.LAA08, A.LAA09, A.VAA05, A.ABW01, A.LAA12, A.LAA13 , A.AAU01, A.BES02, A.LAA16, A.BEL01, A.LAA18, A.LAA19, A.LAA20, A.ABB02, A.BCK01A, A.BCK01B, A.BCQ04, A.BCE03A, A.LAA26 , A.BCE03B, A.LAA28, A.BCK01C, A.BCE01C, A.BCE03C, A.LAA31, A.LAA32, A.LAA33, A.PRNCP, A.LAA35, A.VAF01, A.LAA37, A.LAA38 , BCE01D, BCE03D, LAA48, BCE01E, BCE03E, LAA51 , F.ACF03, W.ABW02, U.AAU02, K1.BCK03 AS BCK03B, A.BAQ03, A.LAA45, L.BEL12, L.BEL08, A1.VBU01, (case when A.LAA08 = A.LAA09 then 0 else 1 end) as IsWG , '''' as Field1, '''' as Field2, '''' as Field3, '''' as Field4, '''' as Field5 , '''' as Field6, '''' as Field7, '''' as Field8, '''' as Field9, '''' as Field10 FROM LAA1 A LEFT JOIN ACF1 F ON F.ACF01 = A.ACF01 LEFT JOIN ABW1 W ON W.ABW01 = A.ABW01 LEFT JOIN AAU1 U ON U.AAU01 = A.AAU01 LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01B LEFT JOIN VAA1 A1 ON A1.VAA01 = A.VAA01 LEFT JOIN BEL1 L ON L.BEL01 = A.BEL01 WHERE (A.LAA28 >= @BDate and A.LAA28 <= @EDate) and ((@LAA08 > '''' AND A.LAA08 = @LAA08) OR (@VAA02 > '''' AND (A.VAA02 = @VAA02 or A1.VAA03=@VAA02 or A1.VAA04=@VAA02 or ((select top 1 F1.SCF04 from SCF1 F1 join SCA1 C1 on C1.SCA01 = F1.SCA01 and C1.VAA01 = A.VAA01) = @VAA02) ) ) or (@VCB04 > '''' AND ((A1.VAA02 = @VCB04) or (A1.VAA01 = (select TOP 1 U1.VAA01 from VBU1 U1 where U1.VCB04 = @VCB04))) )) ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' C7744091A03BE7AD3A0C721DEAB73FEBDECLARE @BDate datetime , @EDate datetime , @LAA08 varchar(20) , @VAA02 varchar(20) , @VCB04 varchar(20) SELECT @BDate = :BDate , @EDate = :EDate , @LAA08 = :LAA08 , @VAA02 = :VAA02 , @VCB04 = :VCB04 SELECT 1 AS Checked, A.LAA01, A.LAA02, A.VAA01, A.VAA07, A.VAP01, A.ACF01, A.VAA02, A.LAA08, A.LAA09, A.VAA05, A.ABW01, A.LAA12, A.LAA13 , A.AAU01, A.BES02, A.LAA16, A.BEL01, A.LAA18, A.LAA19, A.LAA20, A.ABB02, A.BCK01A, A.BCK01B, A.BCQ04, A.BCE03A, A.LAA26 , A.BCE03B, A.LAA28, A.BCK01C, A.BCE01C, A.BCE03C, A.LAA31, A.LAA32, A.LAA33, A.PRNCP, A.LAA35, A.VAF01, A.LAA37, A.LAA38 , BCE01D, BCE03D, LAA48, BCE01E, BCE03E, LAA51 , F.ACF03, W.ABW02, U.AAU02, K1.BCK03 AS BCK03B, A.BAQ03, A.LAA45, L.BEL12, L.BEL08, A1.VBU01, (case when A.LAA08 = A.LAA09 then 0 else 1 end) as IsWG , '''' as Field1, '''' as Field2, '''' as Field3, '''' as Field4, '''' as Field5 , '''' as Field6, '''' as Field7, '''' as Field8, '''' as Field9, '''' as Field10 FROM LAA1 A LEFT JOIN ACF1 F ON F.ACF01 = A.ACF01 LEFT JOIN ABW1 W ON W.ABW01 = A.ABW01 LEFT JOIN AAU1 U ON U.AAU01 = A.AAU01 LEFT JOIN BCK1 K1 ON K1.BCK01 = A.BCK01B LEFT JOIN VAA1 A1 ON A1.VAA01 = A.VAA01 LEFT JOIN BEL1 L ON L.BEL01 = A.BEL01 WHERE (A.LAA28 >= @BDate and A.LAA28 <= @EDate) and ((@LAA08 > '''' AND A.LAA08 = @LAA08) OR (@VAA02 > '''' AND (A.VAA02 = @VAA02 or A1.VAA03=@VAA02 or A1.VAA04=@VAA02 or ((select top 1 F1.SCF04 from SCF1 F1 join SCA1 C1 on C1.SCA01 = F1.SCA01 and C1.VAA01 = A.VAA01) = @VAA02) ) ) or (@VCB04 > '''' AND ((A1.VAA02 = @VCB04) or (A1.VAA01 = (select TOP 1 U1.VAA01 from VBU1 U1 where U1.VCB04 = @VCB04))) )) ' where Code='LIS.U.000011' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000012' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000012') begin --插入 Declare @Report_Id_1309 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1309 out Declare @Report_Id_1309_CateID int Set @Report_Id_1309_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1309, 'LIS.U.000012', '标本自动打印判断', Null, Null, @Report_Id_1309_CateID, 1, 3, 200, 0, Null, '2016-11-02 11:47:34', '2016-11-02 11:47:34', Null, ' 4FA50CD8D602A32316552E976AE270E3declare @LAA01 int select @LAA01 = :LAA01 declare @ACF01 int select @ACF01 = ACF01 from LAA1 where LAA01 = @LAA01 if @ACF01 = 1 select @LAA01 AS LAA01 else select 0 AS LAA01 ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 4FA50CD8D602A32316552E976AE270E3declare @LAA01 int select @LAA01 = :LAA01 declare @ACF01 int select @ACF01 = ACF01 from LAA1 where LAA01 = @LAA01 if @ACF01 = 1 select @LAA01 AS LAA01 else select 0 AS LAA01 ' where Code='LIS.U.000012' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000013' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000013') begin --插入 Declare @Report_Id_1341 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1341 out Declare @Report_Id_1341_CateID int Set @Report_Id_1341_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1341, 'LIS.U.000013', '危机值消息报告', Null, Null, @Report_Id_1341_CateID, 1, 3, 200, 0, Null, '2017-02-15 10:58:52', '2017-02-15 10:58:52', Null, ' EB7F87D426CDC7933391314A2703110ADeclare @LAB01 int set @LAB01=:LAB01 declare @ProductID varchar(20)/*接收产品ID 此参数目前未使用，可不填，默认为0*/ , @ProgramID varchar(20) /*接收程序ID*/ , @BCK01S varchar(20) /*接收消息科室*/ , @BCE01S varchar(20) /*设置消息接收人为当前登录用户(自己）*/ , @Cmd varchar(20) /*设定命令类型为：打开HODLL*/ , @DLL varchar(20) /*设定需要调用的DLL名*/ , @ID varchar(2) /*医疗类别*/ , @Other varchar(200) /*其他条件*/ , @Title varchar(200) /*设定消息标题/摘要*/ , @Content varchar(500) /*消息内容*/ , @MsgLevID varchar(2) /*消息级别：默认0 // 消息级别： 0普通（黑色） 1重要（蓝色） 2紧急（红色）*/ , @SingleFlag varchar(2) /*是否单人阅读：否（默认）*/ , @Remark varchar(200) /*备注*/ , @MustShow varchar(2) /*是否要弹屏提醒：否*/ , @ConfigID varchar(10) /*消息发送方式ID*/ , @Tels varchar(30) /*电话*/ , @SQLSTR VARCHAR(8000), @LAB09 varchar(20), @BCK01D varchar(10), @VAA01 varchar(10) SELECT @ProductID='''', @ProgramID='''', @BCK01S='''', @BCE01S='''', @Cmd=''HODLL'', @DLL=''HO.Clinical'' , @Content='''', @MsgLevID=''2'', @SingleFlag=''0'', @Remark=''危急值'', @MustShow=''1'', @ConfigID=''1001'' , @Other='''', @Tels='''' --以下自定义内容区域 select @Content = @Content + ''，#项目:'' + B.BBX05 + ''，结果:'' + A.LAC10 from LAC1 A join BBX1 B on B.BBX01 = A.BBX01 where A.LAB01 = @LAB01 and A.LAC12 > '''' select @ID = A.ACF01, @LAB09 = A.LAB09, @BCK01D = A.BCK01D, @VAA01 = A.VAA01, @BCK01S = A.BCK01C , @Title = VAA05+''【''+LAB16+''】 有危急值'' + ''测试'' , @Content = ''检验日期:''+convert(varchar(30), LAB20, 121)+''，送检科室:''+B.BCK03+''，病人:''+A.VAA05 + @Content from LAB1 A left join BCK1 B on A.BCK01C = b.BCK01 where A.LAB01 = @LAB01 if @ID = ''1'' select @Other = '';VAA03=''+@LAB09+'';mode=0;VAA01=''+@VAA01 else if @ID = ''2'' select @Other = '';VAA04=''+@LAB09+'';mode=1;VAA01=''+@VAA01 --以上自定义内容区域 select @sqlstr = ''''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/=''+@MustShow+''/''+@ConfigID+''/''+@Tels if isnull(@BCK01D, '''') > '''' begin select @BCK01S = @BCK01D, @ID = ''3'', @Other = '';VAA04=''+@LAB09+'';mode=2;VAA01=''+@VAA01 select @sqlstr = @sqlstr + ''|''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/''+@MustShow+''/''+@ConfigID+''/''+@Tels end select @sqlstr ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' EB7F87D426CDC7933391314A2703110ADeclare @LAB01 int set @LAB01=:LAB01 declare @ProductID varchar(20)/*接收产品ID 此参数目前未使用，可不填，默认为0*/ , @ProgramID varchar(20) /*接收程序ID*/ , @BCK01S varchar(20) /*接收消息科室*/ , @BCE01S varchar(20) /*设置消息接收人为当前登录用户(自己）*/ , @Cmd varchar(20) /*设定命令类型为：打开HODLL*/ , @DLL varchar(20) /*设定需要调用的DLL名*/ , @ID varchar(2) /*医疗类别*/ , @Other varchar(200) /*其他条件*/ , @Title varchar(200) /*设定消息标题/摘要*/ , @Content varchar(500) /*消息内容*/ , @MsgLevID varchar(2) /*消息级别：默认0 // 消息级别： 0普通（黑色） 1重要（蓝色） 2紧急（红色）*/ , @SingleFlag varchar(2) /*是否单人阅读：否（默认）*/ , @Remark varchar(200) /*备注*/ , @MustShow varchar(2) /*是否要弹屏提醒：否*/ , @ConfigID varchar(10) /*消息发送方式ID*/ , @Tels varchar(30) /*电话*/ , @SQLSTR VARCHAR(8000), @LAB09 varchar(20), @BCK01D varchar(10), @VAA01 varchar(10) SELECT @ProductID='''', @ProgramID='''', @BCK01S='''', @BCE01S='''', @Cmd=''HODLL'', @DLL=''HO.Clinical'' , @Content='''', @MsgLevID=''2'', @SingleFlag=''0'', @Remark=''危急值'', @MustShow=''1'', @ConfigID=''1001'' , @Other='''', @Tels='''' --以下自定义内容区域 select @Content = @Content + ''，#项目:'' + B.BBX05 + ''，结果:'' + A.LAC10 from LAC1 A join BBX1 B on B.BBX01 = A.BBX01 where A.LAB01 = @LAB01 and A.LAC12 > '''' select @ID = A.ACF01, @LAB09 = A.LAB09, @BCK01D = A.BCK01D, @VAA01 = A.VAA01, @BCK01S = A.BCK01C , @Title = VAA05+''【''+LAB16+''】 有危急值'' + ''测试'' , @Content = ''检验日期:''+convert(varchar(30), LAB20, 121)+''，送检科室:''+B.BCK03+''，病人:''+A.VAA05 + @Content from LAB1 A left join BCK1 B on A.BCK01C = b.BCK01 where A.LAB01 = @LAB01 if @ID = ''1'' select @Other = '';VAA03=''+@LAB09+'';mode=0;VAA01=''+@VAA01 else if @ID = ''2'' select @Other = '';VAA04=''+@LAB09+'';mode=1;VAA01=''+@VAA01 --以上自定义内容区域 select @sqlstr = ''''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/=''+@MustShow+''/''+@ConfigID+''/''+@Tels if isnull(@BCK01D, '''') > '''' begin select @BCK01S = @BCK01D, @ID = ''3'', @Other = '';VAA04=''+@LAB09+'';mode=2;VAA01=''+@VAA01 select @sqlstr = @sqlstr + ''|''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/''+@MustShow+''/''+@ConfigID+''/''+@Tels end select @sqlstr ' where Code='LIS.U.000013' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000014' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000014') begin --插入 Declare @Report_Id_1342 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1342 out Declare @Report_Id_1342_CateID int Set @Report_Id_1342_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1342, 'LIS.U.000014', '病人消息推送', Null, Null, @Report_Id_1342_CateID, 1, 3, 200, 0, Null, '2017-02-15 11:00:48', '2017-02-15 11:00:48', Null, ' 4B1EAC72698269EED3994F8CA803D3AFdeclare @LAB01 int select @LAB01=:LAB01 declare @ProductID varchar(20)/*接收产品ID 此参数目前未使用，可不填，默认为0*/ , @ProgramID varchar(20) /*接收程序ID*/ , @BCK01S varchar(20) /*接收消息科室*/ , @BCE01S varchar(20) /*设置消息接收人为当前登录用户(自己）*/ , @Cmd varchar(20) /*设定命令类型为：打开HODLL*/ , @DLL varchar(20) /*设定需要调用的DLL名*/ , @ID varchar(2) /*医疗类别*/ , @Other varchar(200) /*其他条件*/ , @Title varchar(200) /*设定消息标题/摘要*/ , @Content varchar(500) /*消息内容*/ , @MsgLevID varchar(2) /*消息级别：默认0 // 消息级别： 0普通（黑色） 1重要（蓝色） 2紧急（红色）*/ , @SingleFlag varchar(2) /*是否单人阅读：否（默认）*/ , @Remark varchar(200) /*备注*/ , @MustShow varchar(2) /*是否要弹屏提醒：否*/ , @ConfigID varchar(10) /*消息发送方式ID*/ , @Tels varchar(20) /*电话*/ , @SQLSTR VARCHAR(8000) SELECT @ProductID='''', @ProgramID='''', @BCK01S='''', @BCE01S='''', @Cmd=''HODLL'', @DLL=''HO.Clinical'' , @Content='''', @MsgLevID=''0'', @SingleFlag=''0'', @Remark='''', @MustShow=''0'', @ConfigID=''1001'' , @Other='''', @Tels='''' --以下自定义内容区域 select @ID = A.ACF01, @BCE01S = A.VAA01 , @Title = VAA05+''【''+LAB16+''】 有报告'' , @Content = ''检验日期:''+convert(varchar(30), LAB20, 121) + ''您的检验报告已完成'' from LAB1 A left join BCK1 B on A.BCK01C = b.BCK01 where A.LAB01 = @LAB01 select @Tels = VAA35 from VAA1 where VAA01 = @BCE01S --以上自定义内容区域 select @sqlstr = ''''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/=''+@MustShow+''/''+@ConfigID+''/''+@Tels select @sqlstr ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 4B1EAC72698269EED3994F8CA803D3AFdeclare @LAB01 int select @LAB01=:LAB01 declare @ProductID varchar(20)/*接收产品ID 此参数目前未使用，可不填，默认为0*/ , @ProgramID varchar(20) /*接收程序ID*/ , @BCK01S varchar(20) /*接收消息科室*/ , @BCE01S varchar(20) /*设置消息接收人为当前登录用户(自己）*/ , @Cmd varchar(20) /*设定命令类型为：打开HODLL*/ , @DLL varchar(20) /*设定需要调用的DLL名*/ , @ID varchar(2) /*医疗类别*/ , @Other varchar(200) /*其他条件*/ , @Title varchar(200) /*设定消息标题/摘要*/ , @Content varchar(500) /*消息内容*/ , @MsgLevID varchar(2) /*消息级别：默认0 // 消息级别： 0普通（黑色） 1重要（蓝色） 2紧急（红色）*/ , @SingleFlag varchar(2) /*是否单人阅读：否（默认）*/ , @Remark varchar(200) /*备注*/ , @MustShow varchar(2) /*是否要弹屏提醒：否*/ , @ConfigID varchar(10) /*消息发送方式ID*/ , @Tels varchar(20) /*电话*/ , @SQLSTR VARCHAR(8000) SELECT @ProductID='''', @ProgramID='''', @BCK01S='''', @BCE01S='''', @Cmd=''HODLL'', @DLL=''HO.Clinical'' , @Content='''', @MsgLevID=''0'', @SingleFlag=''0'', @Remark='''', @MustShow=''0'', @ConfigID=''1001'' , @Other='''', @Tels='''' --以下自定义内容区域 select @ID = A.ACF01, @BCE01S = A.VAA01 , @Title = VAA05+''【''+LAB16+''】 有报告'' , @Content = ''检验日期:''+convert(varchar(30), LAB20, 121) + ''您的检验报告已完成'' from LAB1 A left join BCK1 B on A.BCK01C = b.BCK01 where A.LAB01 = @LAB01 select @Tels = VAA35 from VAA1 where VAA01 = @BCE01S --以上自定义内容区域 select @sqlstr = ''''+@ProductID+''/''+@ProgramID+''/''+@BCK01S+''/''+@BCE01S+''/''+@Cmd +''/''+@DLL+''/''+@ID+''/''+@Other+''/''+@Title+''/''+@Content+''/''+@MsgLevID +''/''+@SingleFlag+''/''+@Remark+''/=''+@MustShow+''/''+@ConfigID+''/''+@Tels select @sqlstr ' where Code='LIS.U.000014' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000015' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000015') begin --插入 Declare @Report_Id_1362 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1362 out Declare @Report_Id_1362_CateID int Set @Report_Id_1362_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1362, 'LIS.U.000015', '样本颜色', Null, Null, @Report_Id_1362_CateID, 1, 3, 200, 0, Null, '2017-05-16 15:55:05', '2017-05-16 15:55:43', Null, ' 4A7F306510B253112C1C99198AC65156 select ''无色'' as LAB77 union select ''红色'' ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 4A7F306510B253112C1C99198AC65156 select ''无色'' as LAB77 union select ''红色'' ' where Code='LIS.U.000015' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000016' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000016') begin --插入 Declare @Report_Id_1363 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1363 out Declare @Report_Id_1363_CateID int Set @Report_Id_1363_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1363, 'LIS.U.000016', '样本浊度', Null, Null, @Report_Id_1363_CateID, 1, 3, 200, 0, Null, '2017-05-16 15:55:47', '2017-05-16 15:55:47', Null, ' 6BC57DA0E64A4FD1931847684158FC12 select ''清晰透明'' as LAB78 union select ''浑浊'' ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 6BC57DA0E64A4FD1931847684158FC12 select ''清晰透明'' as LAB78 union select ''浑浊'' ' where Code='LIS.U.000016' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000017' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000017') begin --插入 Declare @Report_Id_1376 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1376 out Declare @Report_Id_1376_CateID int Set @Report_Id_1376_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1376, 'LIS.U.000017', '样本检验刷条码调网页地址', Null, Null, @Report_Id_1376_CateID, 1, 3, 200, 0, Null, '2017-07-05 17:37:14', '2017-07-05 17:37:14', Null, ' E8B8C443E188E228BFEADFA687BD7B70declare @ANo varchar(30) select @ANo=:ANo select ''http://120.76.241.24:8085/onehismq/Mq/MQRisPacs/selectLisYunhis?QueryValue=''+@ANo as FDir ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' E8B8C443E188E228BFEADFA687BD7B70declare @ANo varchar(30) select @ANo=:ANo select ''http://120.76.241.24:8085/onehismq/Mq/MQRisPacs/selectLisYunhis?QueryValue=''+@ANo as FDir ' where Code='LIS.U.000017' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000018' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000018') begin --插入 Declare @Report_Id_1388 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1388 out Declare @Report_Id_1388_CateID int Set @Report_Id_1388_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1388, 'LIS.U.000018', '问题条码类型', Null, Null, @Report_Id_1388_CateID, 1, 3, 200, 0, Null, '2017-08-30 09:56:56', '2017-08-30 09:56:56', Null, ' 0D79CE24BB95CC6E5CCAC4E3BAB571B6 select ''拒收条码'' as BugType, CONVERT(varchar(20), '''') as BugBarNo union select ''作废'', '''' union select ''拒收说明'', '''' ', Null, 1, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 0D79CE24BB95CC6E5CCAC4E3BAB571B6 select ''拒收条码'' as BugType, CONVERT(varchar(20), '''') as BugBarNo union select ''作废'', '''' union select ''拒收说明'', '''' ' where Code='LIS.U.000018' end GO --删除旧记录 --delete from Report_Objects where Code='LIS.U.000019' --删除脚本内容 IF not EXISTS(SELECT * FROM Report_Objects WHERE code='LIS.U.000019') begin --插入 Declare @Report_Id_1442 int Exec Core_NewId 'Report_Objects', 'id', @Report_Id_1442 out Declare @Report_Id_1442_CateID int Set @Report_Id_1442_CateID = (select id from Report_Categories where code='LIS.5') insert into Report_Objects(ID,Code,Name,Description,Password,CategoryID,xType,Classification,ProductID,ProgramID,ElementID,CreateDate,UpdateDate,ISSUANCEDATE,Config,SetupPath,IsMenu,Enabled,GroupName,Authorized,RefreshInterval) Values(@Report_Id_1442, 'LIS.U.000019', '标本登记查医嘱计费', Null, Null, @Report_Id_1442_CateID, 1, 3, 200, 0, Null, '2017-12-11 10:16:45', '2017-12-11 10:16:45', Null, ' 7DBD1F8932709BBA2E09A6A61F2AD3AAdeclare @LAA01 varchar(1000) set @LAA01 = :LAA01 declare @BarNo varchar(20) select @BarNo = LAA08 from LAA1 WHERE LAA01 = @LAA01 select A.VBI21 ''条码'', A.VAF01 ''医嘱ID'', Y.BBY05 ''项目'', SUM(B.VAJ38) ''结帐金额'' from VBI1 A join VAJ1 B on B.VAF01 = A.VAF01 JOIN BBY1 Y ON Y.BBY01 = B.BBY01 where A.VBI21 = @BarNo GROUP BY A.VBI21, A.VAF01, Y.BBY05 ', Null, 0, 1, Null, 1, Null) end else --更新 begin update Report_Objects set Config=' 7DBD1F8932709BBA2E09A6A61F2AD3AAdeclare @LAA01 varchar(1000) set @LAA01 = :LAA01 declare @BarNo varchar(20) select @BarNo = LAA08 from LAA1 WHERE LAA01 = @LAA01 select A.VBI21 ''条码'', A.VAF01 ''医嘱ID'', Y.BBY05 ''项目'', SUM(B.VAJ38) ''结帐金额'' from VBI1 A join VAJ1 B on B.VAF01 = A.VAF01 JOIN BBY1 Y ON Y.BBY01 = B.BBY01 where A.VBI21 = @BarNo GROUP BY A.VBI21, A.VAF01, Y.BBY05 ' where Code='LIS.U.000019' end GO