/****** Object: UserDefinedFunction [dbo].[GetCreditLimit] Script Date: 10/22/2014 14:56:18 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[GetCreditLimit]') AND type in (N'FN', N'IF', N'TF', N'FS', N'FT')) DROP FUNCTION [dbo].[GetCreditLimit] GO /****** Object: UserDefinedFunction [dbo].[GetCreditLimit] Script Date: 10/22/2014 14:56:18 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --======================================================================== --Author <...Fyq> --Alter Date <...2014.10.21> --Description<...根据条件计算病人信用额度> --======================================================================== CREATE Function [dbo].[GetCreditLimit](@VBM13 numeric(18,4) ,--本次预交金额 @VAA54 numeric(18,4) ,--本次担保金额 @BDP02 varchar(20), --病人类别 @BCK01 int, --病区ID @IsDef smallint --返回设置信用额度默认值 ) RETURNS numeric(18,4) As BEGIN Declare @BEP08 numeric(18,4) , @BEP09 numeric(18,4) , @BEP06 numeric(18,4) SELECT @BEP08 = BEP08 , @BEP09 = BEP09 ,@BEP06=BEP06 from BEP1 where BDP02 = @BDP02 SET @BEP08 = ISNULL(@BEP08 , 0) SET @BEP09 = ISNULL(@BEP09 , 0) SET @BEP06 = ISNULL(@BEP06 , 0) IF @BEP06=0 begin SET @BEP06 = @VBM13 * @BEP09 + @VAA54 * @BEP08 SET @BEP06 = ISNULL(@BEP06 , 0) end else begin If @IsDef = 0 set @BEP06 = 0 end RETURN @BEP06 END GO /****** Object: StoredProcedure [dbo].[HOPatient_PrePay_Delete] Script Date: 10/22/2014 14:54:41 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[HOPatient_PrePay_Delete]') AND type in (N'P', N'PC')) DROP PROCEDURE [dbo].[HOPatient_PrePay_Delete] GO /****** Object: StoredProcedure [dbo].[HOPatient_PrePay_Entry] Script Date: 10/22/2014 14:54:41 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[HOPatient_PrePay_Entry]') AND type in (N'P', N'PC')) DROP PROCEDURE [dbo].[HOPatient_PrePay_Entry] GO /****** Object: StoredProcedure [dbo].[HOPatient_VAE1_Update] Script Date: 10/22/2014 14:54:41 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[HOPatient_VAE1_Update]') AND type in (N'P', N'PC')) DROP PROCEDURE [dbo].[HOPatient_VAE1_Update] GO /****** Object: StoredProcedure [dbo].[HOPatient_PrePay_Delete] Script Date: 10/22/2014 14:54:41 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --=================================================================================================== --Author <...fyq> --Alter Date <...2014-10-21> --Description<...退预交款> --2012.04.10 增加按就诊记录病人明细表 --2012.05.09 退预交款时取原记录的VBL29 --2012.07.10 预交款退费时票据退票功能改由前台实现 --2013.08.13 退预交款时更新病人信用额度 --2014.07.16 支持退会员卡支付预交款，模拟退预交款金额到会员卡，并且退掉当前预交款 --================================================================================================== CREATE PROC [dbo].[HOPatient_PrePay_Delete] @VBL01 int out, @EmpId int, @VBM03 tinyint, @VBL14 varchar(32), @VBL15 varchar(2), @EmpNo varchar(20), @EmpName varchar(20) AS IF exists(select * from VBL1 where VBL01 = @VBL01 and VBL05 <> 0) BEGIN RAISERROR('该预交费用已经退费,不能退费.', 16, 1 ) WITH NOWAIT Return 1 END IF exists(select * from VBL1 where VBL01 = @VBL01 and VAK01 > 0) BEGIN RAISERROR('该预交费用已经结帐，不能退费.', 16, 1 ) WITH NOWAIT Return 1 END DECLARE @Value int , @VAA01 int , @VAA07 int , @VBM01 int , @ErrId int , @VBL13 numeric(18,4), @VBL02 varchar(20), @VBU01 int , @VCB04 varchar(20) , @CVBU14 numeric(18,4) , @CVBU15 numeric(18,4) , @VCA01 int , @VBL01B int select @VBL13 = VBL13,@VAA07=VAA07, @VBU01 = VBU01 , @VBL01B = VBL01B from VBL1 where VBL01=@VBL01 IF dbo.GetEmpPermissionValue(104006007,@EmpId)=0 and exists(select * from VBM2 where @VAA07=VAA07 and ACF01=2 and VBM04-VBM05<@VBL13) BEGIN RAISERROR('余额小于本次退费金额，你不具备退费的权限.', 16, 1 ) WITH NOWAIT Return 1 END BEGIN TRAN --==================================================处理会员卡交预交款======================================================= If (@VBL15 = '05') and (@VBU01 > 0) BEGIN If exists(select * from VCA1 where VBU01 = 1 and VBL01 = 6704 ) BEGIN SELECT @VCB04 = VCB04 from VBU1 where VBU01 = @VBU01 EXEC Core_NewIDEx 'VBL1','VBL01',@Value out SET @VBL01B = @Value INSERT INTO VBL1(VBL01 ,VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VBL18, VBL19, BCE01, BCE02, BCE03 ,VBL27 , FAF01 , VBU01 ) SELECT @Value, 'C'+ Right('0000000000' + CAST(@Value as varchar(10)),10), '', 5, 0, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12 , @VBL13, @VBL14, @VBL15, GETDATE(), GETDATE(), @EmpId, @EmpNo , @EmpName , 1 , FAF01 , @VBU01 from VBL1 where VBL01 = @VBL01 IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人预交款时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END Update VBU1 SET VBU14 = VBU14 + @VBL13 where VBU01 = @VBU01 SELECT @CVBU14 = VBU14 , @CVBU15 = VBU15 from VBU1 where VBU01 = @VBU01 --写入会员交易跟踪 EXEC Core_NewId_VCA01 @VCA01 out INSERT INTO VCA1 (VCA01, VAA01, VAA07, ACF01, VBU01 , VCB04 ,VCA07, VAI01, VCA09 ,VCA10, VBU14, VBU15 ,BCE03, VCA18, BCE01 , VAK01 , VBL01 , VCA20) SELECT @VCA01, @VAA01, @VAA07, 2, @VBU01 ,@VCB04 ,9, 0, 0 ,-@VBL13, @CVBU14 , @CVBU15 , @EmpName , getdate(), @EmpId , 0 , @Value , 0 IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存会员交易记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END END --======================================================预交款维护=========================================================== EXEC Core_NewIDEx 'VBL1','VBL01', @Value out INSERT INTO VBL1(VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26 , VBL27 , VBL29 , VBU01 , VBL01B) SELECT @Value, VBL02, VBL03, VBL04, 1, VAA01, VAA07, BCK01, BAQ03, '预交款退费', -VBL13, @VBL14 , @VBL15 , 0, 0, getdate(), Getdate(), @VBL01, @EmpId, @EmpNo, @EmpName, VBL24, 0, VBL26 ,VBL27 , ISNULL(VBL29 , 0) , @VBU01 , @VBL01B from VBL1 where VBL01 = @VBL01 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人交款记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --更新原预交款状态与冲销ID UPDATE VBL1 SET VBL05 = 1 WHERE VBL01 = @VBL01 --==================================================更新病人余额===================================================== SELECT @VAA01 = VAA01 , @VAA07 = VAA07 , @VBL13 = -VBL13 from VBL1 where VBL01 = @VBL01 Exec @ErrId = HORate_VBM1_Update @VBM01 , @VAA01 , 2 , @VBL13 , 0 , 0 , @VAA07 If @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新病人余额时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --==================================================更新病人预交款=================================================== Declare @BEP06 numeric(18,4) , @BDP02 varchar(20) SELECT @BDP02 = BDP02 from VAE1 where VAE01 = @VAA07 SELECT @BEP06 = dbo.GetCreditLimit(@VBL13 , 0 , @BDP02 , 0 , 0) Update VAA1 SET BEP06 = ISNULL(@BEP06 , 0) + ISNULL(BEP06 , 0) where VAA01 = @VAA01 --返回退预交款ID SET @VBL01 = @Value --==================================================================================================================== COMMIT TRAN GO /****** Object: StoredProcedure [dbo].[HOPatient_PrePay_Entry] Script Date: 10/22/2014 14:54:41 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --存储过程.HOPatient_PrePay_Entry --=============================================================================================== --Author <...fyq> --Alter Date <...2014-10-21> --Description<...预交款充值> --2012.04.10 更新病人余额增加就诊ID --2012.06.12 通过参数限制会员使用住院预交款功能 --2013.08.13 交预交款时按规则写入信用额度 --2014.07.16 支持会员卡交预交款，模拟从会员基本账户退掉所需要的预交款金额，然后交入预交款 --=============================================================================================== CREATE PROC [dbo].[HOPatient_PrePay_Entry] @VBL01 int out, @VBL02 varchar(20), @VBL03 varchar(20), @VBL04 tinyint, @VBL05 tinyint, @VAA01 int, @VAA07 int, @BCK01 int, @BAQ03 varchar(128), @BBO02 varchar(64), @VBL11 varchar(20), @VBL12 varchar(128), @VBL13 numeric(18,4) , @VBL14 varchar(32), @VBL18 datetime, @VBL19 datetime, @BCE01 int, @BCE02 varchar(20), @BCE03 varchar(20), @FAA01 int = 0 , @FAF01 int = 0 , @VBU01 int = 0 AS DECLARE @VBL15 varchar(2) , @VCA01 int , @VCB04 varchar(20) , @CVBU14 numeric(18,4) , @CVBU15 numeric(18,4) , @VBL01B int SELECT @VBL15=AAO01 FROM BBP1 WHERE BBP02=@VBL14 If exists(select * from VAE1 where VAE01 = @VAA07 and VAE44 = 5) BEGIN RAISERROR('当前病人已经出院结算，不允许做预交款操作.', 16, 1) WITH NOWAIT RETURN 2 END If exists(select * from VAE1 where VAE01 = @VAA07 and VAE44 = 9) BEGIN RAISERROR('当前病人已经取消入院，不允许做预交款操作.', 16, 1) WITH NOWAIT RETURN 2 END If ISNULL(@VBL15 , '') = '' BEGIN RAISERROR('支付方式不存在，请检查.', 16, 1) WITH NOWAIT RETURN 2 END If exists(SELECT * from SYS_Parameters where programid=104006 and productid = 100 and ParamNo=1 and Value='1') and exists(select * from VBU1 where VAA01=@VAA01 and VBU21=1) BEGIN RAISERROR('当前住院患者是会员,请在会员管理中进行充值.', 16, 1) WITH NOWAIT RETURN 2 END If exists(select * from VAE1 where VAE01 = @VAA07 and VAE44 > 0 and VAE11 > @VBL18) BEGIN RAISERROR('收款时间不能小于病人入院时间.', 16, 1) WITH NOWAIT RETURN 2 END --如果是会员支付，判断其余额 If (@VBL15 = '05') and (@VBU01 > 0) BEGIN If exists(SELECT * from VBU1 where VBU14 < @VBL13 and VBU01 = @VBU01) BEGIN RAISERROR('当前会员卡余额不足.', 16, 1) WITH NOWAIT RETURN 2 END END --==========================================================插入病人预交款记录========================================================== BEGIN TRAN EXEC Core_NewIDEx 'VBL1','VBL01',@VBL01 out SET @VBL01B = @VBL01 INSERT INTO VBL1(VBL01 ,VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VBL18, VBL19, BCE01, BCE02, BCE03 ,VBL27 , FAF01 , VBU01) VALUES(@VBL01, @VBL02, @VBL03, @VBL04, @VBL05, @VAA01, @VAA07, @BCK01, @BAQ03, @BBO02, @VBL11, @VBL12 , @VBL13, @VBL14, @VBL15, @VBL18, GETDATE(), @BCE01, @BCE02, @BCE03 , 1 , @FAF01 , @VBU01) IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人预交款时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --======================================================会员扣费，处理会员金额========================================================== If (@VBL15 = '05') and (@VBU01 > 0) BEGIN SELECT @VCB04 = VCB04 from VBU1 where VBU01 = @VBU01 EXEC Core_NewIDEx 'VBL1','VBL01',@VBL01 out INSERT INTO VBL1(VBL01 ,VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VBL18, VBL19, BCE01, BCE02, BCE03 ,VBL27 , FAF01 , VBU01 ) VALUES(@VBL01, 'C'+ Right('0000000000' + CAST(@VBL01 as varchar(10)),10), '', 5, 4, @VAA01, @VAA07, @BCK01, @BAQ03, @BBO02, @VBL11, @VBL12 , -@VBL13, @VBL14, @VBL15, @VBL18, GETDATE(), @BCE01, @BCE02, @BCE03 , 1 , @FAF01 , @VBU01) IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人预交款时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END Update VBU1 SET VBU14 = VBU14 - @VBL13 where VBU01 = @VBU01 SELECT @CVBU14 = VBU14 , @CVBU15 = VBU15 from VBU1 where VBU01 = @VBU01 --写入会员交易跟踪 EXEC Core_NewId_VCA01 @VCA01 out INSERT INTO VCA1 (VCA01, VAA01, VAA07, ACF01, VBU01 , VCB04 ,VCA07, VAI01, VCA09 ,VCA10, VBU14, VBU15 ,BCE03, VCA18, BCE01 , VAK01 , VBL01 , VCA20) SELECT @VCA01, @VAA01, @VAA07, 2, @VBU01 ,@VCB04 ,9, 0, 0 ,@VBL13, @CVBU14 , @CVBU15 , @BCE03, getdate(), @BCE01 , 0 , @VBL01 , 0 IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存会员交易记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END Update VBL1 SET VBL01B = @VBL01 where VBL01 = @VBL01B END --==========================================================更新病人余额=================================================================== DECLARE @VBM01 int , @ErrId int , @BDP02 varchar(20) , @BEP06 numeric(18,4) Exec @ErrId = HORate_VBM1_Update @VBM01 , @VAA01 , 2 , @VBL13 , 0 , 0 , @VAA07 If @ErrId > 0 BEGIN if @@ROWCOUNT > 0 ROLLBACK TRAN RAISERROR('更新病人余额时发生错误.', 16, 1) WITH NOWAIT RETURN 2 END --==========================================================更新病人信用额度================================================================= SELECT @BDP02 = BDP02 from VAE1 where VAE01 = @VAA07 SELECT @BEP06 = dbo.GetCreditLimit(@VBL13 , 0 , @BDP02 , 0 , 0) Update VAA1 SET BEP06 = ISNULL(@BEP06 , 0) + ISNULL(BEP06 , 0) where VAA01 = @VAA01 --============================================================================================================================================= COMMIT TRAN GO /****** Object: StoredProcedure [dbo].[HOPatient_VAE1_Update] Script Date: 10/22/2014 14:54:42 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --存储过程.HOPatient_VAE1_Update /* 2011-08-24,by HHy,会员病人绑定病人费别 */ --=================================================================================== --Author <...Fyq> --Alter Date <...2014-10-21> --Description<...入院登记过程> --2011-12-27 增加籍贯、出生地址、健康卡号、身高、体重等录入信息 --2012.02.08 增加CRM预约记录对应 --2012.02.14 增加住院号生成规则，按年月生成 --2012.03.19 判断住院次数是否存在-- by wht --2012.04.25 增加住院就诊ID --2012.05.04 入院登记时增加CRM跟进人录入 --2012.10.26 出院状态不允许编辑 --2012.11.08 CRM客户经理用另外的过程实现 --2013.01.28 计算详细日期调用医生站计算详细日期函数 --2013.04.19 增加部分地址信息录入，与病案首页保持一致 --2013.07.15 增加病人余额表限制费用总额、补充费用总额记录 --2013.08.14 入院登记调整病人类别重新计算信用额度 --2013.12.05 新增入院登记时清空一部分病人信息(信用额度、担保金额) --2014.01.15 增加对住院号前缀YY（取年份最后两位）的支持 --2014.03.05 增加监护人信息的维护 --2014.06.20 入院登记支持保存就诊卡 --2014.08.29 禁止修改已出院病人的姓名和住院号（权限） --2014.10.11 增加了解途径维护 --=================================================================================== CREATE PROC [dbo].[HOPatient_VAE1_Update] @XML ntext, --XML文档 @VAE01 int out , --登记号 @VBL01 int out, --缴款ID @DiagId int, --前就诊号(针对再入院情况) @EmpId int, --操作员ID @EmpDept int, --部门 @FAA01 int, --领用票据Id @EmpCode varchar(20), --操作员编码 @EmpName varchar(20), --操作员 @WorkStation tinyint, --工作站模式 1=病人管理 2=护士工作站 @WardNoLen int,--住院号长度 @WardNoPre varchar(30),--住院号前缀 @VAA01 int out, --病人ID @VAA04 varchar(20) out,--住院号 @VBO01 int =0 out --病人变动记录 AS If exists(select * from VAE1 where VAE01 = @VAE01 and VAE44 = 5) BEGIN RAISERROR('病人已经出院，不允许修改登记信息.', 16, 1) with nowait return 1 END DECLARE @iDOM int, @iret int --解析XML文档 Exec @iret = sp_xml_preparedocument @iDOM OUTPUT, @XML if @iret > 0 BEGIN exec sp_xml_removedocument @iDOM RAISERROR('解析XML文档时发生错误，错误号: %d.', 16, 1, @iret) with nowait return @iret END /* 病人信息表 病人登记表 病人诊断记录 病人预交款记录 写入临时表中 */ SELECT * INTO #tmpPatInfo FROM OpenXml(@iDOM, '/Root/VAE1/Item', 8) WITH( VAE01 integer --登记Id ,VAE02 varchar(20) --登记号 ,VAA01 integer --病人Id ,VAA02 varchar(64)--会员卡号 ,VAA04 varchar(20)--住院号 ,VAA05 varchar(64) --姓名 ,ABW01 varchar(1)--性别 ,VAA12 datetime--出生日期 ,VAA15 varchar(20)--身份证号 ,VAA38 varchar(48)--学 ,ABQ02 varchar(32)--民族 ,ACM02 varchar(20)--从业状况、身份 ,ABBRP varchar(10)--拼音码 ,ABBRW varchar(10)--五笔码 ,VAA16 varchar(20)--其他证件 ,VAE04 tinyint --病人性质 ,ABJ01 varchar(2)--医疗付款方式 all ,BDP02 varchar(50)--病人类别 all ,ABC02 varchar(20)--折扣费别 all ,VAA20 varchar(64) ,VAA25 varchar(64) ,BDX02 varchar(64) ,VAE08 tinyint--再入院 ,BCK01A int--入院病区ID all ,BCK01B int--入院科室ID all ,VAE11 datetime--入院日期 ,ABO01 varchar(2)--入院病情 all ,ABR01 varchar(1)--入院方式 all ,ABT02 varchar(20)--就诊方式 all ,VAE15 varchar(64)--转院名称 ,ABZ02 varchar(10)--入院待遇 all ,ABK02 varchar(20)--住院目的 all ,BCQ04A varchar(20)--住院床位 all ,VAE19 int--住院次数 ,VAE20 tinyint--陪伴 ,AAG01 int--护理等级 all ,VAE22 varchar(2)--住院病情 ,BCK01C int --住院病区ID all ,BCK01D int --住院科室ID all ,BCQ04B varchar(20) --住院床位 all ,VAE26 datetime --出院日期 ,VAE27 int --住院天数 ,ABV01 varchar(2) --出院类型 all ,VAE29 tinyint --确诊 ,VAE30 datetime --确诊日期 ,VAE31 tinyint --新发肿瘤 ,ABL01 varchar(2) --血型 ,VAE33 int --抢救次数 ,VAE34 int --成功次数 ,VAE35 tinyint --随诊标志 ,VAE36 int --随诊期限 ,VAE37 varchar(2) --随诊单位 ,VAE38 tinyint --尸检标志 ,BCE03A varchar(20)--门诊医师 all ,BCE03B varchar(20)--责任护士 all ,BCE03C varchar(20)--住院医师 all ,VAE42 varchar(64) --疾病兵种 ,VAE44 tinyint --状态 ,VAE45 numeric(18,4)--金额 ,VAE46 int --年龄 ,AAU01 varchar(1) --年龄单位 all ,ACK01 varchar(2) --婚姻状况 all ,AAT02 varchar(128) --职业 all ,ACC02 varchar(32) --国籍 all ,AAY02 varchar(48) --学历 all ,BAQ01 int --合约单位ID all ,BAQ02 varchar(10) --合约单位编码 all ,BAQ03 varchar(64) --工作单位 all ,VAE55 varchar(32) --单位电话 ,VAE56 varchar(64) --单位地址 ,VAE57 varchar(128) --户口地址 ,VAE58 varchar(6) --户籍邮编 ,VAE59 varchar(20) --户籍电话 ,VAE60 varchar(20) --省市 ,VAE61 varchar(20) --县市, 城市, 县区市 ,VAE62 varchar(64) --地址, 常住地址, 街道, 乡镇村, resident address ,VAE63 varchar(20) --电话 ,VAE64 varchar(13) --移动电话 ,VAE65 varchar(128) --电子邮箱 ,VAE66 varchar(64) --其他联系方式 ,VAE67 varchar(64) --监护人 ,VAE68 varchar(20) --联系人姓名 ,AAZ02 varchar(32) --与病人关系 ,VAE70 varchar(64) --联系人地址 ,VAE71 varchar(20) --联系人电话 ,VAE72 varchar(16) --联系人移动电话 ,VAE73 varchar(4) --中医治疗内别 ,IAA01 int --保险机构 all ,UAA01 int --社区 all ,IAK05 varchar(50)--社会保障号 ,VAE76 tinyint --审核 ,BCE03D varchar(20) --审核人 ,VAE78 datetime --审核日期 ,VAE79 tinyint --上传标志 ,VAE80 tinyint --转出标志 ,BCE03E varchar(20) --登记人 all ,VAE82 datetime --制表时间 all ,VAE83 varchar(255) --备注 ,VAE84 int --档案状态 ,VAE85 datetime --存档时间 ,VAA50 varchar(6) --单位邮编 ,VAA51 varchar(64) --单位开户行 ,VAA52 varchar(20) --单位银行帐号 ,VAO01A int --门诊诊断号 ,VAO01B int --中医诊断号 ,VAO01C int --入院诊断 ,BAK01A int --门诊诊断 ,BAK01B int --中医诊断 ,BAK01C int --入院诊断 ,BAK05A varchar(128)--门诊诊断 ,BAK05B varchar(128)--中医诊断 ,BAK05C varchar(128)--入院诊断 ,VBL01 int--交款Id ,VBL02 varchar(20)--单据号 ,VBL03 varchar(20)--票据号 ,VBL04 tinyint--类型 ,VBL05 tinyint--状态 ,VBL13 numeric(18,4)--金额 ,VBL14 varchar(32)--支付方式 ,BAQ03B varchar(128)--工作单位 ,BBO02 varchar(64)--开户行 ,VBL11 varchar(20)--银行帐号 ,VBO01 int--病人变动记录 ,VAE86 varchar(32)--介绍人 ,BEP05 numeric(18,4)--报警值 ,BEP06 numeric(18,4)--信用额度 ,VAC01 int--挂号ID ,VAE88 datetime ,VAE89 numeric(9 ,3) ,VAE90 numeric(9 ,3) ,VAE91 numeric(9 ,2) ,VAE92 varchar(64) ,VAA82 varchar(64) ,SCF01 int ,CManageId int ,CManage varchar(20) ,QueryPeopleId int ,QueryPeople varchar(20) ,BCE02C varchar(20) ,VCT32 varchar(20) ,VCT33 varchar(20) ,VCT34 varchar(20) ,VCT35 varchar(20) ,VCT36 varchar(20) ,VCT37 varchar(20) ,VCT38 varchar(20) ,VCT39 varchar(20) ,VCT41 varchar(20) ,VCT42 varchar(20) ,BEP07 numeric(18 ,4) ,VBM11 numeric(18 ,4) ) --如果病人信息不存在，则退出 If not exists(select * from #tmpPatInfo) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，病人信息为空.', 16, 1) with nowait RETURN 2 END --如果住院序列号表为空，则退出 If not exists(select * from VAA1_ID_4) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('住院号序列号表为空，不能生成住院号.', 16, 1) with nowait RETURN 2 END --移除XML文档 exec sp_xml_removedocument @iDOM /*===================================如果病人信息不存在，则写入一条新的病人信息，否则更新病人资料====================================================*/ DECLARE @id int, @ErrId int, @PriKey int, @VAlue int, @AAG01 int, @ZAE01 int, @ABO01 int, @VAC01 int, @BAK01A int, @BAK01B int, @BAK01C int, @VAO01A int, @BCK01A int, @BCK01B int, @VAO01B int, @VAO01C int, @VAA10 int, @VAE04 tinyint, @AAU01 varchar(1), @VAE11 datetime, @VAE82 datetime, @VBL13 numeric(18,4), @tmpstr varchar(30), @BDP02 varchar(20), @ABC02 varchar(20), @VAE02 varchar(20), @BCE03B varchar(20), @BCE03C varchar(20), @BAK05A varchar(128),--门诊诊断 @BAK05B varchar(128),--中医诊断 @BAK05C varchar(128),--入院诊断 @VAA05 varchar(20), @OVAA05 varchar(20), @OVAA04 varchar(20), @OABC02 varchar(20), @OBDP02 varchar(20), @VAE87 varchar(20), @OVAE88 datetime, @VAE88 datetime, @SCH12 varchar(1024), @BCK03B varchar(20), @SCF01 int, @VAE19 int, @CManageId int , @CManage varchar(20) , @QueryPeopleId int , @QueryPeople varchar(20) , @SCI01 int , @VAA12 datetime , @BEP07 numeric(18 ,4) , @VBM11 numeric(18 ,4) , @VAA02 varchar(64) select @id=VAA01, @VAA01=ISNULL(VAA01 , 0) ,@VAA04 =VAA04,@VAE01=VAE01 ,@BAK01A=BAK01A ,@BAK01B=BAK01B ,@VAO01A=VAO01A ,@VAO01B=VAO01B ,@VAE82=Getdate(), @VBO01=VBO01, @AAG01=AAG01, @VAO01C = VAO01C, @BAK01C = BAK01C, @BCK01A=BCK01A, @BCK01B=BCK01B, @VBL13=VBL13, @BCE03B=BCE03B, @BCE03C=BCE03C , @BAK05A = BAK05A ,@BAK05B =BAK05B ,@BAK05C = BAK05C , @VAC01 = VAC01 , @VAE11 = VAE11 , @VAA05 = VAA05 , @BDP02 = BDP02 , @ABC02 = ABC02 , @VAA10 = VAE46 , @AAU01 = AAU01 , @VAE04 = VAE04 , @VAE88 = VAE88 , @SCF01 = SCF01 ,@VAE19=VAE19 ,@CManage = CManage , @CManageId = CManageId , @QueryPeople = QueryPeople , @QueryPeopleId = QueryPeopleId , @VAA12 = VAA12 , @VBM11 = VBM11 , @BEP07 = BEP07 , @VAA02 = VAA02 from #tmpPatinfo SELECT @VAE87 = [dbo].[GetAgeDetailFromAge](0 , 'Y' , @VAA12 ) --SELECT @VAE87 = [dbo].[GetAgeDetail](@VAA10 , @AAU01 ) If (Isnull(@VAA04 , '') = '' ) and (isnull(@VAE01 , 0) > 0) BEGIN RAISERROR('病人住院号不能为空.', 16, 1, @iret) with nowait return 2 END --判断入院时间如果为空，不让保存 If ISNULL(@VAE11 , '') = '' BEGIN RAISERROR('入院时间不能为空.', 16, 1, @iret) with nowait return 2 END --通过病人类别来确定费别 If exists(select * from SYS_Parameters where ProductID = 9999 and ProgramID = 9999 and ParamNo = 18 and Value = '1') BEGIN If not exists(select * from BGY1 where ABC02 = @ABC02 and BDP02 = @BDP02) BEGIN RAISERROR('提交错误，病人类别与费别不对应.', 16, 1) with nowait RETURN 2 END END --判断住院次数是否存在 If exists(select * from VAE1 where VAA01=@VAA01 and VAE19=@VAE19 and VAE01<> isnull(@VAE01 , 0) and VAE44 <> 9) BEGIN RAISERROR('已存在第%d次住院记录，请修改住院次数后重新保存.', 16, 1,@VAE19) with nowait RETURN 2 END --会员病人绑定病人费别 IF EXISTS(SELECT * FROM SYS_PARAMETERS WHERE PRODUCTID=100 AND PROGRAMID=116001 AND PRIVILEGE=0 AND PARAMNO='2' AND VALUE='1') AND EXISTS(SELECT * FROM VAA1 WHERE VAA01=@VAA01 AND VBU01>0 AND ABC02>'' AND ABC02<>@ABC02) BEGIN RAISERROR('已绑定会员卡类型，禁止修改病人费别.', 16, 1) with nowait RETURN 2 END --判断会员卡号是否重复 If ISNULL(@VAA02 , '') <> '' BEGIN IF EXISTS(SELECT * FROM VAA1 WHERE VAA02 = @VAA02 AND VAA01 <> @id) BEGIN RAISERROR('卡号为[%s]已经使用', 16, 1,@VAA02) with nowait RETURN 2 END END /*===================================================如果住院号为空将自动生成住院号==============================================*/ If isnull(@VAA04,'') = '' BEGIN --如果门诊留观单独编码则生成门诊留观编码 If (@VAE04 = 1) and exists(select * from SYS_Parameters where ProgramID = 104004 and ParamNo = 117 and Value = '1') BEGIN SELECT @WardNoLen = ISNULL(Value , 6) from SYS_Parameters where ProgramID = 104004 and ParamNo = 118 SELECT @WardNoPre = ISNULL(Value , '') from SYS_Parameters where ProgramID = 104004 and ParamNo = 119 END --如果前缀是按当前日期生成规则，则替换前缀 If @WardNoPre ='YYYYMMDD' set @WardNoPre = convert(varchar(8),getdate(),112) ELSE IF @WardNoPre='YYYY' set @WardNoPre=convert(varchar(4),getdate(),112) ELSE IF @WardNoPre='YY' set @WardNoPre=convert(varchar(2),getdate(),2) ELSE IF @WardNoPre = 'YYYYMM' set @WardNoPre =convert(varchar(6),getdate(),112) Declare @MaxValue int , @str varchar(20) set @str = '000000000000' If (@VAE04 = 1) and exists(select * from SYS_Parameters where ProgramID = 104004 and ParamNo = 117 and Value = '1') BEGIN Exec @ErrId = Core_NewIDEx 'VAA1' , 'VAA04' , @Value out If @ErrId > 0 BEGIN RETURN 1 END SET @VAA04= @WardNoPre + right(@Str + cast(@Value as Varchar),@WardNoLen - len(@WardNoPre)) END ELSE BEGIN Exec @ErrId = Core_NewId_VAA04 @Value out --获取住院号序列 If @ErrId > 0 BEGIN RETURN 1 END set @VAA04= @WardNoPre + right(@Str + cast(@Value as Varchar),@WardNoLen - len(@WardNoPre)) If exists(select * from VAA1 where vaa04 = @VAA04) BEGIN select @MaxValue=right(max(VAA04),len(@WardNoPre)) from VAA1 where len(VAA04)= @WardNoLen and left(VAA04,len(@WardNoPre)) = @WardNoPre update VAA1_ID_4 set VAlue = @MaxValue set @str='000000000000' exec Core_NewId_VAA04 @Value out --获取住院号序列 set @VAA04= @WardNoPre + right(@Str + cast(@Value as Varchar),@WardNoLen - len(@WardNoPre)) END END END /*================================================================================================================================*/ If ISNULL(@VAA05 , '') = '' BEGIN RAISERROR('病人姓名不能为空.', 16, 1) with nowait RETURN 2 END If ISNULL(@VAA04 , '' ) = '' BEGIN RAISERROR('住院号不能为空.', 16, 1) with nowait RETURN 2 END If exists(select * from VAA1 where VAA04 = @VAA04 and VAA01 <> @VAA01) BEGIN RAISERROR('住院号[%s]已经使用.', 16, 1 , @VAA04) with nowait RETURN 2 END BEGIN TRAN --开始一个事务 /*===============================================如果Id为0或者null新增一条病人信息记录==============================================*/ if isnull(@id,0) = 0 BEGIN exec @ErrId = Core_NewIDEx 'VAA1','VAA01',@VAA01 out --获取新的病人信息ID If @ErrId > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 1 END INSERT INTO VAA1 (VAA01, VAA04, VAA05, ABBRP, ABBRW, ABW01, VAA10, AAU01, VAA12, ACK01, VAA15, VAA16, ABJ01, BDP02, ABC02, VAA20 , ACM02, AAT02, ACC02, ABQ02, VAA25, VAA28, VAA29, VAA30, VAA31, VAA32, VAA33, VAA34, VAA35, VAA36, VAA37, VAA38, VAA39, VAA40, VAA41, VAA42, VAA43, VAA44, BAQ01, BAQ02, VAA47, VAA48, VAA49, VAA50, VAA51, VAA52, VAA56, VAA61, VAA64, IAA01,IAK05, BCK01B, BCK01C, BCQ04, VAA73,VAA75,ABL01 ,BEP05 ,BEP06 , VAA82 , VAA02 , BDX02) select @VAA01, @VAA04, VAA05, ABBRP, ABBRW, ABW01, VAE46, AAU01, VAA12, ACK01, VAA15, VAA16, ABJ01, BDP02, ABC02, VAA20 ,ACM02, AAT02, ACC02, ABQ02, VAA25, VAE57, VAE58, VAE59, VAE60, VAE61, VAE62, VAE63, VAE64, VAE65, VAE66, AAY02, VAE67, VAE68, AAZ02, VAE70, VAE71, VAE72, BAQ01, BAQ02, BAQ03, VAE55, VAE56, VAA50, VAA51, VAA52, VAE19, 2, VAE83, IAA01, IAK05, BCK01B, BCK01A, BCQ04A, VAE11,getdate(),ABL01, Isnull(BEP05 , 0) , isnull(BEP06 ,0) , VAA82 , VAA02 , BDX02 from #tmpPatinfo IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*===========================================================更新病人信息=================================================================*/ ELSE BEGIN /*================================================初始化部分病人信息========================================================*/ If ISNULL(@VAE01 , 0) <= 0 BEGIN Update VAA1 SET VAA53 = '', VAA54 = 0 , BEP05 = 0 , BEP06 = 0 where VAA01 = @Id END /*=============================================如果病人姓名变动，加入变动记录===============================================*/ select @OBDP02 = ISNULL(b.BDP02 , a.BDP02) ,@OABC02 = ISNULL(b.ABC02 , a.ABC02) from VAA1 a left join VAE1 b on b.VAA01 = a.VAA01 and VAE01 = @VAE01 where a.VAA01 = @Id select @OVAA04 =VAA04 ,@OVAA05 = VAA05 from VAA1 where VAA01 = @ID If @VAA05 <> @OVAA05 begin If dbo.GetEmpPermissionValue(104004021,@EmpId)=1 begin if exists(select * from VAE1 where VAA01 = @ID and VAE44=5) begin if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('已结账病人的姓名不允许修改', 16, 1) WITH NOWAIT Return 1 end end Exec @ErrId = Core_NewId 'ZAE1' , 'ZAE01' , @ZAE01 out If @ErrId > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 1 END INSERT INTO ZAE1 (ZAE01, TNAME, CNAME, ZAE04, ZAE05, ZAE06, ZAE07, ZAE08, BCE01, BCE03, ZAE11) select @ZAE01, 'VAA1', 'VAA05', @ID, @VAE01 , @OVAA05, @VAA05, '病人姓名变更', @EmpId , @EmpName , getdate() IF @@ERROR >0 --如果发生错误，回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*=========================================如果病人住院号变动，加入变动记录===============================================*/ IF @VAA04 <> @OVAA04 BEGIN If dbo.GetEmpPermissionValue(104004022,@EmpId)=1 begin if exists(select * from VAE1 where VAA01 = @ID and VAE44=5) begin if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('已结账病人的住院号不允许修改', 16, 1) WITH NOWAIT Return 1 end end Exec Core_NewId 'ZAE1' , 'ZAE01' , @ZAE01 out INSERT INTO ZAE1 (ZAE01, TNAME, CNAME, ZAE04, ZAE05, ZAE06, ZAE07, ZAE08, BCE01, BCE03, ZAE11) select @ZAE01, 'VAA1', 'VAA04', @ID, @VAE01 , @OVAA04, @VAA04, '住院号变更', @EmpId , @EmpName , getdate() IF @@ERROR > 0 --如果发生错误，回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*==============================================如果费别变化，加入变动记录================================================*/ IF @OABC02 <> @ABC02 BEGIN Exec Core_NewId 'ZAE1' , 'ZAE01' , @ZAE01 out INSERT INTO ZAE1 (ZAE01, TNAME, CNAME, ZAE04, ZAE05, ZAE06, ZAE07, ZAE08, BCE01, BCE03, ZAE11) select @ZAE01, 'VAE1', 'ABC02', @ID, @VAE01 , @OABC02, @ABC02 , '住院登记费别变更', @EmpId , @EmpName , getdate() IF @@ERROR > 0 --如果发生错误，回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END update a Set a.VAA04= @VAA04 ,a.VAA02= b.VAA02 ,a.VAA05= b.VAA05 ,a.ABBRP= b.ABBRP ,a.ABBRW= b.ABBRW ,a.ABW01= b.ABW01 ,a.VAA10= b.VAE46 ,a.AAU01= b.AAU01 ,a.VAA12= b.VAA12 ,a.ACK01= b.ACK01 ,a.VAA15= b.VAA15 ,a.VAA16= b.VAA16 ,a.ABJ01= b.ABJ01 ,a.BDP02= b.BDP02 ,a.ABC02= b.ABC02 ,a.ACM02= b.ACM02 ,a.AAT02= b.AAT02 ,a.ACC02= b.ACC02 ,a.ABQ02= b.ABQ02 ,a.VAA20= b.VAA20 ,a.VAA25= b.VAA25 ,a.VAA28= b.VAE57 ,a.VAA29= b.VAE58 ,a.VAA30= b.VAE59 ,a.VAA31= b.VAE60 ,a.VAA32= b.VAE61 ,a.VAA33= b.VAE62 ,a.VAA34= b.VAE63 ,a.VAA35= b.VAE64 ,a.VAA36= b.VAE65 ,a.VAA37= b.VAE66 ,a.VAA38= b.AAY02 ,a.VAA39= b.VAE67 ,a.VAA40= b.VAE68 ,a.VAA41= b.AAZ02 ,a.VAA42= b.VAE70 ,a.VAA43= b.VAE71 ,a.VAA44= b.VAE72 ,a.BAQ01= b.BAQ01 ,a.BAQ02= b.BAQ02 ,a.VAA47= b.BAQ03 ,a.VAA48= b.VAE55 ,a.VAA49= b.VAE56 ,a.VAA50= b.VAA50 ,a.VAA51= b.VAA51 ,a.VAA52= b.VAA52 ,a.VAA56= b.VAE19 ,a.VAA61= 2 ,a.VAA64= b.VAE83 ,a.IAK05= b.IAK05 ,a.IAA01= b.IAA01 ,a.BCK01B=b.BCK01B ,a.BCK01C=b.BCK01A ,a.BCQ04= b.BCQ04B ,a.VAA73= b.VAE11 ,a.ABL01= b.ABL01 ,a.BEP05 = b.BEP05 ,a.BEP06 = b.BEP06 ,a.VAA82 = b.VAA82 ,a.BDX02 = b.BDX02 from VAA1 a,#tmpPatinfo b where a.VAA01 = @Id IF @@ERROR >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*===========================================如果病人类别变化，加入变动记录================================================*/ If @BDP02 <> @OBDP02 BEGIN Exec Core_NewId 'ZAE1' , 'ZAE01' , @ZAE01 out INSERT INTO ZAE1 (ZAE01, TNAME, CNAME, ZAE04, ZAE05, ZAE06, ZAE07, ZAE08, BCE01, BCE03, ZAE11) select @ZAE01, 'VAE1', 'BDP02', @ID, @VAE01 , @OBDP02, @BDP02, '病人类别变更', @EmpId , @EmpName , getdate() IF @@ERROR > 0 --如果发生错误，回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --根据规则重新计算其信用额度 If exists(select * from SYS_Parameters where ProductID = 100 and ProgramID = 104004 and ParamNo = 123 and Value = '1') BEGIN Declare @VBM04 numeric(18,4) , @VAA54 numeric(18,4) , @BEP06 numeric(18,4) SELECT @VBM04 = VBM04 from VBM2 where VAA07 = @VAE01 and ACF01 =2 SELECT @VAA54 = VAA54 from VAA1 where VAA01 = @id SET @VBM04 = ISNULL(@VBM04 , 0) SET @VAA54 = ISNULL(@VAA54 , 0) SELECT @BEP06 = dbo.GetCreditLimit(@VBM04 , @VAA54 , @BDP02 , @BCK01A , 1) Update VAA1 SET BEP06 = ISNULL(@BEP06 , 0) where VAA01 = @id END END END /*=============================================================保存病人入院登记=================================================================*/ Declare @SCA01 int , @SCH01 int , @VBL02 varchar(20), @VBL03 varchar(30), @BAQ03 varchar(128),--工作单位 @BBO02 varchar(64), --开户行 @VBL11 varchar(20), --银行帐号 @VBL14 varchar(32), --支付方式 @VBL18 datetime, @VBL19 datetime SELECT @SCA01 = SCA01 from SCA1 where VAA01 = @VAA01 SELECT @id = VAE01, @VBL02 = VBL02,@VBL03 = VBL03,@BAQ03 = BAQ03B,@BBO02 = BBO02,@VBL11 = VBL11,@VBL14 = VBL14 FROM #tmpPatinfo /*==========================================================如果Id为0或者null,新增一条入院登记记录===============================================*/ IF isnull(@id,0)=0 BEGIN EXEC @ErrId = Core_NewIDEx 'VAE1','VAE01',@VAE01 out --获取新的病人登记ID号 If @ErrId > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 1 END Set @tmpstr ='00000000000000000000' + cast(@VAE01 as varchar) SET @VAE02 = right(@tmpstr,10) /*=======================================================================插入新的入院登记记录==================================================================*/ INSERT INTO VAE1( VAE01, VAE02, VAA01, VAE04, ABJ01, BDP02, ABC02, VAE08, BCK01A, BCK01B, VAE11, ABO01, ABR01, ABT02, VAE15, ABZ02, ABK02, BCQ04A, VAE19, VAE20, AAG01, VAE22, BCK01C, BCK01D, BCQ04B, VAE26, VAE27, ABV01, VAE29, VAE30, VAE31, VAE33, VAE34, VAE35, VAE36, VAE37, VAE38, BCE03A, BCE03B, BCE03C, VAE42, VAE44, VAE45, VAE46, AAU01, ACK01, AAT02, ACC02, AAY02, BAQ01, BAQ02, BAQ03, VAE55, VAE56, VAE57, VAE58, VAE59, VAE60, VAE61, VAE62, VAE63, VAE64, VAE65, VAE66, VAE67, VAE68, AAZ02, VAE70, VAE71, VAE72, VAE73, IAA01, UAA01, VAE76, BCE03D, VAE78, VAE79, VAE80, BCE03E, VAE82, VAE83, VAE84, VAE85 , VAE86 , VAE87 , VAE88 , VAE89 , VAE90 , VAE91 , VAE92 , SCF01 , BCE02C ) SELECT @VAE01, @VAE02, @VAA01, VAE04, ABJ01, BDP02, ABC02, VAE08, BCK01A, BCK01B, VAE11, ABO01, ABR01, ABT02, VAE15, ABZ02, ABK02, BCQ04A, VAE19, VAE20, AAG01, VAE22, BCK01A, BCK01B, BCQ04B, VAE26, VAE27, ABV01, VAE29, VAE30, VAE31, VAE33, VAE34, VAE35, VAE36, VAE37, VAE38, BCE03A, BCE03B, BCE03C, VAE42, VAE44, VAE45, VAE46, AAU01, ACK01, AAT02, ACC02, AAY02, BAQ01, BAQ02, BAQ03, VAE55, VAE56, VAE57, VAE58, VAE59, VAE60, VAE61, VAE62, VAE63, VAE64, VAE65, VAE66, VAE67, VAE68, AAZ02, VAE70, VAE71, VAE72, VAE73, IAA01, UAA01, VAE76, BCE03D, VAE78, VAE79, VAE80, BCE03E, Getdate(), VAE83, VAE84, VAE85 ,VAE86 , @VAE87 , VAE88 , VAE89 , VAE90 , VAE91 , VAE92 , SCF01 , BCE02C from #tmpPatinfo IF @@ERROR > 0--如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人入院登记时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*=====================================================================插入病人预交款记录===================================================================*/ If isnull(@VBL13,0) > 0 BEGIN Set @VBL18 = getdate() Set @VBL19 = getdate() exec HOPatient_PrePay_Entry @VBL01 out,@VBL02,'',4,0,@VAA01,@VAE01,@EmpDept,@BAQ03,@BBO02, @VBL11,'',@VBL13,@VBL14,@VBL18,@VBL19,@EmpId,@EmpCode,@EmpName,@FAA01 IF @@ERROR > 0 --如果发生错误，则回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人预交款时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*============================================================如果从门诊开住院证过来的病人，更新住院证中信息==================================================*/ If isnull(@VAC01 , 0) > 0 BEGIN Update VBN1 SET VAA04 = @VAA04 , VBN12 = @VAE01 , VBN13 = @VAE11 where VAA07 = @VAC01 END /*========================================================================更新余额表信息======================================================================*/ Declare @VBM01 int SELECT @BEP07 = BEP07 from BEP1 where BCK01 = @BCK01A and BDP02 = @BDP02 SET @BEP07 = ISNULL(@BEP07 , 0) SET @VBM11 = ISNULL(@VBM11 , 0) Exec @ErrId = HORate_VBM1_Update @VBM01 , @VAA01 , 2 , 0 , 0 , 0 ,@VAE01 , @BEP07 , @VBM11 If @ErrId > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新病人余额表时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*============================================================================================================================================================*/ END ELSE --更新入院登记记录 BEGIN SELECT @OVAE88 = VAE88 from VAE1 where VAE01 = @id IF @OVAE88 <> @VAE88 BEGIN Exec Core_NewId 'ZAE1' , 'ZAE01' , @ZAE01 out INSERT INTO ZAE1 (ZAE01, TNAME, CNAME, ZAE04, ZAE05, ZAE06, ZAE07, ZAE08, BCE01, BCE03, ZAE11) select @ZAE01, 'VAE1', 'VAE88', @ID, @VAE01 , @OVAE88, @VAE88 , '住院登记有效日期变更', @EmpId , @EmpName , getdate() IF @@ERROR > 0 --如果发生错误，回滚数据 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人信息变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END UPDATE a SET a.VAA01 = b.VAA01, a.VAE04 = b.VAE04, a.ABJ01 = b.ABJ01, a.BDP02 = b.BDP02, a.ABC02 = b.ABC02, a.VAE08 = b.VAE08, a.BCK01A = b.BCK01A, a.BCK01B = b.BCK01B, a.VAE11 =b.VAE11 , a.ABO01 =b.ABO01 , a.ABR01 =b.ABR01 , a.ABT02 =b.ABT02 , a.VAE15 =b.VAE15 , a.ABZ02 =b.ABZ02 , a.ABK02 =b.ABK02 , a.BCQ04A = b.BCQ04A, a.VAE19 =b.VAE19 , a.VAE20 =b.VAE20 , a.AAG01 =b.AAG01 , a.VAE22 =b.VAE22 , a.BCK01C = b.BCK01C , a.BCK01D = b.BCK01D , a.BCQ04B = b.BCQ04B , a.VAE27 = b.VAE27 , a.ABV01 = b.ABV01 , a.VAE29 = b.VAE29 , a.VAE30 = b.VAE30 , a.VAE31 = b.VAE31 , a.VAE33 = b.VAE33 , a.VAE34 = b.VAE34 , a.VAE35 = b.VAE35 , a.VAE36 = b.VAE36 , a.VAE37 = b.VAE37 , a.VAE38 = b.VAE38 , a.BCE03A = b.BCE03A , a.BCE03B = b.BCE03B , a.BCE02C = b.BCE02C , a.BCE03C = b.BCE03C , a.VAE42 = b.VAE42 , a.VAE45 = b.VAE45 , a.VAE46 =b.VAE46 , a.AAU01 =b.AAU01 , a.ACK01 =b.ACK01 , a.AAT02 =b.AAT02 , a.ACC02 =b.ACC02 , a.AAY02 =b.AAY02 , a.BAQ01 =b.BAQ01 , a.BAQ02 =b.BAQ02 , a.BAQ03 =b.BAQ03 , a.VAE55 =b.VAE55 , a.VAE56 =b.VAE56 , a.VAE57 =b.VAE57 , a.VAE58 =b.VAE58 , a.VAE59 =b.VAE59 , a.VAE60 =b.VAE60 , a.VAE61 =b.VAE61 , a.VAE62 =b.VAE62 , a.VAE63 =b.VAE63 , a.VAE64 = b.VAE64 , a.VAE65 = b.VAE65 , a.VAE66 = b.VAE66 , a.VAE67 = b.VAE67 , a.VAE68 = b.VAE68 , a.AAZ02 = b.AAZ02 , a.VAE70 = b.VAE70 , a.VAE71 = b.VAE71 , a.VAE72 = b.VAE72 , a.VAE73 = b.VAE73 , a.IAA01 = b.IAA01 , a.UAA01 = b.UAA01 , a.VAE76 = b.VAE76 , a.BCE03D = b.BCE03D, a.VAE78 = b.VAE78 , a.VAE79 = b.VAE79 , a.VAE80 = b.VAE80 , a.BCE03E = b.BCE03E, a.VAE83 = b.VAE83 , a.VAE84 = b.VAE84 , a.VAE85 = b.VAE85 , a.VAE86 = b.VAE86 , a.VAE88 = b.VAE88 , a.VAE89 = b.VAE89 , a.VAE90 = b.VAE90 , a.VAE91 = b.VAE91 , a.VAE92 = b.VAE92 , a.SCF01 = b.SCF01 FROM VAE1 a,#tmpPatInfo b WHERE a.VAE01 = @id IF @@ERROR > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人入院登记时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --如果没有入科的病人，修改时改变其住院科室、病区 UPDATE VAE1 SET BCK01C = @BCK01A , BCK01D = @BCK01B WHERE VAE01 = @id AND VAE44 <= 1 --维护病人余额记录 SET @BEP07 = ISNULL(@BEP07 , 0) SET @VBM11 = ISNULL(@VBM11 , 0) Exec @ErrId = HORate_VBM1_Update @VBM01 , @VAA01 , 2 , 0 , 0 , 0 ,@VAE01 , @BEP07 , @VBM11 If @ErrId > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新病人余额表时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*=============================================保存病人诊断信息(门诊诊断、中医诊断、入院诊断)====================================================*/ Exec @ErrId =HOPatient_VAO1_Update @VAA01,@VAE01,@VAO01A,@BAK01A,2,1,1,0,1,null,0,@EmpName,@BAK05A IF @ErrId >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人院门诊诊断时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --入院门诊诊断(中医) Exec @ErrId =HOPatient_VAO1_Update @VAA01, @VAE01, @VAO01B, @BAK01B, 2, 1, 0, 1, 1, null, 0, @EmpName, @BAK05B IF @ErrId >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人院门诊诊断时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --入院诊断 Exec @ErrId =HOPatient_VAO1_Update @VAA01 , @VAE01, @VAO01C, @BAK01C, 2, 1, 0, 0, 2, null, 0, @EmpName, @BAK05C IF @ErrId >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人院诊断时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*=========================================保存病人变动记录(入院登记)================================================*/ If @WorkStation=1 BEGIN Exec @ErrId= HOPatient_Pat_Change @VBO01, @VAA01, @VAE01, @VAE82, 1, @BCK01A, @BCK01B, @AAG01, @ABO01, @EmpId, @EmpName IF @ErrId >0 BEGIN If @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('入院登记保存病人变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END end else /*========================================保存病人变动记录(护士工作站)===============================================*/ if @WorkStation=2 BEGIN Declare @VBO04 datetime set @VBO04=getdate() select @VBO01=VBO01 from VBO1 where VAA01=@VAA01 and VAA07=@VAE01 and VBO06=7 and isnull(VBO21,0)=0 Exec @ErrId=HOPatient_Nurse_PatChange @VBO01,@VAA01,@VAE01,@VBO04,7,@BCK01A,@BCK01B,@AAG01,@ABO01,@BCE03B,@BCE03C,@EmpId,@EmpName IF @ErrId >0 BEGIN If @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('护士站保存病人变动记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /* ==============================================更新病人再入院情况=================================================*/ if isnull(@DiagId,0) <> 0 BEGIN update VAE1 set VAE08=1 where VAE01 = @DiagId and VAE44 <> 0 IF @@ERROR >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新病人再入院状态时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*===============================================更新CRM预约信息===================================================*/ If ISNULL(@SCF01 , 0) > 0 BEGIN update SCF1 SET VAA07B = @VAE01 , SCF11 = 4 where SCF01 = @SCF01 IF @@ERROR >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新CRM预约信息时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --写入CRM咨询师 If ISNULL(@QueryPeopleId , 0) > 0 BEGIN Exec @ErrId = HOCRM_SCI1_Update @SCI01 out , @SCA01 , 2 , @SCF01 , 0 , @QueryPeopleId , @QueryPeople , '' , 0 , 3 , 0 , @VAE01 , 1 , '' IF @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入咨询师时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END SELECT @SCA01 = SCA01 from SCF1 where SCF01 = @SCF01 --如果没有对应病人信息，对应病人信息 If not exists(select * from SCA1 where VAA01 > 0 and SCA01 = @SCA01) BEGIN update SCA1 SET VAA01 = @VAA01 where SCA01 = @SCA01 IF @@ERROR >0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('更新CRM客户信息时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END END IF ISNULL(@SCA01 , 0) > 0 BEGIN If ISNULL(@CManageId , 0) > 0 BEGIN SET @SCI01 = 0 --Exec @ErrId = HOCRM_SCI1_Update @SCI01 out , @SCA01 , 1 , @SCF01 , 0 , @CManageId , @CManage Exec @ErrId = HOCRM_SCA1_Status @SCA01 , @CManageId , @CManage , 0 /*IF @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入客户经理时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END */ END SELECT @BCK03B = BCK03 from BCK1 where BCK01 = @BCK01B SET @SCH12 = '住院号：' + @VAA04 + ' 入院时间：' + convert(varchar(30) , @VAE11 , 111) + ' 入院科室：' + @BCK03B + ' 门诊医生：' + ISNULL(@BCE03B ,'') Exec @ErrId = HOCRM_SCH1_Update @SCH01 out , @SCA01 , 0 , 'VAE1' , 'VAE01' , 201 , '入院' , @SCH12 , 0 , 0 , @EmpId ,@EmpName END /*=============================================返回入院登记病人变动ID==============================================*/ SELECT @VBO01 = VBO01 from VBO1 where VAA01 = @VAA01 and VAA07 = @VAE01 and VBO06 =1 /*=============================================写入病人登记扩展表内容================================================= */ If not exists(SELECT * from VCT1 where VAA07 = @VAE01) BEGIN INSERT INTO VCT1(VAA07 , VCT32 , VCT33 , VCT34 , VCT35 , VCT36 , VCT37 , VCT38 , VCT39 , VCT41 , VCT42) SELECT @VAE01 , VCT32 , VCT33 , VCT34 , VCT35 , VCT36 , VCT37 , VCT38 , VCT39 , VCT41 , VCT42 from #tmpPatInfo IF @@ERROR > 0 BEGIN if @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('保存病人登记扩展表时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END ELSE BEGIN Update a SET a.VCT32 = b.VCT32 , a.VCT33 = b.VCT33 , a.VCT34 = b.VCT34 , a.VCT35 = b.VCT35 , a.VCT36 = b.VCT36 , a.VCT37 = b.VCT37 , a.VCT38 = b.VCT38 , a.VCT39 = b.VCT39 , a.VCT41 = b.VCT41 , a.VCT42 = b.VCT42 from VCT1 a ,#tmpPatInfo b where a.VAA07 = @VAE01 END /*======================================================================================================================*/ COMMIT TRAN IF Object_id('tempdb..#tmpPatInfo') IS NOT NULL DROP TABLE #tmpPatInfo 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, ' 4BB82A4653706DBC3C021802F20DFA45declare @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 , 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 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 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 + '' SELECT * FROM #LAB1 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=' 4BB82A4653706DBC3C021802F20DFA45declare @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 , 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 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 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 + '' SELECT * FROM #LAB1 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 GO --====================================================================================================== --Author <...Fyq> --Alter Date <...2014-09-24> --Description<...门诊结帐过程(分单结帐)> --2011.07.20,HHY,会员非帐户支付时也产生积分 --2011.08.25,HHY,会员积分支付 --2011.08.30,FYQ,CRM客户服务日志 --2011.09.19,HHY,积分余额不足时终止结算 --2011.09.20,HHY,卡消费时自动升级；伊莱美药品、材料和检验不送积分 --2012.05.28,FYQ,挂账类型的支付方式允许录入工作单位 --2012.12.18,FYQ,如果存在医保结算记录，本地未传入医保支付方式，则不允许结算 --2013.06.17,FYQ,体检病人结算时更新病人缴费明细表 --2013.07.09,FYQ,部分退费生成业务通知表结算后更新其状态 --2013.10.18,FYQ,赠送或者积分类型的支付方式保存时校验是否会员卡 --2013.10.30,FYQ,处理分单结算模式下减免优惠支付方式的分配(按明细合计分配) --2013.12.24,FYQ,会员卡支付方式只校验未设置接口驱动的记账类型 --2013.12.25,FYQ,前台传入多会员卡支付方式(用其他人卡消费) --2014.01.21,FYQ,结账模式的判断排除体检病人 --修改VCB04长度 --2014.09.16,FYQ,结账时记录医保本地关联 --======================================================================================================= ALTER PROC [HORate_DVAK01_Update] @XML ntext AS DECLARE @iDOM int, @iret int Exec @iret = sp_xml_preparedocument @iDOM OUTPUT, @XML if @iret > 0 BEGIN exec sp_xml_removedocument @iDOM RAISERROR('解析XML文档时发生错误，错误号: %d.', 16, 1, @iret) with nowait return @iret END --获取操作员基本信息 DECLARE @EmpId int, @EmpNo varchar(20), @EmpName varchar(20), @HostIp varchar(256), @HostName varchar(256), @DeptId int, @SCA01 int, @SCH01 int, @DeptNo varchar(20), @DeptName varchar(20), @HostMac varchar(256), @FileVer varchar(20), @Event varchar(4086), @TotalVBL numeric(18 ,4), @SCH12 varchar(1024), @VAK13 datetime , @VAA07 int SELECT @EmpId = EmpId , @EmpNo = EmpNo , @EmpName = EmpName , @DeptId = DeptId , @DeptNo = DeptNo , @DeptName = DeptName , @HostIp = HostIp , @HostName = HostName , @HostMac = HostMac , @FileVer = FileVer FROM OpenXml(@iDOM,'/Root/OperInfo',8) WITH ( EmpId int , EmpNo varchar(20) , EmpName varchar(20) , DeptId int , DeptNo varchar(20) , DeptName varchar(20) , HostIp varchar(256) , HostName varchar(256) , HostMac varchar(256) , FileVer varchar(20) ) --如果发现当前的版本号低于指定的Dll文件版本号，提示客户升级 Declare @ISSAME int , @Description varchar(1024) select @ISSAME = ISSAME ,@Description = Description from dbo.[FileVerCheck](@FileVer , 'HORate.dll') If @ISSAME = 0 BEGIN exec sp_xml_removedocument @iDOM RAISERROR(@Description, 16, 1) with nowait RETURN 2 END --病人信息 SELECT * INTO #TmpVAA1 from OpenXml(@iDOM,'/Root/VAA/Ie',8) WITH ( VAA01 int , VAA07 int , ACF01 int , VAA03 varchar(20) , VAK07 numeric(18,4) , VAK08 numeric(18,4) , VAK09 numeric(18,4) , VAK10 numeric(18,4) , EmpId int , EmpNo varchar(20) , EmpName varchar(20) , HostName varchar(128) , HostIP varchar(32) , WorkName varchar(20) , WorkType smallint , WorkFrom smallint , BCK01A int , BCK01B int , BCE01A int , BCE03A varchar(20) , ABC02 varchar(20) , BCE02A varchar(20) , VAK17 varchar(255) , VBU01 int ) If not exists(select * from #tmpVAA1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，病人信息为空', 16, 1) with nowait RETURN 2 END IF EXISTS(SELECT * FROM #tmpVAA1 where ISNULL(BCK01A , 0) <= 0) BEGIN EXEC sp_xml_removedocument @iDOM RAISERROR('提交错误，病人科室不能为空', 16, 1) with nowait RETURN 2 END SELECT @VAA07 = VAA07 from #TmpVAA1 SET @VAA07 = ISNULL(@VAA07 , 0) --如果当前系统参数设置为合并结帐，提示操作员关闭结帐窗口，重新结帐（非体检病人） If exists(select * from VAC1 where VAC01 = @VAA07 and VAC09 <> -3) BEGIN If exists(select * from SYS_Parameters where ProductID = 100 and ProgramID = 103010 and ParamNo = 6 and Value = 0) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('系统结帐参数已经改变为[合并结帐]模式，请关闭收费窗口，重新进入后结帐.', 16, 1) with nowait RETURN 2 END END --病人交款信息,除去尾数金额 SELECT * into #tmpVBL1 from OpenXml(@iDOM,'/Root/VBL/Ie',8) with ( VBU01 int , VBL01 int , FAF01 int , VAK01 int , VBL02 varchar(20) , VBL11 varchar(20) , VBL13 numeric(18,4) , VBL14 varchar(32) , VBL15 varchar(2) , BAQ03 varchar(64) ) /*==========================================如果存在没有会员帐号的记帐类型的支付方式不允许================================================*/ If exists(select * from #tmpVBL1 a ,BBP1 b where a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and ISNULL(VBU01 , 0) = 0 and VBL15 = '05') BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，记帐类型支付方式必须与会员卡关联', 16, 1) with nowait RETURN 2 END --如果存在没有会员帐号的赠送类型的支付方式不允许 If exists(select * from #tmpVBL1 a ,BBP1 b where a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and ISNULL(VBU01 , 0) = 0 and VBL15 = '42' ) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，赠送类型支付方式必须与会员卡关联', 16, 1) with nowait RETURN 2 END --如果存在没有会员帐号的积分类型的支付方式不允许 If exists(select * from #tmpVBL1 a ,BBP1 b where a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and ISNULL(VBU01 , 0) = 0 and VBL15 = '43') BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，积分类型支付方式必须与会员卡关联', 16, 1) with nowait RETURN 2 END If exists(select * from #TmpVAA1 where VAK07 > 0) BEGIN IF not exists(select * from #tmpVBL1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，病人交款信息为空', 16, 1) with nowait RETURN 2 END END select @TotalVBL = SUM(VBL13) from #tmpVBL1 --多个会员卡消费情况 select IDENTITY(int,1,1) AS ID, * into #tmpVCA1 from OpenXml(@iDOM,'/Root/VCA/Ie',8) with ( VBU01 int , VCB04 varchar(64) , VCA10 numeric(18 ,4) ) --存在会员卡接口支付方式，未传入卡号消费的情况报错 If exists(select * from #tmpVBL1 a, BBP1 b where a.VBL14 = b.BBP02 and ISNULL(BBP09 ,0) = 1 and a.VBL15='05') BEGIN If not exists(select * from #tmpVCA1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，记帐类型接口类型支付方式未传入待扣费会员卡信息。', 16, 1) with nowait RETURN 2 END END /*=====================================================================================================================================*/ --病人收费单据 select IDENTITY(int,1,1) AS ID, * into #tmpVAI1 from OpenXml(@iDOM,'/Root/VAI/Ie',8) with ( VAI00 varchar(38) , VAI01 int , VAI04 varchar(20) , VAI05 varchar(1024) , Enabled smallint , OldMoney numeric(18,4) , SumMoney numeric(18,4) , YbMoney numeric(18,4) , RebateMoney numeric(18,4) ,--减免优惠金额 VAI17 smallint ) If not exists(select * from #tmpVAI1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，病人单据信息为空', 16, 1) with nowait RETURN 2 END --如果存在单据金额小于0，则不让结帐 If not exists(select * from SYS_Parameters where ProductID = 9999 and ProgramID = 9999 and ParamNo = 33 and Value = 1) BEGIN If exists(select * from #tmpVAI1 where OldMoney < 0 and Enabled = 0) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，存在单据金额为负数的数据.', 16, 1) with nowait RETURN 2 END END --如果传入后台的单据费用中存在VAI01 <- 0，抛错 If exists(select * from #tmpVAI1 where VAI01 <= 0) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，费用单据信息不正确.', 16, 1) with nowait RETURN 2 END --病人收费记录信息 select IDENTITY(int,1,1) AS ID, * into #tmpVAJ1 from OpenXml(@iDOM,'/Root/VAJ/Ie',8) with ( VAI00 varchar(38) , VAJ01 int , ROWNR int , VAI01 int , VAK01 int , BBY01 int , BDN01 varchar(2) , VAJ25 numeric(18,4) , VAJ30 numeric(9,4) , VAJ31 numeric(9,4) , VAJ59 numeric(18,6) , VAJ32 numeric(18,4) , VAJ33 numeric(18,4) , VAJ34 numeric(18,4) , VAJ35 varchar(20) , VAJ36 numeric(18,4) , VAJ37 numeric(18,4) , VAJ38 numeric(18,4) , VAJ39 smallint , VAJ61 numeric(18,4) ) If not exists(select * from #tmpVAJ1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，病人收费记录信息为空', 16, 1) with nowait RETURN 2 END If not exists(select * from #tmpVAI1 where Enabled = 0) BEGIN exec sp_xml_removedocument @iDOM --RAISERROR('提交错误，病人收费记录信息为空', 16, 1) with nowait RETURN 2 END --如果存在没有明细的单据信息则返回 If exists(select * from #tmpVAI1 where VAI00 not in(select VAI00 from #tmpVAJ1)) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，存在没有明细的单据信息，请重新检索收费信息.', 16, 1) with nowait RETURN 2 END --医保结算信息 select IDENTITY(int,1,1) AS ID, * into #tmpIAS1 from OpenXml(@iDOM,'/Root/IAS/Ie',8) with ( IBL01 int, IAS01 int, VAI01 int ) --如果存在医保结算记录，本地未传入医保支付方式，则不允许结算 If exists(select * from #tmpIAS1 a join IAS1 b on b.IAS01 = a.IAS01 where ISNULL(b.IAS45 ,0) + ISNULL(b.IAS46 , 0) > 0 ) BEGIN If not exists(select * from #tmpVBL1 where VBL15 = '03') BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，未传入已经结算的医保记帐信息.', 16, 1) with nowait RETURN 2 END END --exec sp_xml_removedocument @iDOM Declare @i int , @j int , @m int , @VAA01 int , @VAK01 int , @Count int , @CountI int , @Value int , @VAI01 int , @Result int , @VAI01A int , @VBL01 int , @ErrId int , @BCK01A int , @BCK01B int , @Enabled int , @IsHyType int , @BCE01A int , @VAK28 int , @BBP06 tinyint , @WorkType smallint , @BCE02A varchar(20) , @BCE03A varchar(20) , @WorkName varchar(20) , @VAK04 varchar(20) , @VAI00 varchar(38) , @VBL02 varchar(20) , @VAK07 numeric(18,4) , @VAK08 numeric(18,4) , @VAK09 numeric(18,4) , @VAK10 numeric(18,4) , @VCA10 numeric(18,4) , @VCA10A numeric(18,4) , @SumMoney numeric(18,4) , @CurSumMoney numeric(18,4) , @VBL13 numeric(18,4) , @CurVBL13 numeric(18,4) , @VAK17 varchar(255) , @VAK21 numeric(18,4) , @VAK23 numeric(18,4) , @VAK24 numeric(18,4) , @YbBBP02 varchar(32) , @YbMoney numeric(18,4) , @WsMoney numeric(18,4) , @OldMoney numeric(18,4) , @WsBBP02 varchar(32) , @SumVCA10 numeric(18,4) , @SumAAO05 numeric(18,4) , @SumAAO42 numeric(18,4) , @SumVAJ38 numeric(18,4) , @CashMoney numeric(18 ,4) , @RebateMoney numeric(18,4) , @RebateSumMoney numeric(18,4) , @RebateBBP02 varchar(32) select @VAA01 = VAA01,@VAA07 = VAA07 ,@WorkName = WorkName,@WorkType = WorkType,@EmpId = EmpId,@EmpNo = EmpNo,@EmpName = EmpName, @BCK01A = BCK01A ,@BCK01B = BCK01B,@BCE01A = BCE01A,@BCE02A = BCE02A,@BCE03A = BCE03A,@VAK17 = VAK17 , @VAK07 = VAK07 , @VAK09 = VAK09 , @VAK10 = VAK10 from #tmpVAA1 select @IsHyType = dbo.GetWorkingMode() /*======================================如果是会员模式，并且存在多个类型为“记帐”的支付方式，不允许========================================*/ If (dbo.GetWorkingMode() > 0) BEGIN If exists(select AAO01 from BBP1 where AAO01 = '05' and ISNULL(BBP09 , 0) = 0 group by AAO01 having COUNT(AAO01) > 1) BEGIN exec sp_xml_removedocument @iDOM RAISERROR('提交错误，会员模式下只允许一种类型为“记帐”的支付方式', 16, 1) with nowait RETURN 2 END END /*===================================================判断支付总额约结帐金额是否相等========================================================*/ If @VAK07 <> @TotalVBL BEGIN RAISERROR('提交错误，支付方式总额与结帐金额不等，请检查.', 16, 1) WITH NOWAIT Return 1 END /*=======================================如果存在医保结帐，系统存在1种以上支付方式则不让保存数据============================================*/ If Exists(SELECT * from #tmpVBL1 where VBL15 = '03') BEGIN If exists(select count(1) from BBP1 where AAO01 = '03' group by AAO01 having Count(AAO01) > 1) BEGIN RAISERROR('提交错误，系统不能同时存在1种以上医保支付方式.', 16, 1) with nowait RETURN 2 END END /*===========================================如果病人ID不存在，或者病人就诊ID不存在不让结帐==================================================*/ If (isnull(@VAA01 , 0) <=0 ) or (isnull(@VAA07 , 0) < =0) BEGIN RAISERROR('提交错误，病人信息不能为空.', 16, 1) with nowait RETURN 2 END /*==============================================判断如果明细中有已经结账的信息，则退出=======================================================*/ IF EXISTS(SELECT * FROM #tmpVAI1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.Enabled = 0 AND b.VAI16 = 2 ) BEGIN RAISERROR('待结账信息中存在已结账单据，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*==================================================判断是否是否等于现金支付+找零金额=========================================================*/ SELECT @CashMoney = SUM(ISNULL(VBL13 , 0)) from #tmpVBL1 where VBL15 ='01' SET @CashMoney = ISNULL(@CashMoney , 0) If (@VAK09 > 0 ) and (ABS(@CashMoney) > 0) BEGIN IF @VAK09 <> @CashMoney + @VAK10 BEGIN RAISERROR('实收金额不等于现金支付加找零金额，请检查.', 16, 1) with nowait RETURN 2 END END /*========================================================创建结账临时表======================================================================*/ Create Table #tmpVAK1 ( ID int IDENTITY(1,1) not null, VAK01 int, VAI01 int, VAK04 varchar(20), VAK07 numeric(18,4), VAK08 numeric(18,4), VAK17 varchar(255), VAK21 numeric(18,4), VAK23 numeric(18,4), VAK24 numeric(18,4) ) --更新明细表单据ID Update a Set a.VAI01 = b.VAI01 from #tmpVAJ1 a join #tmpVAI1 b on a.VAI00 = b.VAI00 --生成病人交款方式 SELECT * INTO #tmpNewVBL1 from #tmpVBL1 where VBL01 = -10 SET @BBP06 = 0 SELECT @YbBBP02 = VBL14 from #tmpVBL1 where VBL15 ='03' --SELECT @BBP06 = isnull(BBP06 , 0) from BBP1 where AAO01 = '03' SELECT @BBP06 = isnull(BBP06 , 0) from BBP1 where BBP02 = @YbBBP02 SELECT @WsBBP02 = VBL14 from #tmpVBL1 where VBL15 ='98' SELECT @RebateBBP02 = VBL14 from #tmpVBL1 where VBL15 ='04' SELECT @RebateSumMoney = SUM(VBL13) from #tmpVBL1 where VBL15 ='04' --针对多个结帐单据尾数金额合计为0的情况 If ISNULL(@WsBBP02 , '') = '' BEGIN select @WsBBP02 = a.BBP02 from BBP1 a join BBR1 b on b.BBP01 = a.BBP01 where b.AAN01 = '02' and a.AAO01 = '98' END --如果支付方式中医保金额与单据中医保支付总额不相同，则本地不让结帐 If (@BBP06 = 1) and exists(select * from #tmpVBL1 where VBL15 = '03') BEGIN SELECT @YbMoney = SUM(ISNULL(YbMoney , 0)) from #tmpVAI1 where Enabled = 0 SET @YbMoney = ISNULL(@YbMoney , 0) If exists(select * from #tmpVBL1 where VBL15 = '03' and VBL13 <> @YbMoney) BEGIN RAISERROR('支付方式医保金额与单据中医保支付总额不相同，请联系医保开发工程师.', 16, 1) with nowait RETURN 2 END END --可以自动分配的支付方式临时表(除医保和系统减免及尾数类型的支付方式) SELECT IDENTITY(int,1,1) AS ID, * INTO #tmpVBL2 from #tmpVBL1 where (VBL15 <> '03' or (VBL15 = '03' and @BBP06 = 0)) and (VBL15 <> '98') --and (VBL15 <> '04') --2014.02.26，此处要区分系统减免还是手工输入减免金额 If exists(select * from #tmpVAJ1 where VAJ38 <> VAJ61) BEGIN Delete from #tmpVBL2 where VBL15 = '04' END /*===================================================================生成结账、病人交款、明细临时表=============================================================*/ SELECT @i = 0 , @Count = count(1) from #tmpVAI1 WHILE @i < @Count BEGIN SELECT @VAI01 = VAI01, @VAI00 = VAI00 , @Enabled = Enabled , @VAK08 = SumMoney, @SumMoney = SumMoney , @YbMoney = Isnull(YbMoney,0), @WsMoney = OldMoney - SumMoney - isnull(YbMoney ,0) , @OldMoney = Isnull(OldMoney ,0) from #tmpVAI1 where [ID] = @i + 1 SELECT @VAK07 = SUM(VAJ38) , @RebateMoney = SUM(VAJ38 - VAJ61) from #tmpVAJ1 where VAI00 = @VAI00 SET @RebateMoney = ISNULL(@RebateMoney ,0) SELECT @m = 0,@CountI = count(1) from #tmpVBL2 IF @Enabled = 0 --要结账的单据 BEGIN Exec @ErrId = Core_NewIDEx 'VAK1' , 'VAK01' , @VAK01 out IF @ErrId > 0 BEGIN Return 1 END SET @VAK04 = '000000000' SET @VAK04 = @VAK04 + Cast(@VAK01 AS VARCHAR) SET @VAK04 = 'K' + SUBSTRING(@VAK04, Len(@VAK04) - 9, 10) SELECT @VAK21 = sum(VAJ36) , @VAK23 = sum(VAJ38) ,@SumVAJ38 = sum(VAJ38) ,@VAK24 = sum(VAJ61) from VAJ1 where VAI01 = @VAI01 and VAJ05 = 1 --如果判断前台传过来的金额与后台不符，则提示 If @OldMoney <> @SumVAJ38 BEGIN RAISERROR('提交错误，单据金额与前台金额不符，请重新检索...', 16, 1) with nowait RETURN 2 END --如果没有结账备注信息，则写入默认的备注信息 IF isnull(@VAK17,'') = '' BEGIN SET @VAK17 = @WorkName END --判断如果尾数处理大于1,则退出 If ABS(@VAK07 - @VAK08 - @YbMoney) >= 1 BEGIN RAISERROR('提交错误，尾数处理金额不能大于1.', 16, 1) with nowait RETURN 2 END INSERT INTO #tmpVAK1(VAK01 , VAI01 ,VAK04 , VAK07 , VAK08 , VAK17 , VAK21 , VAK23 , VAK24) SELECT @VAK01 ,@VAI01 , @VAK04 ,@VAK07 - @VAK08 - @YbMoney ,@VAK08 + @YbMoney , @VAK17 , @VAK21 , @VAK23 , @VAK24 --循环写入病人交款记录 WHILE @m < @CountI BEGIN SET @SumMoney = @SumMoney - @RebateMoney SET @CurSumMoney = @SumMoney Select @CurVBL13= VBL13,@VBL13 = VBL13 from #tmpVBL2 where [ID] = @m + 1 --当前支付方式分配完毕继续下次循环 If @VBL13 = 0 BEGIN SET @m= @m + 1 CONTINUE END Set @SumMoney = @SumMoney - @VBL13 Set @VBL13 =@VBL13 - @CurSumMoney Set @CurSumMoney = @CurSumMoney - @CurVBL13 If @VBL13 < 0 set @VBL13 = 0 --生成病人交款ID及流水号 Exec @ErrId = Core_NewIdEx 'VBL1','VBL01',@Value out IF @ErrId > 0 BEGIN Return 1 END SET @VBL02 = '000000000' SET @VBL02 = @VBL02 + Cast(@Value AS VARCHAR) SET @VBL02 = 'L' + SUBSTRING(@VBL02, Len(@VBL02) - 9, 10) --插入数据 INSERT INTO #tmpNewVBL1 (VBL01 , VAK01 , VBL02 , VBL11 , VBL13 , VBL14 , VBL15 , VBU01 , FAF01 , BAQ03) SELECT @Value , @VAK01 , @VBL02 , VBL11 , @CurVBL13 - @VBL13 , VBL14 , VBL15 , VBU01 , FAF01 , BAQ03 from #tmpVBL2 where [ID] = @m + 1 --如果当前支付方式大于本次结账金额 IF @VBL13 > 0 BEGIN update #tmpVBL2 set VBL13 = @VBL13 where [ID]=@m + 1 break END Else --当前支付方式小于等于本次结账金额 BEGIN update #tmpVBL2 set VBL13 = 0 where [ID] = @m + 1 set @m = @m + 1 continue END END END --更新明细临时表结账ID Update #tmpVAJ1 SET VAK01 = @VAK01 where VAI01 = @VAI01 --如果当前单据有医保记账，保存医保记账方式 If (isnull(@YbBBP02 ,'') <> '') and (@YbMoney > 0) and (@BBP06 = 1) and (@Enabled = 0) BEGIN --生成病人交款ID及流水号 Exec @ErrId = Core_NewIdEx 'VBL1','VBL01',@Value out IF @ErrId > 0 BEGIN Return 1 END SET @VBL02 = '000000000' SET @VBL02 = @VBL02 + Cast(@Value AS VARCHAR) SET @VBL02 = 'L' + SUBSTRING(@VBL02, Len(@VBL02) - 9, 10) --插入数据 INSERT INTO #tmpNewVBL1 (VBL01 , VAK01 , VBL02 , VBL11 , VBL13 , VBL14 , VBL15 ) SELECT @Value , @VAK01 , @VBL02 , '' , @YbMoney , @YbBBP02 , '03' END --如果有尾数处理金额，写入尾数处理 If (Isnull(@WsBBP02,'') <> '') and (ABS(@WsMoney) > 0) and (@Enabled = 0) BEGIN --生成病人交款ID及流水号 Exec @ErrId = Core_NewIdEx 'VBL1','VBL01',@Value out IF @ErrId > 0 BEGIN Return 1 END SET @VBL02 = '000000000' SET @VBL02 = @VBL02 + Cast(@Value AS VARCHAR) SET @VBL02 = 'L' + SUBSTRING(@VBL02, Len(@VBL02) - 9, 10) --插入数据 INSERT INTO #tmpNewVBL1 (VBL01 , VAK01 , VBL02 , VBL11 , VBL13 , VBL14 , VBL15 ) SELECT @Value , @VAK01 , @VBL02 , '' , @WsMoney , @WsBBP02 , '98' END --如果有减免类型支付金额，保存减免支付方式 If (Isnull(@RebateBBP02,'') <> '') and (ABS(@RebateMoney) > 0) and (@Enabled = 0) BEGIN --生成病人交款ID及流水号 Exec @ErrId = Core_NewIdEx 'VBL1','VBL01',@Value out IF @ErrId > 0 BEGIN Return 1 END SET @VBL02 = '000000000' SET @VBL02 = @VBL02 + Cast(@Value AS VARCHAR) SET @VBL02 = 'L' + SUBSTRING(@VBL02, Len(@VBL02) - 9, 10) --插入数据 INSERT INTO #tmpNewVBL1 (VBL01 , VAK01 , VBL02 , VBL11 , VBL13 , VBL14 , VBL15 ) SELECT @Value , @VAK01 , @VBL02 , '' , @RebateMoney, @RebateBBP02 , '04' END set @i = @i + 1 END /*====================如果存在尾数处理，并且金额大于1，提示错误============================*/ If exists(select * from #tmpNewVBL1 where VBL15 = '98' and ABS(VBL13) > 1) BEGIN RAISERROR('提交错误，尾数金额不能大于1，请检查.', 16, 1) with nowait RETURN 2 END SELECT top 1 @VAK28 = VAK01 from #tmpVAK1 BEGIN TRAN --开始一个事物 /*====================================================================保存病人结账信息及交款信息==================================================================*/ --插入结账数据 INSERT INTO VAK1(VAK01, VAA01, VAA07, VAI04, FAB03, VAK06, VAK07, VAK08, VAK09, VAK10, BCE02A, BCE03A, VAK13, VAK01A, VAK15, VAK16, VAK17, VAK18, VAK19 , VAK20 , VAK21 , VAK23 , VAK24 , BCE01A , VAK28) SELECT VAK01, @VAA01, @VAA07, VAK04, '', 2, VAK07, VAK08, @VAK09, @VAK10, @EmpNo, @EmpName, getdate(), 0, getdate(), getdate(), VAK17,0, 1 , 0 , VAK21 , VAK23 , VAK24 ,@EmpId , @VAK28 from #tmpVAK1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入病人结帐单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --插入病人缴款数据 INSERT INTO VBL1(VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, VBL11 ,VBL12, VBL13 , VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, VBL27 , VBU01 , FAF01 ,BAQ03 ) Select VBL01, VBL02 ,'', 3, 0, @VAA01, @VAA07, @DeptId, VBL11 , @WorkName, VBL13, VBL14, VBL15, VAK01, 0, getdate(), getdate(), 0, @EmpID, @EmpNo, @EmpName, 0, 0, 0, 2 , VBU01 , ISNULL(FAF01 , 0) , BAQ03 from #tmpNewVBL1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入病人交款记录时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END /*======================================积分消费和现金支付产生积分================================================================================*/ DECLARE @VBU01 int,@tmpVBL01 int SELECT @VBU01=VBU01 FROM VAA1 where VAA01 = @VAA01 IF @VBU01>0 BEGIN DECLARE @Exchange numeric(18,2) --会员积分支付 SELECT @Exchange=-SUM(VBL13) FROM #tmpNewVBL1 WHERE VBL15='43' SELECT @tmpVBL01=VBL01 FROM #tmpNewVBL1 WHERE VBL15='43' IF ISNULL(@Exchange,0)<>0 AND ISNULL(@tmpVBL01,0)>0 BEGIN EXEC @ErrId=Customer_VBU17_DESC @VBU01,13,@VAK01,@tmpVBL01,@Exchange,@EmpName IF @ErrId>0 OR @@ERROR<>0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('会员客户积分支付时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END --会员非帐户支付时也产生积分 IF dbo.GetCRMMode()=2--伊莱美：药品、检验不送积分 BEGIN DECLARE @Exchange2 numeric(18,2) --不能送积分的支付方式合计 SELECT @Exchange=SUM(VBL13) FROM #tmpNewVBL1 WHERE VBL15 NOT IN('01','02','03','05') --能送积分的项目合计 SELECT @Exchange2=SUM(VAJ38) FROM #tmpVAJ1 WHERE BDN01>'4' AND BDN01<>'L' SET @Exchange=ISNULL(@Exchange2,0)-ISNULL(@Exchange,0) END ELSE SELECT @Exchange=SUM(VBL13) FROM #tmpNewVBL1 WHERE VBL15 IN('01','02','03','05') IF ISNULL(@Exchange,0)>0 BEGIN EXEC @ErrId=Customer_VBU17_INC @VBU01,11,0,@VAK01,0,@Exchange,@EmpName IF @ErrId>0 OR @@ERROR<>0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('会员客户现金交易产生积分时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END --卡消费时自动升级 IF ISNULL(@Exchange , 0)>0 BEGIN EXEC @ErrId=Customer_Upgrade_update @VBU01,@EmpId,@EmpName IF @ErrId>0 OR @@ERROR<>0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('卡消费自动升级时发生错误。',16,1) WITH NOWAIT RETURN 1 END END END /*======================================如果病人持卡消费，对于当前已经扣费的金额返还到病人卡上，然后再进行扣费====================================*/ IF exists(select * from VBU1 where VAA01 = @VAA01) and (@IsHyType > 0) BEGIN --如果该病人存在会员交易跟踪记录 If exists(select * from VCA1 where VAA07 = @VAA07 and ACF01 = 1) BEGIN select @SumVCA10 = -sum(VCA10) from VCA1 a join #tmpVAI1 b on b.VAI01 = a.VAI01 where b.Enabled = 0 END SELECT @SumAAO05 = sum(Isnull(VBL13 , 0)) from #tmpVBL1 a ,BBP1 b where a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and VBL15 = '05' /*======================================================退还已扣费金额到病人卡上=======================================================*/ If abs(ISNULL(@SumVCA10 , 0)) > 0 BEGIN SELECT @i = 0 , @Count = count(1) from #tmpVAK1 WHILE @i < @Count BEGIN SELECT @VAI01 = VAI01 , @VAK01 = VAK01 from #tmpVAK1 where [ID] = @i + 1 If exists(select * from VCA1 where VAI01 = @VAI01 ) BEGIN SELECT @VCA10 = -VCA10 from VCA1 where VAI01 = @VAI01 --找出当前单据对应的销帐记录 SELECT @VCA10A = -sum(ISNULL(VCA10 , 0) ) from VCA1 a join VAI1 b on b.VAI01 = a.VAI01 where b.VAI01A = @VAI01 SET @VCA10 = ISNULL(@VCA10 , 0) + ISNULL(@VCA10A ,0) If ABS(@VCA10) > 0 BEGIN Exec HORate_CardCharge_Update @VAA01 , @VAA07 , @VAI01 , 1 , @EmpId , 0 , @EmpNo ,@EmpName , @VCA10 , @Result out , 1 , 6 , @VAK01 If @Result = 3 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('一卡通病人退费时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END END SET @i = @i + 1 END END /*=========================================================从会员卡上扣除用卡支付部分的金额==============================================*/ If exists(select * from #tmpVBL1 a ,BBP1 b where a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and VBL15 = '05' or (VBL15 = '42' and VBU01 > 0)) BEGIN SELECT @i = 0 , @Count = count(1) from #tmpVAK1 WHILE @i < @Count BEGIN SELECT @VAI01 = VAI01 , @VAK23 = VAK23 ,@VAK01 = VAK01 from #tmpVAK1 where [ID] = @i + 1 IF exists(select * from VBL1 a, BBP1 b where VAK01 = @VAK01 and a.VBL14 = b.BBP02 and ISNULL(b.BBP09 ,0) = 0 and (VBL15 = '05' or (VBL15 = '42' and VBU01 > 0))) BEGIN SELECT @VBL01 = VBL01 from VBL1 a join BBP1 b on b.BBP02 = a.VBL14 where VAK01 = @VAK01 and VBL15 = '05' and ISNULL(b.BBP09 , 0) = 0 SELECT @SumAAO05= sum(ISNULL(VBL13 ,0)) from VBL1 a join BBP1 b on b.BBP02 = a.VBL14 where VAK01 = @VAK01 and VBL15 = '05' and ISNULL(b.BBP09 , 0) = 0 SELECT @SumAAO42 = sum(Isnull(VBL13 , 0)) from VBL1 where VAK01 = @VAK01 and VBL15 = '42' and VBU01 > 0 IF ISNULL(@VBL01 , 0) = 0 SELECT @VBL01 = VBL01 from VBL1 where VAK01 = @VAK01 and VBL15 = '42' and VBU01 > 0 If (ABS(ISNULL(@SumAAO05 , 0) ) > 0) or (ABS(ISNULL(@SumAAO42 , 0) ) > 0) BEGIN Exec HORate_CardCharge_Update @VAA01 , @VAA07 , @VAI01 , 1 , @EmpId , 0 , @EmpNo ,@EmpName , @SumAAO05 , @Result out , 0 , 6 , @VAK01 , @VBL01 , @SumAAO42 If @Result = 2 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN Return 1 END If @Result = 3 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('一卡通病人扣费时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END END SET @i = @i + 1 END END END /*=============================================================其他会员卡扣费===============================================================*/ If exists(select * from #tmpVCA1) BEGIN SELECT @VBL01 = Isnull(VBL01 , 0) from VBL1 a join BBP1 b on b.BBP02 = a.VBL14 WHERE VAK01 = @VAK01 and VBL15 = '05' and ISNULL(b.BBP09 , 0) = 1 Exec @ErrId = HORate_CardUpdate_Interface @Xml , @VAA01 , @VAA07 , 1 , @EmpId , @EmpName ,@Result out ,0 , 0 ,6,@VAK01 , @VBL01 If (@Result = 3) or (@ErrId > 0) BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('使用会员卡扣费时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*=========================================================更新收费单据状态============================================================*/ Update VAC1 SET VAC70 = 1 where VAC01 = @VAA07 If exists(select * from #tmpVAI1 a join VAI1 b on a.VAI01 = b.VAI01 where b.VAI16 = 9 and a.Enabled = 0) BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('病人存在已作废的费用单据，请重新检索.，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END Update a SET a.VAI16 = 2 , VAI18 = 4 from VAI1 a join #tmpVAI1 b on a.VAI01 = b.VAI01 where b.Enabled = 0 --更新单据结帐ID Update a SET a.VAK01 = b.VAK01 from VAI1 a join #tmpVAK1 b on a.VAI01 = b.VAI01 --判断如果传入得明细如果已经作废，则回滚事务 If Exists(select * from #tmpVAJ1 a join VAJ1 b on a.VAJ01 = b.VAJ01 where b.VAJ05 = 9) BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('病人费用明细不存在，请重新检索.，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --更新收费明细结账ID、状态 Update a SET a.VAJ04 = 4, a.VAJ05 = 2, a.VAK01 = b.VAK01 from VAJ1 a join #tmpVAJ1 b on a.VAI01 = b.VAI01 join #tmpVAI1 c on b.VAI01 = c.VAI01 where c.Enabled = 0 and a.VAJ05 = 1 --更新医保结算表本地结账ID Update a Set a.VAK01 = b.VAK01 from IAS1 a join #tmpVAK1 b on a.VAI01 = b.VAI01 join #tmpIAS1 c on a.IAS01 = c.IAS01 --插入医保本地关联 If exists(select * from #tmpIAS1) BEGIN DECLARE @IBL01 int SELECT @i =0 , @Count = COUNT(0) from #tmpIAS1 Exec Core_NewIDEx 'IBL1' , 'IBL01' , @IBL01 out , @Count while @i < @Count BEGIN Update #tmpIAS1 SET IBL01 = @IBL01 - @Count + @i + 1 where ID = @i + 1 SET @i = @i + 1 END INSERT INTO IBL1(IBL01 , IAS01 , VAK01) SELECT c.IBL01 , a.IAS01 , b.VAK01 from IAS1 a join #tmpVAK1 b on a.VAI01 = b.VAI01 join #tmpIAS1 c on a.IAS01 = c.IAS01 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入医保结账记录关联时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END /*=======================================================删除业务单据通知中的数据==================================================================*/ If Exists(select * from VBX1 where VAA01 = @VAA01 and VAA07 = @VAA07 and ACF01 = 1 and VBX03 = 1 and VBX04 = 2) BEGIN /*Delete from VBX1 where VBX19 in(select VAI01 from #tmpVAI1 where VAI01 > 0 and Enabled = 0) and VAA01 = @VAA01 and VAA07 = @VAA07 and ACF01 = 1 and VBX03 = 1 and VBX04 = 2 */ Update a SET VBX22 = 2 from VBX1 a join #tmpVAI1 b on b.VAI01 = a.VBX19 where b.Enabled = 0 and a.VAA01 = @VAA01 and a.VAA07 = @VAA07 and ACF01 = 1 and VBX03 = 1 and VBX04 = 2 END /*==================================================更新CRM中对应本次就诊ID的预约记录状态为就诊====================================================*/ Update SCF1 SET SCF11 = 5 where VAA07 = @VAA07 and ACF01 = 1 /*============================================================写入客户服务日志===================================================================*/ SELECT @SCA01 = SCA01 from SCA1 where VAA01 = @VAA01 and SCA37 <> 2 If ISNULL(@SCA01 , 0) > 0 BEGIN SELECT @VAK13 = VAK13 from VAK1 where VAK01 = @VAK01 SET @SCH12 = '结帐时间：' + convert(varchar(30) , @VAK13 , 111) + ' 结帐金额：' + CAST(@TotalVBL as varchar(20)) Exec @ErrId = HOCRM_SCH1_Update @SCH01 out , @SCA01 , 0 , 'VAK1' , 'VAK01' , 106 , '门诊收费' , @SCH12 , 0 , 0 , @EmpId ,@EmpName END --更新体检费用总额表 If exists(select * from VAC1 where VAC01 = @VAA07 and VAC09 = -3) BEGIN Declare @VBM01 int Exec HORate_VBM1_Update @VBM01 out , @VAA01 , 4 , 0 , @VAK07 , 0 ,@VAA07 END /*================================================================================================================================================*/ Commit tran Select* from #tmpVAK1 GO --===================================================================================================== --Author <...Fyq> --Alter Date <...2014-10-23> --Description<...一卡通扣费过程> --2011-06-17,HHY,增加“基本帐户交易时产生积分” --2011-06-21,HHY,增加“基本帐户交易时自动升级” --2011.12.20,FYQ,扣费时增加自动结帐过程 --2012.04.12,FYQ,判断会员扣费场所 --2013.03.15,FYQ,增加调用场合医生站简易挂号 --2013.03.15,FYQ,增加简易挂号、医嘱发送根据参数允许会员卡透支扣款 --2013.07.15,FYQ,处理简易挂号不能自动结算的问题 --2013.09.10,FYQ,门诊会员扣费时判断住院冻结金额 --2014.02.25,FYQ,单条单据扣费场合传入金额后后台重新取值 --修改VCB04长度 --==================================================================================================== ALTER PROC [HORate_CardCharge_Update] @VAA01 int , @VAA07 int , @VAI01 int , @ACF01 int , @BCE01 int , @BCK01 int , @BCE02 varchar(20) , @BCE03 varchar(20) , @VAJ38 numeric(18,2) ,--基本账户扣费 @Result int out , --0=成功、1=单据已经扣费、2=余额不足、3=更新失败、4=不需要扣费 @AType tinyint = 0 , --0 = 扣费,1 = 退费 @AWorkType tinyint = 1 , --1=门诊记账，2=药房发药，3=医嘱记账，4=医技执行,5=挂号，6=门诊结账 , 7=住院结帐,8=简易挂号 @VAK01 int =0 , --结账ID，默认为0 @VBL01 int =0 ,--缴款ID，默认为0 @VCA20 numeric(18,2) = 0 ,--赠送账户扣费 @VBU01 int = 0 --会员帐号 AS Declare @VCA01 int, @IsHyType smallint , @VCB04 varchar(64) , @VBU14 numeric(18,2) , @VBU15 numeric(18,2) , @CVBU14 numeric(18,2) , @CVBU15 numeric(18,2) , @BEP06B numeric(18 ,2 ), @ErrId int , @AutoCharge int , @AutoChargePlace varchar(128) , @ChargeMoney varchar(20) , @AvailableMoney varchar(20) , @BalanceMoney varchar(20), @BlockedMoneyShow varchar(20) , @EasyRegOverDraft tinyint, @AdviceOverDraft tinyint, @BlockedMoney numeric(18,4) --如果不在会员扣费场所中，退出 SELECT @AutoChargePlace = Value from SYS_Parameters where ProductID = 9999 and ProgramID = 9999 and ParamNo = 43 IF ((@AWorkType < 5) or (@AWorkType = 8)) and exists(select * from SYS_Parameters where ProductID = 9999 and ProgramID = 9999 and ParamNo = 43) BEGIN IF @AWorkType < 5 BEGIN IF CHARINDEX(CAST(@AWorkType - 1 as varchar(1)) , ISNUll(@AutoChargePlace , '')) <= 0 BEGIN RETURN 4 END END ELSE IF @AWorkType = 8 BEGIN IF CHARINDEX('4' , ISNUll(@AutoChargePlace , '')) <= 0 BEGIN RETURN 4 END END END IF exists(select * from VCA1 where VAI01 = @VAI01 and @VAI01 > 0 and @AType = 0 and ((@AWorkType < 5) or (@AWorkType = 8))) BEGIN SET @Result = 1 RETURN 1 END SELECT @AutoCharge = Value from SYS_Parameters where ProgramID = 103010 and ParamNo = 72 SET @AutoCharge = ISNULL(@AutoCharge , 0) --如果参数选择扣费时自动结算，自动结算操作员为空，则退出 If (@AutoCharge = 1) AND ((@AWorkType < 5) or (@AWorkType = 8)) BEGIN If not exists(select * from SYS_Parameters where ProgramID = 103010 and ParamNo = 73 and Value <> '') BEGIN RAISERROR('请设置自动结算操作员.', 16, 1) with nowait Return 2 END END SET @Result = 0 --2014.02.25单条单据扣费场合系统从后台重新获取扣费金额 IF (@VAI01 > 0) and ((@AWorkType < 5) or (@AWorkType = 8)) BEGIN SELECT @VAJ38 = SUM(VAJ38) from VAJ1 WHERE VAI01 = @VAI01 and VAJ05 <>2 and (VAJ04 =2 or VAJ04 =5) END SET @VAJ38 = ISNULL(@VAJ38 , 0) SET @VCA20 = ISNULL(@VCA20 , 0) --IF (@VAJ38 = 0) AND (@VCA20 = 0 ) --BEGIN --RETURN 0 --END SELECT @IsHyType = dbo.GetWorkingMode() SELECT @BlockedMoney = dbo.GetBlockedMoney(@AWorkType , @VAA01) SELECT @BEP06B = BEP06B from VAA1 where VAA01 = @VAA01 SET @BEP06B = ISNULL(@BEP06B , 0) --如果当前单据已经扣费或者作废则退出 If exists(select * from VAI1 where VAI01 = @VAI01 and (VAI18 = 3 or VAI16 = 9 or VAK01 > 0)) AND @AWorkType < 6 BEGIN SET @Result = 1 RETURN 2 END --如果当前卡余额不足本次扣费，则退出 SELECT @VBU01 = a.VBU01 ,@VBU14 = VBU14 , @VBU15 = VBU15 , @VCB04 = VCB04 from VBU1 a JOIN VAA1 b ON a.VBU01 = b.VBU01 where b.VAA01 = @VAA01 If ISNULL(@VBU01 , 0) = 0 BEGIN RETURN 2 END SET @CVBU14 = @VBU14 SET @CVBU15 = @VBU15 SELECT @EasyRegOverDraft = ISNULL(dbo.GetSysParamValue(100,105002,260) , 0) SELECT @AdviceOverDraft = ISNULL(dbo.GetSysParamValue(100,105002,261) , 0) --判断卡余额是否够扣费(与病人门诊信用额度结合使用) IF (@AWorkType < 6) or (@AWorkType = 8) BEGIN IF ((ABS(@VAJ38) > 0) and (@VBU14 + @BEP06B - @BlockedMoney < @VAJ38)) or ((ABS(@VCA20) > 0) and (@VBU15 < @VCA20)) BEGIN --简易挂号或者医嘱允许会员卡透支扣款，此处不做判断 If ((@AWorkType <> 3) and (@AWorkType <> 8)) or ((@AWorkType = 3) and (@AdviceOverDraft = 0)) or ((@AWorkType = 8) and (@EasyRegOverDraft = 0)) BEGIN SET @Result = 2 IF (@IsHyType >= 1) and (@AWorkType < 6) BEGIN --基本余额扣费 If ABS(@VAJ38) > 0 BEGIN SET @ChargeMoney = CAST(@VAJ38 as varchar(20)) SET @BlockedMoneyShow = CAST(@BlockedMoney as varchar(20)) SET @AvailableMoney = cast((@VBU14 + @BEP06B - @BlockedMoney) as varchar(20)) SET @BalanceMoney = cast((@VAJ38 - @VBU14-@BEP06B) as varchar(20)) RAISERROR('病人余额[%s],住院冻结金额[%s],需扣会员金额[%s],差额[%s],不足扣费.', 16, 1,@AvailableMoney ,@BlockedMoneyShow, @ChargeMoney , @BalanceMoney) with nowait END --赠送余额扣费 If ABS(@VCA20) > 0 BEGIN SET @ChargeMoney = CAST(@VCA20 as varchar(20)) SET @BlockedMoneyShow = CAST(@BlockedMoney as varchar(20)) SET @AvailableMoney = cast(@VBU15 as varchar(20)) SET @BalanceMoney = cast((@VCA20 - @VBU15) as varchar(20)) RAISERROR('病人余额[%s],需扣会员金额[%s],差额[%s],不足扣费.', 16, 1,@AvailableMoney , @ChargeMoney , @BalanceMoney) with nowait END END RETURN 2 END END END ELSE BEGIN IF (@VBU14 - @BlockedMoney < @VAJ38) or ( @VBU15 < @VCA20) BEGIN SET @Result = 2 IF (@IsHyType >= 1) --and (@AWorkType <> 6) BEGIN --基本余额扣费 If ABS(@VAJ38) > 0 BEGIN SET @ChargeMoney = CAST(@VAJ38 as varchar(20)) SET @BlockedMoneyShow = CAST(@BlockedMoney as varchar(20)) SET @AvailableMoney = cast((@VBU14 - @BlockedMoney) as varchar(20)) SET @BalanceMoney = cast((@VAJ38-@VBU14) as varchar(20)) RAISERROR('病人余额[%s],住院冻结金额[%s],需扣会员金额[%s],差额[%s],不足扣费.', 16, 1,@AvailableMoney ,@BlockedMoneyShow, @ChargeMoney , @BalanceMoney) with nowait END --赠送余额扣费 If ABS(@VCA20) > 0 BEGIN SET @ChargeMoney = CAST(@VCA20 as varchar(20)) SET @AvailableMoney = cast(@VBU15 as varchar(20)) SET @BalanceMoney = cast((@VCA20-@VBU15) as varchar(20)) RAISERROR('病人余额[%s],需扣会员金额[%s],差额[%s],不足扣费.', 16, 1,@AvailableMoney , @ChargeMoney , @BalanceMoney) with nowait END END RETURN 2 END END --开始一个事物 BEGIN TRAN --更新单据状态 If @Atype = 0 --扣费 BEGIN UPDATE VAI1 SET VAI18 =3 WHERE VAI01 = @VAI01 AND VAI18 = 2 and VAI16 = 1 --更新明细状态 UPDATE VAJ1 SET VAJ04 =3 WHERE VAI01 = @VAI01 AND VAJ04 = 2 and VAJ05 = 1 END ELSE If @AType = 1 --退费 BEGIN UPDATE VAI1 SET VAI18 =3 WHERE VAI01 = @VAI01 AND VAI18 = 2 and VAI16 = 4 --更新明细状态 UPDATE VAJ1 SET VAJ04 =3 WHERE VAI01 = @VAI01 AND VAJ04 = 2 and VAJ05 = 4 END --更新支付方式的VBU01 IF isnull(@VBL01 , 0) > 0 BEGIN UPDATE VBL1 SET VBU01 = @VBU01 WHERE VBL01 = @VBL01 END --更新卡余额 IF abs(@VAJ38) > 0 --基本账户 BEGIN SET @CVBU14 = isnull(@VBU14 , 0) - @VAJ38 Update VBU1 set VBU14 = isnull(VBU14 ,0) - @VAJ38 where VBU01 = @VBU01 END IF abs(@VCA20) > 0 --赠送账户 BEGIN SET @CVBU15 = isnull(@VBU15 , 0) - @VCA20 Update VBU1 set VBU15 = isnull(VBU15 ,0) - @VCA20 where VBU01 = @VBU01 END IF @@ERROR > 0 BEGIN SET @Result = 3 IF @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 2 END --更新病人余额表 Update VBM1 set VBM05 = isnull(VBM05 , 0) + @VAJ38 where VAA01 = @VAA01 and VBM03 = 3 IF @@ERROR > 0 BEGIN SET @Result = 3 IF @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 2 END --写入会员交易跟踪 EXEC Core_NewId_VCA01 @VCA01 out INSERT INTO VCA1 (VCA01, VAA01, VAA07, ACF01, VBU01 , VCB04 ,VCA07, VAI01, VCA09 ,VCA10, VBU14, VBU15 ,BCE03, VCA18, BCE01 , VAK01 , VBL01 , VCA20) SELECT @VCA01, @VAA01, @VAA07, @ACF01, @VBU01 ,@VCB04 ,@AWorkType, @VAI01, @AType ,@VAJ38, @CVBU14 , @CVBU15 , @BCE03, getdate(), @BCE01 , @VAK01 , @VBL01 , @VCA20 --如果参数设置为自动结算，病人没有医保登记记录，调用自动结算过程 If (@AutoCharge = 1) and (@AWorkType <= 4 or @AWorkType = 8) BEGIN If not exists(select * from IAR1 where VAA01 = @VAA01 and VAA07 = @VAA07 and IAR32 = 1 and ACF01 <> 2) BEGIN DECLARE @AutoVAK01 int Exec @ErrId = HORate_VAK1_AutoCharge @VAI01 , @VCA01 , @AutoVAK01 out If @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 2 END END END --基本帐户交易时产生积分 IF @VAJ38 <> 0 --基本帐户交易额 BEGIN DECLARE @Cur_VBU17 numeric(18,2),@Style int SET @Style=@ACF01*10 --10表示门诊消费；20表示住院消费 EXEC @ErrId=Customer_VBU17_INC @VBU01,@Style,@VCA01,@VAK01,@VBL01,@VAJ38,@BCE03 IF @ErrId>0 OR @@ERROR>0 BEGIN ROLLBACK TRAN RAISERROR('基本帐户交易产生积分时发生错误。',16,1) WITH NOWAIT RETURN @@ERROR END END --基本帐户交易时自动升级 IF @VAJ38>0 --基本帐户交易额 BEGIN EXEC @ErrId=Customer_Upgrade_update @VBU01,@BCE01,@BCE03 IF @ErrId>0 OR @@ERROR>0 BEGIN ROLLBACK TRAN RAISERROR('基本帐户交易自动升级时发生错误。',16,1) WITH NOWAIT RETURN @@ERROR END END IF @@ERROR > 0 BEGIN SET @Result = 3 IF @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 2 END COMMIT TRAN GO --删除分类[病人费用管理]下脚本 delete from sys_Scripts where CategoryID=51 /*病人费用管理*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=51) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(51, 'SC51', '病人费用管理', 15, 0, 0, 0, Null) else print 'SYS_ScriptCategories.id=51 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=978) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(978, 51, 'SQL_DoctorAdvice', Null, '查出病人医嘱执行情况', 1, 1, Null, 1, 'SELECT a.VAF01 , a.VAF01A , a.VAF01B , a.VAF04 , a.VAA01 , a.VAF06 , a.VAF07 , a.BCK01A , a.ROWNR , a.VAF10 , a.VAF11 , a.BDA01 , a.BBX01 , a.VAF14 , a.VAF15 , a.BBY01 , a.VAF17 , a.VAF18 , a.VAF19 , a.VAF20 , a.VAF21 , a.VAF22 , a.VAF23 , a.BCK01B , a.VAF25 , a.VAF26 , a.VAF27 , a.VAF28 , a.VAF29 , a.VAF30 , a.VAF31 , a.VAF32 , a.VAF33 , a.VAF34 , a.VAF35 , a.VAF36 , a.VAF37 , a.VAF38 , a.BCK01C , a.BCE02A , a.BCE03A , a.VAF42 , a.BCE03B , a.BCE03C , a.VAF45 , a.BCE03D , a.VAF47 , a.BCE03E , a.BCE03F , a.VAF50 , a.VAF51 , a.VAF52 , a.VAF53 , a.VAF54 , a.VAF55 , b.BDA01 , b.BDO01 , b.BBX04 , b.BBX05 , b.BDG02 , c.BAM01 , d.BAG03 , d.BDG02A , d.BAG05 , d.BDG02B , d.BAG07 , d.BDG02C , d.BAG09 , d.BAG10 , e.BCK01, e.BCK02, e.BCK03 , f.BCE03 AS StopBCE03 , h.BCE03 AS OkBCE03 FROM VAF1 a LEFT JOIN BBX1 b ON a.BBX01 = b.BBX01 LEFT JOIN BBT1 c ON a.BBX01 = c.BBX01 LEFT JOIN BAG1 d ON a.BBY01 = d.BBY01 LEFT JOIN BCK1 e ON a.BCK01B = e.BCK01 LEFT JOIN VBG1 f ON a.VAF01 = f.VAF01 LEFT JOIN VBG1 h ON a.VAF01 = h.VAF01 LEFT JOIN VBH1 i ON a.VAF01 = i.VAF01 WHERE a.VAF36 IS NOT NULL AND a.VAF10 <> -1 AND a.VAF11 <> -1 AND a.VAA01 = %d %s ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=978 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=980) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(980, 51, 'SQL_SelectVBD1', Null, '医嘱计价内容', 1, 1, Null, 1, 'Select a.VBD01, a.VAF01, a.BBY01, a.VBD04, a.VBD05, a.VBD06, a.BCK01, a.VBD08, a.VBD09, b.VAF22, c.BBY04, c.BBY05, c.BBY06, c.BBY08, (c.BBY05 + '' '' + c.BBY06) BBYName, (c.BBY06 + ''--'' + c.BBY05) BBYSpces, d.BCK02, d.BCK03, e.BDN01, e.BDN02 From VBD1 a JOIN VAF1 b ON a.VAF01 = b.VAF01 LEFT JOIN BBY1 c ON a.BBY01 = c.BBY01 LEFT JOIN BCK1 d ON a.BCK01 = c.BCK01 JOIN BDN1 e ON c.BDN01 = e.BDN01 Where a.VAF01 = %d', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=980 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=982) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(982, 51, 'SQL_SelectVBI1', Null, '医嘱发送记录', 1, 1, Null, 1, 'SELECT a.VBI01, a.VAF01, a.VBI03, a.VBI04, a.VBI05, a.VBI06, a.VBI07, a.BCE03A, a.VBI09, a.VBI10, a.VBI11, a.VBI12, a.VBI13, a.BCK01, a.VBI15, a.BEE03, a.VBI17, a.VBI18, a.BCE03B, a.VBI20, a.VBI21, a.VBI22, a.VBI23, a.VBI24, a.BCE03C, a.VBI26, a.VBI27, a.BCE03D, a.VBI29, b.VAF22, c.BBY04, c.BBY05, c.BBY06, c.BBY08, (c.BBY05 + '' '' + c.BBY06) BBYName, d.BCK02, d.BCK03 FROM VBI1 a JOIN VAF1 b ON a.VAF01 = b.VAF01 LEFT JOIN BBY1 c ON b.BBY01 = c.BBY01 LEFT JOIN BCK1 d ON a.BCK01 = d.BCK01 WHERE a.VAF01 = %d', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=982 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=985) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(985, 51, 'SQL_SumVAJ1BBY1', Null, '病人费用：按项目分组汇总', 1, 1, Null, 1, 'Select b.BBY01, b.BBY04, b.BBY05, b.BBY06, b.BBY08, Sum(a.VAJ25) AS BBYCount, (Sum(a.VAJ25) * Sum(a.VAJ33)) AS StandardCash, (Sum(a.VAJ38) - Sum(a.VAJ37)) AS NotSettleCash From VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN VAI1 f ON a.VAI01 = f.VAI01 Where a.VAK01 = 0 AND a.VAJ09 = 0 AND a.VAJ04 > 4 And a.VAA01 = %d GROUP BY b.BBY01, b.BBY04, b.BBY05, b.BBY06, b.BBY08 Order by b.BBY01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=985 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=986) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(986, 51, 'SQL_SumVAJ1ABF1', Null, '病人费用:按费目进行汇总', 1, 1, Null, 1, 'Select c.ABF01, c.ABF02, Sum(a.VAJ25) AS BBYCount, (Sum(a.VAJ25) * Sum(a.VAJ33)) AS StandardCash, (Sum(a.VAJ38) - Sum(a.VAJ37)) AS NotSettleCash From VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN ABF1 c ON b.ABF01 = c.ABF01 LEFT JOIN VAI1 f ON a.VAI01 = f.VAI01 Where a.VAK01 = 0 AND a.VAJ09 = 0 AND a.VAJ04 > 4 And a.VAA01 = %d GROUP BY c.ABF01, c.ABF02 Order by c.ABF01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=986 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=987) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(987, 51, 'SQL_SumVAJ1ABF1M', Null, '病人费用：按分月费目进行汇总', 1, 1, Null, 1, ' Select CONVERT(VarChar(7), a.VAJ46, 21) AS VAJDate, c.ABF01, c.ABF02, Sum(a.VAJ25) AS BBYCount, (Sum(a.VAJ25) * Sum(a.VAJ33)) AS StandardCash, (Sum(a.VAJ38) - Sum(a.VAJ37)) AS NotSettleCash From VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN ABF1 c ON b.ABF01 = c.ABF01 LEFT JOIN VAI1 f ON a.VAI01 = f.VAI01 Where a.VAK01 = 0 AND a.VAJ09 = 0 AND a.VAJ04 > 4 And a.VAA01 = %d GROUP BY CONVERT(VarChar(7), a.VAJ46, 21), c.ABF01, c.ABF02 Order by VAJDate, c.ABF01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=987 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=988) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(988, 51, 'SQL_SumVAJ1ABF1D', Null, '病人费用：按分日费目汇总', 1, 1, Null, 1, ' Select CONVERT(VarChar(10), a.VAJ46, 21) AS VAJDate, c.ABF01, c.ABF02, Sum(a.VAJ25) AS BBYCount, (Sum(a.VAJ25) * Sum(a.VAJ33)) AS StandardCash, (Sum(a.VAJ38) - Sum(a.VAJ37)) AS NotSettleCash From VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN ABF1 c ON b.ABF01 = c.ABF01 LEFT JOIN VAI1 f ON a.VAI01 = f.VAI01 Where a.VAK01 = 0 AND a.VAJ09 = 0 AND a.VAJ04 > 4 And a.VAA01 = %d GROUP BY CONVERT(VarChar(10), a.VAJ46, 21), c.ABF01, c.ABF02 Order by VAJDate, c.ABF01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=988 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=989) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(989, 51, 'SQL_SumVAJABF1J', Null, '病人费用按分日单据号汇总', 1, 1, Null, 1, ' Select CONVERT(VarChar(10), a.VAJ46, 21) AS VAJDate, f.VAI04, a.BCE03D, c.ABF01, c.ABF02, Sum(a.VAJ25) AS BBYCount, (Sum(a.VAJ25) * Sum(a.VAJ33)) AS StandardCash, (Sum(a.VAJ38) - Sum(a.VAJ37)) AS NotSettleCash From VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN ABF1 c ON b.ABF01 = c.ABF01 LEFT JOIN VAI1 f ON a.VAI01 = f.VAI01 Where a.VAK01 = 0 AND a.VAJ09 = 0 AND a.VAJ04 > 4 And a.VAA01 = %d GROUP BY CONVERT(VarChar(10), a.VAJ46, 21), f.VAI04, a.BCE03D, c.ABF01, c.ABF02 Order by VAJDate, VAI04, c.ABF01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=989 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=997) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(997, 51, 'SQL_MZPatientInfo', Null, '据据门诊号、姓名、五笔、拼音、身份证等进行检索病人信息', 1, 1, ' 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 IF Object_id(''tempdb..#b'') IS NOT NULL DROP TABLE #b select a.VAA01 into #a from VAA1 a left join VBU1 d on d.VBU01 = a.VBU01 where %s = @context select a.VAA01 , MAX(a.VAC01) VAC01 , a.BCB01A , a.BCK01A , a.BCE03A , a.VAC36,a.VAC68,a.BDP02 into #b from VAC1 a join #a b on b.VAA01 = a.VAA01 group by a.VAA01 , a.BCB01A , a.BCK01A , a.BCE03A , a.VAC36,a.VAC68,a.BDP02 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.VBU01 , d.VBU14 , e.BCK01A , e.BCB01A , e.BCE03A , f.BCK03 , e.VAC36 , e.VAC01,e.VAC68 , a.BEP06B , d.VBU15 , d.VBU17 , d.VBU30,a.IAK05,e.BDP02,a.VAA47,a.VAA48,a.VAA49 From VAA1 a LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN VBU1 d on a.VBU01 = d.VBU01 LEFT JOIN #b e on e.VAA01 = a.VAA01 LEFT join BCK1 f on f.BCK01 = e.BCK01A where %s like @context and a.VAA01A = 0order by e.VAC36 desc ', 1, 'Select a.VAA01, a.VAA02, a.VAA03, a.VAA04, a.VAA05, a.VAA06, a.ABBRP, a.ABBRW, a.VAA15,a.IAK05 From VAA1 a Join (select a.VAA01, Max(b.VAC01) VAC01 From VAA1 a Join VAC1 b On a.VAA01 = b.VAA01 Group by a.VAA01) ab On a.VAA01 = ab.VAA01', '2013-11-11 11:24:55', '(8065)冯义强', 0) else print 'sys_Scripts.id=997 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1026) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1026, 51, 'SQL_PVAI1Info', Null, '病人门诊未收费的信息（根据病人ID号）', 1, 1, Null, 1, 'SELECT VAI01, Sum(VAJ37) AS SumMoney FROM VAJ1 WHERE VAK01 = 0 AND VAJ04 = 3 AND VAJ09 = 0 AND VAA01 = %d GROUP BY VAI01 ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1026 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1066) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1066, 51, 'SQL_GetVAI1', Null, '根据病人结账单据号去检索', 1, 1, Null, 1, ' SELECT a.VAK01, a.VAI04, a.VAA01, a.VAA07 FROM VAK1 a Join (Select VAK01 From VAJ1 Where BCE03A <> '''' And VAJ04 = 3 And (VAJ09 = 0 Or VAJ09 Is Null)) b ON a.VAK01 = b.VAK01 LEFT JOIN VAA1 c ON a.VAA01 = c.VAA01 WHERE a.VAI04 = %s', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1066 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1113) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1113, 51, 'SQL_FindBBY1List', Null, '费用：划价、记账、结账等收费项目列表', 1, 1, Null, 1, 'DECLARE @ACF01 int, @sSQL varchar(100) SET @ACF01 = %d SET @sSql = %s Select ISCombined = 0, BDN01, BDN02,AAS02,BBY25 , BBX01, BDO01, BBX04, BBX05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, NUnit from (SELECT b.BDN01, b.BDN02,f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @ACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.ACF01 in (@ACF01,3) AND (d.BBY04 LIKE @sSQL OR EXISTS(SELECT h.BBY01 FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (h.BCL03 LIKE @sSQL OR h.ABBRP LIKE @sSQL OR h.ABBRW LIKE @sSQL))) And %s UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.ACF01 in (@ACF01,3) AND a.BBY01 not In (Select Distinct d.BBY01 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01) And (a.BBY04 LIKE @sSQL OR EXISTS(SELECT h.BBY01 FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (h.BCL03 LIKE @sSQL OR h.ABBRP LIKE @sSQL OR h.ABBRW LIKE @sSQL))) And %s ) NorBCR1 Where BBY01 not In (Select Distinct BBY01A From BCR1) Union All Select ISCombined = 1, BDN01, BDN02,AAS02,BBY25 , BBX01, BDO01, BBX04, BBX05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, NUnit from (SELECT b.BDN01, b.BDN02,f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @ACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.ACF01 in (@ACF01,3) AND (d.BBY04 LIKE @sSQL OR EXISTS(SELECT h.BBY01 FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (h.BCL03 LIKE @sSQL OR h.ABBRP LIKE @sSQL OR h.ABBRW LIKE @sSQL))) And %s UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.ACF01 in (@ACF01,3) And a.BBY01 not In (Select Distinct d.BBY01 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01) AND (a.BBY04 LIKE @sSQL OR EXISTS(SELECT h.BBY01 FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (h.BCL03 LIKE @sSQL OR h.ABBRP LIKE @sSQL OR h.ABBRW LIKE @sSQL))) And %s ) NorBCR1 Where BBY01 In (Select Distinct BBY01A From BCR1)', '2009-06-21 17:56:10', Null, 0) else print 'sys_Scripts.id=1113 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1114) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1114, 51, 'SQL_FindBBY1Tree', Null, '费用：划价、记账、结账等收费项目树形结构', 1, 1, Null, 1, 'SELECT -cast(BDM01 AS int)AS BDO01,BDM02 AS BDO02 ,0 AS PatientID, BDM01 FROM BDM1 WHERE BDM01 < ''4'' UNION all select -BDO01 ,BDO03 ,PatientID = CASE WHEN BDO01A IS null THEN -cast(BDM01 AS int) ELSE -BDO01A end ,BDM01 from BDO1 WHERE BDM01 < ''4'' UNION ALL SELECT BCA01 AS BDO01,BCA03 AS BDO02 ,PatientID = CASE WHEN BCA01A IS null THEN -5 ELSE BCA01A END ,5 FROM BCA1 ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1114 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1121) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1121, 51, 'SQL_PatientChargelst', Null, '病人单据费用清单，（其中包含：退费记录，被退记录、收费记录等）', 1, 1, Null, 1, ' Select Cast(0 As Integer) BillID, Cast(0 As Integer) IsReMove, Cast(0 As Integer) IsStop, d.BCK01, d.BCK02, d.BCK03, c.BDN01, c.BDN02, b.BAX01, b.BAX02, b.BAX03, b.AAS01, b.ABF01, b.ABF02, b.AAS02, b.BBY01, b.BBY04, b.BBY05, b.BBY06, b.BBY08, a.VAJ01, a.VAA01, a.VAA07, a.VAI01,a.VAK01, a.VAJ04, a.VAJ05, a.ROWNR, a.VAJ15, a.VAJ23, a.VAJ24, a.VAJ25, AVG(a.VAJ24 * a.VAJ25) As CountNexts, a.VAJ26, a.VAJ27, a.VAJ28, a.VAJ30, a.VAJ31, a.VAJ32, Sum(a.VAJ33) As ChargePrice, a.VAJ34, a.VAJ35, Sum(a.VAJ36) As SuitMoney, Sum(a.VAJ37) As FactMoney, Sum(a.VAJ38) AS SettleMoney, a.VAJ39, Sum(a.VAJ40) AS ConceitMoney, Sum(a.VAJ41) AS SafetyMoney, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.VAJ46, a.VAJ47, a.VAJ57, a.VAJ09, a.VAF01, a.VAJ48, a.VAJ53, a.BCJ02, a.VAJ10, a.VAJ21, a.VAJ26, a.VAJ27 From VAJ1 a JOIN (Select aa.ABF01, dd.ABF02, aa.BBY01, aa.BBY04, aa.BBY05, aa.BBY06, aa.BBY08, bb.BAX01, bb.BAX02, bb.BAX03, cc.AAS01, cc.AAS02 From BBY1 aa Left Join BAX1 bb On aa.BAX01 = bb.BAX01 Left JOIN AAS1 cc On aa.AAS01 = cc.AAS01 LEFT JOIN ABF1 dd ON aa.ABF01 = dd.ABF01) b ON a.BBY01 = b.BBY01 Join BDN1 c On a.BDN01 = c.BDN01 Left JOIN BCK1 d ON a.BCK01D = d.BCK01 Group by d.BCK01, d.BCK02, d.BCK03, c.BDN01, c.BDN02, b.BAX01, b.BAX02, b.BAX03, b.AAS01, b.ABF01, b.ABF02, b.AAS02, b.BBY01, b.BBY04, b.BBY05, b.BBY06, b.BBY08, a.VAJ01, a.VAA01, a.VAA07, a.VAI01,a.VAK01, a.VAJ04, a.VAJ05, a.ROWNR, a.VAJ15, a.VAJ23, a.VAJ24, a.VAJ25,a.VAJ26, a.VAJ27, a.VAJ28, a.VAJ30, a.VAJ31, a.VAJ32, a.VAJ34, a.VAJ35, a.VAJ39, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.VAJ46, a.VAJ47, a.VAJ57, a.VAJ09, a.VAF01, a.VAJ48, a.VAJ53, a.BCJ02, a.VAJ10, a.VAJ21, a.VAJ26, a.VAJ27 Having 1 = 1', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1121 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1127) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1127, 51, 'SQL_PrintChargeMoney', Null, '打门诊结账费用清单：这里暂时使用；以后可能需要改动', 1, 1, Null, 1, 'Select d.BCK01 执行科室ID, d.BCK02 执行科室编码, d.BCK03 执行科室, c.BDN01 类别编码, c.BDN02 类别, b.BAX01 收入项目ID, b.BAX02 收入项目编码, b.BAX03 收入项目, b.AAS01 类型编码, b.AAS02 类型,b.ABF01 费别编码, b.ABF02 费别, b.BBY01 项目ID, b.BBY04 项目编码, b.BBY05 项目名称, b.BBY06 项目规格, b.BBY08 单位, a.VAJ01 清单ID, a.VAA01 病人ID, a.VAA07 就诊ID, a.VAI01 单据ID,a.VAK01 结账ID, a.VAJ04 清单类型, a.VAJ05 清单状态, a.ROWNR 清单序号, a.VAJ15 记账标志, a.VAJ23 中药剂数, a.VAJ24 单量, a.VAJ25 数量, AVG(a.VAJ24 * a.VAJ25) As 总量, a.VAJ26 急诊标志, a.VAJ27 婴儿费, a.VAJ30 拆扣分子, a.VAJ31 拆扣分母, a.VAJ32 全价, Sum(a.VAJ33) As 单价, a.VAJ34, a.VAJ35, Sum(a.VAJ36) As 应收金额, Sum(a.VAJ37) As 实收金额, Sum(a.VAJ38) AS 结账金额, a.VAJ39 自负标志, Sum(a.VAJ40) AS 自负金额, Sum(a.VAJ41) AS 保险金额, a.BCE03A 划价人, a.BCK01C 开单科室ID, a.BCE02B 开单人员号, a.BCE03B 开单人员, a.VAJ46 业务时间, a.VAJ47 交易时间, a.VAJ57 摘要, a.VAJ09 冲销ID, a.VAF01 医嘱ID, a.VAJ48 执行ID, a.VAJ53 执行情况, a.BCJ02 发药窗口, a.VAJ10 合单标志 From VAJ1 a JOIN (Select aa.ABF01, dd.ABF02, aa.BBY01, aa.BBY04, aa.BBY05, aa.BBY06, aa.BBY08, bb.BAX01, bb.BAX02, bb.BAX03, cc.AAS01, cc.AAS02 From BBY1 aa Left Join BAX1 bb On aa.BAX01 = bb.BAX01 Left JOIN AAS1 cc On aa.AAS01 = cc.AAS01 LEFT JOIN ABF1 dd ON aa.ABF01 = dd.ABF01) b ON a.BBY01 = b.BBY01 Join BDN1 c On a.BDN01 = c.BDN01 Left JOIN BCK1 d ON a.BCK01D = d.BCK01 Group by d.BCK01, d.BCK02, d.BCK03, c.BDN01, c.BDN02, b.BAX01, b.BAX02, b.BAX03, b.AAS01, b.ABF01, b.ABF02, b.AAS02, b.BBY01, b.BBY04, b.BBY05, b.BBY06, b.BBY08, a.VAJ01, a.VAA01, a.VAA07, a.VAI01,a.VAK01, a.VAJ04, a.VAJ05, a.ROWNR, a.VAJ15, a.VAJ23, a.VAJ24, a.VAJ25,a.VAJ26, a.VAJ27, a.VAJ28, a.VAJ30, a.VAJ31, a.VAJ32, a.VAJ34, a.VAJ35, a.VAJ39, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.VAJ46, a.VAJ47, a.VAJ57, a.VAJ09, a.VAF01, a.VAJ48, a.VAJ53, a.BCJ02, a.VAJ10, a.VAJ21, a.VAJ26, a.VAJ27 Having (a.VAJ09 = 0 Or a.VAJ09 Is Null)', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1127 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1131) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1131, 51, 'SQL_PrintVAI1', Null, '病人单据清单', 1, 1, Null, 1, ' Select b.VAK01 结账ID, b.FAB03 票据, c.BCK03 开单科室, b.BCE03B 开单人员, b.BCE03D 操作员, b.BCE03A 划价人, b.SuitCash 应收金额, b.FactCash 实收金额, a.VAI01 单据ID, a.VAI04 单据号,d.ABC02 病人费别, d.VAA03 门诊号, d.VAA05 姓名, d.ABW01 性别 ,(Cast(d.VAA10 AS Varchar(2)) + CASE d.AAU01 WHEN ''D'' THEN ''天'' WHEN ''H'' THEN ''小时'' WHEN ''M'' THEN ''月'' WHEN ''N'' THEN ''分'' else ''岁'' end) 年龄, d.VAA04 住院号, e.ABJ02 医疗付款方式 From VAI1 a Join (Select a.VAJ04, a.VAJ05, a.BCK01C, a.BCE02B, a.BCE03B, a.BCE02D, a.BCE03D, a.BCE03A, a.VAI01, a.VAK01, b.FAB03, Sum(a.VAJ36) As SuitCash, Sum(a.VAJ37) As FactCash From VAJ1 a Left Join VAK1 b On a.VAK01 = b.VAK01 Where a.BCE03A <> '''' And a.VAJ04 > 2 GROUP BY a.VAJ04, a.VAJ05, a.VAI01, a.VAK01, b.FAB03, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.BCE02D, a.BCE03D) b On a.VAI01 = b.VAI01 LEFT Join BCK1 c On b.BCK01C = c.BCK01 Join VAA1 d On a.VAA01 = d.VAA01 Left Join ABJ1 e On d.ABJ01 = e.ABJ01 Where (b.VAJ04 = 4 And a.VAI16 > 1)', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1131 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1140) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1140, 51, 'SQL_IPPAChargeBill', Null, '结账单据清单', 1, 1, Null, 1, 'Select Checked = 0, b.VAJ04, b.VAJ05, b.VAK01, b.FAB03, c.BCK03, c.BCK02, c.BCK01, b.BCE02B, b.BCE03B, b.BCE02D, b.BCE03D, b.BCE03A, Sum(b.SuitCash) SuitCash, Sum(b.FactCash) FactCash, Sum(b.SettleCash) SettleCash, a.VAK01, a.VAA01, a.VAA07, a.VAI04, a.VAK13, a.VAK01A, a.VAK17, a.VAk19, a.BCE02A, a.BCE03A, d.ABC02, d.VAA03, d.VAA05, d.ABW01, d.VAA10, d.AAU01 ,(Cast(d.VAA10 AS Varchar(2)) + CASE d.AAU01 WHEN ''D'' THEN ''天'' WHEN ''H'' THEN ''小时'' WHEN ''M'' THEN ''月'' WHEN ''N'' THEN ''分'' else ''岁'' end) PAge, d.BCQ04, d.VAA04, e.ABJ01, e.ABJ02 From VAK1 a Join (Select a.VAJ04, a.VAJ05, a.BCK01C, a.BCE02B, a.BCE03B, a.BCE02D, a.BCE03D, a.BCE03A, a.VAK01, b.FAB03, Sum(IsNull(a.VAJ36, 0)) As SuitCash, Sum(IsNull(a.VAJ37, 0)) As FactCash, Sum(IsNull(a.VAJ38, 0)) As SettleCash From VAJ1 a Left Join VAK1 b On a.VAK01 = b.VAK01 Where a.BCE03A <> '''' And a.VAJ04 > 2 GROUP BY a.VAJ04, a.VAJ05, a.VAI01, a.VAK01, b.FAB03, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.BCE02D, a.BCE03D) b On a.VAk01 = b.VAk01 LEFT Join BCK1 c On b.BCK01C = c.BCK01 Join VAA1 d On a.VAA01 = d.VAA01 Left Join ABJ1 e On d.ABJ01 = e.ABJ01 Where %s And (b.VAJ04 = 4 And a.VAk19 <= %d) And (a.VAk13 > %s And a.VAk13 < %s) %s GROUP BY b.VAJ04, b.VAJ05, b.VAK01, b.FAB03, c.BCK03, c.BCK02, c.BCK01, b.BCE02B, b.BCE03B, b.BCE02D, b.BCE03D, b.BCE03A, a.VAK01, a.VAA01, a.VAA07, a.VAI04, a.VAK13, a.VAK01A, a.VAK17, a.VAk19, a.BCE02A, a.BCE03A, d.ABC02, d.VAA03, d.VAA05, d.ABW01, d.VAA10, d.AAU01, d.BCQ04, d.VAA04, e.ABJ01, e.ABJ02 Having 1 = 1', '2009-06-21 09:37:01', Null, 0) else print 'sys_Scripts.id=1140 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1152) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1152, 51, 'SQL_EmpFADSumMoney', Null, '收费员缴款汇总语句', 1, 1, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE01 Int SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d Select BCE01, VBL14, VBL15, Sum(FirstMoney) FirstMoney, Sum(WithInMoney) WithInMoney, Sum(FirstMoney - WithInMoney) EndMoney From ( SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL24, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VAK01, 0) <> 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL13, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VBL24, 0) = 0 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, A.VBL14, A.VBL15, Sum(0) FirstMoney, Sum(IsNull(A.VBL25, 0)) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VBL17, 0) <> 0 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01) c Group by BCE01, VBL14, VBL15 HAVING (Sum(FirstMoney) <> 0 Or Sum(WithInMoney) <> 0 Or Sum(FirstMoney - WithInMoney) <> 0) ', '2009-06-12 10:34:45', Null, 0) else print 'sys_Scripts.id=1152 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1153) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1153, 51, 'SQL_EmpFADListMoney', Null, '收费员缴款明细语句', 1, 1, Null, 1, 'DECLARE @BeginTime VarChar(30), @EndTime VarChar(30), @BCE01 Int SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d SELECT B.BCK01, B.BCK02, B.BCK03, A.FAD01, A.FAD02, A.FAD01A, A.FAD04, A.BBP02, A.FAD07, A.FAD08, A.FAD09, A.FAD10, A.BCE03A, FAD12 AS CreateDate, A.FDA13, A.BCE03B, A.FAD15 , a.FAD16 FROM FAD1 a JOIN BCE1 c ON c.BCE01 = a.FAD04 JOIN BCK1 B On b.BCK01 = c.BCK01 Where a.FAD04 = @BCE01 AND EXISTS(SELECT * FROM V_VBL_FUll d WHERE d.VBL19 BETWEEN @BeginTime AND @EndTime AND d.VBL17 = a.FAD01)', '2011-02-12 09:56:09', Null, 0) else print 'sys_Scripts.id=1153 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1154) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1154, 51, 'SQL_EmpChargeMen', Null, '获得收费员信息语句', 1, 1, ' SELECT A.BCE01, A.BCE02, A.BCE03, A.ABBRP, A.ABBRW, A.BCK01, E.BCK02, E.BCK03 FROM BCE1 A JOIN BCK1 E On A.BCK01 = E.BCK01 WHERE exists (select * from BAA1 b where b.BCE01 = a.BCE01 and (B.AAA01 = ''04'' OR B.AAA01 = ''05'' OR B.AAA01 = ''06'' OR B.AAA01 = ''07'')) ', 1, '/*HHY,2011-06-13,增加本地保险审批记录未缴款收费员*/ --#Cashier SELECT A.BCE01, A.BCE02, A.BCE03, A.BCK01, E.BCK02, E.BCK03 , A.ABW01 FROM BCE1 A JOIN BCK1 E On A.BCK01 = E.BCK01 WHERE %s exists(select * from BAA1 b where b.BCE01 = a.BCE01 and (B.AAA01 = %s OR B.AAA01 = %s OR B.AAA01 = %s OR B.AAA01 = %s)) union all SELECT A.BCE01, A.BCE02, A.BCE03, A.BCK01, E.BCK02, E.BCK03 , A.ABW01 FROM BCE1 A JOIN BCK1 E On A.BCK01 = E.BCK01 where exists(select * from IBC1 where BCE01=a.BCE01 and isnull(FAD01,0)=0)', '2012-02-28 18:49:13', '(CNHIS)系统管理员', 0) else print 'sys_Scripts.id=1154 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1156) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1156, 51, 'SQL_EmpPatBeforMoney', Null, '收费员的病人预交款余额', 1, 1, Null, 1, 'SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL13, 0)) SumMoney FROM VBL1 A Where IsNull(A.VAK01, 0) = 0 AND A.VBL04 = 1 AND IsNull(A.VBL17, 0) = 0 AND (A.VBL18 >= %s And A.VBL18 <= %s) GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = %d', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1156 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1157) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1157, 51, 'SQL_EmpPatFootMoeny', Null, '收费员未缴的病人结算明细语句', 1, 1, Null, 1, 'DECLARE @BeginTime VarChar(20) DECLARE @EndTime VarChar(20) DECLARE @BCE01 Int DECLARE @BCE02A VarChar(10) SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d SET @BCE02A = '''' Select @BCE02A = BCE02 From BCE1 Where BCE01 = @BCE01 Select BCE01, VBL14, VBL15, Sum(FirstMoney) FirstMoney, Sum(WithInMoney) WithInMoney, Sum(EndMoney) EndMoney From ( SELECT A.BCE01, A.VBL14, A.VBL15, Sum(0) FirstMoney, Sum(0) WithInMoney, Sum(IsNull(A.VBL13, 0)) EndMoney FROM VBL1 A Where IsNull(A.VAK01, 0) <> 0 And IsNull(A.VBL24, 0) = 0 And IsNull(A.VBL25, 0) = 0 And (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, Cast(''[冲预交款]'' As VarChar(20)) VBL14, Cast(''99'' AS VarChar(2)) VBL15, Sum(0) FirstMoney, Sum(0) WithInMoney, Sum(IsNull(A.VBL24, 0)) EndMoney FROM VBL1 A WHERE A.VBL01 NOT IN (SELECT VBL01 FROM VBL1 A JOIN VAK1 B ON A.VAK01 = B.VAK01 WHERE A.VAK01 IN (SELECT DISTINCT VAK01 FROM VBL1) AND B.BCE02A <> @BCE02A AND (B.VAK13 >= @BeginTime And B.VAK13 <= @EndTime) AND A.VBL04 = 1) AND IsNull(A.VBL17, 0) <> 0 And (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VAK01, 0) <> 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 And Sum(IsNull(A.VBL24, 0)) <> 0 UNION ALL SELECT @BCE01, Cast(''[冲预交款]'' As VarChar(20)) VBL14, Cast(''99'' AS VarChar(2)) VBL15, Sum(0) FirstMoney, Sum(0) WithInMoney, Sum(IsNull(A.VBL24, 0)) EndMoney FROM VBL1 A JOIN VAK1 B ON A.VAK01 = B.VAK01 WHERE A.VAK01 IN (SELECT DISTINCT VAK01 FROM VBL1) AND B.BCE02A = @BCE02A AND (B.VAK13 >= @BeginTime And B.VAK13 <= @EndTime) AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 <> @BCE01 And Sum(IsNull(A.VBL24, 0)) <> 0 UNION ALL SELECT @BCE01, Cast(''[冲预交款]'' As VarChar(20)) VBL14, Cast(''99'' AS VarChar(2)) VBL15, Sum(0) FirstMoney, Sum(0) WithInMoney, Sum(IsNull(A.VBL24, 0)) EndMoney FROM VBL1 A JOIN VAK1 B ON A.VAK01 = B.VAK01 WHERE A.VAK01 IN (SELECT DISTINCT VAK01 FROM VBL1) AND B.BCE02A = @BCE02A AND (B.VAK13 >= @BeginTime And B.VAK13 <= @EndTime) AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 And Sum(IsNull(A.VBL24, 0)) <> 0) c Group by BCE01, VBL14, VBL15 HAVING Sum(EndMoney) <> 0 ', '2009-07-06 18:24:18', Null, 0) else print 'sys_Scripts.id=1157 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1159) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1159, 51, 'SQL_EmpPatRateList', Null, '收费员的病人已结账或交费，收费员未缴款的费用明细', 1, 1, Null, 1, 'DECLARE @BeginTime VarChar(20) DECLARE @EndTime VarChar(20) DECLARE @BCE02A VarChar(20) SET @BeginTime = %s SET @EndTime = %s SET @BCE02A = %s SELECT D.BAX01, D.BAX02, D.BAX03, Sum(IsNull(B.VAJ38, 0)) SumMoney FROM VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN BBY1 C ON B.BBY01 = C.BBY01 LEFT JOIN BAX1 D ON C.BAX01 = D.BAX01 WHERE A.VAK01 IN (SELECT DISTINCT VAK01 FROM VBL1) AND A.BCE02A = @BCE02A AND (A.VAK13 >= @BeginTime And A.VAK13 <= @EndTime) GROUP BY D.BAX01, D.BAX02, D.BAX03 HAVING Sum(IsNull(B.VAJ38, 0)) <> 0', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1159 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1161) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1161, 51, 'SQL_EmpBorforeMoney', Null, '收费员的未缴款的预交款部分', 1, 1, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE01 Int SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d Select BCE01, VBL14, VBL15, Sum(FirstMoney) FirstMoney, Sum(WithInMoney) WithInMoney, Sum(FirstMoney - WithInMoney) EndMoney From ( SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL13, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where IsNull(A.VBL17, 0) = 0 And (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) And IsNull(A.VAK01, 0) = 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 And Sum(IsNull(A.VBL13, 0)) <> 0 UNION All SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL24, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where IsNull(A.VBL17, 0) = 0 And (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VAK01, 0) <> 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 And Sum(IsNull(A.VBL25, 0)) = 0) c Group by BCE01, VBL14, VBL15 HAVING Sum(FirstMoney - WithInMoney) <> 0 ', '2009-06-12 12:58:17', Null, 0) else print 'sys_Scripts.id=1161 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1233) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1233, 51, 'SQL_HSPatientInfo', Null, '住院病人信息', 1, 1, Null, 1, 'DECLARE @VAA01 Int SET @VAA01 = %d Select a.VAA01 , a.VAA02 , a.VAA03 , a.VAA04 , a.VAA05 , a.VAA06 , a.ABBRP , a.ABBRW , a.ABW01 , a.VAA10 , a.AAU01 , a.VAA12 , a.ACK01 , a.VAA14 , a.VAA15 , a.VAA16 , a.ABJ01 , a.BDP02 , a.ABC02 , a.VAA20 , a.ACM02 , a.AAT02 , a.ACC02 , a.ABQ02 , a.VAA25 , a.VAA26 , a.VAA27 , a.VAA28 , a.VAA29 , a.VAA30 , a.VAA31 , a.VAA32 , a.VAA33 , a.VAA34 , a.VAA35 , a.VAA36 , a.VAA37 , a.VAA38 , a.VAA39 , a.VAA40 , a.VAA41 , a.VAA42 , a.VAA43 , a.VAA44 , a.BAQ01 , a.BAQ02 , a.VAA47 , a.VAA48 , a.VAA49 , a.VAA50 , a.VAA51 , a.VAA52 , a.VAA53 , a.VAA54 , a.VAA55 , a.VAA56 , a.VAA57 , a.BCK01A , a.VAA61 , a.VAA62 , a.BDX02 , a.VAA64 , a.VBU01 , a.VAA66 , a.VAA67 , a.IAK05 , a.IAA01 , a.BCK01B , a.BCK01C , a.BCQ04 , a.VAA75 , a.VAA76 , b.VAE01 , b.VAE02 , b.VAE11 , b.VAE26 , b.BCQ04A , b.VAE19 , b.VAE27 , b.ABV01 , b.VAE44 , b.BCK01D , b.BCE03C , c.IAK04 , c.IAK05 , c.IAK04 , c.IAK30 , d.VBL13 From VAA1 a Join (Select * from VAE1 Where VAE01 In (Select Max(a.VAE01) VAE01 From VAE1 a Join VAA1 b On a.VAA01 = b.VAA01 Where b.VAA01 = @VAA01)) b On a.VAA01 = b.VAA01 Left Join (SELECT VAA01, Sum(IsNull(VBL13, 0)) VBL13 FROM VBL1 WHERE IsNull(VAK01, 0) = 0 And VBL04 = 1 AND VBL05 < 3 AND IsNull(VBL01A, 0) = 0 AND VBL01 NOT IN (SELECT VBL01 FROM VBL1 WHERE IsNull(VBL01A, 0) <> 0) GROUP BY VAA01) d On a.VAA01 = d.VAA01 Left Join IAK1 c On a.IAK05 = c.IAK05', '2010-06-17 16:48:57', Null, 0) else print 'sys_Scripts.id=1233 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1234) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1234, 51, 'SQL_HSFindPatients', Null, '检索住院病人信息', 1, 1, Null, 1, ' Select a.VAA01 , a.VAA02 , a.VAA03 , a.VAA04 , a.VAA05 , a.VAA06 , a.ABBRP , a.ABBRW , a.ABW01 , a.VAA10 , a.AAU01 , a.VAA12 , a.ACK01 , a.VAA14 , a.VAA15 , a.VAA16 , a.ABJ01 , a.BDP02 , a.ABC02 , a.VAA20 , a.ACM02 , a.AAT02 , a.ACC02 , a.ABQ02 , a.VAA25 , a.VAA26 , a.VAA27 , a.VAA28 , a.VAA29 , a.VAA30 , a.VAA31 , a.VAA32 , a.VAA33 , a.VAA34 , a.VAA35 , a.VAA36 , a.VAA37 , a.VAA38 , a.VAA39 , a.VAA40 , a.VAA41 , a.VAA42 , a.VAA43 , a.VAA44 , a.BAQ01 , a.BAQ02 , a.VAA47 , a.VAA48 , a.VAA49 , a.VAA50 , a.VAA51 , a.VAA52 , a.VAA53 , a.VAA54 , a.VAA55 , a.VAA56 , a.VAA57 , a.BCK01A , a.VAA61 , a.VAA62 , a.BDX02 , a.VAA64 , a.VBU01 , a.VAA66 , a.VAA67 , a.IAK05 , a.IAA01 , a.BCK01B , a.BCK01C , a.BCQ04 , a.VAA75 , a.VAA76 , b.VAE01 , c.VAE02 , c.VAE11 , c.VAE26 , c.BCQ04A , c.VAE19 , c.VAE27 , c.ABV01 , c.VAE44 , Cast(0 As Numeric(18, 6)) VBL13 From VAA1 a join (select VAA01, Max(VAE01) VAE01 from VAE1 group by VAA01) b on a.VAA01 = b.VAA01 join VAE1 c on b.VAE01 = c.VAE01', '2010-06-17 16:49:21', Null, 0) else print 'sys_Scripts.id=1234 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1235) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1235, 51, 'SQL_GetcurVAK01', Null, '获得当前结账ID号(VAK01)', 1, 1, Null, 1, 'Select Distinct VAK01 From VAJ1 Where VAA01 = %d And VAI01 = %d', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1235 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1236) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1236, 51, 'SQL_GetOreguInfo', Null, '获得门诊病人的就诊ID等或住院病人的就诊ID等信息', 1, 1, Null, 1, 'DECLARE @AType Int DECLARE @VAA01 Int Set @AType = %d SET @VAA01 = %d --1:门诊;2:住院 if @AType = 1 begin Select Max(VAC01) As VAC01 From VAC1 Where VAA01 = @VAA01 end if @AType = 2 begin Select Max(VAE01) As VAE01 From VAE1 Where VAA01 = @VAA01 end', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1236 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1237) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1237, 51, 'SQL_UpFrontVBL', Null, '预交余额', 1, 1, Null, 1, 'DECLARE @VAA01 Int SET @VAA01 = %d Select VAA01, VBL04, Sum(IsNull(Cast(VBL13 AS numeric(18,6)), 0.00)) PatientSumMoney, Sum(IsNull(Cast(VBL24 AS numeric(18,6)), 0.00)) ClashedSumMoney, Sum(IsNull(Cast(VBL13 AS Numeric(18,6)), 0.00) - IsNull(Cast(VBL24 AS Numeric(18,6)), 0.00)) ClashingSumMoney, Sum(IsNull(Cast(VBL25 AS Numeric(18,6)), 0.00)) PaySumMoney, Sum(IsNull(Cast(VBL26 AS Numeric(18,6)), 0.00)) ReturnSumMoney From VBL1 WHERE IsNull(VAK01, 0) = 0 AND VAA01 = @VAA01 And IsNull(VBL01A, 0) = 0 AND VBL01 NOT IN (SELECT VBL01 FROM VBL1 WHERE IsNull(VBL01A, 0) <> 0) GROUP BY VAA01, VBL04 HAVING VBL04 = 1 And Sum(Cast(VBL13 AS numeric(18,6))) > 0 AND Sum(IsNull(Cast(VBL13 AS Numeric(18,6)), 0.00) - IsNull(Cast(VBL24 AS Numeric(18,6)), 0.00)) > 0', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1237 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1238) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1238, 51, 'SQL_EmpUpMoney', Null, '收费员的上笔收费金额', 1, 1, Null, 1, 'DECLARE @BCE02A VarChar(20) SET @BCE02A = %S Select B.VAA03, B.VAA05, Max(A.VAK13), Sum(A.VAK08) SumMoney, Sum(A.VAK09) SumFactMoney, Sum(A.VAK10) SumReturnMoeny From VAK1 A JOIN VAA1 B ON A.VAA01 = B.VAA01 Where BCE02A = BCE02A And (VAK01A = 0 Or VAK01A Is Null) And (VAK06 <> 1 And VAK19 = 2) And VAK13 = (Select TOP 1 Max(VAK13) VAK13 FROM VAK1 Where BCE02A = @BCE02A GROUP BY BCE02A) Group by A.BCE02A, B.VAA03, B.VAA05', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1238 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1239) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1239, 51, 'SQL_MZorHSLoVAI', Null, '载入门诊或住院的单据信息', 1, 1, Null, 1, 'DECLARE @AVAA01 Int DECLARE @AVAIorVAK01 Int DECLARE @CurBeginDate VarChar(10) DECLARE @CurEndDate VarChar(10) DECLARE @sSQL VarChar(1024) --1:门诊，2：住院 SET @AVAA01 = %d SET @AVAIorVAK01 = %d SET @CurBeginDate = %s SET @CurEndDate = %s SET @sSQL = %s @sSQL', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1239 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1240) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1240, 51, 'SQL_GetBBPInfo', Null, '病人结算方式情况', 1, 1, Null, 1, ' DECLARE @AAN01 VarChar(2) DECLARE @VAA01 Int DECLARE @VAK01 Int SET @AAN01 = %s SET @VAA01 = %d SET @VAK01 = %d SELECT c.AAO01, c.BBP02, Sum(c.SumMoney) SumMoney, c.BBO02, c.VBL11, d.BBP06, d.ROWNR, d.ISDEF FROM (SELECT AAO01, BBP02, CONVERT(Numeric(18, 6), 0) AS SumMoney, Cast('''' as VarChar(32)) BBO02, Cast('''' as VarChar(32)) VBL11 FROM BBP1 Join (SELECT BBP01 FROM BBR1 Where AAN01 = @AAN01) BBR1 On BBP1.BBP01 = BBR1.BBP01 LEFT JOIN (SELECT DISTINCT VBL14, Cast('''' as VarChar(32)) BBO02, Cast('''' as VarChar(32)) VBL11 FROM VBL1) VBL1 ON BBP1.BBP02 = VBL1.VBL14 UNION ALL SELECT VBL15 AAO01, VBL14 BBP02, VBL24 SumMoney, Cast('''' as VarChar(32)) BBO02, Cast('''' as VarChar(32)) VBL11 FROM VBL1 WHERE IsNull(VBL04, 0) = 1 And VAA01 = @VAA01 AND VAK01 = @VAK01 UNION ALL SELECT VBL15 AAO01, VBL14 BBP02, VBL13 SumMoney, Cast('''' as VarChar(32)) BBO02, Cast('''' as VarChar(32)) VBL11 FROM VBL1 WHERE IsNull(VBL04, 0) <> 1 And VAA01 = @VAA01 AND VAK01 = @VAK01) c Join BBP1 d On c.BBP02 = d.BBP02 GROUP BY c.AAO01, c.BBP02, c.BBO02, c.VBL11, d.BBP06, d.ROWNR, d.ISDEF ', '2009-06-26 11:41:17', Null, 0) else print 'sys_Scripts.id=1240 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1241) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1241, 51, 'SQL_HSPatientInfo', Null, '据据住院号、姓名、五笔、拼音、身份证等进行检索病人信息', 1, 1, ' SELECT a.VAA01,a.ABW01,a.ABJ01,b.ABC02,a.VAA03,a.VAA04,a.VAA05,a.ABBRP,a.ABBRW,a.VAA06,a.VAA15,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D,b.BCK01D, a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04 ,case when b.VAE04>0 then 4 else b.VAE44 end VAE44 ,b.VAE11,b.BDP02 , f.VBU01 , f.VCB04 ,b.SCF01 , b.BAQ03 FROM VAA1 a JOIN VAE1 b ON a.VAA01 = b.VAA01 JOIN BCK1 c ON b.BCK01C = c.BCK01 JOIN BCK1 m ON b.BCK01D = m.BCK01 LEFT JOIN VBM1 d ON a.VAA01 = d.VAA01 and d.VBM03 = 2 LEFT JOIN BCE1 e on b.BCE02C = e.BCE02 LEFT JOIN VBU1 f on f.VBU01 = a.VBU01 WHERE ((b.VAE44 >= 2 and b.VAE44 <= 4 and b.VAE04=0) or (b.VAE04>0)) ', 1, Null, '2013-11-15 11:03:46', '(8088)王海涛', 0) else print 'sys_Scripts.id=1241 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1242) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1242, 51, 'SQL_IIPAChargeUpHJ', Null, '住院划价或记账SQL', 1, 1, Null, 1, 'DECLARE @VAJ04 Integer DECLARE @VAJ05 Integer DECLARE @BCE03A VarChar(20) DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAJ04 = %d SET @VAJ05 = %d SET @BCE03A = %s SET @VAI13A = %s SET @VAI13B = %s Select c.BCK03, c.BCK02, c.BCK01, b.BCE02B, b.BCE03B, b.BCE02D, b.BCE03D, b.BCE03A, b.SuitCash, b.FactCash, a.VAI01, a.VAA01, a.VAA07, a.VAI04, a.VAI05, a.VAI12, a.VAI13, a.VAI14, a.VAI01A, a.VAI16, d.VAA03, d.VAA05, d.ABBRP , d.ABBRW , d.ABW01, d.VAA10, d.AAU01 ,(Cast(d.VAA10 AS Varchar(2)) + CASE d.AAU01 WHEN ''D'' THEN ''天'' WHEN ''H'' THEN ''小时'' WHEN ''M'' THEN ''月'' WHEN ''N'' THEN ''分'' else ''岁'' end) PAge, d.BCQ04, d.VAA04 From VAI1 a Join (Select BCK01C, BCE02B, BCE03B, BCE02D, BCE03D, BCE03A, VAI01, Sum(VAJ36) As SuitCash, Sum(VAJ37) As FactCash From VAJ1 Where BCE03A <> '''' And VAJ04 = @VAJ04 And VAJ05 <= @VAJ05 GROUP BY VAI01, BCE03A, BCK01C, BCE02B, BCE03B, BCE02D, BCE03D) b On a.VAI01 = b.VAI01 Left Join BCK1 c On b.BCK01C = c.BCK01 Join VAA1 d On a.VAA01 = d.VAA01 Where d.VAA61 >= 2 And (a.VAI16 <= @VAJ05) And (b.BCE03A = @BCE03A) And (a.VAI13 >= @VAI13A And a.VAI13 < @VAI13B)', '2009-09-25 16:14:58', Null, 0) else print 'sys_Scripts.id=1242 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1243) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1243, 51, 'SQL_HSFindHuaJiao', Null, '住院划价过滤SQL', 1, 1, Null, 1, 'DECLARE @VAJ04 INTEGER DECLARE @VAJ05A INTEGER DECLARE @VAJ05B INTEGER SET @VAJ04 = %d SET @VAJ05A = %d SET @VAJ05B = %d Select c.BCK03, c.BCK02, c.BCK01, b.BCE02B, b.BCE03B, b.BCE02D, b.BCE03D, b.BCE03A, b.SuitCash, b.FactCash, a.VAI01, a.VAA01, a.VAA07, a.VAI04, a.VAI05, a.VAI12, a.VAI13, a.VAI14, a.VAI01A, a.VAI16, d.VAA03, d.VAA05, d.ABW01, d.VAA10, d.AAU01 ,(Cast(d.VAA10 AS Varchar(2)) + CASE d.AAU01 WHEN ''D'' THEN ''天'' WHEN ''H'' THEN ''小时'' WHEN ''M'' THEN ''月'' WHEN ''N'' THEN ''分'' else ''岁'' end) PAge From VAI1 a Join (Select BCK01C, BCE02B, BCE03B, BCE02D, BCE03D, BCE03A, VAI01, Sum(VAJ36) As SuitCash, Sum(VAJ37) As FactCash From VAJ1 Where BCE03A <> '''' And VAJ04 = @VAJ04 And (VAJ05 = @VAJ05A Or VAJ05 = @VAJ05B) GROUP BY VAI01, BCE03A, BCK01C, BCE02B, BCE03B, BCE02D, BCE03D) b On a.VAI01 = b.VAI01 Join BCK1 c On b.BCK01C = c.BCK01 Join VAA1 d On a.VAA01 = d.VAA01 Where d.VAA61 >= 2 And (a.VAI16 = @VAJ05A Or a.VAI16 = @VAJ05B) ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1243 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1245) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1245, 51, 'SQL_DoctorDept', Null, '根据医生来决定科室', 1, 1, ' select Distinct te.BCK01, te.BCK02, te.BCK03, st.BCE01, te.ABBRP, te.ABBRW From BCE1 st Join BCK1 te On st.BCK01 = te.BCK01 LEFT Join BAZ1 td On te.BCK01 = td.BCK01 Where (td.ACF01 <> 0) And st.BCE01 = %dOrder by te.BCK01 ', 1, Null, '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1245 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1251) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1251, 51, 'SQL_AllChargeItems', Null, '所有收费项目检索--Update 2009-06-21 --Use Lyy 8039 --目的:为了门诊和住院的时候显示分别单位和单价与费用明细单位和单价不一样 --主要表有：BBY1，BBX1，BBT1，BAG1，BDN1，BCK1', 1, 1, ' Select BBY01, BBY04, BBY05, BBY06, BBY08, BBY25, BAX01, ABF01, AAS01, BDN01, BCH01, BBY18 from BBY1 Where 1 = 1 %s ', 1, 'DECLARE @ACF01 int SET @ACF01 = %d Select ISCombined = 0, BDN01, BDN02, AAS01, AAS02,BBY25 , BBX01, BDO01, BBX04 BBY04, BBX05 BBY05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, BAX01, NUnit, NUnitCount, NUnitPrice, ABF01, BCH01, BBY18 from (SELECT b.BDN01, b.BDN02, f.AAS01, f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05, a.BDG02, e.BAP02, e.BBT10, e.BBT11, d.BBY06, d.BBE02, d.BBY01, d.BBY08, d.BAX01 , CASE WHEN @ACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , CASE WHEN @ACF01=1 THEN c.BAG05 ELSE c.BAG07 end as NUnitCount , (CASE WHEN @ACF01=1 THEN c.BAG05 ELSE c.BAG07 end) * d.BBY25 AS NUnitPrice, d.ABF01, d.BCH01, d.BBY18 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.ACF01 in (@ACF01,3) UNION ALL SELECT b.BDN01, b.BDN02, f.AAS01, f.AAS02,a.BBY25, a.BBY01, a.BCA01, a.BBY04, a.BBY05, '''', '''', 0,0, a.BBY06, a.BBE02, a.BBY01, a.BBY08, a.BAX01 , a.BBY08 AS NUnit, NUnitCount = 1, a.BBY25 as NUnitPrice, a.ABF01, a.BCH01, a.BBY18 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.ACF01 in (@ACF01,3) AND a.BBY01 Not In (Select Distinct d.BBY01 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01) ) NorBCR1 Where BBY01 not In (Select Distinct BBY01A From BCR1) Union All Select ISCombined = 1, BDN01, BDN02, AAS01, AAS02, BBY25 , BBX01, BDO01, BBX04 BBY04, BBX05 BBY05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, BAX01, NUnit, NUnitCount, NUnitPrice, ABF01, BCH01, BBY18 from (SELECT b.BDN01, b.BDN02, f.AAS01, f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05, a.BDG02, e.BAP02, e.BBT10, e.BBT11, d.BBY06, d.BBE02, d.BBY01, d.BBY08, d.BAX01 , CASE WHEN @ACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , CASE WHEN @ACF01=1 THEN c.BAG05 ELSE c.BAG07 end as NUnitCount , (CASE WHEN @ACF01=1 THEN c.BAG05 ELSE c.BAG07 end) * d.BBY25 AS NUnitPrice, d.ABF01, d.BCH01, d.BBY18 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.ACF01 in (@ACF01,3) UNION ALL SELECT b.BDN01, b.BDN02, f.AAS01, f.AAS02,a.BBY25, a.BBY01, a.BCA01, a.BBY04, a.BBY05, '''', '''', 0,0, a.BBY06, a.BBE02, a.BBY01, a.BBY08, a.BAX01 , a.BBY08 AS NUnit, NUnitCount = 1, a.BBY25 as NUnitPrice, a.ABF01, a.BCH01, a.BBY18 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.ACF01 in (@ACF01,3) AND a.BBY01 Not In (Select Distinct d.BBY01 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01) ) NorBCR1 Where BBY01 In (Select Distinct BBY01A From BCR1)', '2009-06-21 17:28:31', Null, 0) else print 'sys_Scripts.id=1251 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1262) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1262, 51, 'SQL_Tree_Item_BBX1', Null, '树形:收费项目,药品', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBDO01 int, @lSql varchar(100) SET @lACF01 = %d SET @lBDO01 = %d SET @lSql = %s Select ISCombined = 0, BDN01, BDN02, AAS02, BBY25 , BBX01, BDO01, BBX04, BBX05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, NUnit From ( SELECT e.BDN01, e.BDN02,f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05 , a.BDG02, b.BAP02, b.BBT10, b.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit FROM BBX1 a JOIN BBT1 b ON a.BBX01 = b.BBX01 JOIN BAG1 c ON b.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 e ON d.BDN01 = e.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE a.BDO01 = @lBDO01 and d.ACF01 in (@lACF01,3) AND (d.BBY04 LIKE @lSql OR (EXISTS(SELECT g.BBY01 FROM BCL1 g WHERE g.BBY01=d.BBY01 AND (g.BCL03 LIKE @lSql OR g.ABBRP LIKE @lSql OR g.ABBRW LIKE @lSql)))) ) NotInBCR Where BBY01 Not In (Select Distinct BBY01A From BCR1) Union All Select ISCombined = 1, BDN01, BDN02, AAS02, BBY25 , BBX01, BDO01, BBX04, BBX05 , BDG02, BAP02, BBT10, BBT11 , BBY06, BBE02, BBY01, BBY08, NUnit From ( SELECT e.BDN01, e.BDN02,f.AAS02,d.BBY25 , a.BBX01, a.BDO01, a.BBX04, a.BBX05 , a.BDG02, b.BAP02, b.BBT10, b.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit FROM BBX1 a JOIN BBT1 b ON a.BBX01 = b.BBX01 JOIN BAG1 c ON b.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 e ON d.BDN01 = e.BDN01 JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE a.BDO01 = @lBDO01 and d.ACF01 in (@lACF01,3) AND (d.BBY04 LIKE @lSql OR (EXISTS(SELECT g.BBY01 FROM BCL1 g WHERE g.BBY01=d.BBY01 AND (g.BCL03 LIKE @lSql OR g.ABBRP LIKE @lSql OR g.ABBRW LIKE @lSql)))) ) InBCR Where BBY01 In (Select Distinct BBY01A From BCR1) ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1262 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1263) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1263, 51, 'SQL_Tree_Item_BBX1B', Null, '树形：收费项目、药品', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBCA01 int, @lSql varchar(100) SET @lACF01 = %d SET @lBCA01 = %d SET @lSql = %s Select ISCombined = 0, BDN01, BDN02, AAS02, BBY25 , BBX01, BDO01, BBX04, BBX05, BBY06, BBE02, BBY01, BBY08 AS BDG02, BBY08, NUnit From (SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 ,a.BBY01 AS BBX01,a.BCA01 AS BDO01,a.BBY04 AS BBX04,a.BBY05 AS BBX05 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.BCA01 = @lBCA01 and a.ACF01 in (@lACF01,3) AND (a.BBY04 LIKE @lSql OR (EXISTS(SELECT c.BBY01 FROM BCL1 c WHERE c.BBY01=a.BBY01 AND (c.BCL03 LIKE @lSql OR c.ABBRP LIKE @lSql OR c.ABBRW LIKE @lSql)))) ) NotInBCR Where BBY01 NOT IN (Select Distinct BBY01A From BCR1) Union ALL Select ISCombined = 1, BDN01, BDN02, AAS02, BBY25 , BBX01, BDO01, BBX04, BBX05, BBY06, BBE02, BBY01, BBY08 AS BDG02, BBY08, NUnit From (SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 ,a.BBY01 AS BBX01,a.BCA01 AS BDO01,a.BBY04 AS BBX04,a.BBY05 AS BBX05 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.BCA01 = @lBCA01 and a.ACF01 in (@lACF01,3) AND (a.BBY04 LIKE @lSql OR (EXISTS(SELECT c.BBY01 FROM BCL1 c WHERE c.BBY01=a.BBY01 AND (c.BCL03 LIKE @lSql OR c.ABBRP LIKE @lSql OR c.ABBRW LIKE @lSql)))) ) InBCR Where BBY01 IN (Select Distinct BBY01A From BCR1)', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1263 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1265) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1265, 51, 'SQL_ChargeDateTime', Null, '获得结账的费用期间', 1, 0, Null, 1, 'DECLARE @VAA01 Int SET @VAA01 = %d Select Min(VAI13) MinVAI13, Max(VAI13) MaxVAI13 From VAI1 Where VAA01 = @VAA01 And VAI01 In (Select VAI01 From VAJ1 Where VAA01 = @VAA01 And IsNull(VAK01, 0) = 0 And VAJ04 <> 4 And VAJ05 < 3 And IsNULL(VAJ09, 0) = 0 And VAJ01 NOT In (Select VAJ09 From VAJ1 Where VAA01 = @VAA01 And IsNull(VAJ09, 0) <> 0)) ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1265 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1287) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1287, 51, 'SQL_PrintEmployees', Null, '打印缴款收费员的信息', 1, 0, Null, 1, 'DECLARE @BCE01 Int SET @BCE01 = %d Select BCE01 收费员ID , A.BCE02 编码 , A.BCE03 姓名 , A.BCE04 英文名 , A.BCE05 称谓 , A.BCE06 曾用名 , A.ABBRP 拼音 , A.ABBRW 五笔 , (Case A.ABW01 When 0 then ''未知'' When 1 then ''男'' When 2 THEN ''女'' END) 性别 , (CASE A.ACK01 WHEN 1 THEN ''未婚'' WHEN 2 THEN ''未婚'' WHEN 3 THEN ''丧偶'' WHEN 4 THEN ''离婚'' WHEN 9 THEN ''其他'' END) 婚姻 , A.BCE11 身份证号 , B.ABQ02 民族 , B.ABQ03 民族简码 , A.BCE13 出生日期 , C.BCK01 部门ID , C.BCK02 部门编码 , c.BCK03 部门 , D.ACP02 政治面貌 , E.AAY02 学历 , F.ACT02 学位 , A.BCE18 毕业学校 , A.BCE19 毕业时间 , G.AAD02 所学专业 , H.ABG02 事专业 , A.BCE24 户口所在地 , J.ABS02 行政职务 , K.ABI02 技术职务 , L.AAH02 聘任职务 , A.BCE28 工作日期 , M.AAQ02 执业类别 , N.ABE02 执业范围 , A.BCE31 进院日期 , A.BCE32 离职日期 , A.BCE33 离职说明 , A.BCE34 住址 , A.BCE35 办公电话 , A.BCE36 联系电话 , A.BCE37 移动电话 , A.BCE38 电子邮箱 , A.BCE39 备注 , A.BCE40 留学时间 , (Case A.BCE41 When 1 then ''在职'' when 2 then ''离职'' when 3 then ''退休'' end) 状态 , A.BCE42 姓氏 FROM BCE1 A LEFT JOIN ABQ1 B On A.ABQ01 = B.ABQ01 LEFT JOIN BCK1 C ON A.BCK01 = C.BCK01 LEFT JOIN ACP1 D ON A.ACP01 = D.ACP01 LEFT JOIN AAY1 E ON A.AAY01 = E.AAY01 LEFT JOIN ACT1 F ON A.ACT01 = F.ACT01 LEFT JOIN AAD1 G ON A.AAD01 = G.AAD01 LEFT JOIN ABG1 H ON A.ABG01 = H.ABG01 LEFT JOIN ABS1 J ON A.ABS01 = J.ABS01 LEFT JOIN ABI1 K ON A.ABI01 = K.ABI01 LEFT JOIN AAH1 L ON A.AAH01 = L.AAH01 LEFT JOIN AAQ1 M ON A.AAQ01 = M.AAQ01 LEFT JOIN ABE1 N ON A.ABE01 = N.ABE01 WHERE A.BCE01 = @BCE01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1287 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1288) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1288, 51, 'SQL_PrintCaptures', Null, '打印缴款收费员的缴款合计以及末期暂存等', 1, 0, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE01 Int DECLARE @BCE02 VarChar(10) DECLARE @BCE03 VarChar(20) SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d --名称, 11=现金, 12=支票, 13=国家补助, 14=医疗帐户, 21=银行卡, 22=信用卡, 31=个人帐户, 99=[冲预交款] SELECT @BCE02 = BCE02, @BCE03 = BCE03 FROM BCE1 WHERE BCE01 = @BCE01 Select @BeginTime 费用开始时间, @EndTime 费用结束时间, BCE01 收费员ID, @BCE02 收费员编, @BCE03 收费员, VBL14 结算方式, (CASE VBL15 WHEN ''11'' THEN ''现金'' When ''12'' then ''支票'' when ''13'' then ''国家补助'' when ''14'' then ''银行卡'' when ''22'' then ''信用卡'' when ''31'' then ''个人账户'' when ''99'' then ''[冲预交款]'' end) 结算类型 , Sum(FirstMoney) 初期暂存金额, Sum(WithInMoney) 缴款合计, Sum(FirstMoney - WithInMoney) 末期暂存金额 From ( SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL24, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VAK01, 0) <> 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, A.VBL14, A.VBL15, Sum(IsNull(A.VBL13, 0)) FirstMoney, Sum(0) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VBL24, 0) = 0 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, A.VBL14, A.VBL15, Sum(0) FirstMoney, Sum(IsNull(A.VBL25, 0)) WithInMoney, Sum(0) EndMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VBL17, 0) <> 0 GROUP BY A.BCE01, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01) c Group by BCE01, VBL14, VBL15 HAVING (Sum(FirstMoney) <> 0 Or Sum(WithInMoney) <> 0 Or Sum(FirstMoney - WithInMoney) <> 0) ', '2009-06-12 13:04:00', Null, 0) else print 'sys_Scripts.id=1288 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1289) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1289, 51, 'SQL_PrintCaptureType', Null, '打印缴款汇总情况(根据收费情况进行)', 1, 0, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE01 Int DECLARE @BCE02 VarChar(10) DECLARE @BCE03 VarChar(20) SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d --名称, 11=现金, 12=支票, 13=国家补助, 14=医疗帐户, 21=银行卡, 22=信用卡, 31=个人帐户, 99=[冲预交款] SELECT @BCE02 = BCE02, @BCE03 = BCE03 FROM BCE1 WHERE BCE01 = @BCE01 Select @BeginTime 费用开始时间, @EndTime 费用结束时间, BCE01 收费员ID, @BCE02 收费员编, @BCE03 收费员, (CASE VBL04 WHEN 1 THEN ''预交款'' WHEN 2 THEN ''挂号费'' WHEN 3 THEN ''门诊费'' WHEN 4 THEN ''住院费'' END) 费用类型, VBL14 结算方式, (CASE VBL15 WHEN ''11'' THEN ''现金'' WHEN ''12'' THEN ''支票'' WHEN ''13'' THEN ''国家补助'' WHEN ''14'' THEN ''银行卡'' WHEN ''22'' THEN ''信用卡'' WHEN ''31'' THEN ''个人账户'' WHEN ''99'' THEN ''[冲预交款]'' END) 结算类型 , Sum(SumMoney) 金额 From ( SELECT A.BCE01, A.VBL04, A.VBL14, A.VBL15, Sum(IsNull(A.VBL24, 0)) SumMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VAK01, 0) <> 0 AND A.VBL04 = 1 GROUP BY A.BCE01, A.VBL04, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01 UNION ALL SELECT A.BCE01, A.VBL04, A.VBL14, A.VBL15, Sum(IsNull(A.VBL13, 0)) SumMoney FROM VBL1 A Where (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime) AND IsNull(A.VBL24, 0) = 0 GROUP BY A.BCE01, A.VBL04, A.VBL14, A.VBL15 HAVING A.BCE01 = @BCE01) c GROUP BY BCE01, VBL04, VBL14, VBL15 HAVING Sum(SumMoney) <> 0', '2009-06-12 13:04:41', Null, 0) else print 'sys_Scripts.id=1289 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1290) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1290, 51, 'SQL_EmpCaptureList', Null, '打印收费员缴款明细情况', 1, 0, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE01 Int DECLARE @BCE02 VarChar(10) DECLARE @BCE03 VarChar(20) SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d SELECT @BCE02 = BCE02, @BCE03 = BCE03 FROM BCE1 WHERE BCE01 = @BCE01 SELECT @BeginTime 费用开始时间, @EndTime 费用结束时间, B.BCK01 部门ID, B.BCK02 部门编码, B.BCK03 部门名称, A.FAD01 缴款ID, A.FAD02 缴款单号, A.FAD01A 冲销缴款ID, @BCE01 收费员ID, @BCE02 收费员编, @BCE03 收费员, A.BBP02 结算方式, A.FAD07 结算号, A.FAD08 金额, A.FAD09 摘要, A.FAD10 截止时间, A.BCE03A 操作员, (CONVERT(VarChar(4), A.FAD12, 120 ) + ''年'' + Substring(CONVERT(VarChar(10), A.FAD12, 120 ), 6, 2) + ''月'' + Substring(CONVERT(VarChar(10), A.FAD12, 120 ), 9, 2) + ''日'') 创建日期, A.FDA13 状态, A.BCE03B 审核人, A.FAD15 审核时间 FROM FAD1 A JOIN (SELECT Distinct B.FAD01 FROM VBL1 A JOIN FAD1 B ON A.VBL17 = B.FAD01 WHERE (A.VBL18 >= @BeginTime And A.VBL18 <= @EndTime)) C ON A.FAD01 = C.FAD01 Left Join BCK1 B On A.BCK01 = B.BCK01 Where A.FAD04 = @BCE01', '2009-06-12 13:05:13', Null, 0) else print 'sys_Scripts.id=1290 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1291) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1291, 51, 'SQL_PrintChargeBAX1', Null, '打印收费的收入项目汇总情况', 1, 0, Null, 1, 'DECLARE @BeginTime VarChar(30) DECLARE @EndTime VarChar(30) DECLARE @BCE02 VarChar(10) DECLARE @BCE03 VarChar(20) DECLARE @BCE01 Int SET @BeginTime = %s SET @EndTime = %s SET @BCE01 = %d SELECT @BCE02 = BCE02, @BCE03 = BCE03 FROM BCE1 WHERE BCE01 = @BCE01 SELECT @BCE01 收费员ID, @BCE02 收费员编, @BCE03 收费员, D.BAX01 收据费别ID, D.BAX02 收据费别编码, D.BAX03 收据费别, Sum(IsNull(B.VAJ38, 0)) 金额 FROM VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN BBY1 C ON B.BBY01 = C.BBY01 LEFT JOIN BAX1 D ON C.BAX01 = D.BAX01 WHERE A.VAK01 IN (SELECT DISTINCT VAK01 FROM VBL1) AND A.BCE02A = @BCE02 AND (A.VAK13 >= @BeginTime And A.VAK13 <= @EndTime) GROUP BY D.BAX01, D.BAX02, D.BAX03 HAVING Sum(IsNull(B.VAJ38, 0)) <> 0', '2009-06-12 13:05:47', Null, 0) else print 'sys_Scripts.id=1291 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1340) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1340, 51, 'SQL_GetPatientVBLALL', Null, '退费或作废费用时，取出病人缴款记录', 1, 0, Null, 1, 'Select VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, Sum(IsNull(Cast(VBL13 AS numeric(18,6)), 0.00)) PatientSumMoney, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, Sum(IsNull(Cast(VBL24 AS numeric(18,6)), 0.00)) ClashedSumMoney, Sum(IsNull(Cast(VBL13 AS Numeric(18,6)), 0.00) - IsNull(Cast(VBL24 AS Numeric(18,6)), 0.00)) ClashingSumMoney, Sum(IsNull(Cast(VBL25 AS Numeric(18,6)), 0.00)) PaySumMoney, Sum(IsNull(Cast(VBL26 AS Numeric(18,6)), 0.00)) ReturnSumMoney From VBL1 Where %s VAA01 = %d And IsNull(VBL01A, 0) = 0 And VBL01 NOT IN (SELECT VBL01 FROM VBL1 WHERE IsNull(VBL01A, 0) <> 0) GROUP BY VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03 HAVING Sum(Cast(VBL13 AS numeric(18,6))) > 0 AND Sum(IsNull(Cast(VBL13 AS Numeric(18,6)), 0.00) - IsNull(Cast(VBL24 AS Numeric(18,6)), 0.00)) >= 0', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1340 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1343) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1343, 51, 'SQL_InitVBL', Null, '初始化缴款SQL', 1, 0, Null, 1, 'Select VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, Sign = 0 from VBL1 Where VBL01 = 0', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1343 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1344) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1344, 51, 'SQL_ReMoveVBL', Null, '退费或作废时，结算方式的值', 1, 0, Null, 1, 'DECLARE @VAK01 INTEGER DECLARE @VAA01 INTEGER SET @VAK01 = %d SET @VAA01 = %d Select VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, VBL15 AAO01, VBL14 BBP02, VBL13 PatientSumMoney, VBL24 ClashingSumMoney, VBL25 PaySumMoney, VBL26 ReturnSumMoney From VBL1 Where VAK01 = @VAK01 And VAA01 = @VAA01', '2009-06-26 09:57:04', Null, 0) else print 'sys_Scripts.id=1344 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1351) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1351, 51, 'SQL_PatientNewBron', Null, '病人新生儿列表', 1, 0, Null, 1, 'DECLARE @VAA01 Integer SET @VAA01 = %d SELECT TOP 1 VAP01 = 0, @VAA01, 0, VAP05 = ''本人费用'' UNION all SELECT VAP01, VAA01, ROWNR, VAP05 FROM VAP1 WHERE VAA01 = @VAA01', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1351 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1365) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1365, 51, 'SQL_SettleList', Null, '病人结账明细显示(没有用)', 1, 0, Null, 1, Null, '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1365 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1368) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1368, 51, 'SQL_GetPatientVAK_M', Null, '病人住院结账分月表列表', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT a.YMDate, Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, c.ABF01, c.ABF02 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' ''+ a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 b ON a.BBY01 = b.BBY01 Left JOIN ABF1 c ON b.ABF01 = c.ABF01 Group by a.YMDate, c.ABF01, c.ABF02 Order by a.YMDate ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1368 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1369) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1369, 51, 'SQL_GetPatientVAKABF', Null, '病人结账费目列表', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, c.ABF01, c.ABF02 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' ''+ a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 b ON a.BBY01 = b.BBY01 Left JOIN ABF1 c ON b.ABF01 = c.ABF01 Group by c.ABF01, c.ABF02 Order by c.ABF01, c.ABF02', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1369 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1370) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1370, 51, 'SQL_GetPatientVAKVAI', Null, '病人结账每日单据列表', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT a.YMDDate, a.VAI04, Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, a.BCE03D, c.ABF01, c.ABF02 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' ''+ a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 b ON a.BBY01 = b.BBY01 Left JOIN ABF1 c ON b.ABF01 = c.ABF01 Group by a.YMDDate, a.VAI04, a.BCE03D, c.ABF01, c.ABF02 Order by a.YMDDate, a.VAI04 ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1370 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1371) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1371, 51, 'SQL_GetPatientVAKDA', Null, '病人结账每日费目列表', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT a.YMDDate, Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, c.ABF01, c.ABF02 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' ''+ a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 b ON a.BBY01 = b.BBY01 Left JOIN ABF1 c ON b.ABF01 = c.ABF01 Group by a.YMDDate, c.ABF01, c.ABF02 Order by a.YMDDate', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1371 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1372) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1372, 51, 'SQL_GetPatientVAKCI', Null, '病人结账项目汇总', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT (Cast(Cast(Sum(a.VAJ25) AS Numeric(18, 2)) As VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, b.AAS01, b.AAS02, c.BBY01, c.BBY04, c.BBY05, c.BBY06 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 c ON a.BBY01 = c.BBY01 Left Join AAS1 b On c.AAS01 = b.AAS01 Group by a.VAJ35, a.VAJ33, b.AAS01, b.AAS02, c.BBY01, c.BBY04, c.BBY05, c.BBY06 Order by c.BBY01 ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1372 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1373) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1373, 51, 'SQL_GetPatientVAKFR', Null, '病人结账收入项目汇总', 1, 0, Null, 1, 'DECLARE @VAA01 Integer DECLARE @VAI13A VarChar(30) DECLARE @VAI13B VarChar(30) SET @VAA01 = %d SET @VAI13A = %s SET @VAI13B = %s SELECT Sum(a.StandardMoney) StandardMoney, Sum(a.NotSetlleMoney) NotSetlleMoney, d.BAX01, d.BAX02, d.BAX03 FROM (SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' '' + a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, Sum(IsNull(a.VAJ37, 0.00)) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney , Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) = 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING Sum(IsNull(a.VAJ37, 0)) <> 0 UNION All SELECT a.VAJ46, convert(varchar(7), a.VAJ46, 21) AS YMDate, convert(varchar(10), a.VAJ46, 21) AS YMDDate, b.VAI04, a.VAJ01, a.ROWNR,VAJ23, a.VAJ24, a.VAJ25, a.VAJ27, (Cast(a.VAJ25 AS VarChar(18)) + '' ''+ a.VAJ35) AS CountUnit, a.VAJ33, a.VAJ35, a.VAJ36, Sum(IsNull(a.VAJ24, 0) * IsNull(a.VAJ25, 0) * IsNull(a.VAJ33, 0)) As StandardMoney, (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) AS NotSetlleMoney, Sum(IsNull(a.VAJ37, 0)) AS SetlleMoney, Sum(IsNull(a.VAJ38, 0)) AS SetlledMoney, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.bby01, a.VAA01, A.BCK01D FROM VAJ1 a JOIN VAI1 b ON a.VAI01 = b.VAI01 WHERE a.VAJ05 < 3 AND IsNull(a.VAK01, 0) <> 0 AND IsNull(a.VAJ09, 0) = 0 AND a.VAA01 = @VAA01 And (b.VAI13 >= @VAI13A And b.VAI13 <= @VAI13B) GROUP BY a.VAJ46, convert(varchar(7), a.VAJ46, 21), convert(varchar(10), a.VAJ46, 21), b.VAI04, a.VAJ01, a.ROWNR, a.VAJ23, a.VAJ24, a.VAJ25, a.VAJ27,a.VAJ33, a.VAJ35, a.VAJ36, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE02D, a.BCE03D, a.BBY01, a.VAA01, A.BCK01D HAVING (Sum(IsNull(a.VAJ37, 0)) - Sum(IsNull(a.VAJ38, 0))) <> 0 OR (Sum(IsNull(a.VAJ38, 0)) = 0 And Sum(IsNull(a.VAJ37, 0)) > 0)) a JOIN BBY1 c ON a.BBY01 = c.BBY01 Left JOIN BAX1 d ON c.BAX01 = d.BAX01 Group by d.BAX01, d.BAX02, d.BAX03 Order by d.BAX01 ', '2011-11-16 13:51:57', Null, 0) else print 'sys_Scripts.id=1373 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1401) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1401, 51, 'SQL_GetNotPatNameID', Null, '获得没有姓名，没就诊的病人ID，为了节省空间和资料，', 1, 0, Null, 1, 'select top 1 VAA01 from VAA1 where IsNull(VAA05, '''') = '''' and ((VAA01 not in (select VAA01 from VAC1)) And (VAA01 not in (select VAA01 from VAE1)))', '2009-06-11 10:30:19', Null, 0) else print 'sys_Scripts.id=1401 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1408) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1408, 51, 'SQL_GetDisCount', Null, '折扣费别应用', 1, 0, Null, 1, 'DECLARE @ItemID Integer DECLARE @ABC02 VarChar(20) DECLARE @BCH01 VarChar(20) DECLARE @SumMoney Numeric(18,4) SET @ItemID = %d SET @ABC02 = %s SET @BCH01 = %s SET @SumMoney = %f IF EXISTS(select ACV01 from ACV1 where ABC02 = @ABC02 And BBY01 = @ItemID) BEGIN select ACV01, ABC02, BCH01, BBY01, ACV05, ACV06, ACV07, ACV08, ACV09, ACV10 from ACV1 where ABC02 = @ABC02 And BBY01 = @ItemID And (ACV06 <=@SumMoney And ACV07 > @SumMoney) END ELSE BEGIN select A.ACV01, A.ABC02, B.BCH01, B.BCH02, A.BBY01, A.ACV05, A.ACV06, A.ACV07, A.ACV08, A.ACV09, A.ACV10 from ACV1 A Join BCH1 B on A.BCH01 = B.BCH01 where ABC02 = @ABC02 and A.BCH01 = @BCH01 And (ACV06 <= @SumMoney And ACV07 > @SumMoney) END', '2009-06-18 17:34:06', Null, 0) else print 'sys_Scripts.id=1408 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1423) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1423, 51, 'SQL_GetVAA1Info', Null, '获得病人信息，用于挂号查找，发卡，编辑，社保等地方', 1, 0, Null, 1, 'Select a.VAA01 , a.VAA02 , a.VAA03 , a.VAA04 , a.VAA05 , a.VAA06 , a.ABBRP , a.ABBRW , a.ABW01 , a.VAA10 , a.AAU01 , a.VAA12 , a.ACK01 , a.VAA14 , a.VAA15 , a.VAA16 , a.ABJ01 , a.BDP02 , a.ABC02 , a.VAA20 , a.ACM02 , a.AAT02 , a.ACC02 , a.ABQ02 , a.VAA25 , a.VAA26 , a.VAA27 , a.VAA28 , a.VAA29 , a.VAA30 , a.VAA31 , a.VAA32 , a.VAA33 , a.VAA34 , a.VAA35 , a.VAA36 , a.VAA37 , a.VAA38 , a.VAA39 , a.VAA40 , a.VAA41 , a.VAA42 , a.VAA43 , a.VAA44 , a.BAQ01 , a.BAQ02 , a.VAA47 , a.VAA48 , a.VAA49 , a.VAA50 , a.VAA51 , a.VAA52 , a.VAA53 , a.VAA54 , a.VAA55 , a.VAA56 , a.VAA57 , a.BCK01A , a.VAA61 , a.VAA62 , a.BDX02 , a.VAA64 , a.VBU01 , a.VAA66 , a.VAA67 , a.IAK05 , a.IAA01 , a.BCK01B , a.BCK01C , a.BCQ04 , a.VAA73 , a.VAA74 , a.VAA75 , a.VAA76 , b.VAC01 , b.VAC02 , b.VAC06 , b.BAO02 , b.BCB02A , b.VAC09 , b.VAC10 , b.BAS02A , b.ABT02 , b.VAC31 , b.BCK01A , b.BCE03A , b.VAC34 , b.VAC35 , b.VAC36 , b.VAC37 , b.BCE02 , b.BCE03B , b.VAC43 , b.VAC44 , b.VAC45 , b.VAC46 , b.VAC56 , b.VAC57 , b.IAA01 , b.UAA01 , c.IAK04 , c.IAK30 ,d.UAA03 , Cast('''' as VarChar(8)) BBP01 , Cast('''' as VarChar(32)) BBP02 , b.BCE02A From VAA1 a Join VAC1 b On a.VAA01 = b.VAA01 LEFT JOIN UAA1 d on b.UAA01 = d.UAA01 left join IAK1 c on a.IAK05 = c.IAK05', '2010-06-17 16:49:55', Null, 0) else print 'sys_Scripts.id=1423 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1435) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1435, 51, 'Sql_判断门诊号', '判断门诊号是否已被使用', '判断门诊号是否已被使用', 1, 0, Null, 1, 'SELECT VAA03 FROM VAA1 WHERE VAA03 = %s', '2009-07-01 08:56:02', Null, 0) else print 'sys_Scripts.id=1435 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1447) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1447, 51, 'SQL_PrintDayReportA', '开始时间,结束时间,号码范围,票据范围,操作员', '---------------------------------------------------------------------------------------------------- --门诊住院收费以及挂号小结 --1.开始时间,结束时间,号码范围,票据范围,操作员 --2.按科室来统计次数,金额 --3.据据票据类型来统计,张数,金额 --4.据据票据类型', 1, 0, Null, 1, 'declare @ACF01 Int declare @VAJ04 Int declare @BeginTime VarChar(30) declare @EndTime VarChar(30) declare @BCE02 VarChar(10) declare @BCE03 VarChar(20) set @ACF01 = %d set @VAJ04 = %d set @BeginTime = %s set @EndTime = %s set @BCE02 = %s set @BCE03 = %s IF @ACF01 = 1 BEGIN select (CONVERT(VarChar(4), @BeginTime, 120 ) + ''年'' + Substring(CONVERT(VarChar(10), @BeginTime, 120 ), 6, 2) + ''月'' + Substring(CONVERT(VarChar(10), @BeginTime, 120 ), 9, 2) + ''日'' + Substring(CONVERT(VarChar(30), @BeginTime, 109 ), 12, 8)) 开始时间 ,(CONVERT(VarChar(4), @EndTime, 120 ) + ''年'' + Substring(CONVERT(VarChar(10), @EndTime, 120 ), 6, 2) + ''月'' + Substring(CONVERT(VarChar(10), @EndTime, 120 ), 9, 2) + ''日'' + Substring(CONVERT(VarChar(30), @EndTime, 109 ), 12, 8)) 结束时间 , @BCE02 操作编号, @BCE03 操作员, Min(C.VAI04) 开始号码, Max(C.VAI04) 结始号码, Min(A.FAB03) 开始票据, Max(A.FAB03) 结束票据 FROM VAK1 A Join VAJ1 B ON A.VAK01 = B.VAK01 Join VAI1 C On B.VAI01 = C.VAI01 JOIN VAC1 D On B.VAA07 = D.VAC01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 <= 1 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) END ELSE IF @ACF01 = 2 BEGIN select (CONVERT(VarChar(4), @BeginTime, 120 ) + ''年'' + Substring(CONVERT(VarChar(10), @BeginTime, 120 ), 6, 2) + ''月'' + Substring(CONVERT(VarChar(10), @BeginTime, 120 ), 9, 2) + ''日'' + Substring(CONVERT(VarChar(30), @BeginTime, 109 ), 12, 8)) 开始时间 ,(CONVERT(VarChar(4), @EndTime, 120 ) + ''年'' + Substring(CONVERT(VarChar(10), @EndTime, 120 ), 6, 2) + ''月'' + Substring(CONVERT(VarChar(10), @EndTime, 120 ), 9, 2) + ''日'' + Substring(CONVERT(VarChar(30), @EndTime, 109 ), 12, 8)) 结束时间 , @BCE02 操作编号, @BCE03 操作员, Min(C.VAI04) 开始号码, Max(C.VAI04) 结始号码, Min(A.FAB03) 开始票据, Max(A.FAB03) 结束票据 FROM VAK1 A Join VAJ1 B ON A.VAK01 = B.VAK01 Join VAI1 C On B.VAI01 = C.VAI01 JOIN VAE1 D On B.VAA07 = D.VAE01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 >= 2 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) END', '2009-07-09 15:59:46', Null, 0) else print 'sys_Scripts.id=1447 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1448) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1448, 51, 'SQL_PrintDayReportB', '按科室来统计次数,金额', '---------------------------------------------------------------------------------------------------- --门诊住院收费以及挂号小结 --1.开始时间,结束时间,号码范围,票据范围,操作员 --2.按科室来统计次数,金额 --3.据据票据类型来统计,张数,金额 --4.据据票据类型', 1, 0, Null, 1, 'declare @ACF01 Int declare @VAJ04 Int declare @DeptType Int declare @BeginTime VarChar(30) declare @EndTime VarChar(30) declare @BCE02 VarChar(20) set @ACF01 = %d set @VAJ04 = %d set @DeptType = %d set @BeginTime = %s set @EndTime = %s set @BCE02 = %s IF @ACF01 = 1 BEGIN IF @DeptType = 0 BEGIN select F.BCK01 科室ID, F.BCK02 科室编码, F.BCK03 科室名称, Sum(B.VAJ37) 金额 From VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN VAI1 C ON B.VAI01 = C.VAI01 JOIN VAC1 D On B.VAA07 = D.VAC01 JOIN VAA1 E ON D.VAA01 = E.VAA01 join BCK1 F On F.BCK01 = B.BCK01C Where E.VAA61 <= 1 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by F.BCK01, F.BCK02, F.BCK03 END ELSE BEGIN select F.BCK01 科室ID, F.BCK02 科室编码, F.BCK03 科室名称, Sum(B.VAJ37) 金额 From VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN VAI1 C ON B.VAI01 = C.VAI01 JOIN VAC1 D On B.VAA07 = D.VAC01 JOIN VAA1 E ON D.VAA01 = E.VAA01 join BCK1 F On F.BCK01 = B.BCK01D Where E.VAA61 <= 1 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by F.BCK01, F.BCK02, F.BCK03 END END ELSE IF @ACF01 = 2 BEGIN IF @DeptType = 0 BEGIN select F.BCK01 科室ID, F.BCK02 科室编码, F.BCK03 科室名称, Sum(B.VAJ37) 金额 From VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN VAI1 C ON B.VAI01 = C.VAI01 JOIN VAE1 D On B.VAA07 = D.VAE01 JOIN VAA1 E ON D.VAA01 = E.VAA01 join BCK1 F On F.BCK01 = B.BCK01C Where E.VAA61 >= 2 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by F.BCK01, F.BCK02, F.BCK03 END ELSE BEGIN select F.BCK01 科室ID, F.BCK02 科室编码, F.BCK03 科室名称, Sum(B.VAJ37) 金额 From VAK1 A JOIN VAJ1 B ON A.VAK01 = B.VAK01 JOIN VAI1 C ON B.VAI01 = C.VAI01 JOIN VAE1 D On B.VAA07 = D.VAE01 JOIN VAA1 E ON D.VAA01 = E.VAA01 join BCK1 F On F.BCK01 = B.BCK01D Where E.VAA61 >= 2 And B.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by F.BCK01, F.BCK02, F.BCK03 END END', '2009-07-09 15:56:22', Null, 0) else print 'sys_Scripts.id=1448 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1449) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1449, 51, 'SQL_PrintDayReportC', '据据票据类型来统计,张数,金额', '---------------------------------------------------------------------------------------------------- --门诊住院收费以及挂号小结 --1.开始时间,结束时间,号码范围,票据范围,操作员 --2.按科室来统计次数,金额 --3.据据票据类型来统计,张数,金额 --4.据据票据类型', 1, 0, Null, 1, 'declare @ACF01 Int declare @VAJ04 Int declare @BeginTime VarChar(30) declare @EndTime VarChar(30) declare @BCE02 VarChar(20) set @ACF01 = %d set @VAJ04 = %d set @BeginTime = %s set @EndTime = %s set @BCE02 = %s IF @ACF01 = 1 BEGIN select case B.FAB04 when 1 then ''正常打印'' When 2 then ''退单回收'' When ''3'' then ''重新打印'' When 4 then ''补打回收'' When 5 then ''空白回收'' when 6 then ''报损'' end 类型, Count(A.VAK01) 张数, Sum(C.VAJ37) 金额 From VAK1 A Join FAB1 B On A.FAB03 = B.FAB03 JOIN VAJ1 C ON A.VAK01 = C.VAK01 JOIN VAC1 D On C.VAA07 = D.VAC01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 <= 1 And C.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by B.FAB04 END ELSE IF @ACF01 = 2 BEGIN select case B.FAB04 when 1 then ''正常打印'' When 2 then ''退单回收'' When ''3'' then ''重新打印'' When 4 then ''补打回收'' When 5 then ''空白回收'' when 6 then ''报损'' end 类型, Count(A.VAK01) 张数, Sum(C.VAJ37) 金额 From VAK1 A Join FAB1 B On A.FAB03 = B.FAB03 JOIN VAJ1 C ON A.VAK01 = C.VAK01 JOIN VAE1 D On C.VAA07 = D.VAE01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 >= 2 And C.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by B.FAB04 END', '2009-07-09 15:56:30', Null, 0) else print 'sys_Scripts.id=1449 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1450) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1450, 51, 'SQL_PrintDayReportD', '据据票据类型来列出明细', '---------------------------------------------------------------------------------------------------- --门诊住院收费以及挂号小结 --1.开始时间,结束时间,号码范围,票据范围,操作员 --2.按科室来统计次数,金额 --3.据据票据类型来统计,张数,金额 --4.据据票据类型', 1, 0, Null, 1, 'declare @ACF01 Int declare @VAJ04 Int declare @BeginTime VarChar(30) declare @EndTime VarChar(30) declare @BCE02 VarChar(20) set @ACF01 = %d set @VAJ04 = %d set @BeginTime = %s set @EndTime = %s set @BCE02 = %s IF @ACF01 = 1 BEGIN select case B.FAB04 when 1 then ''正常打印'' When 2 then ''退单回收'' When ''3'' then ''重新打印'' When 4 then ''补打回收'' When 5 then ''空白回收'' when 6 then ''报损'' end 类型, A.VAK13 时间, A.BCE03A 操作员, E.VAA03 门诊号, E.VAA05 病人, B.FAB03 票据号, A.VAI04 单据号, Sum(A.VAK07) 金额 From VAK1 A Join FAB1 B On A.FAB03 = B.FAB03 JOIN VAJ1 C ON A.VAK01 = C.VAK01 JOIN VAC1 D On C.VAA07 = D.VAC01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 <= 1 And C.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by B.FAB04, A.BCE03A, E.VAA03, E.VAA05, B.FAB03, A.VAK13, A.VAI04 order by B.FAB04 END ELSE IF @ACF01 = 2 BEGIN select case B.FAB04 when 1 then ''正常打印'' When 2 then ''退单回收'' When ''3'' then ''重新打印'' When 4 then ''补打回收'' When 5 then ''空白回收'' when 6 then ''报损'' end 类型, A.VAK13 时间, A.BCE03A 操作员, E.VAA03 门诊号, E.VAA05 病人, B.FAB03 票据号, A.VAI04 单据号, Sum(A.VAK07) 金额 From VAK1 A Join FAB1 B On A.FAB03 = B.FAB03 JOIN VAJ1 C ON A.VAK01 = C.VAK01 JOIN VAE1 D On C.VAA07 = D.VAE01 JOIN VAA1 E ON D.VAA01 = E.VAA01 Where E.VAA61 >= 2 And C.VAJ04 = @VAJ04 And A.BCE02A = @BCE02 and (A.VAK15 >= @BeginTime and A.VAK16 <= @EndTime) Group by B.FAB04, A.BCE03A, E.VAA03, E.VAA05, B.FAB03, A.VAK13, A.VAI04 order by B.FAB04 END', '2009-07-09 15:56:46', Null, 0) else print 'sys_Scripts.id=1450 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1474) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1474, 51, 'SQL_CanBackReg', Null, '有正常费用记录的不能退号', 1, 0, Null, 1, 'SELECT count(1) FROM VAC1 a JOIN V_VAJ_FULL b ON a.VAA01 = b.VAA01 AND a.VAC01 = b.VAA07 WHERE a.VAC01 = %d and ACF01 = 1 and VAJ04 > 1 and VAJ05 <= 2', '2011-07-05 17:12:28', '(8065)冯义强', 0) else print 'sys_Scripts.id=1474 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1486) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1486, 51, 'SQL_DoctorByDept', Null, '按科室检索医生', 1, 0, ' DECLARE @BCK01 int SET @BCK01=%d SELECT BCE01,BCK01,BCE41, BCE02, BCE03, BCE04, BCE05, BCE06, a.ABBRP, a.ABBRW , b.AAH02 From BCE1 a left join AAH1 b on b.AAH01 = a.AAH01 where EXISTS(SELECT * FROM BDR1 b WHERE b.BCE01 = a.BCE01 AND b.BCK01 = @BCK01 ) and BCE41=1 AND EXISTS(SELECT * FROM BAA1 d WHERE d.BCE01 = a.BCE01 AND d.AAA01 = ''01'')order by BCE02 ', 1, Null, '2012-05-28 09:57:09', '(8065)冯义强', 0) else print 'sys_Scripts.id=1486 已经存在.' GO --删除分类[结账]下脚本 delete from sys_Scripts where CategoryID=78 /*结账*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=78) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(78, 'SC78', '结账', 15, 0, 51, 0, Null) else print 'SYS_ScriptCategories.id=78 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1499) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1499, 78, 'Sql_结帐ID明细费用', '结帐ID明细费用--门诊', '门诊结帐窗口，检索对应结帐id对应的明细费用', 1, 0, Null, 1, 'DECLARE @lVAK01 int SET @lVAK01 =%d SELECT c.VAI04,d.BDN02,b.BBY05,b.BBY06,e.ABF02,a.VAJ35,a.VAJ33 ,a.VAJ38 - isnull(a.VAJ61,0) jmyh ,a.VAJ25,a.VAJ38,g.BCK03,f.ABC02,a.VAJ57 , h.AAS02 ,a.VAJ36 ,a.VAJ36 - a.VAJ38 as yhje ,a.VAK01,a.VAI01,a.VAJ01,a.VAJ04,a.VAJ05,a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN V_VAI_FULL c ON a.VAI01 = c.VAI01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAC1 f ON a.VAA07 = f.VAC01 LEFT JOIN BCK1 m on a.BCK01d= m.BCK01 LEFT JOIN AAS1 h on b.AAS01 = h.AAS01 LEFT JOIN BCK1 g ON a.BCK01C = g.BCK01 WHERE a.BDN01 >= ''4'' AND a.ACF01 <> 2 AND a.VAK01 = @lVAK01 UNION ALL SELECT c.VAI04, d.BDN02, b.BBY05, b.BBY06, e.ABF02 , b1.BDG02A AS VAJ35, (a.VAJ33*a.VAJ34) AS VAJ33,a.VAJ38 - isnull(a.VAJ61,0) jmyh , (a.VAJ25/a.VAJ34) AS VAJ25, a.VAJ38, g.BCK03, f.ABC02, a.VAJ57 , h.AAS02 ,a.VAJ36,a.VAJ36 - a.VAJ38 as yhje , a.VAK01, a.VAI01, a.VAJ01, a.VAJ04, a.VAJ05, a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN V_VAI_FULL c ON a.VAI01 = c.VAI01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAC1 f ON a.VAA07 = f.VAC01 LEFT JOIN BCK1 m on a.BCK01d= m.BCK01 LEFT JOIN AAS1 h on b.AAS01 = h.AAS01 LEFT JOIN BCK1 g ON a.BCK01C = g.BCK01 WHERE a.BDN01 <= ''3'' AND a.ACF01 <> 2 AND a.VAK01 = @lVAK01 ORDER BY a.VAJ01 ', '2013-06-09 09:29:31', '(8065)冯义强', 0) else print 'sys_Scripts.id=1499 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1501) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1501, 78, 'Sql_就诊收费单据列表', '就诊收费单据列表--门诊', '获取指定就诊ID对应的收费单据列表', 1, 0, Null, 1, 'DECLARE @VAA07 int, @CDays int, @CDate datetime SET @VAA07 = %d SET @CDays = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate() - @CDays , 120)) select a.VAI01 ,a.VAA01 ,a.VAA07 ,a.VAI04 ,a.VAI05 ,a.BCK01A ,a.BCK01B ,a.BCE02A ,a.BCE03A ,a.BCE02B ,a.BCE03B ,VAI12 ,VAI13 ,VAI14 ,VAI01A ,VAI16 ,isnull(VAI17,0) VAI17 ,c.BCK03 ,d.BCE01 , VAI18 , a.IAI03 , b.IAI04 , VAI25 from VAI1 a LEFT JOIN BCK1 c on a.BCK01B = c.BCK01 LEFT JOIN BCE1 d on d.BCE02 = a.BCE02A LEFT JOIN IAI1 b on b.IAI03 = a.IAI03 WHERE a.VAA07 = @VAA07 and VAI16 = 1 and VAK01 = 0 and a.ACF01 <> 2 and a.VAI18 in(2 ,3 ,5) and (@CDays = 0 or VAI12 >= @CDate )', '2014-01-22 10:16:31', '(8065)冯义强', 0) else print 'sys_Scripts.id=1501 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1502) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1502, 78, 'Sql_检索挂号病人', '检索有费用的病人信息', '门诊结帐窗口，检索已挂号病人信息', 1, 0, ' Declare @Days int, @Date datetime SET @Days = %d SET @Date = CONVERT(varchar(10),GETDATE()- @Days +1 ,21) SELECT b.VAC01 ,a.VAA01 ,a.VAA02 ,a.VAA03 ,a.VAA05 ,b.VAC02 ,c.ABW01 ,c.ABW02 ,b.VAA10 ,d.AAU01 ,d.AAU02 , g.BCE01,b.BCE02A, b.BCE03A ,b.BCE02A , e.BCK01,e.BCK03 ,b.VAC36 ,b.BCE03A ,b.ABC02 , b.BDP02 , a.VBU01 FROM VAA1 a JOIN VAC1 b ON a.VAA01 = b.VAA01 LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN AAU1 d on a.AAU01 = d.AAU01 LEFT JOIN BCK1 e ON b.BCK01A= e.BCK01 LEFT JOIN BCE1 g on b.BCE02A=g.BCE02 LEFT JOIN VBU1 m on a.VBU01 = m.VBU01 WHERE b.VAC45 = 1 And Exists(Select n.* From VAI1 n join VAJ1 m on n.VAI01 = m.VAI01 where n.VAI12 > @Date And m.ACF01 = 1 And b.VAC01 = m.VAA07 And n.VAI18 in (2,3,5) and m.VAJ05 = 1) ', 1, 'SELECT b.VAC01 ,a.VAA01 ,a.VAA02 ,a.VAA03 ,a.VAA05 ,b.VAC02 ,b.BDP02 ,c.ABW01 ,c.ABW02 ,b.VAA10 ,d.AAU01 ,d.AAU02 , b.BCE03A , b.BCE02A , e.BCK01,e.BCK03 ,b.VAC36 ,b.BCE01A ,b.ABC02 ,b.BDP02 , Isnull(a.VBU01 ,0) VBU01 , VBU14 , VBU15 , VBU30 , VCB04 , b.VAC09 , b.SCF01 FROM VAA1 a JOIN VAC1 b ON a.VAA01 = b.VAA01 LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN AAU1 d on a.AAU01 = d.AAU01 LEFT JOIN BCK1 e ON b.BCK01A= e.BCK01 LEFT JOIN VBU1 f on f.VBU01 = a.VBU01 WHERE VAC01=%d ', '2013-07-19 15:56:22', '(8065)冯义强', 0) else print 'sys_Scripts.id=1502 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1503) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1503, 78, 'Sql_支付方式', '支付方式', '支付方式,结账中所用到的支付方式', 1, 0, ' select BBP02, AAO01, BBP06, ISDEF from bbp1Order by ROWNR ', 1, 'select BBP02, AAO01, BBP06, ISDEF from bbp1 order by ROWNR', '2010-03-03 15:00:11', Null, 0) else print 'sys_Scripts.id=1503 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1504) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1504, 78, 'Sql_就诊收据费用明细', '就诊收据费用明细--门诊', '获取指定就诊ID对应的所有未结账的费用明细', 1, 0, Null, 1, 'Declare @VAA07 int SET @VAA07 = %d select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C ,a.VAJ67 , s.AAS07 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 >= ''4'' and d.VAI16 = 1 and a.ACF01 = 1 and VAJ05 = 1 and a.VAK01 = 0 and a.VAJ04 in(2 , 3 , 5) union all select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,(a.VAJ24/a.VAJ34) AS VAJ24,(a.VAJ25/a.VAJ34) AS VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,(a.VAJ32*a.VAJ34) AS VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , VAJ34 ,b1.BDG02A AS VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C , a.VAJ67 , s.AAS07 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 <= ''3'' and d.VAI16 = 1 and a.ACF01 = 1 and VAJ05 = 1 and a.VAK01 = 0 and a.VAJ04 in(2 , 3 , 5) order by a.VAI01, a.VAF01, a.ROWNR ', '2014-09-18 15:41:18', '(8065)冯义强', 0) else print 'sys_Scripts.id=1504 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1505) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1505, 78, 'Sql_树形分类左边列表', '树形分类左边列表', '收费项目检索，树形左边列表', 1, 0, Null, 1, 'DECLARE @lBEH01 varchar(10) SET @lBEH01 = %s SELECT DISTINCT a.BCA01 AS BDO01,a.BCA03 AS BDO02 ,PatientID = CASE WHEN a.BCA01A IS null THEN -5 ELSE a.BCA01A END ,5 AS BDM01 FROM BCA1 a JOIN (Select distinct a1.BCA01,a1.BCA01A from BCA1 a1 join BBY1 b on a1.BCA01=b.BCA01 join BDN1 c on a1.BDN01 = c.BDN01 where c.BEI01 = @lBEH01 ) d on a.BCA01=d.BCA01 or a.BCA01A=d.BCA01A union all SELECT DISTINCT a.BDO01 ,a.BDO03 AS BDO02 ,PatientID = CASE WHEN a.BDO01A IS null THEN -cast(a.BDM01 AS int) ELSE a.BDO01A end ,a.BDM01 from BDO1 a JOIN (SELECT distinct a1.BDO01,a1.BDO01A FROM BDO1 a1 JOIN BBX1 b1 ON a1.BDO01=b1.BDO01 JOIN BDA1 c ON b1.BDA01=c.BDA01 WHERE c.BEH01= @lBEH01 and c.BDA01<=''4'') b ON a.BDO01 = b.BDO01 OR a.BDO01 = b.BDO01A where a.BDM01<=''4'' ORDER BY a.BDO01 ', '2009-09-02 10:17:00', Null, 0) else print 'sys_Scripts.id=1505 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1506) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1506, 78, 'Sql_分类检索收费项目', '分类检索收费项目', '表格：按分类检索收费项目', 1, 0, '', 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , CASE WHEN @lACF01=1 THEN c.BAG05*d.BBY25 ELSE c.BAG07*d.BBY25 END AS BBY25 , Isnull(CASE WHEN @lACF01 = 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , Z.BCK01 , Z.BCK03 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN BBJ1 g ON d.BBY01 = g.BBY01 LEFT JOIN V_DPK6 g1 ON g.BBY01 = g1.BBY01 AND g.BCK01B = g1.BCK01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE d.BDN01 <= ''3'' AND b.BEI01 = @lBEI01 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND g.BCK01A = @lBCK01 %s AND d.BBY31 > @CDate AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, null, 0, 0 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , d.BBY08 AS NUnit,d.BBY25,null , 0 as BCK01 , '''' as BCK03 FROM BBX1 a JOIN BCT1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.BDN01 =''4'' AND b.BEI01 = @lBEI01 AND d.BBY31 >= @CDate AND c.BCT33 = 1 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit,a.BBY25,null , 0 as BCK01 , '''' as BCK03 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.BDN01 > ''4'' AND b.BEI01 = @lBEI01 AND a.BBY31 >= @CDate AND (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (%s))) ORDER BY b.BDN01', '2013-08-06 14:32:40', '(8065)冯义强', 0) else print 'sys_Scripts.id=1506 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1507) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1507, 78, 'Sql_树形分类收费项目', '树形分类收费项目', '树形右边,对应分类收费项目列表', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBCA01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10) SET @lACF01 = %d SET @lBCA01 = %d SET @lSql = %s SET @lBEI01 = %s SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 ,a.BBY01 AS BBX01,a.BCA01 AS BDO01,a.BBY04,a.BBY05 , a.BBY06, a.BBE02, a.BBY01, a.BBY08, a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.BCA01 = @lBCA01 AND b.BEI01 = @lBEI01 AND CONVERT(varchar(10),a.BBY31,21)>CONVERT(varchar(10),Getdate(),21) and (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR (EXISTS(SELECT * FROM BCL1 c WHERE c.BBY01=a.BBY01 AND (c.BCL03 LIKE @lSql OR c.ABBRP LIKE @lSql OR c.ABBRW LIKE @lSql)))) ', '2010-03-23 22:30:03', Null, 0) else print 'sys_Scripts.id=1507 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1508) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1508, 78, 'Sql_树形收费明细检索', '树形收费明细检索', '树形：按分类检索收费明细项目', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBCA01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10) SET @lACF01 = %d SET @lBCA01 = %d SET @lSql = %s SET @lBEI01 = %s SELECT b.BDN01, b.BDN02,f.AAS02,a.BBY25 ,a.BBY01 AS BBX01,a.BCA01 AS BDO01,a.BBY04,a.BBY05 , a.BBY06, a.BBE02, a.BBY01, a.BBY08, a.BBY08 AS NUnit FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE a.BDN01 > ''4'' AND b.BEI01 = @lBEI01 AND CONVERT(varchar(10),a.BBY31,21)>CONVERT(varchar(10),Getdate(),21) and (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR (EXISTS(SELECT # FROM BCL1 c WHERE c.BBY01=a.BBY01 AND (c.BCL03 LIKE @lSql OR c.ABBRP LIKE @lSql OR c.ABBRW LIKE @lSql)))) ', '2010-03-23 22:29:45', Null, 0) else print 'sys_Scripts.id=1508 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1509) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1509, 78, 'SQL_检索收费项目药品', '检索收费项目--药品', '按收费项目ID检索收费项目明细--药品', 1, 0, Null, 1, 'DECLARE @lBBY01 int , @ACF01 int , @ABC02 varchar(20) , @ABC14 tinyint SET @lBBY01 = %d SET @ACF01 = %d SET @ABC02 = ''%s'' --SELECT @ABC14 = ISNULL(ABC14 , 0) from ABC1 where ABC02 = @ABC02 SET @ABC14 = ISNULL(@ABC14 , 0) SELECT a.BBY01, BBY05, BBY06, BDG02A BBY08, a.BDN01, a.AAS01 ,BAG05 , a.BBY25 * BAG05 BBY25, BAG23,0 as Main,1 as BCR04,-1 as BCR05,isnull(a.BBY34,0) BBY34 , c.BAX03 , d.ABF02 , a.ABF01 , a.BAX01 , 0 as BBY19 , a.BBY27 , a.BBY28 , 1 as BCR10 , e.AAS07 FROM BBY1 a JOIN BAG1 b ON a.BBY01 = b.BBY01 JOIN BAX1 c on a.BAX01 = c.BAX01 JOIN ABF1 d on a.ABF01 = d.ABF01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 WHERE (a.ACF01 = @ACF01 OR a.ACF01= 3) AND a.BBY01 = @lBBY01', '2014-09-19 16:15:39', '(8088)王海涛', 0) else print 'sys_Scripts.id=1509 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1510) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1510, 78, 'SQL_检索折扣费别', '检索折扣费别', '检索折扣费别', 1, 0, Null, 1, 'DECLARE @BBY01 int, @VAJ25 numeric(18,4), @Bzdw numeric(18,4), @lABC02 varchar(30), @lACF01 int, @BDate datetime SET @BBY01=%d SET @VAJ25=%f SET @lABC02=''%s'' SET @lACF01=%d SET @BDate = Getdate() if @lACF01 = 1 select @Bzdw = ISNULL(BAG05,1) from BAG1 where BBY01= @BBY01 else if @lACF01 = 2 select @Bzdw = ISNULL(BAG07,1) from BAG1 where BBY01= @BBY01 if ISNull(@Bzdw,1) = 1 set @Bzdw =1 SELECT a.ABC02, a.BBY01, ACV06, BBY25, b.BBY25*@Bzdw*ACV08/ACV09 AS NBBY25, b.BBY25*@Bzdw*@VAJ25 as VAJ36, b.BBY25*@VAJ25*@Bzdw*ACV08/ACV09 as VAJ37, ACV07, ACV08, ACV09, ACV10 FROM (SELECT ABC02,BBY01,ACV06,ACV07,ACV08,ACV09,ACV10 FROM ACV1 WHERE BCH01 IS NULL) a JOIN BBY1 b ON b.BBY01=a.BBY01 LEFT JOIN BAG1 c ON b.BBY01 = c.BBY01 AND a.ACV06 <= (@VAJ25*b.BBY25*@Bzdw) AND a.ACV07 >= (@VAJ25*b.BBY25*@Bzdw) JOIN ABC1 d on a.ABC02 = d.ABC02 WHERE a.ABC02 = @lABC02 AND b.BBY01 = @BBY01 and d.ABC13 > @BDate UNION ALL SELECT a.ABC02, a.BBY01, ACV06, BBY25, b.BBY25*@Bzdw*ACV08/ACV09 AS BBBY25,b.BBY25*@Bzdw*@VAJ25 as VAJ36, b.BBY25*@Bzdw*@VAJ25*ACV08/ACV09 as VAJ37,ACV07,ACV08,ACV09,ACV10 FROM (SELECT ABC02,BBY01,ACV06,ACV07,ACV08,ACV09,ACV10,BCH01 FROM ACV1 WHERE BBY01 IS NULL) a JOIN BBY1 b ON a.BCH01=b.BCH01 AND b.BBY01 = @BBY01 LEFT JOIN BAG1 c ON b.BBY01=c.BBY01 AND a.ACV06<=(@VAJ25*b.BBY25*@Bzdw) AND a.ACV07>=(@VAJ25*b.BBY25*@Bzdw) JOIN ABC1 d on a.ABC02=d.ABC02 WHERE a.ABC02=@lABC02 and d.ABC13 > @BDate ', '2010-07-19 20:36:40', Null, 0) else print 'sys_Scripts.id=1510 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1511) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1511, 78, 'Sql_收据费目', '收据费目', '获取收据费目列表', 1, 0, Null, 1, 'select ABF01 ,ABF02 from ABF1', '2013-11-06 13:46:05', '(8065)冯义强', 0) else print 'sys_Scripts.id=1511 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1513) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1513, 78, 'SQL_检索中草药根类编', '检索中草药根类编码', '检索中草药根类编码', 1, 0, Null, 1, 'select BEI01 from BDN1 where BDN01= ''3''', '2009-07-31 14:43:50', Null, 0) else print 'sys_Scripts.id=1513 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1540) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1540, 78, 'SQL_检索收费项目材料', '检索收费项目--材料', '检索收费项目--材料', 1, 0, Null, 1, 'DECLARE @lBBY01 int , @ACF01 int SET @lBBY01=%d SET @ACF01=%d SELECT a.BBY01, BBY05, BBY06, BBY08, BBY25, a.BDN01, a.AAS01, BCT19 as BAG05, BCT23 as BAG23, 0 as Main, 1 as BCR04, -1 as BCR05, isnull(a.BBY34,0) BBY34 , a.BAX01 , a.ABF01 , c.BAX03 , d.ABF02 , isnull(a.BBY19 ,0) BBY19 , a.BBY27 , a.BBY28 , 1 as BCR10 , e.AAS07 FROM BBY1 a JOIN BCT1 b on a.BBY01 = b.BBY01 JOIN BAX1 c on a.BAX01 = c.BAX01 JOIN ABF1 d on a.ABF01 = d.ABF01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 WHERE (a.ACF01=@ACF01 OR a.ACF01=3) AND a.BBY01= @lBBY01', '2014-09-18 15:38:06', '(8065)冯义强', 0) else print 'sys_Scripts.id=1540 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1541) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1541, 78, 'SQL_检索收费项目其他', '检索收费项目--其他', '检索收费项目--其他', 1, 0, Null, 1, 'DECLARE @lBBY01 int, @BBY34 int, @ACF01 int SET @lBBY01 =%d set @ACF01 =%d SELECT @BBY34 = isnull(BBY34,0) FROM BBY1 WHERE BBY01 = @lBBY01 SELECT a.BBY01, a.BBY01 BBY01A, BBY05, BBY06, BBY08, BBY25, a.BDN01, a.AAS01, BAG05=1, BAG23=0 , 1 as Main, 1 as BCR04, -1 as BCR05 , isnull(a.BBY34,0) BBY34 , a.ABF01 , a.BAX01 , c.BAX03 , d.ABF02 , isnull(a.BBY19 , 0) BBY19 , a.BBY27 , a.BBY28 , 1 as BCR10 , e.AAS07 FROM BBY1 a JOIN BAX1 c on a.BAX01 = c.BAX01 JOIN ABF1 d on a.ABF01 = d.ABF01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 WHERE (a.ACF01=@ACF01 OR a.ACF01=3) AND a.BBY01= @lBBY01 union all SELECT a.BBY01, BBY01A, BBY05, BBY06, BBY08, BBY25, a.BDN01, a.AAS01, BAG05 = 1, BAG23=0 ,2 as Main,BCR04,BCR05 ,a.BBY34 , a.ABF01 , a.BAX01 , c.BAX03 , d.ABF02 , isnull(a.BBY19 , 0) BBY19 , a.BBY27 , a.BBY28 , ISNULL(BCR10 ,1) , e.AAS07 from BCR1 b join BBY1 a on b.BBY01b = a.BBY01 join BAX1 c on a.BAX01 = c.BAX01 join ABF1 d on a.ABF01 = d.ABF01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 where b.BBY01A=@lBBY01 AND @BBY34=1 UNION ALL SELECT a.BBY01, BBY01A, BBY05, BBY06, BBY08, case b.BCR10 when 0 then b.BCR07 else a.BBY25 end as BBY25, a.BDN01, a.AAS01, BAG05=1, BAG23 = 0 ,2 as Main, BCR04, BCR05 , a.BBY34 , a.ABF01 , a.BAX01 , c.BAX03 , d.ABF02 , isnull(a.BBY19 , 0) BBY19 , a.BBY27 , a.BBY28 , ISNULL(BCR10 , 1) , e.AAS07 from BCR1 b join BBY1 a on b.BBY01B = a.BBY01 join BAX1 c on a.BAX01 = c.BAX01 join ABF1 d on a.ABF01 = d.ABF01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 where b.BBY01A=@lBBY01 AND @BBY34=2', '2014-09-18 15:42:46', '(8065)冯义强', 0) else print 'sys_Scripts.id=1541 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1542) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1542, 78, 'SQL_按日期检索结帐记', '按日期检索结帐记录(门诊)', '按日期检索结帐记录--门诊', 1, 0, Null, 1, 'DECLARE @StartDate datetime, @EndDate datetime, @EmpId int SET @StartDate = %s SET @EndDate = %s SET @EmpId = %d SET @EndDate = DateAdd(s , 1 , @EndDate ) SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh, 1 as PARTS, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK1 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = a.VAK01 WHERE a.VAK06 = 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and a.BCE01A = @EmpId and VAK19 = 1 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh,1 as PARTS, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK1 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = -a.VAK01A WHERE a.VAK06 = 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and a.BCE01A = @EmpId and VAK19 = 2 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh, 2 as PARTS, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK2 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = a.VAK01 WHERE a.VAK06 = 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and a.BCE01A = @EmpId and VAK19 = 1 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh,2 as PARTS, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK2 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = -a.VAK01A WHERE a.VAK06 = 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and a.BCE01A = @EmpId and VAK19 = 2 order by a.VAK01 desc', '2014-04-02 10:18:53', '(8065)冯义强', 0) else print 'sys_Scripts.id=1542 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1543) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1543, 78, 'SQL_检索病人就诊ID', '检索病人就诊ID', '根据结帐ID检索病人就诊ID', 1, 0, Null, 1, 'Select VAA07 from V_VAK_FULL where VAK01=%d', '2010-07-10 15:53:50', Null, 0) else print 'sys_Scripts.id=1543 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1545) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1545, 78, 'SQL_查找结帐单据', '查找结帐单据', '按结帐ID查找结帐单据', 1, 0, Null, 1, '--查找要退费的单据 DECLARE @VAK01 int SET @VAK01 = %d select a.VAI01, a.VAA01, a.VAA07, a.VAI04, a.VAI05, a.BCK01A, a.BCK01B, a.BCE02A, a.BCE03A, a.BCE02B, a.BCE03B ,a.VAI12, a.VAI13, a.VAI14, a.VAI01A, a.VAI16, a.VAI17 ,a.VAI18 ,c.BCK03 ,d.BCE01, a.IAI03 , e.IAI04 from V_VAI_FULL a LEFT JOIN BCK1 c on a.BCK01B = c.BCK01 LEFT JOIN BCE1 d on d.BCE02 = a.BCE02A LEFT JOIN IAI1 e on e.IAI03 = a.IAI03 WHERE a.VAK01 =@VAK01 ', '2014-04-17 09:26:32', '(8088)王海涛', 0) else print 'sys_Scripts.id=1545 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1546) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1546, 78, 'SQL_查找结帐收费明细', '查找结帐收费明细', '查找结帐收费明细', 1, 0, Null, 1, '--查找要退费的明细 DECLARE @VAK01 int SET @VAK01 = %d select d.VAI04 ,b.BBY05, b.BBY06, b.AAS01, b.ABF01, C.BCK03, a.VAJ01, a.VAA01, a.VAA07, a.VAJ04, a.VAJ05, a.ROWNR, a.VAJ01A, a.VAJ01B ,a.VAJ09 ,a.VAJ10, a.VAI01, a.VAF01, a.VAK01, a.ACF01, a.VAJ15, a.BCK01A, a.BCK01B, a.BDN01, a.BBY01, a.BCJ02, a.VAJ21 ,a.VAJ22 ,a.VAJ23, a.VAJ24, a.VAJ25 VAJ25, a.VAJ26, a.VAJ27, a.VAJ28, a.VAJ29, a.VAJ30, a.VAJ31, a.VAJ32, a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 , a.VAJ37 , a.VAJ38 , a.VAJ39, a.VAJ40, a.VAJ41, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.VAJ46 ,a.VAJ47 ,a.VAJ48, a.BCK01D, a.BCE03C, a.VAJ51, a.VAJ52, a.VAJ53, a.VAJ54, a.BCE02D, a.BCE03D, a.VAJ57, a.FAB03, a.VAJ59 , a.VAJ61 ,f.BAX03 , g.ABF02 , VBY09 = 0 , a.VAJ67 , a.DSK01 , e.AAS07 from V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 left JOIN V_VAI_FULL d ON a.VAI01 = d.VAI01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on b.ABF01 = g.ABF01 LEFT JOIN AAS1 e on e.AAS01 = b.AAS01 WHERE a.VAK01 = @VAK01 and not exists(select * from VBY1 e where a.VAJ01 = e.VAJ01 and e.VBY09 = 1) union all select d.VAI04 ,b.BBY05, b.BBY06, b.AAS01, b.ABF01, C.BCK03, a.VAJ01, a.VAA01, a.VAA07, a.VAJ04, a.VAJ05, a.ROWNR, a.VAJ01A, a.VAJ01B ,a.VAJ09 ,a.VAJ10, a.VAI01, a.VAF01, a.VAK01, a.ACF01, a.VAJ15, a.BCK01A, a.BCK01B, a.BDN01, a.BBY01, a.BCJ02, a.VAJ21 ,a.VAJ22 ,a.VAJ23, a.VAJ24, e.VAJ25 , a.VAJ26, a.VAJ27, a.VAJ28, a.VAJ29, a.VAJ30, a.VAJ31, a.VAJ32, a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 * e.VAJ25 / a.VAJ25 VAJ36 , a.VAJ37 * e.VAJ25 / a.VAJ25 VAJ37 , a.VAJ38 * e.VAJ25 / a.VAJ25 VAJ38, a.VAJ39, a.VAJ40, a.VAJ41, a.BCE03A, a.BCK01C, a.BCE02B, a.BCE03B, a.VAJ46 ,a.VAJ47 ,a.VAJ48, a.BCK01D, a.BCE03C, a.VAJ51, a.VAJ52, a.VAJ53, a.VAJ54, a.BCE02D, a.BCE03D, a.VAJ57, a.FAB03, a.VAJ59 , a.VAJ61 * e.VAJ25 / a.VAJ25 VAJ61 ,f.BAX03 , g.ABF02 , e.VBY09 , a.VAJ67 , a.DSK01 , s.AAS07 from V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 left JOIN V_VAI_FULL d ON a.VAI01 = d.VAI01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on b.ABF01 = g.ABF01 JOIN VBY1 e on e.VAJ01 = a.VAJ01 LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAK01 = @VAK01 and e.VBY09 = 1 order by a.ROWNR', '2014-09-24 11:56:53', '(8065)冯义强', 0) else print 'sys_Scripts.id=1546 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1549) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1549, 78, 'SQL_检索结帐记录', '检索结帐记录', '检索结帐记录', 1, 0, Null, 1, 'SELECT VAK01,FAB03,VAI04,VAK07,VAK08,VAK08-VAK07 as wscl,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19 , b.ABBRP , b.ABBRW ,a.VAK21 ,a.VAK21 - a.VAK23 as yhje , a.VAK21 - isnull(a.VAK24,0) jmyh , a.VAK23 , a.VAA07 , a.BCE01A FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c ON a.VAA07=c.VAC01', '2011-03-31 14:12:03', Null, 0) else print 'sys_Scripts.id=1549 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1550) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1550, 78, 'SQL_病人收费单据', '病人收费单据', '病人收费单据(查询病人所有收费单据--划价、收费、退费)', 1, 0, Null, 1, 'DECLARE @VAA07 int --就诊ID SET @VAA07=%d select VAI01--单据ID ,VAA01--病人ID ,VAA07--就诊ID ,VAI04--单据号 ,VAI05--摘要 ,BCK01A--病区ID ,BCK01B--开单科室ID ,BCE02A--开单人# ,BCE03A--开单人 ,BCE02B--操作员# ,BCE03B--操作员 ,VAI12--业务时间 ,VAI13--交易时间 ,VAI14--备注 ,VAI01A--冲销ID ,VAI16--状态 ,Case VAI16 when 1 then ''收费划价'' when 2 then ''已收费'' when 3 then ''已退费'' else ''退费记录'' end as Status ,isnull(VAI17,0) VAI17 --单据性质 ,VAI18 from V_VAI_FULL a --病人收费单据 WHERE VAA07=@VAA07 and VAI17=0', '2012-09-05 17:37:43', '(8065)冯义强', 0) else print 'sys_Scripts.id=1550 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1551) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1551, 78, 'SQL_病人收费明细', '病人收费明细', '病人收费明细(病人一次就诊所有收费明细--划价、收费、退费)', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 , a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39, a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 , a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D , a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , f.BAX03 , g.ABF02 from V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN V_VAI_FULL d ON a.VAI01 = d.VAI01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 WHERE a.VAA07 = %d order by a.VAI01, a.VAF01, a.ROWNR', '2010-07-10 16:22:39', Null, 0) else print 'sys_Scripts.id=1551 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1641) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1641, 78, 'SQL_判断是否可以退费', '判断是否可以在收费处直接退费', '如果当前结帐ID中有药品并且冲销ID为0，不能直接在收费处进行退费，必须经过医生或者药房', 1, 0, Null, 1, ' DECLARE @lVAK01 int SET @lVAK01 = %d SELECT a.VAJ01 FROM VAJ1 a JOIN VAJ1 b ON a.VAJ01 = b.VAJ09 WHERE a.VAK01 = @lVAK01 AND b.VAK01 = 0 AND b.VAJ48=0 AND b.VAJ53=0 and a.BDN01 <= ''3'' UNION ALL SELECT a.VAJ01 from VAJ1 a WHERE a.VAK01 = @lVAK01 and a.VAJ48 > 0 and a.VAJ53 =1 and a.BDN01 < =''3'' ', '2010-05-18 21:03:02', Null, 0) else print 'sys_Scripts.id=1641 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1642) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1642, 78, 'SQL_查找明细原数量', '查找明细原数量', '按明细ID查找明细原数量', 1, 0, Null, 1, 'select VAJ25 from V_VAJ_FULL where VAJ01=%d', '2012-06-19 12:01:53', '(8088)王海涛', 0) else print 'sys_Scripts.id=1642 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1647) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1647, 78, 'SQL_结帐票据使用情况', '结帐票据使用情况', '按结帐单据 查找结帐票据使用情况', 1, 0, Null, 1, 'SELECT b.FAB03,b.FAB08,b.BCE03 , CASE b.FAB04 WHEN 1 THEN ''正常打印'' WHEN 2 THEN ''退单回收'' WHEN 3 THEN ''重新打印'' WHEN 4 THEN ''补打'' WHEN 5 THEN ''空白回收'' WHEN 6 THEN ''报损'' END as FAB04 ,b.FAA01,b.FAB01,b.AAK01 FROM V_FAC_FULL a JOIN V_FAB_FULL b ON a.FAC01 = b.FAC01 WHERE (a.FAC03 = ''%s'') or (a.FAC01 = %d) ', '2013-03-22 10:48:15', '(8065)冯义强', 0) else print 'sys_Scripts.id=1647 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1655) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1655, 78, 'SQL_结帐ID明细费用', '结帐ID明细费用--住院', '按住院结帐ID查找费用明细', 1, 0, Null, 1, 'DECLARE @lVAK01 int SET @lVAK01 =%d SELECT c.VAI04,d.BDN02,b.BBY05,b.BBY06,e.ABF02,a.VAJ35,a.VAJ33 ,case a.VAJ61 when 0 then 0 else a.vaj38 -a.VAJ61 END jmyh ,a.VAJ25,a.VAJ38,g.BCK03,f.ABC02,a.VAJ57 , h.AAS02 ,a.VAJ36 ,a.VAJ36 - a.VAJ38 as yhje ,a.VAK01,a.VAI01,a.VAJ01,a.VAJ04,a.VAJ05,a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN V_VAI_FULL c ON a.VAI01 = c.VAI01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN BCK1 g ON a.BCK01C = g.BCK01 LEFT JOIN AAS1 h on b.AAS01 = h.AAS01 WHERE a.BDN01 NOT IN (''1'',''2'',''3'') AND a.ACF01 = 2 AND a.VAK01 = @lVAK01 UNION ALL SELECT c.VAI04, d.BDN02, b.BBY05, b.BBY06, e.ABF02 , b1.BDG02A AS VAJ35, (a.VAJ33*a.VAJ34) AS VAJ33 , case a.VAJ61 when 0 then 0 else a.vaj38 -a.VAJ61 END jmyh , (a.VAJ25/a.VAJ34) AS VAJ25, a.VAJ38, g.BCK03, f.ABC02, a.VAJ57 , h.AAS02 ,a.VAJ36 ,a.VAJ36 - a.VAJ38 as yhje , a.VAK01, a.VAI01, a.VAJ01, a.VAJ04, a.VAJ05, a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM V_VAJ_FULL a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 LEFT JOIN V_VAI_FULL c ON a.VAI01 = c.VAI01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN BCK1 g ON a.BCK01C = g.BCK01 LEFT JOIN AAS1 h on b.AAS01 = h.AAS01 WHERE a.BDN01 IN (''1'',''2'',''3'') AND a.ACF01 = 2 AND a.VAK01 = @lVAK01 ORDER BY a.VAJ01 ', '2014-04-17 09:27:34', '(8088)王海涛', 0) else print 'sys_Scripts.id=1655 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1659) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1659, 78, 'SQL_日期检索住院记录', '按日期检索结帐记录(住院)', '按日期检索结帐记录--住院', 1, 0, Null, 1, 'DECLARE @StartDate datetime, @EndDate datetime, @EmpId int SET @StartDate = %s SET @EndDate = %s SET @EmpId = %d SET @EndDate = DateAdd(s , 1 , @EndDate) SELECT a.VAK01,VAA07,FAB03,VAI04,a.VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11 ,b.ABBRP ,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje,a.VAK15,a.VAK16 ,d.BDP02 , a.VAK23 - isnull(VAK24,0) jmyh , a.BCE03B , a.VAK23 , a.BCE01A , c.IAS46 , c.IAS48 , c.IAS49 , c.IAS50 , c.IAS51 , c.IAS52 , c.IAS53 , c.IAS54 , c.IAS55 , c.IAS56 , a.FAB03A , a.VAK18 FROM VAK1 a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 LEFT JOIN V_IAS1_Input c on c.VAK01 = a.VAK01 WHERE a.VAK06 > 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and BCE01A = @EmpId and VAK19 = 1 UNION ALL SELECT a.VAK01,VAA07,FAB03,VAI04,a.VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11 ,b.ABBRP ,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje,a.VAK15,a.VAK16 ,d.BDP02 , a.VAK23 - isnull(VAK24,0) jmyh , a.BCE03B , a.VAK23 , a.BCE01A , c.IAS46 , c.IAS48 , c.IAS49 , c.IAS50 , c.IAS51 , c.IAS52 , c.IAS53 , c.IAS54 , c.IAS55 , c.IAS56 , a.FAB03A , a.VAK18 FROM VAK1 a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 LEFT JOIN V_IAS1_Input c on c.VAK01 = -a.VAK01A WHERE a.VAK06 > 2 AND VAK13 >= @StartDate AND VAK13 < @EndDate and BCE01A = @EmpId and VAK19 = 2 ', '2013-05-17 13:56:58', '(8065)冯义强', 0) else print 'sys_Scripts.id=1659 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1660) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1660, 78, 'SQL_检索住院结帐', '检索住院结帐记录', '检索住院结帐记录', 1, 0, Null, 1, 'DECLARE @StartDate datetime, @EndDate datetime SET @StartDate = %s SET @EndDate = %s SELECT VAK01,FAB03,VAI04,VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10,d.BDP02, a.VAA01,a.VAA07,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11,b.ABBRP,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje, a.VAK07 as wsje,a.VAK15,a.VAK16 , a.VAK23 - isnull(VAK24,0) jmyh , a.VAK23 , a.BCE01A FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 WHERE a.VAK06 > 2 AND VAK13 BETWEEN @StartDate AND @EndDate ', '2011-03-31 14:13:51', Null, 0) else print 'sys_Scripts.id=1660 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1696) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1696, 78, 'SQL_检索病人预交款', '检索病人预交款', '检索病人预交款', 1, 0, Null, 1, 'select VBL01 , VBL02 , VBL03 , VBL13 , VBL13 as VBL24 , VBL19 , VBL14 , selected =1 , VBL01B ,VBL15 from VBL1 where VAA01 = %d and VAA07 = %d and VBL04 = 4 and VBL05=0 and VBL27= 1 and VAK01 = 0 ', '2011-07-22 15:21:30', '(8087)Roion', 0) else print 'sys_Scripts.id=1696 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1704) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1704, 78, 'SQL_待结帐费用', '住院病人待结帐费用', '住院病人待结帐费用', 1, 0, Null, 1, 'SELECT a.VAA01,VAJ46,b.VAI04,a.VAJ37,d.ABF02,c.BBY05 FROM VAJ1 a LEFT JOIN VAI1 b ON a.VAI01=b.VAI01 LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 d ON c.ABF01=d.ABF01 WHERE a.VAA07=%d AND a.VAJ04 in (5,6) AND a.ACF01=2 AND a.VAJ05=1 ORDER BY a.VAJ46', '2009-09-03 23:58:53', Null, 0) else print 'sys_Scripts.id=1704 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1705) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1705, 78, 'SQL_费用明细', '住院病人费用明细', '住院病人费用明细(过滤销账数据)', 1, 0, Null, 1, 'select '''' VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ67, case a.VAJ39 when 0 then ''正常'' when 1 then ''自费'' when 2 then ''免费'' end as VAJ39S , a.VAJ39 ,Isnull(a.VAJ40 , 0) VAJ40 ,Isnull(a.VAJ41 , 0) VAJ41 ,a.BCE03A ,a.BCK01C , a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 , a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 , a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 , b.AAS01 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON c.BCK01 = a.BCK01D --JOIN VAI1 d ON d.vai01 = a.VAI01 WHERE a.VAA07 = %d and a.ACF01 = 2 and a.VAJ05 <> 2 and a.VAK01 = 0 %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-02-27 17:18:37', '(8088)王海涛', 0) else print 'sys_Scripts.id=1705 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1706) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1706, 78, 'SQL_收费费目', '住院病人收费费目', '住院病人收费费目', 1, 0, Null, 1, 'SELECT c.BBY05,c.BBY06,sum(a.VAJ25) VAJ25,a.VAJ32,sum(a.VAJ37) VAJ37,d.ABF02, e.AAS02 FROM VAJ1 a LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 JOIN ABF1 d ON c.ABF01=d.ABF01 JOIN AAS1 E ON c.AAS01=e.AAS01 WHERE a.VAA07=%d AND a.ACF01=2 AND a.VAJ05=1 GROUP BY a.BBY01,c.BBY05,c.BBY06,a.VAJ32,d.ABF02,e.AAS02', '2009-12-07 16:34:15', Null, 0) else print 'sys_Scripts.id=1706 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1707) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1707, 78, 'SQL_收入费目', '住院收入费目', '住院收入费目', 1, 0, Null, 1, 'SELECT sum(a.VAJ37) VAJ37,e.BAX03 FROM VAJ1 a LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN BAX1 E ON c.BAX01=e.BAX01 WHERE a.VAA07=%d AND a.ACF01=2 AND a.VAJ05=1 GROUP BY e.BAX03', '2009-12-07 16:33:52', Null, 0) else print 'sys_Scripts.id=1707 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1708) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1708, 78, 'SQL_费目', '住院费用费目', '住院病人费用费目(过滤销账数据)', 1, 0, Null, 1, 'SELECT e.ABF01 , e.ABF02, VAJ30 = 100 , VAJ31 =100 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ36 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 , sum(Isnull(a.VAJ40 ,0)) VAJ40 , sum(Isnull(a.VAJ41 , 0)) VAJ41 FROM VAJ1 a JOIN BBY1 c ON a.BBY01 = c.BBY01 LEFT JOIN ABF1 E ON c.ABF01 = e.ABF01 WHERE a.VAA07=%d AND a.ACF01=2 and a.VAJ05 <>2 and VAK01 = 0 %s GROUP BY e.ABF01, e.ABF02 ', '2013-09-13 11:21:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=1708 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1709) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1709, 78, 'SQL_每月费目', '住院病人每月费目', '住院病人每月费目', 1, 0, Null, 1, 'SELECT CONVERT(varchar(7), VAJ46, 120) VAJ46,sum(a.VAJ37) VAJ37,e.ABF02 FROM VAJ1 a LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01=e.ABF01 WHERE a.VAA07=%d AND a.ACF01=2 AND a.VAJ05=1 GROUP BY CONVERT(varchar(7), VAJ46, 120),e.ABF02', '2009-12-07 16:34:43', Null, 0) else print 'sys_Scripts.id=1709 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1710) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1710, 78, 'SQL_每日单据', '住院病人每日单据', '住院病人每日单据', 1, 0, Null, 1, 'SELECT CONVERT(varchar(10), VAJ46, 120) VAJ46,b.VAI04,sum(a.VAJ37) VAJ37,e.ABF02,a.BCE03D FROM VAJ1 a JOIN VAI1 b ON a.VAI01=b.VAI01 LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01=e.ABF01 WHERE a.VAA07=%d AND a.ACF01=2 AND a.VAJ05=1 GROUP BY e.ABF02,CONVERT(varchar(10), VAJ46, 120),b.VAI04,a.BCE03D', '2009-12-07 16:34:52', Null, 0) else print 'sys_Scripts.id=1710 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1711) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1711, 78, 'SQL_每日费目', '住院病人每日费目', '住院病人每日费目', 1, 0, Null, 1, 'SELECT CONVERT(varchar(10), VAJ46, 120) VAJ46,sum(a.VAJ37) VAJ37,e.ABF02 FROM VAJ1 a LEFT JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01=e.ABF01 WHERE a.VAA07=%d AND a.ACF01=2 AND a.VAJ05=1 GROUP BY e.ABF02,CONVERT(varchar(10), VAJ46, 120)', '2009-12-07 16:34:59', Null, 0) else print 'sys_Scripts.id=1711 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1713) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1713, 78, 'SQL_判断能否结帐', '判断能否结帐', '主要是医生工作站过来的收费单据，如果医生已经作废了该单据，则不能进行结帐操作。', 1, 0, Null, 1, 'Select VAI01 from VAI1 where VAI01 = %d and Isnull(VAI01A , 0) > 0', '2009-09-03 21:43:39', Null, 0) else print 'sys_Scripts.id=1713 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1715) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1715, 78, 'SQL_住院收费单据', '根据就诊ID检索住院单据', '根据就诊ID检索住院收费单据 --明细中ACF01为2', 1, 0, Null, 1, 'DECLARE @VAA07 int --就诊ID SET @VAA07=%d select DISTINCT(a.VAI01)--单据ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAI04--单据号 ,a.VAI05--摘要 ,a.BCK01A--病区ID ,a.BCK01B--开单科室ID ,a.BCE02A--开单人# ,a.BCE03A--开单人 ,a.BCE02B--操作员# ,a.BCE03B--操作员 ,VAI12--业务时间 ,VAI13--交易时间 ,VAI14--备注 ,VAI01A--冲销ID ,VAI16--状态 ,isnull(VAI17,0) VAI17 --单据性质 ,c.BCK03 --开单科室 from VAI1 a --病人收费单据 JOIN VAJ1 b ON a.VAI01=b.VAI01 JOIN BCK1 c on a.BCK01B=c.BCK01 WHERE a.VAA07=@VAA07 AND VAI16 <> 2 AND b.ACF01 =2 and b.VAJ05 <> 2 AND isnull(VAK01,0)=0', '2010-03-26 11:30:08', Null, 0) else print 'sys_Scripts.id=1715 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1722) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1722, 78, 'SQL_病人住院天数', '病人住院天数', '检索病人住院天数，如果病人当前没有出院日期，则取当前日期', 1, 0, Null, 1, 'declare @VAE26 datetime declare @VAE01 int set @VAE01 = %d Select @VAE26=case when (isnull(VAE26,'''')='''') then getdate() else VAE26 end from VAE1 where VAE01 = @VAE01 select @VAE26 as VAE26,case datediff(day,VAE11,@VAE26) when 0 then 1 ELSE datediff(day,VAE11,@VAE26) end as VAE27 from VAE1 where VAE01 = @VAE01', '2009-12-15 11:17:59', Null, 0) else print 'sys_Scripts.id=1722 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1744) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1744, 78, 'SQL_退费是否打印', '退费是否打印', '如果全部退费则不用打印', 1, 0, Null, 1, 'select sum(a.VAJ37+Isnull(b.VAJ37,0)) from VAJ1 a Left Join VAJ1 b on a.VAJ01 = b.VAJ09 WHERE a.VAK01 = %d', '2009-09-18 16:05:51', Null, 0) else print 'sys_Scripts.id=1744 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2000) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2000, 78, 'Sql_是否取消床位', '病人是否取消床位', '判断病人是否取消床位', 1, 0, Null, 1, 'select * from Bcq1 where VAA01 = %d', '2009-11-10 11:29:24', Null, 0) else print 'sys_Scripts.id=2000 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2027) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2027, 78, 'SQL_临时打折明细', '临时打折明细', '结账时检索临时打折明细，除去不打折的费目明细', 1, 0, Null, 1, 'select cast(d.VAI04 as varchar(255)) VAI04 ,b.BBY05--收费项目名称 ,b.BBY06--规格 ,b.AAS01--偿付类型 ,b.ABF01--收据费别 ,C.BCK03--执行科室名称 ,a.VAJ01--ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAJ04--类型 ,a.VAJ05--状态 ,a.ROWNR--次序 ,a.VAJ01A--上级ID ,a.VAJ01B--关联ID ,a.VAJ09--冲销ID ,a.VAJ10--合并标志 ,a.VAI01--单据ID ,a.VAF01--医嘱ID ,a.VAK01--结帐ID ,a.ACF01--医疗服务 ,a.VAJ15--记帐标志 ,a.BCK01A--病区ID ,a.BCK01B--科室ID ,a.BDN01--类型 ,a.BBY01--收费项目ID ,a.BCJ02--发药窗口 ,a.VAJ21--加班标志 ,a.VAJ22--特殊标志 ,a.VAJ23--剂数 ,a.VAJ24--单量 ,a.VAJ25--数量 ,a.VAJ26--急诊标志 ,a.VAJ27--婴儿费 ,a.VAJ28--税率 ,a.VAJ29--税费 ,a.VAJ30--折扣率分子 ,a.VAJ31--折扣率分母 ,a.VAJ32--全价 ,a.VAJ33--单价 ,a.VAJ34--包装 ,a.VAJ35--单位 ,a.VAJ36--全额 ,a.VAJ37--金额 ,case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38--结帐金额 ,a.VAJ39--自费标志 ,a.VAJ40--自负金额 ,a.VAJ41--保险金额 ,a.BCE03A--划价人 ,a.BCK01C--开单科室ID ,a.BCE02B--开单人号 ,a.BCE03B--开单人 ,a.VAJ46--业务时间 ,a.VAJ47--交易时间 ,a.VAJ48--执行ID ,a.BCK01D--执行科室ID ,a.BCE03C--执行者 ,a.VAJ51--执行时间 ,a.VAJ52--执行交易时间 ,a.VAJ53--执行情况 ,a.VAJ54--备注 ,a.BCE02D--操作员# ,a.BCE03D--操作员 ,a.VAJ57--摘要 ,a.FAB03--收据号 ,a.VAJ59--成本价 ,a.VAJ61 ,e.BDN02--收费费目 ,CASE WHEN a.VAJ37-isnull(VAJ38,0)=a.VAJ37 THEN 0 ELSE (a.VAJ37-isnull(a.VAJ38,0)) END AS yhmoney from VAJ1 a --病人费用明细 JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 LEFT JOIN BDN1 e on a.BDN01=e.BDN01 WHERE a.VAA07=%d AND d.VAI16=1 and a.ACF01 = 1 and a.VAJ04 in(2 , 3 , 5) order by a.VAI01, a.VAF01, a.ROWNR', '2011-08-02 11:38:07', '(8065)冯义强', 0) else print 'sys_Scripts.id=2027 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2028) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2028, 78, 'SQL_判断医嘱是否作废', '判断医嘱是否作废', '判断医嘱是否作废', 1, 0, Null, 1, ' declare @VAK01 int, @count int set @VAK01 = %d select @count=count(1)from VAJ1 where VAK01 = @VAK01 and isnull(VAF01,0) > 0 SELECT Count(a.VAJ01) a1,@count a2 FROM VAJ1 a JOIN VAJ1 b ON a.VAJ01 = b.VAJ09 WHERE a.VAF01 >0 AND a.VAK01 = @VAK01', '2010-05-18 21:00:59', Null, 0) else print 'sys_Scripts.id=2028 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2030) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2030, 78, 'SQL_检索住院病人', '检索住院病人', '检索住院病人', 1, 0, ' SELECT a.VAA01,a.ABW01,a.ABJ01,b.ABC02,a.VAA03,a.VAA04,a.VAA05,a.ABBRP,a.ABBRW,a.VAA06,a.VAA15,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D,b.BCK01D, a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04 ,b.VAE44 ,b.VAE11 ,b.BDP02 , f.VBU01 , f.VCB04 , b.SCF01 , b.BAQ03 FROM VAA1 a JOIN VAE1 b ON a.VAA01=b.VAA01 JOIN BCK1 c ON b.BCK01C=c.BCK01 JOIN BCK1 m ON b.BCK01D=m.BCK01 LEFT JOIN VBM1 d ON a.VAA01=d.VAA01 and d.VBM03=2 LEFT JOIN BCE1 e on b.BCE02C=e.BCE02 LEFT JOIN VBU1 f on f.VBU01 = a.VBU01 WHERE b.VAE44 >=2 and b.VAE44 <= 6 and b.VAE44 <> 5 ', 1, 'select case when VAE04>0 then 4 else VAE44 end VAE44 from VAE1 where VAE01 = %d ', '2014-06-24 14:48:39', '(8065)冯义强', 0) else print 'sys_Scripts.id=2030 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2058) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2058, 78, 'SQL_检索药品住院', '检索药品--住院', '检索收费项目药品，住院', 1, 0, Null, 1, 'DECLARE @lBBY01 int , @ABC02 varchar(20) , @ABC14 tinyint SET @lBBY01 = %d SET @ABC02 = ''%s'' SELECT @ABC14 = ISNULL(ABC14 , 0) from ABC1 where ABC02 = @ABC02 SET @ABC14 = ISNULL(@ABC14 , 0) SELECT a.BBY01 ,BBY05, BBY06, BDG02B BBY08, a.BDN01, a.AAS01, ABF01, (Case @ABC14 when 1 then (case when isnull(b.BAG23 , 0) = 0 then a.BBY25 else b.BAG23 end) else a.BBY25 end) * BAG07 BBY25, BAG07 as BAG05,BAG23,0 as Main,1 as BCR04,-1 as BCR05 ,isnull(a.BBY34,0) bby34 , Isnull(a.BBY19 , 0) BBY19 , a.BBY27 , a.BBY28 , 1 as BCR10 , e.AAS07 FROM BBY1 a JOIN BAG1 b ON a.BBY01 = b.BBY01 LEFT JOIN AAS1 e on e.AAS01 = a.AAS01 WHERE (a.ACF01=2 OR a.ACF01=3) AND a.BBY01 = @lBBY01', '2014-10-11 13:43:39', '(8065)冯义强', 0) else print 'sys_Scripts.id=2058 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2086) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2086, 78, 'SQL_收费项目树形分类', '收费项目树形分类', '收费项目树形分类', 1, 0, Null, 1, 'SELECT -cast(BDM01 AS int)AS BDO01,BDM02 AS BDO02 ,0 AS PatientID, BDM01 FROM BDM1 WHERE BDM01 <= ''4'' UNION all select -BDO01 ,BDO03 ,PatientID = CASE WHEN isnull(BDO01A,0)=0 THEN -cast(BDM01 AS int) ELSE -BDO01A end ,BDM01 from BDO1 WHERE BDM01 <= ''4'' UNION ALL SELECT BCA01 AS BDO01,BCA03 AS BDO02 ,PatientID = CASE WHEN BCA01A IS null THEN -5 ELSE BCA01A END ,5 FROM BCA1', '2009-12-05 09:46:15', Null, 0) else print 'sys_Scripts.id=2086 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2087) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2087, 78, 'SQL_表格收费明细', '检索表格收费明细', '检索表格收费明细', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100), @lBCK01 int ,@CDate datetime , @Paramno varchar(10) , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBCK01 = %d SET @CDate = getdate() SELECT @Paramno = dbo.GetSysParamValue(9999 , 9999, 15 ) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE WHEN @lACF01=1 THEN d.BBY25*c.BAG05 ELSE d.BBY25*c.BAG07 END) end AS BBY25 , Isnull(CASE WHEN @lACF01 = 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END ,0) AS amount , z.BCK01 , Z.BCK03 FROM BBX1 a JOIN BAG1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BBJ1 g ON d.BBY01 = g.BBY01 LEFT JOIN V_DPK6 g1 ON g.BBY01 = g1.BBY01 AND g.BCK01B = g1.BCK01 JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno = ''0'' and d.BDN01 <= ''3'' AND (a.ACF01 = 3 OR a.ACF01 = @lACF01) AND g.BCK01A = @lBCK01 AND exists(select * from BAZ1 z where z.BCK01 = g.BCK01B and z.BAU01 in (''51'', ''52'', ''53'') and z.ACF01 in (@lACF01, 3)) AND d.BBY31 >= @CDate %s AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BDK1 h WHERE h.BBX01 = a.BBX01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE WHEN @lACF01=1 THEN d.BBY25*c.BAG05 ELSE d.BBY25*c.BAG07 END) end AS BBY25 , Isnull(CASE WHEN @lACF01 = 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END ,0) AS amount , z.BCK01 , Z.BCK03 FROM BBX1 a JOIN BAG1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 left JOIN V_DPK6 g1 ON g1.BBY01 = d.BBY01 JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno <> ''0'' and d.BDN01 <= ''3'' AND (a.ACF01 = 3 OR a.ACF01 = @lACF01) AND d.BBY31 >= @CDate and g1.LSQty > 0 %s AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BDK1 h WHERE h.BBX01 = a.BBX01 AND (h.BDK03 LIKE @lSql OR h.ABBRP LIKE @lSql OR h.ABBRW LIKE @lSql))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02, f.AAS07 , a.BBX01, a.BDO01, d.BBy04, d.BBY05 , a.BDG02, null, 0, 0 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , d.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(d.BBY01,@lABC02) else d.BBY25 end BBY25,isnull(k.LSQty,0) , 0 as BCK01 , '''' as BCK03 FROM BBX1 a JOIN BCT1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 left join V_MSK4 k on d.BBY01=k.BBY01 and k.LSQty>0 WHERE d.BDN01 =''4'' AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND d.BBY31 > @CDate AND c.BCT33 = 1 AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(a.BBY01,@lABC02) else a.BBY25 end BBY25,null , 0 as BCK01 , '''' as BCK03 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE (a.BDN01 > ''4'' and a.BDN01 <> ''M'') AND (a.ACF01=3 OR a.ACF01 = @lACF01) AND a.BBY31 > @CDate AND (a.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (%s))) ORDER BY b.BDN01 ', '2014-08-18 15:50:51', '(8088)王海涛', 0) else print 'sys_Scripts.id=2087 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2088) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2088, 78, 'SQL_收费项目对应明细', '检索收费项目对应明细', '检索收费项目对应明细', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBCA01 int, @lSql varchar(100) ,@CDate datetime ,@lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lBCA01 = %d SET @lSql = %s SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02,f.AAS07 ,case when @gparam60=''2'' then dbo.GetBBY1Price(a.BBY01,@lABC02) else a.BBY25 end BBY25 ,a.BBY01 AS BBX01,a.BCA01 AS BDO01,a.BBY04,a.BBY05 , a.BBY06, a.BBE02, a.BBY01, a.BBY08, a.BBY08 AS NUnit , 0 as BCK01 , '''' as BCK03 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE ((@lBCA01>-1 AND a.BCA01 = @lBCA01)OR(@lBCA01=-1 AND a.BDN01 > ''4'')) AND a.BBY31 >= @CDate and (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR (EXISTS(SELECT * FROM BCL1 c WHERE c.BBY01=a.BBY01 AND (c.BCL03 LIKE @lSql OR c.ABBRP LIKE @lSql OR c.ABBRW LIKE @lSql)))) ', '2014-08-18 16:12:58', '(8088)王海涛', 0) else print 'sys_Scripts.id=2088 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2089) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2089, 78, 'SQL_收费项目明细药品', '检索收费项目明细药品', '检索收费项目对应明细 药品', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBDO01 int, @lSql varchar(100), @lBDN01 varchar(10) ,@lABC02 varchar(20),@gparam60 varchar(20), @CDate datetime DECLARE @lBCK01 int SET @lABC02 = %s SET @lACF01 = %d SET @lBDO01 = %d SET @lSql = %s SET @lBDN01 = %s SET @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT e.BDN01, e.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, b.BAP02, b.BBT10, b.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE WHEN @lACF01=1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE WHEN @lACF01=1 THEN d.BBY25*c.BAG05 ELSE d.BBY25*c.BAG07 END) end AS BBY25 , Isnull(CASE WHEN @lACF01 = 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , z.BCK01 , z.BCK03 FROM BBX1 a JOIN BBT1 b ON a.BBX01 = b.BBX01 JOIN BAG1 c ON b.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 e ON d.BDN01 = e.BDN01 JOIN BBJ1 h ON d.BBY01 = h.BBY01 LEFT JOIN V_DPK6 g1 ON h.BBY01 = g1.BBY01 AND h.BCK01B = g1.BCK01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE ((@lBDO01 > -1 AND a.BDO01 = @lBDO01)OR (@lBDO01 = -1 AND a.BDA01 = @lBDN01)) AND h.BCK01A = @lBCK01 AND d.BBY31 > @CDate %s AND (d.ACF01 = 3 OR d.ACF01 = @lACF01) AND (d.BBY04 LIKE @lSql OR (EXISTS(SELECT * FROM BDK1 g WHERE g.BBX01 = a.BBX01 AND (g.BDK03 LIKE @lSql OR g.ABBRP LIKE @lSql OR g.ABBRW LIKE @lSql))))', '2014-08-18 16:32:36', '(8088)王海涛', 0) else print 'sys_Scripts.id=2089 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2092) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2092, 78, 'SQL_结账病人信息', '结账病人信息', '检索结账病人信息', 1, 0, Null, 1, 'SELECT a.VAA07,a.VAI04,b.VAA05,b.ABC02,b.BDP02,a.FAB03 , a.FAB03A , a.PNRCPA , a.PNRCP FROM V_VAK_Full a JOIN VAA1 b ON a.VAA01 = b.VAA01 WHERE a.VAK01=%d', '2013-06-07 15:32:32', '(8065)冯义强', 0) else print 'sys_Scripts.id=2092 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2141) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2141, 78, 'SQL_检索医生', '检索医生', '检索医生', 1, 0, ' select c.BCK01,b.BCK03,BCE41,c.BCE01, BCE02, BCE03, BCE04, BCE05, BCE06, c.ABBRP, c.ABBRW, a.AAH02 From BCE1 C JOIN BCK1 b ON b.BCK01=c.BCK01 LEFT JOIN AAH1 a on c.AAH01 = a.AAH01 where isnull(BCE41,0) = 1 and EXISTS(SELECT * FROM BAA1 d WHERE d.BCE01 = c.BCE01 AND d.AAA01 = ''01'') ', 1, Null, '2011-09-08 11:18:06', '(8065)冯义强', 0) else print 'sys_Scripts.id=2141 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2142) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2142, 78, 'SQL_检索尾数处理', '检索尾数处理项目', '检索尾数处理项目，其项目特性为尾数处理，名称为尾数处理', 1, 0, Null, 1, 'select * from BBR1 a where AAN01 = ''03'' and exists(select * from BBP1 b where a.BBP01 = b.BBP01 and b.AAO01 = ''98'')', '2010-12-15 11:18:34', Null, 0) else print 'sys_Scripts.id=2142 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2143) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2143, 78, 'SQL_获取票据前缀', '获取票据前缀', '获取票据前缀', 1, 0, Null, 1, 'DECLARE @FAB03 varchar(20), @BCE01 int, @AAK01 int SET @FAB03 =''%s'' SET @BCE01 =%d SET @AAK01 =%d SELECT FAA05 FROM FAA1 WHERE FAA10 =len(@FAB03) AND BCE01 =@BCE01 AND AAK01 =@AAK01 AND FAA05=LEFT(@FAB03,len(FAA05)) AND FAA17 >0', '2009-12-18 14:05:45', Null, 0) else print 'sys_Scripts.id=2143 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2144) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2144, 78, 'SQL_检索病人费别', '检索病人费别', '检索病人费别，对应打印票据类型', 1, 0, Null, 1, 'select selected=1,ABC01,ABC02 from ABC1 ', '2009-12-18 15:34:34', Null, 0) else print 'sys_Scripts.id=2144 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2153) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2153, 78, 'SQL_按医生检索科室', '按医生检索科室', '按医生检索科室', 1, 0, ' select BCE01 ,BCE02 ,a.BCK01,b.BCK02,b.BCK03 from BCE1 a join BCK1 b on a.BCK01 = b.BCK01 where BCE01 =%d ', 1, 'select BCE01 ,BCE02 ,a.BCK01,b.BCK02,b.BCK03 from BCE1 a join BCK1 b on a.BCK01 = b.BCK01 where BCE01 =%d', '2009-12-25 13:45:05', Null, 0) else print 'sys_Scripts.id=2153 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=3154) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(3154, 78, 'SQL_更新结账票据号', '更新结账票据号', '更新结账票据号', 1, 0, Null, 1, 'Declare @VAK01 int, @FAB03 varchar(20) set @VAK01=%d set @FAB03=''%s'' update VAK1 set FAB03 =@FAB03 where VAK01=@VAK01 update VBL1 set VBL03 =@FAB03 where VAK01=@VAK01', '2009-12-28 16:37:26', Null, 0) else print 'sys_Scripts.id=3154 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=3156) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(3156, 78, 'SQL_检索结账支付方式', '检索结账支付方式', '检索结账支付方式', 1, 0, Null, 1, 'select VBL01 , VBL13 , VBL14 , VBL15 , VBL18 , VBL19 , case VBL27 when 1 then ''预交款'' when 2 then ''补交款'' end as AType , FAF01 , VBL27 from V_VBL_FULL where VAK01 = %d order by VBL27', '2011-07-07 11:39:27', '(8065)冯义强', 0) else print 'sys_Scripts.id=3156 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=4164) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(4164, 78, 'SQL_病人费用期间', '病人费用期间', '查找病人费用开始与结束时间(住院)', 1, 0, Null, 1, 'select Min(VAJ47) as BDate,Max(VAJ47) as EDate from VAJ1 where VAA07=%d and ACF01=2 and VAK01=0 ', '2011-08-18 16:26:36', '(8065)冯义强', 0) else print 'sys_Scripts.id=4164 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=4204) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(4204, 78, 'SQL_按单据检索明细', '按单据检索明细', '按结账单据检索收费明细', 1, 0, Null, 1, 'select VAJ01,BBY01 from VAJ1 where VAI01=%d', '2010-02-04 14:28:51', Null, 0) else print 'sys_Scripts.id=4204 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5405) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5405, 78, 'SQL_检索结账支付方式', '按结账ID检索支付方式', '检索本次结账支付方式(应收款结账方式)', 1, 0, Null, 1, 'Declare @VAK01 int, @VAK08 numeric(18,4) set @VAK01 = %d select @VAK08 = VAK08 from VAK1 where VAK01 = @VAK01 select VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, VBL27 , @VAK08 VAK08 , FAF01 from V_VBL_FULL a where VAK01 = @VAK01 AND EXISTS(SELECT * FROM BBP1 b WHERE a.VBL15 = b.AAO01 AND b.AAO01 >= ''03'') --AND EXISTS(SELECT * FROM BBP1 b WHERE a.VBL15 = b.AAO01 AND (b.BBP06 = 1 or (b.AAO01 >= ''03'' and b.AAO01 <>''98'')))', '2011-04-08 16:24:06', Null, 0) else print 'sys_Scripts.id=5405 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5408) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5408, 78, 'SQL_更新结账打印次数', '更新结账打印次数', '更新结账打印次数、票据号', 1, 0, Null, 1, 'Declare @VAK01 int, @FAB03 varchar(20) set @VAK01 = %d set @FAB03 = ''%s'' Update VAK1 set FAB03 = @FAB03 ,PNRCP = isnull(PNRCP,0) + 1 where VAK01 = @VAK01 Update VBL1 set VBL03 = @FAB03 where VAK01 = @VAK01 Update VAJ1 set FAB03 = @FAB03 where VAK01 = @VAK01 ', '2010-03-11 19:06:16', Null, 0) else print 'sys_Scripts.id=5408 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5409) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5409, 78, 'SQL_结账本次打印票据', '结账本地打印票据', '检索结账本次打印票据', 1, 0, Null, 1, ' SELECT b.FAB03,b.FAB08,b.BCE03 , CASE b.FAB04 WHEN 1 THEN ''正常打印'' WHEN 2 THEN ''退单回收'' WHEN 3 THEN ''重新打印'' WHEN 4 THEN ''补打回收'' WHEN 5 THEN ''空白回收'' WHEN 6 THEN ''报损'' END as FAB04 ,b.FAA01,b.FAB01,b.AAK01 FROM FAC1 a JOIN FAB1 b ON a.FAC01=b.FAC01 WHERE a.FAC03=''%s'' and b.FAB03 > ''%s''', '2010-03-11 19:37:36', Null, 0) else print 'sys_Scripts.id=5409 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6439) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6439, 78, 'SQL_检索病人结账总额', '检索病人结账总额', '检索病人结账总额', 1, 0, Null, 1, 'Select sum(VAJ38) VAJ38 , sum(VAJ61) VAJ61 from VAJ1 where VAA07 = %d and ACF01 =2 and VAK01 = 0 and VAJ47 between ''%s'' and ''%s'' and VAJ65 = 1', '2013-09-13 11:22:19', '(8065)冯义强', 0) else print 'sys_Scripts.id=6439 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6442) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6442, 78, 'SQL_病人是否未发药', '住院病人是否发药', '检索住院病人是否发药', 1, 0, Null, 1, 'Declare @VAA07 int, @BDate datetime, @EndDate datetime set @VAA07 = %d set @BDate = ''%s'' set @EndDate = ''%s'' select VAJ01 from VAJ1 where VAA07 = @VAA07 and ACF01 = 2 and BDN01 < ''4'' and VAJ46 between @BDate and @EndDate and VAJ53 in(0,3) and isnull(VAK01,0)=0', '2010-04-19 20:01:49', Null, 0) else print 'sys_Scripts.id=6442 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6919) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6919, 78, 'SQL_结账数据是否作废', '结账数据是否作废', '结账数据是否作废', 1, 0, Null, 1, 'select VAK01 from V_VAK_FULL where VAK01A = %d ', '2010-07-10 16:02:01', Null, 0) else print 'sys_Scripts.id=6919 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6921) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6921, 78, 'SQL_是否部分退费', '是否部分退费', '病人退费后，检索是否存在部分退费数据', 1, 0, Null, 1, 'select top 1 VAJ01 from VAJ1 where VAA07 = %d and ACF01 <> 2 and VAK01 =0 and VAJ05 = 1', '2013-07-23 13:31:33', '(8065)冯义强', 0) else print 'sys_Scripts.id=6921 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7230) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7230, 78, 'SQL_结账天数', '结账天数', '判断结账记录是否超出允许退费的天数', 1, 0, Null, 1, 'DECLARE @VAK01 int, @Result int, @CDate datetime SET @VAK01 = %d SELECT @CDate = VAK13 from V_VAK_FULL where VAK01 = @VAK01 SET @Result = Datediff(day , @CDate , getdate()) select @Result Result ', '2013-08-03 20:30:29', '(8088)王海涛', 0) else print 'sys_Scripts.id=7230 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8060) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8060, 78, 'SQL_收费员存在未交款', '收费员是否存在未交款', '判断操作员是否存在超过X小时的未交款数据', 1, 0, Null, 1, 'declare @Hours int, @EmpId int set @Hours = %d set @EmpId = %d select Top 1 VAK01 from VAK1 where VAK18 = 0 and BCE01A = @EmpId and DATEDIFF(HOUR , VAK13 ,GETDATE()) > @Hours ', '2010-09-26 08:58:20', Null, 0) else print 'sys_Scripts.id=8060 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8062) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8062, 78, 'SQL_医嘱能否退费', '判读医嘱单据能否退费', '如果参数勾选退费先经过医生站，则退费申请表中必须有数据才能退费', 1, 0, Null, 1, 'Declare @lVAK01 int set @lVAK01 = %d select top 1 VAJ01 from VAJ1 a where a.VAK01 = @lVAK01 and a.VAF01 > 0 and exists(select * from VBY1 b where a.VAJ01 = b.VAJ01 and b.VBY09 = 1) ', '2010-12-28 16:25:14', Null, 0) else print 'sys_Scripts.id=8062 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8068) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8068, 78, 'SQL_检索会员信息', '检索会员信息', '按病人ID检索会员信息', 1, 0, Null, 1, 'select VBU01 , VBU03 , VCB04 , VBU14 , VBU15 , VBU17 , VBU30 from VBU1 where VAA01 = %d', '2011-08-31 15:55:44', '(8065)冯义强', 0) else print 'sys_Scripts.id=8068 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8069) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8069, 78, 'SQL_社保是否默认支付', '社保记帐是否默认支付方式', '检索社保记帐是否默认支付方式', 1, 0, Null, 1, 'select BBP01 from BBP1 where ISDEF = 1 and AAO01 = ''03''', '2010-10-22 08:56:45', Null, 0) else print 'sys_Scripts.id=8069 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8070) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8070, 78, 'SQL_住院打折费目', '住院打折费目', '住院打折费目，过滤掉已经上传到医保和销账的费用明细', 1, 0, Null, 1, 'SELECT e.ABF01 , e.ABF02, sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ37 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 FROM VAJ1 a JOIN BBY1 c ON c.BBY01 = a.BBY01 LEFT JOIN ABF1 e ON e.ABF01 = c.ABF01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAJ05 = 1 AND VAK01 = 0 %s AND not exists(select * from IAQ1 f where f.VAJ01 = a.VAJ01 and f.IAQ02 = 1) AND not exists(SELECT * FROM IAQ1 f WHERE f.VAJ01 = A.VAJ09 AND f.IAQ02 = 1 and a.VAJ05 = 4) GROUP BY e.ABF01, e.ABF02 ', '2013-09-13 11:30:15', '(8065)冯义强', 0) else print 'sys_Scripts.id=8070 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8071) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8071, 78, 'SQL_住院打折明细', '住院打折明细', '住院打折明细，过滤掉已经上传到医保', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ1 a JOIN bby1 b ON b.BBY01 = a.BBY01 LEFT JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI1 d ON d.VAI01 = a.VAI01 WHERE a.VAA07 = %d AND d.VAI16 <> 2 AND a.ACF01 = 2 AND VAJ05 = 1 AND a.VAK01 = 0 %s AND not exists(select * from IAQ1 f where f.VAJ01 = a.VAJ01 and f.IAQ02 = 1) AND not exists(SELECT * FROM IAQ1 f WHERE f.VAJ01 = A.VAJ09 AND f.IAQ02 = 1 and a.VAJ05 = 4) order by b.ABF01, a.VAF01, a.ROWNR ', '2013-09-13 11:30:31', '(8065)冯义强', 0) else print 'sys_Scripts.id=8071 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8088) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8088, 78, 'SQL_检索结帐金额', '检索结帐金额', '检索本次结帐金额', 1, 0, Null, 1, 'select VAK07 , VAK08 from V_VAK_FULL where VAK01 = %d ', '2010-12-01 10:34:08', Null, 0) else print 'sys_Scripts.id=8088 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=10141) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(10141, 78, 'SQL_结帐原支付方式', '结帐原支付方式', '按结帐ID检索原支付方式(尾数处理除外)', 1, 0, Null, 1, 'Declare @VAK01 int, @VAK08 numeric(18,4) set @VAK01 = %d select @VAK08 = VAK08 from VAK1 where VAK01 = @VAK01 select VBL01, VBL02, VBL03, VBL04, VBL05, VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, VBL27 , @VAK08 VAK08 , FAF01 from V_VBL_FULL a where VAK01 = @VAK01 ', '2011-04-08 16:23:50', Null, 0) else print 'sys_Scripts.id=10141 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=10155) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(10155, 78, 'SQL_退费精确检索', '按输入条件精确检索一条记录(门诊)', '按输入条件精确检索一条结帐记录', 1, 0, Null, 1, 'Declare @FindText varchar(128) , @ASource int SET @FindText = ''%s'' SET @ASource = %d If @ASource = 0 BEGIN If LEN(@FindText) < 11 and @FindText<=''9'' SET @FindText = ''K'' + right(''0000000000'' + @FindText , 10) END SELECT VAK01,FAB03,VAI04,VAK07,VAK08,VAK08-VAK07 as wscl,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19 , b.ABBRP , b.ABBRW ,a.VAK21 ,a.VAK21 - a.VAK23 as yhje , a.VAK21 - isnull(a.VAK24,0) jmyh , a.VAK23 , a.VAA07 , a.BCE01A ,a.FAC01 , 1 as PARTS , a.VAK18 , FAB03A FROM VAK1 a JOIN VAA1 b ON b.VAA01 = a.VAA01 JOIN VAC1 c ON c.VAC01 = a.VAA07 WHERE a.VAK06 = 2 and (a.VAI04 = @FindText or b.VAA05=@FindText or a.FAB03=@FindText or b.VAA02 = @FindText) UNION ALL SELECT VAK01,FAB03,VAI04,VAK07,VAK08,VAK08-VAK07 as wscl,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19 , b.ABBRP , b.ABBRW ,a.VAK21 ,a.VAK21 - a.VAK23 as yhje , a.VAK21 - isnull(a.VAK24,0) jmyh , a.VAK23 , a.VAA07 , a.BCE01A ,a.FAC01 , 2 as PARTS , a.VAK18 , FAB03A FROM VAK2 a JOIN VAA1 b ON b.VAA01 = a.VAA01 JOIN VAC1 c ON c.VAC01 = a.VAA07 WHERE a.VAK06 = 2 and (a.VAI04 = @FindText or b.VAA05=@FindText or a.FAB03=@FindText or b.VAA02 = @FindText) ', '2013-10-18 11:52:54', '(8065)冯义强', 0) else print 'sys_Scripts.id=10155 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=10156) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(10156, 78, 'SQL_取消结帐精确检索', '取消结帐精确检索(住院)', '取消结帐精确检索', 1, 0, Null, 1, 'Declare @FindText varchar(128) , @ASource int SET @FindText = ''%s'' SET @ASource = %d If @ASource = 0 BEGIN If LEN(@FindText) < 11 and @FindText<=''9'' SET @FindText = ''K'' + right(''0000000000'' + @FindText , 10) END SELECT VAK01,FAB03,VAI04,VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10,d.BDP02, a.VAA01,a.VAA07,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11,b.ABBRP,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje, a.VAK07 as wsje,a.VAK15,a.VAK16 , a.VAK23 - isnull(VAK24,0) jmyh , a.VAK23 , a.BCE01A , 1 as PARTS , VAK18 FROM VAK1 a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 WHERE a.VAK06 > 2 AND (a.VAI04 = @FindText or b.VAA05=@FindText or a.FAB03=@FindText) UNION ALL SELECT VAK01,FAB03,VAI04,VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10,d.BDP02, a.VAA01,a.VAA07,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11,b.ABBRP,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje, a.VAK07 as wsje,a.VAK15,a.VAK16 , a.VAK23 - isnull(VAK24,0) jmyh , a.VAK23 , a.BCE01A , 2 as PARTS , VAK18 FROM VAK2 a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 WHERE a.VAK06 > 2 AND (a.VAI04 = @FindText or b.VAA05=@FindText or a.FAB03=@FindText)', '2013-06-08 09:41:02', '(8065)冯义强', 0) else print 'sys_Scripts.id=10156 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11589) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11589, 78, 'SQL_获取会员预收金额', '获取会员预收金额', '按病人就诊ID获取会员预收金额', 1, 0, Null, 1, 'SELECT sum(VAJ38) VCA10 FROM VAJ1 where VAA07 = %d and VAJ04 = 3 and VAJ05 = 1 %s ', '2012-11-12 10:08:49', '(8065)冯义强', 0) else print 'sys_Scripts.id=11589 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11593) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11593, 78, 'SQL_部分退费未结帐', '是否存在部分退费未结帐信息', '按操作员检索是否存在部分退费未结帐信息', 1, 0, Null, 1, 'select VBX01 from VBX1 where ACF01 = 1 and VBX03 = 1 and VBX04 = 2 and VBX22 = 1 and BCE01A = %d ', '2013-07-09 17:03:38', '(8065)冯义强', 0) else print 'sys_Scripts.id=11593 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11594) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11594, 78, 'SQL_住院病人结帐总额', '住院病人结帐总额', '检索住院病人结帐总额(过滤销账数据)', 1, 0, Null, 1, 'Select sum(VAJ38) VAJ38 , sum(VAJ61) VAJ61 from VAJ1 where VAA07 = %d and ACF01 =2 and VAK01 = 0 ', '2013-09-13 11:21:53', '(8065)冯义强', 0) else print 'sys_Scripts.id=11594 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11696) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11696, 78, 'SQL_住院中途结帐检索', '住院中途结帐检索', '住院中途结帐检索', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, case a.VAJ39 when 0 then ''正常'' when 1 then ''自费'' when 2 then ''免费'' end as VAJ39S , a.VAJ39 ,Isnull(a.VAJ40 , 0) VAJ40 ,Isnull(a.VAJ41 , 0) VAJ41 ,a.BCE03A ,a.BCK01C , a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 , a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 , a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 , b.AAS01 , a.VAJ65 , cast(0 as tinyint) selected from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI1 d ON d.vai01 = a.VAI01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAK01 = 0 AND VAJ65 = %d %s order by b.ABF01, a.VAF01, a.ROWNR ', '2013-09-13 11:26:01', '(8065)冯义强', 0) else print 'sys_Scripts.id=11696 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11698) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11698, 78, 'SQL_检索所有收费项目', '检索所有收费项目', '检索所有收费项目', 1, 0, ' DECLARE @lText varchar(128) SET @lText = %s SELECT a.BBY01,a.BBY04,a.BBY06,a.BBY05,a.BBY25,a.BCK01,a.BAX01,a.AAS01 AS En_Name FROM BBY1 a WHERE (a.BBY04 LIKE @lText OR EXISTS(SELECT c.BBY01 FROM BCL1 c WHERE a.BBY01 = c.BBY01 AND (c.BCL03 LIKE @lText OR c.ABBRP LIKE @lText OR c.ABBRW LIKE @lText))) ORDER BY a.BBY01 ', 1, ' ', '2011-09-21 14:01:16', '(8065)冯义强', 0) else print 'sys_Scripts.id=11698 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11932) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11932, 78, 'SQL_一卡通病人信息', '已扣费一卡通病人信息', '已扣费一卡通病人信息', 1, 0, Null, 1, 'select * INTO #a from (select VAA01 , VAA07 from VCA1 where VAK01 = 0 and VCA09 = 0 group by VAA01 , VAA07 ) a select 0 as selected , a.VAA01 , a.VAA07 , b.VAA02, b.VAA03 , b.VAA05 , c.VAC36 ,d.BCK03 , c.BCE03A , c.VAA10 , case b.ABW01 when ''0'' then ''未知'' when ''1'' then ''男'' when ''2'' then ''女'' end as ABW02 from #a a join VAA1 b on b.VAA01 = a.VAA01 join VAC1 c on c.VAC01 = a.VAA07 join BCK1 d on d.BCK01 = c.BCK01A ', '2011-12-30 15:52:00', '(8065)冯义强', 0) else print 'sys_Scripts.id=11932 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11933) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11933, 78, 'SQL_会员交易记录', 'SQL_会员交易记录', 'SQL_会员交易记录', 1, 0, Null, 1, 'select VCA18 , a.VAI01 , VCA10 , BCE03 , VCA19 , b.VAI04 , Case VCA07 when 1 then ''门诊记账'' when 2 then ''药房发药'' when 3 then ''医嘱记账'' when 4 then ''医技执行'' end as Atype from VCA1 a join VAI1 b on b.VAI01 = a.VAI01 where a.VAK01 = 0 and a.VAA07 = %d', '2011-12-31 09:21:26', '(8065)冯义强', 0) else print 'sys_Scripts.id=11933 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11935) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11935, 78, 'SQL_检索字段精度', 'SQL_检索字段精度', 'SQL_检索字段精度', 1, 0, Null, 1, ' select a.name as [column],b.name as type , a.xscale AS xscale from syscolumns a JOIN systypes b ON b.xtype = a.xtype where a.id=object_id(''%s'') AND a.name =''%s''', '2012-01-04 14:04:48', '(8065)冯义强', 0) else print 'sys_Scripts.id=11935 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11940) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11940, 78, 'SQL_检索CRM信息', '检索CRM信息', '根据结账ID检索CRM客户ID、预约ID', 1, 0, Null, 1, 'Declare @ACF01 int , @VAK01 int SET @ACF01 = %d SET @VAK01 = %d IF @ACF01 = 1 BEGIN select c.SCA01 , c.SCF01 from VAK1 a join VAC1 b on b.VAC01 = a.VAA07 join SCF1 c on c.SCF01 = b.SCF01 where a.VAK01 = @VAK01 END ELSE IF @ACF01 = 2 BEGIN select c.SCA01 , c.SCF01 from VAK1 a join VAE1 b on b.VAE01 = a.VAA07 join SCF1 c on c.SCF01 = b.SCF01 where a.VAK01 = @VAK01 END ', '2012-04-25 11:33:24', '(8065)冯义强', 0) else print 'sys_Scripts.id=11940 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=12069) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(12069, 78, 'SQL_检索婴儿信息', '检索婴儿信息', '检索婴儿信息', 1, 0, Null, 1, 'SELECT 0 as VAP01 , ''所有婴儿'' as VAP05 , 0 as ROWNR UNION ALL SELECT VAP01 , VAP05 , ROWNR FROM VAP1 WHERE VAA07 = %d order by ROWNR', '2012-05-10 14:53:11', '(8065)冯义强', 0) else print 'sys_Scripts.id=12069 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=12074) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(12074, 78, 'SQL_检索CRM咨询师', '检索CRM咨询师', '按就诊ID检索CRM咨询师', 1, 0, Null, 1, 'Declare @SCF01 int SET @SCF01 = %d SELECT BCE01D , BCE03D from SCF1 where SCF01 = @SCF01 ', '2012-05-29 09:26:55', '(8065)冯义强', 0) else print 'sys_Scripts.id=12074 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=12075) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(12075, 78, 'SQL_检索合约单位', '检索合约单位', '检索合约单位', 1, 0, ' select BAQ01, BAQ02, BAQ03, BEC01, LVLNR, ABBRP, ABBRW, BAQ08, BAQ09, BAQ10, BAQ11, BAQ12, BAQ13, BAQ14, BAQ15, BAQ16, BAQ17, BAQ18, BAQ19, BAQ20, BAQ21 from BAQ1 ', 1, Null, '2012-05-29 09:48:23', '(8065)冯义强', 0) else print 'sys_Scripts.id=12075 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13079) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13079, 78, 'SQL_病人类别格式对应', '病人类别票据格式对应', '病人类别票据格式对应', 1, 0, Null, 1, 'Declare @DefId int , @Defforms varchar(128) set @DefId = %d set @Defforms = ''%s'' select BDP01 , BDP02 ,@DefId Id , @Defforms ReportForms from BDP1 ', '2012-06-13 11:22:16', '(8065)冯义强', 0) else print 'sys_Scripts.id=13079 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13080) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13080, 78, 'SQL_检索报表默认格式', '按编码检索报表默认格式', '按编码检索报表默认格式', 1, 0, Null, 1, 'SELECT Id, xDefault, Name FROM Report_Forms WHERE Enabled=1 and XDEFAULT = 1 and EXISTS(SELECT id FROM Report_Objects WHERE code=''%s'' AND id=Report_Forms.ReportID)', '2012-06-13 10:48:09', '(8065)冯义强', 0) else print 'sys_Scripts.id=13080 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13083) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13083, 78, 'SQL_支付方式按类型', '按类型检索支付方式', '按类型检索支付方式', 1, 0, ' SELECT BBP01 , BBP02 , AAO01 from BBP1 where AAO01 = ''%s'' ', 1, 'SELECT BBP01 , BBP02 , AAO01 from BBP1 where AAO01 = ''%s''', '2012-07-04 15:04:18', '(8065)冯义强', 0) else print 'sys_Scripts.id=13083 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13084) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13084, 78, 'SQL_检索病人类别', '检索病人类别', '检索病人类别', 1, 0, Null, 1, 'select BDP01, BDP02, ABBRP, ABBRW, BDP05, ISDEF, BDP07, BDP08, ACF01 , BBP02 from BDP1 where BDP02 = ''%s'' ', '2012-07-06 09:32:29', '(8065)冯义强', 0) else print 'sys_Scripts.id=13084 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13085) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13085, 78, 'SQL_参数权限分类', '检索参数权限分类', '检索参数权限分类', 1, 0, Null, 1, 'select 0 as Privilege , ''公共'' as Des union all select 1 as Privilege , ''个人'' as Des union all select 3 as Privilege , ''科室'' as Des', '2012-07-09 15:36:00', '(8065)冯义强', 0) else print 'sys_Scripts.id=13085 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13086) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13086, 78, 'SQL_返回票据明细', '按批次返回指定张数票据明细', '按批次返回指定张数票据明细', 1, 0, Null, 1, 'DECLARE @FAB04 INT = %d, @FAC04 int = %d, @AAK01 int = %d, @FAA01 int = %d, @FAA25 tinyint = %d IF @FAB04 = 3 --重打 BEGIN SELECT b.FAB03, b.FAB17 FROM FAC1 a JOIN FAB1 b ON a.FAC01=b.FAC01 JOIN FAA1 c on c.FAA01=b.FAA01 WHERE a.FAC04=@FAC04 AND B.AAK01=@AAK01 and c.FAA25 = @FAA25 END ELSE BEGIN select Top %d FAB03, '''' as FAB17 from FAE1 a JOIN FAA1 b on b.FAA01 = a.FAA01 where a.FAA01 = @FAA01 and DFLAG = 0 and b.FAA25 = @FAA25 order by ROWNR END ', '2013-03-26 10:55:25', '(8065)冯义强', 0) else print 'sys_Scripts.id=13086 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13287) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13287, 78, 'SQL_界面设置元素', '界面设置元素', '门诊结算界面设置元素', 1, 0, Null, 1, 'Select convert(bit,1) as Selected,FieldName =''col_Find'',Des=''检索(F8)'',RowNo=0,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAA01'',Des=''保险机构'',RowNo=1,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAK05'',Des=''保险号'',RowNo=2,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAk04'',Des=''保险卡号'',RowNo=3,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAI03'',Des=''医疗类别'',RowNo=4,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_VAA03'',Des=''门诊号'',RowNo=5,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_VAA05'',Des=''姓名'',RowNo=6,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_Sex'',Des=''性别'',RowNo=7,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_BCK03'',Des=''科室'',RowNo=9,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_Doctor'',Des=''医生'',RowNo=10,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_BDP02'',Des=''病人类别'',RowNo=11,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_ABC02'',Des=''费别'',RowNo=12,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_BCE03A'',Des=''咨询师'',RowNo=13,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_BCE03B'',Des=''伙伴'',RowNo=14,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_VAK17'',Des=''备注'',RowNo=15,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAC03'',Des=''医保特病名称'',RowNo=16,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_Datetime'',Des=''时间'',RowNo=17,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAC02'',Des=''医保特病编码'',RowNo=19,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAD04'',Des=''疾病名称'',RowNo=20,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAD03'',Des=''疾病编码'',RowNo=21,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_IAR33'',Des=''医保帐户余额'',RowNo=22,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,1) as Selected,FieldName =''col_Memo'',Des=''医保备注信息'',RowNo=23,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,0) as Selected,FieldName =''col_VCJ10'',Des=''转出机构'',RowNo=24,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,0) as Selected,FieldName =''col_VCJ11'',Des=''转诊医生'',RowNo=25,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,0) as Selected,FieldName =''col_VCJ12'',Des=''转诊单号'',RowNo=26,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,0) as Selected,FieldName =''col_VCJ13'',Des=''转诊诊断'',RowNo=27,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput Union All Select convert(bit,0) as Selected,FieldName =''col_VCJ14'',Des=''转诊备注'',RowNo=28,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit , convert(bit,0) as MustInput ', '2012-09-03 11:22:47', '(8088)王海涛', 0) else print 'sys_Scripts.id=13287 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13288) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13288, 78, 'SQL_检索转出机构', '检索转出机构', '检索转出机构', 1, 0, ' select BKB01, BKB02, ABBRP, ABBRW, BKB06, ROWNR from BKB1 where BKB06 = 1order by ROWNR ', 1, Null, '2012-08-29 10:05:24', '(8065)冯义强', 0) else print 'sys_Scripts.id=13288 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13289) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13289, 78, 'SQL_检索转诊医生', '检索转诊医生', '检索转诊医生', 1, 0, ' select BKC01, BKC02, ABBRP, ABBRW, BKC06, ROWNR from BKC1 where BKC06 = 1 and BKB01 = ''%s''order by ROWNR ', 1, Null, '2013-04-15 15:29:35', '(8065)冯义强', 0) else print 'sys_Scripts.id=13289 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13394) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13394, 78, 'SQL_共用票据', '按类型检索共用票据', '按类型检索共用票据', 1, 0, Null, 1, 'Declare @AAK01 int SET @AAK01 = %d select cast(0 as smallint) Selected , FAA01 , AAK01 , BCE01 , BCE03A , FAA05 , FAA06 , FAA07 , FAA08 , FAA09 , FAA10 , FAA11 , FAA12 , BCE03B , FAA14 , FAA15 , FAA16 , FAA17 , FAA18 , BCE03C , FAA20 , FAA21 , FAA22 , FAA23 , FAA24 , FAA25 , case FAA25 when 0 then ''普通'' when 1 then ''收据'' end as NFAA25 from FAA1 where SUBSTRING(FAA28 , @AAK01 , 1) = ''1'' and (FAA25 = 0 or @AAK01 = 3) and FAA11 = 1 and FAA17 > 0 ', '2013-01-07 10:24:58', '(8065)冯义强', 0) else print 'sys_Scripts.id=13394 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13395) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13395, 78, 'SQL_票据使用方式', '获取票据使用方式', '获取票据使用方式', 1, 0, Null, 1, 'SELECT FAA11 FROM FAA1 WHERE FAA01 = %d ', '2012-09-19 15:32:31', '(8065)冯义强', 0) else print 'sys_Scripts.id=13395 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13397) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13397, 78, 'SQL_门诊结算参数', '门诊结算参数', '门诊结算参数', 1, 0, Null, 1, 'SELECT ID , Name , ParamNo , Privilege from Sys_Parameters where ProductId = 100 and ProgramId = 103010 and ParamNo in(36 ,37 , 55 ,57 ,82) order by ParamNo ', '2012-12-21 11:44:07', '(8065)冯义强', 0) else print 'sys_Scripts.id=13397 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15435) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15435, 78, 'SQL_本次就诊当天费用', '显示病人当次就诊当天费用总额', '显示病人当次就诊当天费用总额', 1, 0, Null, 1, 'Declare @VAA01 int , @VAA07 int , @TotalFee numeric(18,4) , @ShowCaption varchar(20), @CDate varchar(10) SET @VAA01 = %d SET @VAA07 = %d SET @ShowCaption =''现金共计：'' SET @CDate = CONVERT(varchar(10) , GETDATE() , 121) SELECT @TotalFee = SUM(VBL13) from VBL1 where VAA01 = @VAA01 and VAA07 = @VAA07 and VBL04 = 3 and BCE03=@$EmpName and VBL15=''01'' SELECT @TotalFee as TotalFee , @ShowCaption as ShowCaption ', '2012-12-31 15:48:56', '(8065)冯义强', 1) else print 'sys_Scripts.id=15435 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15436) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15436, 78, 'SQL_门诊结帐检索', '门诊结帐检索', '门诊结帐检索(按条件)', 1, 0, Null, 1, 'SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh, 1 as PARTS , a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23, a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK1 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = a.VAK01 WHERE %s and VAK19 = 1 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh,1 as PARTS , a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK1 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = -a.VAK01A WHERE %s and VAK19 = 2 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh,2 as PARTS , a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23, a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK2 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = a.VAK01 WHERE %s and VAK19 = 1 UNION ALL SELECT a.VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh,2 as PARTS , a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23,a.BCE03B , a.VAA07 , a.BCE01A ,d.IAS46 , d.IAS48 , d.IAS49 , d.IAS50 , d.IAS51 , d.IAS52 , d.IAS53 , d.IAS54 , d.IAS55 , d.IAS56 , a.FAC01 , a.FAB03A , a.VAK18 , c.VAC09 FROM VAK2 a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 LEFT JOIN IAS1 d on d.VAK01 = -a.VAK01A WHERE %s and VAK19 = 2 order by a.VAK01 desc ', '2014-04-02 10:19:35', '(8065)冯义强', 0) else print 'sys_Scripts.id=15436 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15441) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15441, 78, 'SQL_住院结帐检索', '住院结帐检索', '住院结帐检索(按条件)', 1, 0, Null, 1, 'SELECT a.VAK01,VAA07,FAB03,VAI04,a.VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11 ,b.ABBRP ,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje,a.VAK15,a.VAK16 ,d.BDP02 , a.VAK23 - isnull(VAK24,0) jmyh , a.BCE03B , a.VAK23 , a.BCE01A , c.IAS46 , c.IAS48 , c.IAS49 , c.IAS50 , c.IAS51 , c.IAS52 , c.IAS53 , c.IAS54 , c.IAS55 , c.IAS56 , a.FAB03A , a.VAK18 FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 LEFT JOIN V_IAS1_Input c on c.VAK01 = a.VAK01 WHERE %s and VAK19 = 1 UNION ALL SELECT a.VAK01,VAA07,FAB03,VAI04,a.VAK06,VAK07,VAK08,b.VAA04,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,d.VAE11 ,b.ABBRP ,b.ABBRW , a.VAK21,a.VAK21 - a.VAK23 as yhje,a.VAK15,a.VAK16 ,d.BDP02 , a.VAK23 - isnull(VAK24,0) jmyh , a.BCE03B , a.VAK23 , a.BCE01A , c.IAS46 , c.IAS48 , c.IAS49 , c.IAS50 , c.IAS51 , c.IAS52 , c.IAS53 , c.IAS54 , c.IAS55 , c.IAS56 , a.FAB03A , a.VAK18 FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAE1 d on a.VAA07 = d.VAE01 LEFT JOIN V_IAS1_Input c on c.VAK01 = -a.VAK01A WHERE %s and VAK19 = 2', '2013-05-17 13:56:17', '(8065)冯义强', 0) else print 'sys_Scripts.id=15441 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15446) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15446, 78, 'SQL_检索有指定权限人', '检索有指定权限的人', '检索有指定权限的人', 1, 0, Null, 1, 'Declare @ElementID int SET @ElementID = %d SELECT ID , Code , EmployeeID , Name FROM SYS_Users WHERE ID in (select b.UserID from SYS_RolePermissions a join SYS_UserRoles b on b.RoleID = a.RoleID where XTYPE =0 and ElementID = @ElementID and Permission =1 and b.UserID <> @$UserId union all select UserID from SYS_UserPermissions where XTYPE =0 and ElementID = @ElementID and Permission =1 and UserID <> @$UserId )', '2013-01-10 16:32:23', '(8065)冯义强', 0) else print 'sys_Scripts.id=15446 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15458) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15458, 78, 'SQL_体检检索待结费用', '体检检索待结费用', '体检检索待结费用', 1, 0, Null, 1, 'Declare @VAA07 int SET @VAA07 = %d select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C , a.VAJ67 , s.AAS07 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 >= ''4'' and d.VAI16 = 1 and a.ACF01 <> 2 and VAJ05 = 1 and a.VAK01 = 0 and a.VAJ04 in(2 , 3 , 5) union all select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,(a.VAJ24/a.VAJ34) AS VAJ24,(a.VAJ25/a.VAJ34) AS VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,(a.VAJ32*a.VAJ34) AS VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , VAJ34 ,b1.BDG02A AS VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C ,a.VAJ67 , s.AAS07 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 <= ''3'' and d.VAI16 = 1 and a.ACF01 <> 2 and VAJ05 = 1 and a.VAK01 = 0 and a.VAJ04 in(2 , 3 , 5) union all select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C ,a.VAJ67 , s.AAS07 from VAJT a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 >= ''4'' and d.VAI16 = 1 and a.ACF01 <> 2 and VAJ05 = 1 and a.VAK01 = 0 and a.DFLAG = 0 and a.VAJ04 in(2 , 3 , 5) union all select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,(a.VAJ24/a.VAJ34) AS VAJ24,(a.VAJ25/a.VAJ34) AS VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,(a.VAJ32*a.VAJ34) AS VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , VAJ34 ,b1.BDG02A AS VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 , c.BCK03 BCK03C ,a.VAJ67 , s.AAS07 from VAJT a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 JOIN BCK1 m on m.BCK01 = a.BCK01C LEFT JOIN AAS1 s on s.AAS01 = b.AAS01 WHERE a.VAA07 = @VAA07 AND a.BDN01 <= ''3'' and d.VAI16 = 1 and a.ACF01 <> 2 and VAJ05 = 1 and a.VAK01 = 0 and a.DFLAG = 0 and a.VAJ04 in(2 , 3 , 5) order by a.VAI01, a.VAF01, a.ROWNR ', '2014-09-18 15:47:35', '(8065)冯义强', 0) else print 'sys_Scripts.id=15458 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15474) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15474, 78, 'SQL_检索病人复诊项目', '检索病人复诊项目', '检索病人复诊项目', 1, 0, Null, 1, '/* ScriptId(15474) */ /* Description(检索病人复诊项目) */ DECLARE @VCY01 int, @aDate datetime,@ABC02 varchar(20) SET @VCY01 = %d set @aDate = Getdate() set @ABC02 = '''' if OBJECT_ID(''tempdb..#tmpvaf'') is not null drop table #tmpvaf select a.* ,0 as BBY25 into #tmpvaf from VAFT a where a.VCY01 = @VCY01 and a.IsDel = 0 SELECT a.VAF22,a.VAF21,a.BCK01B as BCK01,d.BCK03,e.AAS02,b2.BDG02A as BBY08, ''正常收费'' AS FBDU10 ,a.BBY25*b2.BAG05 AS lPrice , b.BDN01 ,case when b.BDN01 = ''3'' then a.BBY25*b2.BAG05*a.VAF20 else a.BBY25*b2.BAG05*a.VAF21 end AS lMoney ,a.CBM01,a.VAF59,a.Rownr,b.BBY04,b.BBY01 , a.BCK01A , f.BCK03 as BCK03A ,a.BCE01A ,a.BCE03A FROM #tmpvaf a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b2 ON b.BBY01 = b2.BBY01 LEFT JOIN BCK1 d ON a.BCK01B = d.BCK01 LEFT JOIN AAS1 e ON b.AAS01 = e.AAS01 LEFT JOIN BCK1 f on f.BCK01 = a.BCK01A WHERE a.VAF04 = 1 AND b.BDN01 >= ''1'' And b.BDN01 <= ''3'' UNION ALL SELECT a.VAF22,a.VAF21,a.BCK01B as BCK01,d.BCK03,e.AAS02,b.BBY08, ''正常收费'' AS FBDU10 ,b.BBY25 AS lPrice , b.BDN01 ,b.BBY25*a.VAF21*b2.BDU04 AS lMoney ,a.CBM01,a.VAF59,a.Rownr ,b.BBY04,b.BBY01 , a.BCK01A , f.BCK03 as BCK03A ,a.BCE01A ,a.BCE03A FROM #tmpvaf a JOIN BDU1 b2 ON a.BBX01 = b2.BBX01 JOIN BBY1 b ON b2.BBY01 = b.BBY01 LEFT JOIN BCK1 d ON a.BCK01B = d.BCK01 LEFT JOIN AAS1 e ON b.AAS01 = e.AAS01 LEFT JOIN BCK1 f on f.BCK01 = a.BCK01A WHERE a.VAF04 = 1 AND b.BDN01 > ''4'' and b.BDN01 <> ''M'' union all SELECT a.VAF22,a.VAF21,a.BCK01B as BCK01 ,d.BCK03,e.AAS02,b.BBY08, ''正常收费'' AS FBDU10 ,b.BBY25 AS lPrice , b.BDN01,b.BBY25*a.VAF21 AS lMoney ,a.CBM01,a.VAF59,a.Rownr ,b.BBY04,b.BBY01, a.BCK01A , f.BCK03 as BCK03A ,a.BCE01A ,a.BCE03A FROM #tmpvaf a JOIN BBY1 b ON b.BBY01 = a.BBY01 LEFT JOIN BCK1 d ON a.BCK01B = d.BCK01 LEFT JOIN AAS1 e ON b.AAS01 = e.AAS01 LEFT JOIN BCK1 f on f.BCK01 = a.BCK01A WHERE a.VAF04 = 1 AND b.BDN01 in (''4'',''M'') if OBJECT_ID(''tempdb..#tmpvaf'') is not null drop table #tmpvaf ', '2013-03-13 14:48:27', '(8065)冯义强', 0) else print 'sys_Scripts.id=15474 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15475) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15475, 78, 'SQL_检索复诊预约计划', '按病人ID检索复诊预约计划', '按病人ID检索复诊预约计划', 1, 0, Null, 1, 'SELECT VCY01 FROM VCY1 WHERE VAA01 = %d and VCY10 = 0', '2013-03-12 09:46:55', '(8065)冯义强', 0) else print 'sys_Scripts.id=15475 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16615) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16615, 78, 'SQL_检索医保退费记录', '按结算ID检索医保退费记录', '按结算ID检索医保退费记录', 1, 0, Null, 1, 'select IAS01, IAR01, ACF01, IAA01, IAB02, IAI03, IAK05, IAA04, IAR24, IAR25, IAS11, IAS12, VAK01, IAU03, IAC02, IAC03, IAD03, IAD04, IAS19, IAS20, IAS21, IAS22, IAS23, IAS24, IAS25, IAS26, IAS27, IAS28, IAS29, IAS30, IAS31, IAS32, IAS33, BCE01, BCE03, IAS36, IAS37, IAS38, IAS39, IAS40, IAS41, IAS42, IAQ13, IAQ12, IAS45, IAS46, IAS47, IAS48, IAS49, IAS50, IAS51, IAS52, IAS53, IAS54, IAS55, IAS56, IAS57, IAS58, IAS59, VAI01, VAI01C from IAS1 where VAK01 = -%d ', '2013-09-12 10:26:31', '(8065)冯义强', 0) else print 'sys_Scripts.id=16615 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16641) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16641, 78, 'SQL_住院病人总额Ex', '检索住院病人结账总额(分表)', '检索住院病人结算总额', 1, 1, Null, 1, 'Select sum(VAJ38) VAJ38 , sum(VAJ61) VAJ61 from VAJ2 where VAA07 = %d and ACF01 =2 and VAK01 = 0 ', '2013-11-06 13:56:13', '(8065)冯义强', 0) else print 'sys_Scripts.id=16641 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16642) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16642, 78, 'SQL_中途结算病人总额', '检索中途结算病人总额(分表)', '检索中途结算病人总额', 1, 1, Null, 1, 'Select sum(VAJ38) VAJ38 , sum(VAJ61) VAJ61 from VAJ2 where VAA07 = %d and ACF01 =2 and VAK01 = 0 and VAJ47 between ''%s'' and ''%s'' and VAJ65 = 1', '2013-11-06 13:58:59', '(8065)冯义强', 0) else print 'sys_Scripts.id=16642 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16643) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16643, 78, 'SQL_住院病人费目Ex', '按费目汇总病人费用', '按费目汇总住院病人费用', 1, 1, Null, 1, 'SELECT e.ABF01 , e.ABF02, VAJ30 = 100 , VAJ31 =100 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ36 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 , sum(Isnull(a.VAJ40 ,0)) VAJ40 , sum(Isnull(a.VAJ41 , 0)) VAJ41 FROM VAJ2 a JOIN BBY1 c ON a.BBY01 = c.BBY01 LEFT JOIN ABF1 E ON c.ABF01 = e.ABF01 WHERE a.VAA07=%d AND a.ACF01=2 and a.VAJ05 <>2 and VAK01 = 0 %s GROUP BY e.ABF01, e.ABF02 ', '2013-11-06 14:17:40', '(8065)冯义强', 0) else print 'sys_Scripts.id=16643 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16644) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16644, 78, 'SQL_住院费用明细Ex', '检索住院病人费用明细', '检索住院病人费用明细', 1, 1, Null, 1, ' select '''' VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ67, case a.VAJ39 when 0 then ''正常'' when 1 then ''自费'' when 2 then ''免费'' end as VAJ39S , a.VAJ39 ,Isnull(a.VAJ40 , 0) VAJ40 ,Isnull(a.VAJ41 , 0) VAJ41 ,a.BCE03A ,a.BCK01C , a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 , a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 , a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 , b.AAS01 from VAJ2 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON c.BCK01 = a.BCK01D --JOIN VAI2 d ON d.vai01 = a.VAI01 WHERE a.VAA07 = %d and a.ACF01 = 2 and a.VAJ05 <> 2 and a.VAK01 = 0 %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-04-15 16:37:50', '(8088)王海涛', 0) else print 'sys_Scripts.id=16644 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16645) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16645, 78, 'SQL_病人费用期间Ex', '住院病人费用期间(分表)', '住院病人费用期间', 1, 1, Null, 1, 'select Min(VAJ47) as BDate,Max(VAJ47) as EDate from VAJ2 where VAA07=%d and ACF01=2 and VAK01=0 ', '2013-11-06 15:02:43', '(8065)冯义强', 0) else print 'sys_Scripts.id=16645 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16646) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16646, 78, 'SQL_中途结帐检索Ex', '住院中途结算检索(分表)', '住院中途结算检索(分表)', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, case a.VAJ39 when 0 then ''正常'' when 1 then ''自费'' when 2 then ''免费'' end as VAJ39S , a.VAJ39 ,Isnull(a.VAJ40 , 0) VAJ40 ,Isnull(a.VAJ41 , 0) VAJ41 ,a.BCE03A ,a.BCK01C , a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 , a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 , a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 , b.AAS01 , a.VAJ65 , cast(0 as tinyint) selected from VAJ2 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI2 d ON d.vai01 = a.VAI01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAK01 = 0 AND VAJ65 = %d %s order by b.ABF01, a.VAF01, a.ROWNR ', '2013-11-06 16:43:21', '(8065)冯义强', 0) else print 'sys_Scripts.id=16646 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16647) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16647, 78, 'SQL_住院打折费目Ex', '检索住院打折费目(分表)', '检索住院打折费目', 1, 1, Null, 1, 'SELECT e.ABF01 , e.ABF02, sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ37 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 FROM VAJ2 a JOIN BBY1 c ON c.BBY01 = a.BBY01 LEFT JOIN ABF1 e ON e.ABF01 = c.ABF01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAJ05 = 1 AND VAK01 = 0 %s AND not exists(select * from IAQ1 f where f.VAJ01 = a.VAJ01 and f.IAQ02 = 1) AND not exists(SELECT * FROM IAQ1 f WHERE f.VAJ01 = A.VAJ09 AND f.IAQ02 = 1 and a.VAJ05 = 4) GROUP BY e.ABF01, e.ABF02 ', '2013-11-07 09:20:55', '(8065)冯义强', 0) else print 'sys_Scripts.id=16647 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16648) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16648, 78, 'SQL_住院打折明细Ex', '检索住院打折明细(分表)', '检索住院打折明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ2 a JOIN BBY1 b ON b.BBY01 = a.BBY01 LEFT JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI2 d ON d.VAI01 = a.VAI01 WHERE a.VAA07 = %d AND d.VAI16 <> 2 AND a.ACF01 = 2 AND VAJ05 = 1 AND a.VAK01 = 0 %s AND not exists(select * from IAQ1 f where f.VAJ01 = a.VAJ01 and f.IAQ02 = 1) AND not exists(SELECT * FROM IAQ1 f WHERE f.VAJ01 = A.VAJ09 AND f.IAQ02 = 1 and a.VAJ05 = 4) order by b.ABF01, a.VAF01, a.ROWNR ', '2013-11-07 09:22:18', '(8065)冯义强', 0) else print 'sys_Scripts.id=16648 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16649) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16649, 78, 'SQL_住院减免费目', '住院减免费目', '住院减免费目', 1, 1, Null, 1, 'SELECT e.ABF01 , e.ABF02, sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ37 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 FROM VAJ1 a JOIN BBY1 c ON c.BBY01 = a.BBY01 LEFT JOIN ABF1 e ON e.ABF01 = c.ABF01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAJ05 = 1 AND VAK01 = 0 %s GROUP BY e.ABF01, e.ABF02 ', '2014-02-11 15:06:06', '(8065)冯义强', 0) else print 'sys_Scripts.id=16649 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16650) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16650, 78, 'SQL_住院减免明细', '住院减免明细', '住院减免明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ1 a JOIN bby1 b ON b.BBY01 = a.BBY01 LEFT JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI1 d ON d.VAI01 = a.VAI01 WHERE a.VAA07 = %d AND d.VAI16 <> 2 AND a.ACF01 = 2 AND VAJ05 = 1 AND a.VAK01 = 0 %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-02-11 15:30:49', '(8065)冯义强', 0) else print 'sys_Scripts.id=16650 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16651) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16651, 78, 'SQL_住院减免费目Ex', '住院减免费目(分表)', '住院减免费目(分表)', 1, 1, Null, 1, 'SELECT e.ABF01 , e.ABF02, sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 ,sum(a.VAJ36) VAJ36,sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38 ,sum(a.VAJ37 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) as yhmoney1 ,sum(VAJ61) VAJ61 FROM VAJ2 a JOIN BBY1 c ON c.BBY01 = a.BBY01 LEFT JOIN ABF1 e ON e.ABF01 = c.ABF01 WHERE a.VAA07 = %d AND a.ACF01 = 2 AND a.VAJ05 = 1 AND VAK01 = 0 %s GROUP BY e.ABF01, e.ABF02 ', '2014-02-11 15:49:52', '(8065)冯义强', 0) else print 'sys_Scripts.id=16651 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16652) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16652, 78, 'SQL_住院减免明细Ex', '住院减免明细(分表)', '住院减免明细(分表)', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , a.VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ2 a JOIN bby1 b ON b.BBY01 = a.BBY01 LEFT JOIN BCK1 c ON c.BCK01 = a.BCK01D JOIN VAI2 d ON d.VAI01 = a.VAI01 WHERE a.VAA07 = %d AND d.VAI16 <> 2 AND a.ACF01 = 2 AND VAJ05 = 1 AND a.VAK01 = 0 %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-05-22 08:45:43', '(8065)冯义强', 0) else print 'sys_Scripts.id=16652 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16653) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16653, 78, 'SQL_检索医保结帐记录', '按结帐ID检索医保结帐记录', '按结帐ID检索医保结帐记录', 1, 1, Null, 1, 'declare @VAK01 int Set @VAK01 = :VAK01 Select IAS1.* from IAS1 where IAS1.VAK01 = @VAK01 ', '2014-09-16 10:09:10', '(8029)肖争', 0) else print 'sys_Scripts.id=16653 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16654) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16654, 78, 'SQL_病人类别结账方式', '按病人类别设置结账方式', '按病人类别设置结账方式', 1, 1, Null, 1, 'Declare @DefChargeStyle int SET @DefChargeStyle = %d select BDP01 , BDP02 ,@DefChargeStyle ChargeStyle from BDP1 ', '2014-09-25 16:00:17', '(8065)冯义强', 0) else print 'sys_Scripts.id=16654 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16655) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16655, 78, '备用_15', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16655 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16656) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16656, 78, '备用_16', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16656 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16657) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16657, 78, '备用_17', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16657 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16658) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16658, 78, '备用_18', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16658 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16659) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16659, 78, '备用_19', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16659 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16660) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16660, 78, '备用_20', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16660 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16661) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16661, 78, '备用_21', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16661 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16662) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16662, 78, '备用_22', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16662 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16663) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16663, 78, '备用_23', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16663 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16664) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16664, 78, '备用_24', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16664 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16665) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16665, 78, '备用_25', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16665 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16666) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16666, 78, '备用_26', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16666 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16667) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16667, 78, '备用_27', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16667 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16668) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16668, 78, '备用_28', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16668 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16669) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16669, 78, '备用_29', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16669 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16670) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16670, 78, '备用_30', '', '', 1, 1, Null, 1, Null, '2013-11-06 13:50:08', Null, 0) else print 'sys_Scripts.id=16670 已经存在.' GO --删除分类[记帐]下脚本 delete from sys_Scripts where CategoryID=80 /*记帐*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=80) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(80, 'SC80', '记帐', 15, 0, 51, 0, Null) else print 'SYS_ScriptCategories.id=80 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1562) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1562, 80, 'SQL_按单据ID检索费用', '按单据ID检索费用明细', '按单据ID检索费用明细(门诊)', 1, 0, Null, 1, 'DECLARE @lVAI01 int SET @lVAI01 =%d SELECT d.BDN02,b.BBY05,b.BBY06,e.ABF02,a.VAJ35,a.VAJ33 ,a.VAJ25,a.VAJ36,a.VAJ37,a.VAJ38,g.BCK03,f.ABC02,a.VAJ57 ,a.VAK01,a.VAI01,a.VAJ01,a.VAJ04,a.VAJ05,a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAC1 f ON a.VAA07 = f.VAC01 JOIN BCK1 m on a.BCK01d= m.BCK01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 NOT IN (''1'',''2'',''3'') AND a.ACF01 = 1 AND a.VAI01 = @lVAI01 UNION ALL SELECT d.BDN02, b.BBY05, b.BBY06, e.ABF02 , b1.BDG02A AS VAJ35, (a.VAJ33*a.VAJ34) AS VAJ33 , (a.VAJ25/a.VAJ34) AS VAJ25, a.VAJ36,a.VAJ37,a.VAJ38, g.BCK03, f.ABC02, a.VAJ57 , a.VAK01, a.VAI01, a.VAJ01, a.VAJ04, a.VAJ05, a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 JOIN VAC1 f ON a.VAA07 = f.VAC01 JOIN BCK1 m on a.BCK01d= m.BCK01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 IN (''1'',''2'',''3'') AND a.ACF01 = 1 AND a.VAI01 = @lVAI01 ORDER BY a.VAJ01 ', '2009-12-25 18:39:44', Null, 0) else print 'sys_Scripts.id=1562 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1638) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1638, 80, 'SQL_查找记帐单据', '查找记帐单据', '按单据ID查找记帐单据', 1, 0, Null, 1, ' DECLARE @VAI01 int --就诊ID SET @VAI01=%d select a.VAI01--单据ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAI04--单据号 ,a.VAI05--摘要 ,a.BCK01A--病区ID ,a.BCK01B--开单科室ID ,a.BCE02A--开单人# ,a.BCE03A--开单人 ,a.BCE02B--操作员# ,a.BCE03B--操作员 ,VAI12--业务时间 ,VAI13--交易时间 ,VAI14--备注 ,VAI01A--冲销ID ,VAI16--状态 ,isnull(VAI17,0) VAI17 --单据性质 from VAI1 a --病人收费单据 WHERE a.VAI01=@VAI01 and isnull(VAI01A , 0) =0', '2009-09-02 17:09:35', Null, 0) else print 'sys_Scripts.id=1638 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1639) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1639, 80, 'SQL_查找记帐明细', '查找记帐明细', '按单据ID查找记帐明细', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05--收费项目名称 ,b.BBY06--规格 ,b.AAS01--偿付类型 ,b.ABF01--收据费别 ,C.BCK03--执行科室名称 ,a.VAJ01--ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAJ04--类型 ,a.VAJ05--状态 ,a.ROWNR--次序 ,a.VAJ01A--上级ID ,a.VAJ01B--关联ID ,a.VAJ09--冲销ID ,a.VAJ10--合并标志 ,a.VAI01--单据ID ,a.VAF01--医嘱ID ,a.VAK01--结帐ID ,a.ACF01--医疗服务 ,a.VAJ15--记帐标志 ,a.BCK01A--病区ID ,a.BCK01B--科室ID ,a.BDN01--类型 ,a.BBY01--收费项目ID ,a.BCJ02--发药窗口 ,a.VAJ21--加班标志 ,a.VAJ22--特殊标志 ,a.VAJ23--剂数 ,a.VAJ24--单量 ,a.VAJ25--数量 ,a.VAJ26--急诊标志 ,a.VAJ27--婴儿费 ,a.VAJ28--税率 ,a.VAJ29--税费 ,a.VAJ30--折扣率分子 ,a.VAJ31--折扣率分母 ,a.VAJ32--全价 ,a.VAJ33--单价 ,a.VAJ34--包装 ,a.VAJ35--单位 ,a.VAJ36--全额 ,a.VAJ37--金额 ,case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38--结帐金额 ,a.VAJ39--自费标志 ,a.VAJ40--自负金额 ,a.VAJ41--保险金额 ,a.BCE03A--划价人 ,a.BCK01C--开单科室ID ,a.BCE02B--开单人号 ,a.BCE03B--开单人 ,a.VAJ46--业务时间 ,a.VAJ47--交易时间 ,a.VAJ48--执行ID ,a.BCK01D--执行科室ID ,a.BCE03C--执行者 ,a.VAJ51--执行时间 ,a.VAJ52--执行交易时间 ,a.VAJ53--执行情况 ,a.VAJ54--备注 ,a.BCE02D--操作员# ,a.BCE03D--操作员 ,a.VAJ57--摘要 ,a.FAB03--收据号 ,a.VAJ59--成本价 ,a.VAJ61 from VAJ1 a --病人费用明细 JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 WHERE a.VAI01=%d AND d.VAI16=1 and isnull(a.VAJ09 , 0)=0 and VAJ25> 0 and a.VAJ05 = 1 order by a.VAI01, a.VAF01, a.ROWNR', '2010-06-21 17:59:25', Null, 0) else print 'sys_Scripts.id=1639 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1645) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1645, 80, 'SQL_检索入院登记病人', '检索入院登记病人', '检索入院登记病人', 1, 0, ' SELECT a.VAA01,a.ABW01,b.ABJ01,b.ABC02,a.VAA04,a.VAA05,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.BDP02,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D ,m.BCK01 BCK01D , a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04,Isnull(d.VBM04,0) - Isnull(d.VBM05,0) yjye ,VAE11 , b.VAE44 FROM VAA1 a JOIN VAE1 b ON a.VAA01=b.VAA01 LEFT JOIN BCK1 c ON b.BCK01D=c.BCK01 LEFT JOIN BCK1 m ON b.BCK01C=m.BCK01 LEFT JOIN VBM2 d ON d.VAA07 = b.VAE01 and d.ACF01 = 2 LEFT JOIN BCE1 e on b.BCE02C=e.BCE02 WHERE b.VAE44 < 5 ', 1, 'SELECT a.VAA01,a.ABW01,b.ABJ01,b.ABC02,a.VAA04,a.VAA05,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.BDP02,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D ,m.BCK01 BCK01D , a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04 ,Isnull(d.VBM04,0) - Isnull(d.VBM05,0) as Yjye FROM VAA1 a JOIN VAE1 b ON a.VAA01 = b.VAA01 LEFT JOIN BCK1 c ON b.BCK01D = c.BCK01 LEFT JOIN BCK1 m ON b.BCK01C = m.BCK01 LEFT JOIN VBM2 d ON d.VAA07 = b.VAE01 and d.ACF01 = 2 LEFT JOIN BCE1 e on b.BCE02C=e.BCE02 WHERE b.VAE44<5 and VAE01=%d ', '2013-08-12 17:19:23', '(8065)冯义强', 0) else print 'sys_Scripts.id=1645 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1651) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1651, 80, 'SQL_按单据ID检索明细', '按单据ID检索明细', '按单据ID检索明细(住院)', 1, 0, Null, 1, 'DECLARE @lVAI01 int SET @lVAI01 =%d SELECT a.BBY01 ,d.BDN02,b.BBY05,b.BBY06,e.ABF02,a.VAJ35,a.VAJ32,a.VAJ33 ,a.VAJ25,a.VAJ36,a.VAJ37,a.VAJ38,g.BCK03,f.ABC02,a.VAJ57 , n.AAS02 ,a.VAK01,a.VAI01,a.VAJ01,a.VAJ04,a.VAJ05,a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 LEFT JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN AAS1 n on b.AAS01 = n.AAS01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 NOT IN (''1'',''2'',''3'') AND a.VAI01 = @lVAI01 UNION ALL SELECT a.BBY01,d.BDN02, b.BBY05, b.BBY06, e.ABF02 , b1.BDG02A AS VAJ35, a.VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , (a.VAJ25/a.VAJ34) AS VAJ25, a.VAJ36,a.VAJ37,a.VAJ38, g.BCK03, f.ABC02, a.VAJ57 , n.AAS02 , a.VAK01, a.VAI01, a.VAJ01, a.VAJ04, a.VAJ05, a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 LEFT JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN AAS1 n on b.AAS01 = n.AAS01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 IN (''1'',''2'',''3'') AND a.VAI01 = @lVAI01 ORDER BY a.VAJ01 ', '2010-03-27 15:21:08', Null, 0) else print 'sys_Scripts.id=1651 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1661) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1661, 80, 'SQL_返回部门名称', '返回部门名称', '按部门ID返回部门名称', 1, 0, Null, 1, 'select BCK03 from BCK1 where BCK01 = %d', '2009-08-24 15:36:01', Null, 0) else print 'sys_Scripts.id=1661 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1697) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1697, 80, 'SQL_检索执行科室', '检索执行科室--药品', '检索药品执行科室', 1, 0, ' SELECT a.BCK01A ,b.ABBRP,B.ABBRW, b.BCK03 FROM BBJ1 a JOIN BCK1 b on a.BCK01B = b.BCK01 WHERE BBY01 = %d AND a.BCK01A = %d ', 1, 'SELECT a.BCK01A , b.BCK03 FROM BBJ1 a JOIN BCK1 b on a.BCK01B = b.BCK01 WHERE BBY01 = %d AND a.BCK01A = %d', '2010-07-07 10:13:44', Null, 0) else print 'sys_Scripts.id=1697 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1698) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1698, 80, 'SQL_费目执行性质', '费目执行性质', '检索收费项目执行性质--0=不指定, 1=病人科室, 2=病人病区, 3=操作科室, 4=指定科室, 5=院外执行, 6=开单科室(如果是材料，默认病人所在科室)', 1, 0, Null, 1, 'select BBY01 , case BDN01 when ''4'' then 1 else BCK01 end as BCK01 from BBY1 where BBY01 = %d ', '2010-03-05 11:49:51', Null, 0) else print 'sys_Scripts.id=1698 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1699) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1699, 80, 'SQL_费目默认执行科室', '收费项目默认执行科室', '收费项目默认执行科室--分门诊、住院', 1, 0, Null, 1, 'select BCK01A , BCK01B from BBJ1 where BBY01 = %d and (ACF01 = %d or ACF01 = 3) and isnull(BCK01A,0)=0', '2010-06-30 19:11:20', Null, 0) else print 'sys_Scripts.id=1699 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1700) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1700, 80, 'SQL_费目执行科室', '费目执行科室', '收费项目执行科室', 1, 0, Null, 1, 'select BCK01B , BBY01 from BBJ1 where BBY01 = %d and (ACF01 = %d or ACF01 =3) and BCK01A = %d', '2010-06-30 19:13:08', Null, 0) else print 'sys_Scripts.id=1700 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1876) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1876, 80, 'SQL_挂号病人', '检索挂号病人', '检索挂号病人(无挂号有效期限制)', 1, 0, ' Declare @Days int, @FieldName varchar(20), @context varchar(128), @APlace int SET @Days = %d SET @FieldName = ''%s'' SET @context = ltrim(''%s'') SET @APlace = %d IF @FieldName = ''a.VAA03'' BEGIN SELECT @context = dbo.GetFillVAA03(@context) END SELECT b.VAC01 ,a.VAA01 ,a.VAA02 ,a.VAA03 ,a.VAA05 ,b.VAC02 ,c.ABW01 ,c.ABW02 ,b.VAA10 ,d.AAU01 ,d.AAU02 , g.BCE01,b.BCE02A, b.BCE03A , e.BCK01,e.BCK03,isnull(VCJ09,b.VAC36) as VAC36 ,b.BCE03A ,b.ABC02 ,b.BDP02 , a.VBU01 , a.BEP06B , ISNULL(a.BEP06B , 0) + ISNULL(m.VBU14 , 0) RBEP06B , b.SCF01 , b.VAC27 , m.VBU14 , m.VBU15 , m.VBU17, j.VCJ10 , j.VCJ11 , j.VCJ12 , j.VCJ13 , j.VCJ14 FROM VAA1 a JOIN VAC1 b ON a.VAA01 = b.VAA01 LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN AAU1 d on a.AAU01 = d.AAU01 LEFT JOIN BCK1 e ON b.BCK01A = e.BCK01 LEFT JOIN BCE1 g on b.BCE02A = g.BCE02 LEFT JOIN VBU1 m on a.VBU01 = m.VBU01 LEFT JOIN SCF1 f on b.scf01=f.scf01 left join vcj1 j on b.vac01=j.vaa07 WHERE b.VAC45 = 1 and %s %s @context order by VAC36 desc ', 1, Null, '2012-12-20 13:38:27', '(8065)冯义强', 0) else print 'sys_Scripts.id=1876 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2152) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2152, 80, 'SQL_检索参考诊断', '检索参考诊断', '检索疾病参考诊断', 1, 0, ' DECLARE @lText varchar(128) SET @lText = %s SELECT a.CAM01 ,c.BAK01, a.CAM02 , a.CAM03 , a.CAM04 ,d.BAK05 FROM CAM1 a LEFT JOIN BEA1 c ON a.CAM01 = c.CAM01 LEFT JOIN BAK1 d ON c.BAK01 = d.BAK01 WHERE a.CAM04 LIKE @lText OR EXISTS (SELECT b.CAM01 FROM CAH1 b WHERE a.CAM01 = b.CAM01 AND (b.CAH03 LIKE @lText OR b.ABBRP LIKE @lText OR b.ABBRW LIKE @lText)) ORDER BY a.CAM01 ', 1, 'select CAM01, CAM02, CAM03, CAM04, CAM05, CAM06, CAM07, CAM08 from CAM1', '2009-12-24 15:10:06', Null, 0) else print 'sys_Scripts.id=2152 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=3161) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(3161, 80, 'SQL_查询病人余额', '查询病人余额', '查询病人余额', 1, 0, Null, 1, 'select VBM01, VAA01, VBM03, VBM04, VBM05, VBM06 from VBM1 where VAA01=%d and VBM03=%d ', '2010-01-05 15:11:27', Null, 0) else print 'sys_Scripts.id=3161 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=3162) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(3162, 80, 'SQL_检索记账报警线', '检索记账报警线', '检索记账报警线', 1, 0, Null, 1, 'select BEP01, BCK01, BDP02, BEP04, BEP05, BEP06 from BEP1 where BDP02=''%s'' ', '2013-12-06 14:48:31', '(8088)王海涛', 0) else print 'sys_Scripts.id=3162 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=4168) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(4168, 80, 'SQL_检索报警除外内容', '检索报警除外内容', '检索报警除外内容(目前是按操作员所在科室)', 1, 0, Null, 1, 'select BEQ01, BEP01, BCK01 from BEQ1 where BEP01=%d and BCK01=%d', '2010-01-19 10:34:40', Null, 0) else print 'sys_Scripts.id=4168 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=4191) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(4191, 80, 'SQL_按效期检索挂号', '按效期检索挂号病人', '检索挂号病人(有挂号有效期限制)', 1, 0, ' Declare @Days int, @CDate datetime, @FieldName varchar(20), @context varchar(128), @APlace int SET @Days = %d SET @FieldName = ''%s'' SET @context =ltrim( ''%s'') SET @APlace = %d IF @FieldName = ''a.VAA03'' BEGIN SELECT @context = dbo.GetFillVAA03(@context) END declare @MaxDays int=0 select @MaxDays=max(days) from ( select dbo.GetSysParamValue(100,103010,55) as days --挂号有效天数 union all select dbo.GetSysParamValue(100,103010,29) --搜索病人多少天内的记账费用 union all select dbo.GetSysParamValue(9999,9999,35) --只检索多少天内划价没结帐单据 ) as daysTable if isnull(@MaxDays,0)>0 SET @CDate = getdate() - @MaxDays+1 else SET @CDate = getdate() SELECT b.VAC01 ,a.VAA01 ,a.VAA02 ,a.VAA03 ,a.VAA05 ,b.VAC02 ,b.VAC09 ,c.ABW01 ,c.ABW02 ,b.VAA10 ,d.AAU01 ,d.AAU02 , g.BCE01,b.BCE02A, b.BCE03A , e.BCK01,e.BCK03 ,ISNULL(j.VCJ09 ,b.VAC36) as VAC36 ,b.BCE03A ,b.ABC02 ,b.BDP02 , a.VBU01 , a.BEP06B , ISNULL(a.BEP06B , 0) + ISNULL(m.VBU14 , 0) RBEP06B , b.SCF01 , b.VAC27 , m.VBU14 , m.VBU15 , m.VBU17 , j.VCJ10 , j.VCJ11 , j.VCJ12 , j.VCJ13 , j.VCJ14,b.VAC46 FROM VAA1 a JOIN VAC1 b ON a.VAA01 = b.VAA01 LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN AAU1 d on a.AAU01 = d.AAU01 LEFT JOIN BCK1 e ON b.BCK01A= e.BCK01 LEFT JOIN BCE1 g on b.BCE02A=g.BCE02 LEFT JOIN VBU1 m on a.VBU01 = m.VBU01 LEFT JOIN VCJ1 j on j.VAA07 = b.VAC01 WHERE b.VAC45 = 1 AND b.VAC72 > @CDate and %s %s @context order by VAC36 desc ', 1, 'SELECT 0 ID , ''门诊号'' Namea, 1 IsDef UNION ALL SELECT 1 ID , ''姓名'' Namea , 0 IsDef ', '2014-10-24 08:50:29', '(8088)王海涛', 0) else print 'sys_Scripts.id=4191 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5410) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5410, 80, 'SQL_检索记账单据', '检索记账单据', '检索记账单据', 1, 0, Null, 1, 'SELECT BCE03A , b.BCK03 BCK03 , a.VAI04 ,c.VAA05 , c.VAA10 , d.ABW02 ,BCE03B ,VAI12 , a.VAI01 ,a.VAA01 , a.VAA07 , a.VAI16 , c.ABBRP , c.ABBRW , a.BCE03B , c.VAA04 , c.VAA03 , a.BCE01C , a.BCE03C , a.BCE01D , a.BCE03D FROM V_VAI_FULL a JOIN BCK1 b ON a.BCK01B = b.BCK01 JOIN VAA1 c ON a.VAA01 = c.VAA01 LEFT JOIN ABW1 d ON c.ABW01 = d.ABW01 WHERE (a.VAI18 = %d ) and a.VAI12 BETWEEN ''%s'' AND ''%s'' and a.VAI16 IN(1 , 3 , 4) ', '2014-05-09 16:41:57', '(8065)冯义强', 0) else print 'sys_Scripts.id=5410 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6412) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6412, 80, 'SQL_收费项目材料', '收费项目材料', '收费项目检索材料', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lBDO01 int, @lSql varchar(100), @lDate Datetime,@lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lBDO01 = %d SET @lSql = %s Set @lDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT e.BDN01, e.BDN02,f.AAS02,case when @gparam60=''2'' then dbo.GetBBY1Price(d.BBY01,@lABC02) else d.BBY25 end BBY25 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, NULL AS BAP02, 0 AS BBT10, 0 AS BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , d.BBY08 AS NUnit,0 BCK01,NULL BCK03 FROM BBX1 a JOIN BCT1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 e ON d.BDN01 = e.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE ((@lBDO01>-1 AND a.BDO01 = @lBDO01)OR(@lBDO01=-1 AND a.BDA01=''4'')) AND d.BBY31 >= @lDate and c.BCT33=1 AND (d.ACF01 = 3 OR d.ACF01 = @lACF01) AND (d.BBY04 LIKE @lSql OR (EXISTS(SELECT * FROM BCL1 g WHERE g.BBY01=d.BBY01 AND (g.BCL03 LIKE @lSql OR g.ABBRP LIKE @lSql OR g.ABBRW LIKE @lSql))))', '2014-08-18 16:35:01', '(8088)王海涛', 0) else print 'sys_Scripts.id=6412 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6413) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6413, 80, 'SQL_检索销账明细', '检索销账明细', '检索销账明细', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05--收费项目名称 ,b.BBY06--规格 ,b.AAS01--偿付类型 ,b.ABF01--收据费别 ,C.BCK03--执行科室名称 ,a.VAJ01--ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAJ04--类型 ,a.VAJ05--状态 ,a.ROWNR--次序 ,a.VAJ01A--上级ID ,a.VAJ01B--关联ID ,a.VAJ09--冲销ID ,a.VAJ10--合并标志 ,a.VAI01--单据ID ,a.VAF01--医嘱ID ,a.VAK01--结帐ID ,a.ACF01--医疗服务 ,a.VAJ15--记帐标志 ,a.BCK01A--病区ID ,a.BCK01B--科室ID ,a.BDN01--类型 ,a.BBY01--收费项目ID ,a.BCJ02--发药窗口 ,a.VAJ21--加班标志 ,a.VAJ22--特殊标志 ,a.VAJ23--剂数 ,a.VAJ24--单量 ,a.VAJ25--数量 ,a.VAJ26--急诊标志 ,a.VAJ27--婴儿费 ,a.VAJ28--税率 ,a.VAJ29--税费 ,a.VAJ30--折扣率分子 ,a.VAJ31--折扣率分母 ,a.VAJ32--全价 ,a.VAJ33--单价 ,a.VAJ34--包装 ,a.VAJ35--单位 ,a.VAJ36--全额 ,a.VAJ37--金额 ,case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38--结帐金额 ,a.VAJ39--自费标志 ,a.VAJ40--自负金额 ,a.VAJ41--保险金额 ,a.BCE03A--划价人 ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.BCK01E ,f.BCK03 as BCK03E from VAJ1 a JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ01 = %d %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-09-13 15:22:14', '(8065)冯义强', 0) else print 'sys_Scripts.id=6413 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6414) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6414, 80, 'SQL_按分类检索明细', '按分类检索明细', '按分类检索销账明细', 1, 0, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.vai01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCk1 f on a.BCK01E = f.BCK01 WHERE a.VAI01 = %d AND d.VAI16 =1 AND isnull(a.VAJ09 , 0)=0 AND VAJ05 = 1 AND VAJ25>0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-09-13 15:21:56', '(8065)冯义强', 0) else print 'sys_Scripts.id=6414 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6438) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6438, 80, 'SQL_检索明细价格', '检索明细价格', '检索明细数据当前价格', 1, 0, Null, 1, 'Declare @ACF01 int , @BBY01 int set @ACF01 = %d set @BBY01 = %d select BBY25 from BBY1 where BBY01 = @BBY01 and BDN01 > ''3'' union all SELECT BBY25*BAG07 BBY25 FROM BBY1 a JOIN BAG1 b ON a.BBY01=b.BBY01 WHERE (a.ACF01=@ACF01 OR a.ACF01=3) AND a.BBY01=@BBY01 and BDN01 <= ''3'' and @ACF01 = 2 union all SELECT BBY25*BAG05 BBY25 FROM BBY1 a JOIN BAG1 b ON a.BBY01=b.BBY01 WHERE (a.ACF01=@ACF01 OR a.ACF01=3) AND a.BBY01=@BBY01 and @ACF01 = 1 ', '2010-04-24 14:06:26', Null, 0) else print 'sys_Scripts.id=6438 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6440) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6440, 80, 'SQL_门诊费用费目', '门诊病人费用费目', '按费目统计门诊病人费目', 1, 0, Null, 1, 'Declare @CDays int , @CDate datetime SET @CDays = %d If @CDays = 0 SET @CDate = ''1899-12-31'' ELSE SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate() - @CDays , 120)) SELECT sum(a.VAJ36) VAJ36, sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38,e.ABF02, cast(sum(a.VAJ36 - a.VAJ38) as numeric(18,4)) yhmoney , cast(sum(a.VAJ38 - a.VAJ61) as numeric(18,4)) yhmoney1 ,sum(VAJ61) VAJ61 , e.ABF01 , sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 FROM VAJ1 a JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01 = e.ABF01 JOIN VAI1 d on d.VAI01 = a.VAI01 WHERE a.VAA07 = %d AND a.ACF01 = 1 AND d.VAI25 = 0 AND d.VAI12 >= @CDate AND a.VAJ05 = 1 AND d.VAI17 <> 2 AND a.VAJ04 in(2 ,5 ) %s GROUP BY e.ABF02 , e.ABF01', '2014-03-24 15:25:39', '(8065)冯义强', 0) else print 'sys_Scripts.id=6440 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6441) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6441, 80, 'SQL_门诊费用明细', '门诊费用明细', '门诊病人费用明细(会员已扣费明细不允许折扣)', 1, 0, Null, 1, 'Declare @CDays int , @CDate datetime SET @CDays = %d If @CDays = 0 SET @CDate = ''1899-12-31'' ELSE SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate() - @CDays , 120)) select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ1 a JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 WHERE a.VAA07 = %d AND d.VAI16 = 1 AND d.VAI25 = 0 AND d.VAI17 <> 2 AND d.VAI12 > @CDate AND a.ACF01 = 1 AND VAJ05 = 1 and a.VAJ04 in (2 , 5) %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-01-23 14:24:09', '(8065)冯义强', 0) else print 'sys_Scripts.id=6441 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6696) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6696, 80, 'SQL_分类检索药品', '分类检索药品(记账)', '记账时按分类检索药品(西、成药、中草药)', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime , @Paramno varchar(10) , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SET @Paramno = dbo.GetSysParamValue(9999,9999,15) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE @lACF01 when 1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE @lACF01 when 1 THEN c.BAG05*d.BBY25 ELSE c.BAG07*d.BBY25 END) end AS BBY25 , Isnull(CASE @lACF01 when 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , z.BCK01 , z.BCK03 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN BBJ1 g ON d.BBY01 = g.BBY01 LEFT JOIN V_DPK6 g1 ON g.BBY01 = g1.BBY01 AND g.BCK01B = g1.BCK01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno = ''0'' and d.BDN01 <= ''3'' AND b.BEI01 in (''1'', ''2'') AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND g.BCK01A = @lBCK01 %s AND Exists(select * from BAZ1 z where z.BCK01 = g.BCK01B and z.BAU01 in (''51'', ''52'', ''53'') and z.ACF01 in (@lACF01, 3)) AND d.BBY31 > @CDate AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BDK1 h WHERE h.BBX01 = a.BBX01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE @lACF01 when 1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE @lACF01 when 1 THEN c.BAG05*d.BBY25 ELSE c.BAG07*d.BBY25 END) end AS BBY25 , Isnull(CASE @lACF01 when 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , z.BCK01 , z.BCK03 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN V_DPK6 g1 ON g1.BBY01 = d.BBY01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno <> ''0'' and d.BDN01 <= ''3'' AND b.BEI01 in (''1'', ''2'') AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND d.BBY31 > @CDate AND g1.LSQty > 0 %s AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (h.BCL03 LIKE @lSql OR h.ABBRP LIKE @lSql OR h.ABBRW LIKE @lSql))) ', '2014-08-18 15:47:47', '(8088)王海涛', 0) else print 'sys_Scripts.id=6696 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6697) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6697, 80, 'SQL_分类检索其他收费', '分类检索收费项目(记账)', '记账时按分类检索其他收费项目(材料、诊疗、其他)', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, null, 0, 0 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , d.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(d.BBY01,@lABC02) else d.BBY25 end BBY25,0 BCK01,null BCK03 FROM BBX1 a JOIN BCT1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.BDN01 =''4'' AND b.BEI01 = ''5'' AND d.BBY31 >= @CDate AND c.BCT33 = 1 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(a.BBY01,@lABC02) else a.BBY25 end BBY25,0 BCK01,null BCK03 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE (a.BDN01 >= ''5'' and a.BDN01 <> ''M'') AND b.BEI01 in (''3'',''4'',''9'') AND a.BBY31 >= @CDate AND (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (%s))) ORDER BY b.BDN01', '2014-08-18 15:45:33', '(8088)王海涛', 0) else print 'sys_Scripts.id=6697 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6898) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6898, 80, 'SQL_检索入科病人', '检索入科病人(记账)', '护士站检索入科病人', 1, 0, ' SELECT a.VAA01,a.ABW01,a.ABJ01,a.ABC02,a.VAA04,a.VAA05,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.BDP02,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D ,m.BCK01 BCK01D , a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04,Isnull(d.VBM04,0) - Isnull(d.VBM05,0) yjye ,VAE11 FROM VAA1 a JOIN VAE1 b ON a.VAA01=b.VAA01 LEFT JOIN BCK1 c ON b.BCK01D=c.BCK01 LEFT JOIN BCK1 m ON b.BCK01C=m.BCK01 LEFT JOIN VBM1 d ON a.VAA01=d.VAA01 and VBM03 =2 LEFT JOIN BCE1 e on b.BCE02C=e.BCE02 WHERE b.VAE44 >=2 and b.VAE44 < = 4 and b.BCK01C = %d and a.BEP06 > 0 ', 1, Null, '2012-05-30 11:02:09', '(8058)高瑜', 0) else print 'sys_Scripts.id=6898 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6923) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6923, 80, 'SQL_是否应收款', '支付方式是否应收款', '支付方式是否应收款', 1, 0, Null, 1, 'select Isnull(BBP06, 0) BBP06 from BBP1 where AAO01 = ''%s''', '2010-06-26 11:27:53', Null, 0) else print 'sys_Scripts.id=6923 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7225) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7225, 80, 'SQL_删除收费常用项目', '删除收费常用项目', '按收费常用项目ID删除常用项目', 1, 0, Null, 1, 'Delete from BGE1 where BGE01 = %d ', '2010-07-20 20:00:01', Null, 0) else print 'sys_Scripts.id=7225 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7992) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7992, 80, 'SQL_票据项目检索明细', '按票据项目检索明细', '住院销帐按票据项目检索明细', 1, 0, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.vai01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE b.ABF01 = ''%s'' and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-08-31 14:51:38', Null, 0) else print 'sys_Scripts.id=7992 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7993) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7993, 80, 'SQL_收费项目检索明细', '按收费项目检索明细', '住院销帐按收费项目检索明细', 1, 0, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE a.BBY01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-08-31 14:51:48', Null, 0) else print 'sys_Scripts.id=7993 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7994) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7994, 80, 'SQL_时间段检索明细', '按时间段检索明细', '住院销帐按时间段检索明细', 1, 0, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ46 >= ''%s'' AND a.VAJ46 <= ''%s'' and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-08-31 14:51:55', Null, 0) else print 'sys_Scripts.id=7994 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7995) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7995, 80, 'SQL_按类别汇总明细', '按类别汇总明细', '按收费类别汇总明细金额', 1, 0, Null, 1, 'select BDN01 FROM VAJInfo ;', '2010-09-01 08:47:44', Null, 0) else print 'sys_Scripts.id=7995 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7996) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7996, 80, 'SQL_医嘱ID检索明细', '按医嘱ID检索明细', '按医嘱ID检索收费明细', 1, 0, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAF01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-09-01 10:21:42', Null, 0) else print 'sys_Scripts.id=7996 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8049) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8049, 80, 'SQL_单条费用', '检索单条费用', '检索单条费用明细', 1, 0, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-09-03 13:50:06', Null, 0) else print 'sys_Scripts.id=8049 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8052) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8052, 80, 'SQL_按状态检索明细', '按收费状态检索明细', '按收费执行状态检索明细', 1, 0, Null, 1, 'Declare @ABF01 varchar(2) set @ABF01 = ''%s'' select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ1 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI1 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ53 = %d and a.VAA07 = %d and (@ABF01 = '''' or b.ABF01 = @ABF01) AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2010-09-14 09:16:21', Null, 0) else print 'sys_Scripts.id=8052 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8063) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8063, 80, 'SQL_检索药房', '检索药房', '按部门性质检索药房', 1, 0, ' SELECT a.BCK01,a.BCK02 ,a.BCK03 ,a.ABBRP , a.ABBRW FROM BCK1 a where exists(select * from BAZ1 b where a.BCK01 = b.BCK01 and b.BAU01 >=''51'' and b.BAU01 <= ''53'') ', 1, Null, '2010-10-12 14:02:16', Null, 0) else print 'sys_Scripts.id=8063 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8094) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8094, 80, 'SQL_数据库结帐精度', '数据库结帐精度', '检索客户数据库中结帐字段精度', 1, 0, Null, 1, 'select a.name as [column],b.name as type , a.xscale AS xscale from syscolumns a JOIN systypes b ON b.xtype = a.xtype where a.id=object_id(''VAJ1'') AND a.name =''VAJ38''', '2010-12-20 14:50:09', Null, 0) else print 'sys_Scripts.id=8094 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8095) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8095, 80, 'SQL_检索住院记帐单据', '检索住院记帐单据', '检索住院记帐单据', 1, 0, Null, 1, 'SELECT BCE03A , b.BCK03 BCK03 , a.VAI04 ,c.VAA05 , c.VAA10 , d.ABW02 ,BCE03B ,VAI12 , a.VAI01 ,a.VAA01 , a.VAA07 , a.VAI16 , c.ABBRP , c.ABBRW , a.BCE03B , c.VAA04 , c.VAA03 , a.BCE01C , a.BCE03C , a.BCE01D , a.BCE03D FROM V_VAI_FULL a JOIN BCK1 b ON a.BCK01B = b.BCK01 JOIN VAA1 c ON a.VAA01 = c.VAA01 LEFT JOIN ABW1 d ON c.ABW01 = d.ABW01 WHERE a.ACF01 = 2 and a.VAI18 in( %d , 5) and a.VAI12 BETWEEN ''%s'' AND ''%s'' and a.VAI16 IN(1 , 3 , 4) ', '2011-10-24 15:36:06', '(8065)冯义强', 0) else print 'sys_Scripts.id=8095 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8096) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8096, 80, 'SQL_检索分类(精简)', '划价检索分类(精简)', '划价检索分类(精简)：所有、药品、诊疗', 1, 0, Null, 1, 'select BEI01 = ''-1'' , BEI02 = ''所有'' , Value =''-1'' UNION ALL select BEI01 = ''1'' , BEI02 = ''药品'' , Value =''(''''1'''' , ''''2'''')'' UNION ALL select BEI01 = ''2'' , BEI02 = ''诊疗'' , Value =''(''''3'''', ''''4'''' , ''''9'''')''', '2010-12-31 09:20:23', Null, 0) else print 'sys_Scripts.id=8096 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8097) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8097, 80, 'SQL_检索分类(详细)', '划价检索分类(详细)', '划价检索分类(详细)：所有、西、成药、中草药、医技诊疗、临床诊疗、材料、其他', 1, 0, Null, 1, 'SELECT BEI01 = ''-1'' , BEI02 = ''所有'' , Value =''-1'' UNION ALL SELECT BEI01 = ''1'' , BEI02 = ''西、成药'' , Value =''1'' UNION ALL SELECT BEI01 = ''2'' , BEI02 = ''中草药 '' , Value =''2'' UNION ALL SELECT BEI01 = ''3'' , BEI02 = ''医技诊疗 '' , Value =''3'' UNION ALL SELECT BEI01 = ''4'' , BEI02 = ''临床诊疗 '' , Value =''4'' UNION ALL SELECT BEI01 = ''5'' , BEI02 = ''材料 '' , Value =''5'' UNION ALL SELECT BEI01 = ''9'' , BEI02 = ''收费项目 '' , Value =''9'' ', '2010-12-31 10:14:33', Null, 0) else print 'sys_Scripts.id=8097 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8098) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8098, 80, 'SQL_检索药品(详细)', '检索药品(详细)', '按详细分类检索药品', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime , @Paramno varchar(10) , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = getdate() SET @Paramno = dbo.GetSysParamValue(9999,9999,15) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE @lACF01 when 1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE @lACF01 when 1 THEN c.BAG05*d.BBY25 ELSE c.BAG07*d.BBY25 END) end AS BBY25 , Isnull(CASE @lACF01 when 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , z.BCK01 , z.BCK03 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 JOIN BBJ1 g ON d.BBY01 = g.BBY01 LEFT JOIN V_DPK6 g1 ON g.BBY01 = g1.BBY01 AND g.BCK01B = g1.BCK01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno = ''0'' and d.BDN01 <= ''3'' AND b.BEI01 = @lBEI01 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND g.BCK01A = @lBCK01 %s AND Exists(select * from BAZ1 z where z.BCK01 = g1.BCK01 and z.BAU01 in (''51'', ''52'', ''53'') and z.ACF01 in (@lACF01, 3)) AND d.BBY31 > @CDate AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BDK1 h WHERE h.BBX01 = a.BBX01 AND (%s))) UNION ALL SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBX01, a.BDO01, d.BBY04, d.BBY05+case when bag16>'''' then ''(''+bag16+'')'' else '''' end BBY05 , a.BDG02, e.BAP02, e.BBT10, e.BBT11 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , CASE @lACF01 when 1 THEN c.BDG02A ELSE c.BDG02B END AS NUnit , case when @gparam60=''2'' then dbo.GetDrugPrice(g1.BCK01 , d.BBY01 , @lACF01 , @lABC02) else (CASE @lACF01 when 1 THEN c.BAG05*d.BBY25 ELSE c.BAG07*d.BBY25 END) end AS BBY25 , Isnull(CASE @lACF01 when 1 THEN g1.LSQty/c.BAG05 ELSE g1.LSQty/c.BAG07 END,0) AS amount , z.BCK01 , z.BCK03 FROM BBX1 a JOIN BBT1 e ON a.BBX01 = e.BBX01 JOIN BAG1 c ON e.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN V_DPK6 g1 ON g1.BBY01 = d.BBY01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 LEFT JOIN BCK1 z on z.BCK01 = g1.BCK01 WHERE @Paramno <> ''0'' and d.BDN01 <= ''3'' AND b.BEI01 = @lBEI01 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND d.BBY31 > @CDate AND g1.LSQty > 0 %s AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BDK1 h WHERE h.BBX01 = a.BBX01 AND (%s))) ', '2014-08-18 15:42:00', '(8088)王海涛', 0) else print 'sys_Scripts.id=8098 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8099) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8099, 80, 'SQL_检索材料(详细)', '检索材料(详细)', '按详细分类检索材料', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBX01, a.BDO01, d.BBY04, d.BBY05 , a.BDG02, null, 0, 0 , d.BBY06, d.BBE02, d.BBY01, d.BBY08 , d.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(d.BBY01,@lABC02) else d.BBY25 end BBY25,0 BCK01,null BCK03 FROM BBX1 a JOIN BCT1 c ON a.BBX01 = c.BBX01 JOIN BBY1 d ON c.BBY01 = d.BBY01 JOIN BDN1 b ON d.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON d.AAS01 = f.AAS01 WHERE d.BDN01 =''4'' AND b.BEI01 = @lBEI01 AND d.BBY31 >= @CDate AND c.BCT33 = 1 AND (d.ACF01=3 OR d.ACF01 = @lACF01) AND (d.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE d.BBY01 = h.BBY01 AND (%s))) ORDER BY b.BDN01', '2014-08-18 15:38:25', '(8088)王海涛', 0) else print 'sys_Scripts.id=8099 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8100) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8100, 80, 'SQL_收费项目(详细)', '检索收费项目(详细)', '按详细分类检索收费项目', 1, 0, Null, 1, 'DECLARE @lACF01 int, @lSql varchar(100) DECLARE @lBEI01 varchar(10), @lBCK01 int , @CDate datetime , @lABC02 varchar(20),@gparam60 varchar(20) SET @lABC02 = %s SET @lACF01 = %d SET @lSql = %s SET @lBEI01 = %s set @lBCK01 = %d SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) set @gparam60 = dbo.GetSysParamValue(9999,9999,60) SELECT b.BDN01, b.BDN02,f.AAS02 , f.AAS07 , a.BBY01, a.BCA01, a.BBY04, a.BBY05 , '''', '''', 0,0 , a.BBY06, a.BBE02, a.BBY01, a.BBY08 , a.BBY08 AS NUnit,case when @gparam60=''2'' then dbo.GetBBY1Price(a.BBY01,@lABC02) else a.BBY25 end BBY25,0 BCK01,null BCK03 FROM BBY1 a JOIN BDN1 b ON a.BDN01 = b.BDN01 LEFT JOIN AAS1 f ON a.AAS01 = f.AAS01 WHERE (a.BDN01 >= ''5'' and a.BDN01 <> ''M'') AND b.BEI01 = @lBEI01 AND a.BBY31 >= @CDate AND (a.ACF01=3 OR a.ACF01 = @lACF01) AND (a.BBY04 LIKE @lSql OR EXISTS(SELECT * FROM BCL1 h WHERE a.BBY01 = h.BBY01 AND (%s))) ORDER BY b.BDN01', '2014-08-18 15:36:20', '(8088)王海涛', 0) else print 'sys_Scripts.id=8100 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8101) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8101, 80, 'SQL_检索病人费用', '检索病人费用', '按单据号检索病人单据信息复制', 1, 0, Null, 1, 'Declare @VAI01 int , @VAI04 varchar(20) SET @VAI04 = ''%s'' SELECT @VAI01 = VAI01 from V_VAI_Full where VAI04 = @VAI04 SELECT @VAI04 as VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 FROM V_VAJ_Full a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 WHERE a.VAI01 = @VAI01 AND a.BDN01 >= ''4'' UNION ALL select @VAI04 as VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07 ,a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,(a.VAJ24/a.VAJ34) as VAJ24 ,(a.VAJ25/a.VAJ34) AS VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,(a.VAJ32*a.VAJ34) AS VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , VAJ34 ,b1.BDG02A AS VAJ35 ,a.VAJ36 ,a.VAJ37 ,VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 , Isnull(e.IAQ02,0) IAQ02 , f.BAX03 , g.ABF02 , b.BBY25 ,Isnull(b.BBY19 ,0) BBY19 , b.BBY27 , b.BBY28 from V_VAJ_Full a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BCK1 c ON a.BCK01D = c.BCK01 LEFT JOIN IAQ1 e on a.VAJ01 = e.VAJ01 JOIN BAX1 f on b.BAX01 = f.BAX01 JOIN ABF1 g on g.ABF01 = b.ABF01 WHERE a.VAI01 = @VAI01 AND a.BDN01 <= ''3'' ', '2012-04-05 11:59:50', '(8065)冯义强', 0) else print 'sys_Scripts.id=8101 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=12071) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(12071, 80, 'SQL_检索销帐病人', '检索住院销帐病人', '检索住院销帐病人', 1, 0, ' SELECT a.VAA01,a.ABW01,a.ABJ01,a.ABC02,a.VAA04,a.VAA05,a.VAA53,a.VAA54,e.BCE01,b.VAE82,b.BDP02,b.VAE01, b.BCE02C as BCE02A,b.BCE03C as BCE03A,b.BCQ04B,c.BCK03,c.BCK01,m.BCK03 BCK03D ,m.BCK01 BCK01D , a.VAA10,a.AAU01,a.ABBRP,a.ABBRW,d.VBM04,Isnull(d.VBM04,0) - Isnull(d.VBM05,0) yjye ,VAE11 FROM VAA1 a JOIN VAE1 b ON a.VAA01=b.VAA01 LEFT JOIN BCK1 c ON b.BCK01D=c.BCK01 LEFT JOIN BCK1 m ON b.BCK01C=m.BCK01 LEFT JOIN VBM1 d ON a.VAA01=d.VAA01 and VBM03 =2 LEFT JOIN BCE1 e on b.BCE02C=e.BCE02 WHERE b.VAE44 >=2 and b.VAE44 < = 4 and b.BCK01C = %d ', 1, Null, '2012-05-21 14:10:01', '(8065)冯义强', 0) else print 'sys_Scripts.id=12071 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13081) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13081, 80, 'SQL_按条件检索单据', '按条件检索单据', '按条件检索单据(会员卡等)', 1, 0, Null, 1, 'Declare @FindText varchar(128) SET @FindText = ''%s'' SELECT BCE03A , b.BCK03 BCK03 , a.VAI04 ,c.VAA05 , c.VAA10 , d.ABW02 ,BCE03B ,VAI12 , a.VAI01 ,a.VAA01 , a.VAA07 , a.VAI16 , c.ABBRP , c.ABBRW , a.BCE03B , c.VAA04 , c.VAA03 , a.BCE01C , a.BCE03C , a.BCE01D , a.BCE03D FROM VAI1 a JOIN BCK1 b ON a.BCK01B = b.BCK01 JOIN VAA1 c ON a.VAA01 = c.VAA01 LEFT JOIN ABW1 d ON c.ABW01 = d.ABW01 WHERE c.VAA02 = @FindText and a.VAI18 = %d and a.VAI16 IN(1 , 3 , 4) ', '2012-06-26 09:12:38', '(8065)冯义强', 0) else print 'sys_Scripts.id=13081 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=13082) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(13082, 80, 'SQL_住院记账参数属性', '住院记账参数属性', '住院记账参数属性', 1, 0, Null, 1, 'SELECT ID , Name , ParamNo , Privilege from Sys_Parameters where ProductId = 100 and ProgramId = 103012 and ParamNo >= 14 ', '2012-07-03 09:41:53', '(8065)冯义强', 0) else print 'sys_Scripts.id=13082 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15472) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15472, 80, 'SQL_检索客户预约复诊', '当前就诊记录是否复诊', '当前就诊记录是否复诊', 1, 0, Null, 1, 'select ISNULL(SCF25 , 0) as SCF25 from SCF1 Where SCF01 = %d ', '2013-03-13 13:58:35', '(8065)冯义强', 0) else print 'sys_Scripts.id=15472 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15477) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15477, 80, 'SQL_体检费目', '体检费目合计', '体检费目合计', 1, 0, Null, 1, 'Declare @VAA07 int , @CDays int , @CDate datetime SET @VAA07 = %d SELECT @CDays = ISNULL(dbo.GetSysParamValue(100 , 103010 , 29),0) If @CDays = 0 SET @CDate = ''1899-12-31'' ELSE SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate() - @CDays , 120)) SELECT sum(a.VAJ36) VAJ36, sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38,e.ABF02, sum(a.VAJ36 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) yhmoney1 ,sum(VAJ61) VAJ61 , e.ABF01 , sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 FROM VAJ1 a JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01 = e.ABF01 JOIN VAI1 d on d.VAI01 = a.VAI01 WHERE a.VAA07 = @VAA07 AND d.VAI25 = 0 AND d.VAI12 > @CDate AND a.ACF01 <> 2 AND a.VAJ05 = 1 AND d.VAI17 <> 2 AND a.VAJ04 in(2 ,5 ) %s GROUP BY e.ABF02 , e.ABF01 UNION ALL SELECT sum(a.VAJ36) VAJ36, sum(a.VAJ37) VAJ37,sum(a.VAJ38) as VAJ38,e.ABF02, sum(a.VAJ36 - a.VAJ38) yhmoney , sum(a.VAJ38 - a.VAJ61) yhmoney1 ,sum(VAJ61) VAJ61 , e.ABF01 , sum(a.VAJ38) as VAJ30 , sum(a.VAJ36) VAJ31 FROM VAJT a JOIN BBY1 c ON a.BBY01=c.BBY01 LEFT JOIN ABF1 E ON c.ABF01 = e.ABF01 JOIN VAI1 d on d.VAI01 = a.VAI01 WHERE a.VAA07 = @VAA07 AND a.DFLAG = 0 AND d.VAI25 = 0 AND d.VAI12 > @CDate AND a.ACF01 <> 2 AND a.VAJ05 = 1 AND d.VAI17 <> 2 AND a.VAJ04 in(2 ,5 ) %s GROUP BY e.ABF02 , e.ABF01', '2014-05-13 10:59:03', '(8065)冯义强', 0) else print 'sys_Scripts.id=15477 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=15478) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(15478, 80, 'SQ_体检费用明细', '体检费用明细', '体检费用明细', 1, 0, Null, 1, 'Declare @VAA07 int , @CDays int , @CDate datetime SET @VAA07 = %d SELECT @CDays = ISNULL(dbo.GetSysParamValue(100 , 103010 , 29),0) If @CDays = 0 SET @CDate = ''1899-12-31'' ELSE SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate() - @CDays , 120)) select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJ1 a JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 WHERE a.VAA07 = @VAA07 AND d.VAI16 = 1 AND d.VAI25 = 0 AND d.VAI12 > @CDate AND d.VAI17 <> 2 AND a.ACF01 <> 2 AND VAJ05 = 1 AND a.VAJ04 in (2 , 5) %s UNION ALL select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01, a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21, a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30, a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 , case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38, a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 , a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 , a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.VAJ36 - a.VAJ38 yhmoney , a.VAJ38 - a.VAJ61 yhmoney1 ,b.ABF01 from VAJT a JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI1 d ON a.vai01=d.VAI01 WHERE a.VAA07 = @VAA07 AND a.DFLAG = 0 AND d.VAI16 = 1 AND d.VAI25 = 0 AND d.VAI12 > @CDate AND d.VAI17 <> 2 AND a.ACF01 <> 2 AND VAJ05 = 1 AND a.VAJ04 in (2 , 5) %s order by b.ABF01, a.VAF01, a.ROWNR ', '2014-05-13 11:01:17', '(8065)冯义强', 0) else print 'sys_Scripts.id=15478 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16614) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16614, 80, 'SQL_单据是否扣费', '会员病人单据是否扣费', '会员病人单据是否扣费', 1, 0, Null, 1, 'SELECT VAI01 from VCA1 where VAI01 = %d ', '2013-09-10 16:50:23', '(8065)冯义强', 0) else print 'sys_Scripts.id=16614 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16621) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16621, 80, 'SQL_检索住院单据Ex', '检索住院记账单据(分表)', '检索分表后住院记账单据', 1, 1, Null, 1, 'SELECT BCE03A , b.BCK03 BCK03 , a.VAI04 ,c.VAA05 , c.VAA10 , d.ABW02 ,BCE03B ,VAI12 , a.VAI01 ,a.VAA01 , a.VAA07 , a.VAI16 , c.ABBRP , c.ABBRW , a.BCE03B , c.VAA04 , c.VAA03 , a.BCE01C , a.BCE03C , a.BCE01D , a.BCE03D FROM VAI2 a JOIN BCK1 b ON a.BCK01B = b.BCK01 JOIN VAA1 c ON a.VAA01 = c.VAA01 LEFT JOIN ABW1 d ON c.ABW01 = d.ABW01 WHERE a.ACF01 = 2 and a.VAI18 in( %d , 5) and a.VAI12 BETWEEN ''%s'' AND ''%s'' and a.VAI16 IN(1 , 3 , 4) ', '2013-11-04 15:34:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=16621 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16622) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16622, 80, 'SQL_按单据检索明细Ex', '按单据检索明细(分表)', '门诊、住院分表，按单据检索明细', 1, 1, Null, 1, 'DECLARE @lVAI01 int SET @lVAI01 =%d SELECT a.BBY01 ,d.BDN02,b.BBY05,b.BBY06,e.ABF02,a.VAJ35,a.VAJ32,a.VAJ33 ,a.VAJ25,a.VAJ36,a.VAJ37,a.VAJ38,g.BCK03,f.ABC02,a.VAJ57 , n.AAS02 ,a.VAK01,a.VAI01,a.VAJ01,a.VAJ04,a.VAJ05,a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ2 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 LEFT JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN AAS1 n on b.AAS01 = n.AAS01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 NOT IN (''1'',''2'',''3'') AND a.VAI01 = @lVAI01 UNION ALL SELECT a.BBY01,d.BDN02, b.BBY05, b.BBY06, e.ABF02 , b1.BDG02A AS VAJ35, a.VAJ32,(a.VAJ33*a.VAJ34) AS VAJ33 , (a.VAJ25/a.VAJ34) AS VAJ25, a.VAJ36,a.VAJ37,a.VAJ38, g.BCK03, f.ABC02, a.VAJ57 , n.AAS02 , a.VAK01, a.VAI01, a.VAJ01, a.VAJ04, a.VAJ05, a.VAJ09 ,m.BCK03 BCK03A,a.BCE03B ,a.BCE03A FROM VAJ2 a JOIN BBY1 b ON a.BBY01 = b.BBY01 JOIN BAG1 b1 ON b.BBY01 = b1.BBY01 JOIN BDN1 d ON a.BDN01 = d.BDN01 JOIN ABF1 e ON b.ABF01 = e.ABF01 LEFT JOIN VAE1 f ON a.VAA07 = f.VAE01 LEFT JOIN BCK1 m on a.BCK01D= m.BCK01 LEFT JOIN AAS1 n on b.AAS01 = n.AAS01 LEFT JOIN BCK1 g ON a.BCK01A = g.BCK01 WHERE a.BDN01 IN (''1'',''2'',''3'') AND a.VAI01 = @lVAI01 ORDER BY a.VAJ01 ', '2013-11-04 15:46:54', '(8065)冯义强', 0) else print 'sys_Scripts.id=16622 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16623) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16623, 80, 'SQL_查找记帐单据Ex', '查找记账单据(分表)', '查找住院记账单据', 1, 1, Null, 1, ' DECLARE @VAI01 int --就诊ID SET @VAI01=%d select a.VAI01--单据ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAI04--单据号 ,a.VAI05--摘要 ,a.BCK01A--病区ID ,a.BCK01B--开单科室ID ,a.BCE02A--开单人# ,a.BCE03A--开单人 ,a.BCE02B--操作员# ,a.BCE03B--操作员 ,VAI12--业务时间 ,VAI13--交易时间 ,VAI14--备注 ,VAI01A--冲销ID ,VAI16--状态 ,isnull(VAI17,0) VAI17 --单据性质 from VAI2 a --病人收费单据 WHERE a.VAI01=@VAI01 and isnull(VAI01A , 0) =0', '2013-11-05 10:37:03', '(8065)冯义强', 0) else print 'sys_Scripts.id=16623 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16624) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16624, 80, 'SQL_按分类检索明细Ex', '按分类检索明细(分表)', '按分类检索住院销账明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN bby1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.vai01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCk1 f on a.BCK01E = f.BCK01 WHERE a.VAI01 = %d AND d.VAI16 =1 AND isnull(a.VAJ09 , 0)=0 AND VAJ05 = 1 AND VAJ25>0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 10:42:54', '(8065)冯义强', 0) else print 'sys_Scripts.id=16624 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16625) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16625, 80, 'SQL_单条费用Ex', '住院单条费用(分表)', '检索住院单条费用', 1, 1, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 16:44:12', '(8065)冯义强', 0) else print 'sys_Scripts.id=16625 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16626) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16626, 80, 'SQL_费目检索明细Ex', '费目检索明细(分表)', '住院销账费目检索明细', 1, 1, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.vai01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE b.ABF01 = ''%s'' and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 16:57:24', '(8065)冯义强', 0) else print 'sys_Scripts.id=16626 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16627) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16627, 80, 'SQL_按收费项目检索Ex', '按收费项目检索住院明细(分表)', '按收费项目检索住院明细', 1, 1, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.BBY01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 16:56:03', '(8065)冯义强', 0) else print 'sys_Scripts.id=16627 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16628) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16628, 80, 'SQL_时间段检索明细Ex', '按时间段检索明细(分表)', '按时间段检索住院明细', 1, 1, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.BBY01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ46 >= ''%s'' AND a.VAJ46 <= ''%s'' and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 16:58:34', '(8065)冯义强', 0) else print 'sys_Scripts.id=16628 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16629) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16629, 80, 'SQL_医嘱ID检索明细Ex', '按医嘱ID检索明细(住院)', '按医嘱ID检索住院明细', 1, 1, Null, 1, 'select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAF01 = %d and a.VAA07 = %d AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 17:00:28', '(8065)冯义强', 0) else print 'sys_Scripts.id=16629 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16630) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16630, 80, 'SQL_按状态检索明细Ex', '按状态检索明细(住院)', '按状态检索住院明细', 1, 1, Null, 1, 'Declare @ABF01 varchar(2) set @ABF01 = ''%s'' select selected = 0 ,d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.VAI01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ53 = %d and a.VAA07 = %d and (@ABF01 = '''' or b.ABF01 = @ABF01) AND a.ACF01 = 2 AND isnull(a.VAJ09 , 0) = 0 and VAJ05 = 1 and VAJ25 > 0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-05 17:02:28', '(8065)冯义强', 0) else print 'sys_Scripts.id=16630 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16631) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16631, 80, 'SQL_检索销账明细Ex', '检索住院销账明细(分表)', '检索住院销账明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05--收费项目名称 ,b.BBY06--规格 ,b.AAS01--偿付类型 ,b.ABF01--收据费别 ,C.BCK03--执行科室名称 ,a.VAJ01--ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAJ04--类型 ,a.VAJ05--状态 ,a.ROWNR--次序 ,a.VAJ01A--上级ID ,a.VAJ01B--关联ID ,a.VAJ09--冲销ID ,a.VAJ10--合并标志 ,a.VAI01--单据ID ,a.VAF01--医嘱ID ,a.VAK01--结帐ID ,a.ACF01--医疗服务 ,a.VAJ15--记帐标志 ,a.BCK01A--病区ID ,a.BCK01B--科室ID ,a.BDN01--类型 ,a.BBY01--收费项目ID ,a.BCJ02--发药窗口 ,a.VAJ21--加班标志 ,a.VAJ22--特殊标志 ,a.VAJ23--剂数 ,a.VAJ24--单量 ,a.VAJ25--数量 ,a.VAJ26--急诊标志 ,a.VAJ27--婴儿费 ,a.VAJ28--税率 ,a.VAJ29--税费 ,a.VAJ30--折扣率分子 ,a.VAJ31--折扣率分母 ,a.VAJ32--全价 ,a.VAJ33--单价 ,a.VAJ34--包装 ,a.VAJ35--单位 ,a.VAJ36--全额 ,a.VAJ37--金额 ,case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38--结帐金额 ,a.VAJ39--自费标志 ,a.VAJ40--自负金额 ,a.VAJ41--保险金额 ,a.BCE03A--划价人 ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.BCK01E ,f.BCK03 as BCK03E from VAJ2 a JOIN BBY1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI2 d ON a.vai01=d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ01 = %d %s order by a.VAI01, a.VAF01, a.ROWNR ', '2013-11-06 10:38:24', '(8065)冯义强', 0) else print 'sys_Scripts.id=16631 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16632) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16632, 80, 'SQL_查找记帐单据Ex', '查找住院记帐单据', '查找住院记帐单据', 1, 1, Null, 1, 'DECLARE @VAI01 int --就诊ID SET @VAI01=%d select a.VAI01--单据ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAI04--单据号 ,a.VAI05--摘要 ,a.BCK01A--病区ID ,a.BCK01B--开单科室ID ,a.BCE02A--开单人# ,a.BCE03A--开单人 ,a.BCE02B--操作员# ,a.BCE03B--操作员 ,VAI12--业务时间 ,VAI13--交易时间 ,VAI14--备注 ,VAI01A--冲销ID ,VAI16--状态 ,isnull(VAI17,0) VAI17 --单据性质 from VAI2 a --病人收费单据 WHERE a.VAI01=@VAI01 and isnull(VAI01A , 0) =0', '2014-04-14 10:48:48', '(8065)冯义强', 0) else print 'sys_Scripts.id=16632 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16633) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16633, 80, 'SQL_检索销账明细Ex', '检索住院销账明细', '检索住院销账明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05--收费项目名称 ,b.BBY06--规格 ,b.AAS01--偿付类型 ,b.ABF01--收据费别 ,C.BCK03--执行科室名称 ,a.VAJ01--ID ,a.VAA01--病人ID ,a.VAA07--就诊ID ,a.VAJ04--类型 ,a.VAJ05--状态 ,a.ROWNR--次序 ,a.VAJ01A--上级ID ,a.VAJ01B--关联ID ,a.VAJ09--冲销ID ,a.VAJ10--合并标志 ,a.VAI01--单据ID ,a.VAF01--医嘱ID ,a.VAK01--结帐ID ,a.ACF01--医疗服务 ,a.VAJ15--记帐标志 ,a.BCK01A--病区ID ,a.BCK01B--科室ID ,a.BDN01--类型 ,a.BBY01--收费项目ID ,a.BCJ02--发药窗口 ,a.VAJ21--加班标志 ,a.VAJ22--特殊标志 ,a.VAJ23--剂数 ,a.VAJ24--单量 ,a.VAJ25--数量 ,a.VAJ26--急诊标志 ,a.VAJ27--婴儿费 ,a.VAJ28--税率 ,a.VAJ29--税费 ,a.VAJ30--折扣率分子 ,a.VAJ31--折扣率分母 ,a.VAJ32--全价 ,a.VAJ33--单价 ,a.VAJ34--包装 ,a.VAJ35--单位 ,a.VAJ36--全额 ,a.VAJ37--金额 ,case when isnull(a.VAJ38,0)=0 then a.VAJ37 else a.VAJ38 end as VAJ38--结帐金额 ,a.VAJ39--自费标志 ,a.VAJ40--自负金额 ,a.VAJ41--保险金额 ,a.BCE03A--划价人 ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 ,a.BCK01E ,f.BCK03 as BCK03E from VAJ2 a JOIN bby1 b ON a.bby01=b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D=c.BCK01 JOIN VAI2 d ON a.vai01=d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 JOIN BCK1 f on a.BCK01E = f.BCK01 WHERE a.VAJ01 = %d %s order by a.VAI01, a.VAF01, a.ROWNR ', '2014-04-14 10:51:10', '(8065)冯义强', 0) else print 'sys_Scripts.id=16633 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16634) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16634, 80, 'SQL_按分类检索明细Ex', '按分类检索住院明细', '按分类检索住院明细', 1, 1, Null, 1, 'select d.VAI04 ,b.BBY05 ,b.BBY06 ,b.AAS01 ,b.ABF01 ,C.BCK03 ,a.VAJ01 ,a.VAA01 ,a.VAA07, a.VAJ04 ,a.VAJ05 ,a.ROWNR ,a.VAJ01A ,a.VAJ01B ,a.VAJ09 ,a.VAJ10 ,a.VAI01 ,a.VAF01 ,a.VAK01 ,a.ACF01 ,a.VAJ15 ,a.BCK01A ,a.BCK01B ,a.BDN01 ,a.BBY01 ,a.BCJ02 ,a.VAJ21 ,a.VAJ22 ,a.VAJ23 ,a.VAJ24 ,a.VAJ25 ,a.VAJ26 ,a.VAJ27 ,a.VAJ28 ,a.VAJ29 ,a.VAJ30 ,a.VAJ31 ,a.VAJ32 ,a.VAJ33 ,a.VAJ34 ,a.VAJ35 ,a.VAJ36 ,a.VAJ37 ,a.VAJ38 ,a.VAJ39 ,a.VAJ40 ,a.VAJ41 ,a.BCE03A ,a.BCK01C ,a.BCE02B ,a.BCE03B ,a.VAJ46 ,a.VAJ47 ,a.VAJ48 ,a.BCK01D ,a.BCE03C ,a.VAJ51 ,a.VAJ52 ,a.BCK01E , f.BCK03 as BCK03E ,a.VAJ53 ,a.VAJ54 ,a.BCE02D ,a.BCE03D ,a.VAJ57 ,a.FAB03 ,a.VAJ59 ,a.VAJ61 from VAJ2 a JOIN BBY1 b ON a.bby01 = b.BBY01 LEFT JOIN BCK1 c ON a.BCK01D = c.BCK01 JOIN VAI2 d ON a.vai01 = d.VAI01 JOIN BDN1 e on a.BDN01 = e.BDN01 LEFT join BCk1 f on a.BCK01E = f.BCK01 WHERE a.VAI01 = %d AND d.VAI16 =1 AND isnull(a.VAJ09 , 0)=0 AND VAJ05 = 1 AND VAJ25>0 %s order by a.VAI01, a.VAF01, a.ROWNR ', '2014-04-14 10:52:25', '(8065)冯义强', 0) else print 'sys_Scripts.id=16634 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16635) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16635, 80, '备用_15', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16635 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16636) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16636, 80, '备用_16', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16636 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16637) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16637, 80, '备用_17', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16637 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16638) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16638, 80, '备用_18', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16638 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16639) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16639, 80, '备用_19', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16639 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=16640) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(16640, 80, '备用_20', '', '', 1, 1, Null, 1, Null, '2013-11-04 15:29:37', Null, 0) else print 'sys_Scripts.id=16640 已经存在.' GO --删除分类[缴款]下脚本 delete from sys_Scripts where CategoryID=83 /*缴款*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=83) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(83, 'SC83', '缴款', 15, 0, 51, 0, Null) else print 'SYS_ScriptCategories.id=83 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1725) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1725, 83, 'SQL_统计收费员收款', '统计收费员收款', '统计收费员收款金额、所有金额、未缴金额、剩余金额', 1, 0, Null, 1, 'Declare @BDate datetime, @EDate datetime, @BCE01 int set @BDate = %s set @EDate = %s set @BCE01 = %d /*HHY 20110610修改，增加 本地医保审批 缴款*/ SELECT ''门诊挂号'' 类别,VBL14 , b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 2 AND VBL19 BETWEEN @BDate AND @EDate GROUP BY VBL14 , b.AAO02 UNION ALL SELECT ''门诊收费'' 类别,VBL14 ,b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 3 AND VBL19 BETWEEN @BDate AND @EDate GROUP BY VBL14 , b.AAO02 UNION ALL SELECT case when VBL05=0 then ''会员充值'' else ''会员退费'' end 类别,VBL14 ,b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 5 and VBL27=1 AND VBL19 BETWEEN @BDate AND @EDate GROUP BY case when VBL05=0 then ''会员充值'' else ''会员退费'' end, VBL14 , b.AAO02 UNION ALL SELECT case when VBL05=0 then ''会员收卡押金'' else ''会员退卡押金'' end 类别,VBL14 ,b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 6 AND VBL19 BETWEEN @BDate AND @EDate GROUP BY case when VBL05=0 then ''会员收卡押金'' else ''会员退卡押金'' end, VBL14 , b.AAO02 UNION ALL SELECT ''预交款'' 类别,VBL14 ,b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 4 and VBL27=1 and VBL19 BETWEEN @BDate AND @EDate GROUP BY VBL14 , b.AAO02 UNION ALL SELECT ''住院结账'' 类别,VBL14 ,b.AAO02 ,SUM(VBL13) VBL13 , sum(Isnull(VBL25,0)) VBL25, SUM(VBL13 - isnull(VBL25,0)) NotJkMoney FROM V_VBL_FULL a join AAO1 b on a.VBL15 = b.AAO01 WHERE BCE01 = @BCE01 AND VBL04 = 4 and VBL27 =2 AND VBL19 BETWEEN @BDate AND @EDate GROUP BY VBL14 , b.AAO02 UNION ALL SELECT ''本地医保审批'' 类别,''审批'' VBL14,''其他'' AAO02,SUM(IBC15) VBL13,0 VBL25,SUM(IBC15) NotJkMoney FROM IBC1 WHERE BCE01=@BCE01 AND ISNULL(FAD01,0)=0 AND IBC19 BETWEEN @BDate AND @EDate GROUP BY BCE01 ', '2014-05-15 14:38:44', '(8088)王海涛', 0) else print 'sys_Scripts.id=1725 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1871) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1871, 83, 'SQL_统计结算明细', '统计结算明细', '按操作员及时间统计结算明细(2009-12-08修改 暂时没有冲预交)', 1, 0, Null, 1, 'DECLARE @BDate datetime, @EDate datetime, @BCE01 int SET @BDate =%s SET @EDate =%s SET @BCE01 =%d SELECT sum(VBL13) AS EndMoney,VBL14,VBL15 FROM VBL1 WHERE VAK01 > 0 AND VBL19 BETWEEN @BDate AND @EDate AND BCE01 = @BCE01 AND VBL27 = 2 and isnull(VBL17,0) = 0 GROUP BY VBL14,VBL15 ', '2011-05-03 16:23:04', Null, 0) else print 'sys_Scripts.id=1871 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1872) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1872, 83, 'SQL_统计预交余额', '统计预交余额', '统计收费员预交款余额', 1, 0, Null, 1, 'DECLARE @BDate datetime, @EDate datetime, @BCE01 int SET @BDate =%s SET @EDate =%s SET @BCE01 =%d --HHY,2011-06-14,增加本地保险审批记录缴款 SELECT SUM(isnull(VBL13,0)) AS FirstMoney,VBL14,VBL15 FROM VBL1 WHERE VBL04 in (4,5,6) and VBL27 =1 AND VBL19 BETWEEN @BDate AND @EDate AND BCE01 = @BCE01 and isnull(VBL17,0)=0 GROUP BY VBL14,VBL15 Union all SELECT SUM(IBC15) AS FirstMoney,''审批'',''其他'' FROM IBC1 WHERE BCE01=@BCE01 AND ISNULL(FAD01,0)=0 AND IBC19 BETWEEN @BDate AND @EDate GROUP BY BCE01', '2014-05-15 14:45:14', '(8088)王海涛', 0) else print 'sys_Scripts.id=1872 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1873) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1873, 83, 'SQL_统计收入明细', '统计收入明细', '统计收费员收入明细', 1, 0, Null, 1, 'DECLARE @BDate datetime, @EDate datetime, @BCE02 varchar(20) SET @BDate =%s SET @EDate =%s SET @BCE02 =%s select BAX03,sum(SumMoney) SumMoney from( SELECT SUM(isnull(VAJ38,0)) AS SumMoney,d.BAX03 FROM VAJ1 a JOIN VAK1 b ON a.VAK01 = b.VAK01 JOIN BBY1 c ON a.BBY01 = c.BBY01 LEFT JOIN BAX1 d ON c.BAX01 =d.BAX01 WHERE a.VAK01 > 0 AND b.VAK13 BETWEEN @BDate AND @EDate AND b.BCE02A = @BCE02 and Isnull(b.VAK18,0)=0 GROUP BY d.BAX03 union all SELECT SUM(isnull(VAJ38,0)) AS SumMoney,d.BAX03 FROM VAJ2 a JOIN VAK1 b ON a.VAK01 = b.VAK01 JOIN BBY1 c ON a.BBY01 = c.BBY01 LEFT JOIN BAX1 d ON c.BAX01 =d.BAX01 WHERE a.VAK01 > 0 AND b.VAK13 BETWEEN @BDate AND @EDate AND b.BCE02A = @BCE02 and Isnull(b.VAK18,0)=0 GROUP BY d.BAX03 ) as t group by BAX03', '2014-05-04 13:42:03', '(8088)王海涛', 0) else print 'sys_Scripts.id=1873 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=2029) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(2029, 83, 'SQL_上次缴款时间', '上次缴款时间', '按收费员查找上次缴款时间', 1, 0, Null, 1, 'select max(FAD10) from FAD1 where FAD04=%d', '2009-11-20 08:57:07', Null, 0) else print 'sys_Scripts.id=2029 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=6415) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(6415, 83, 'SQL_更新核对信息', '更新缴款核对信息', '更新审核人信息', 1, 0, Null, 1, 'update FAD1 set BCE03B = ''%s'' , FAD15 = getdate() where FAD01 = %d ', '2010-03-28 19:35:26', Null, 0) else print 'sys_Scripts.id=6415 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=7984) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(7984, 83, 'SQL_检索交款时间段', '检索交款时间段', '按收费员检索交款时间段', 1, 0, Null, 1, '/*HHY,2011-06-14,增加本地保险审批记录缴款*/ declare @BCE01 int ,@BDate datetime ,@EDate datetime set @BCE01 = %d set @BDate = %s set @EDate = %s SELECT Min(MinVBL18) MinVBL18, Max(MaxVBL18) MaxVBL18 FROM( SELECT Min(VBL19) MinVBL18, Max(VBL19) MaxVBL18 FROM V_VBL_FULL WHERE BCE01 = @BCE01 And VBL19 >= @BDate And VBL19 < @EDate union all SELECT Min(IBC19) MinVBL18, Max(IBC19) MaxVBL18 FROM IBC1 WHERE BCE01 = @BCE01 And IBC19 >= @BDate And IBC19 < @EDate ) AS A', '2011-06-14 16:43:29', Null, 0) else print 'sys_Scripts.id=7984 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8087) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8087, 83, 'SQL_未缴款数据', '未缴款数据', '检索所有操作员未缴款数据', 1, 0, Null, 1, 'select 0 as selected, a.FAD01 , a.FAD12 , a.FAD02 , a.FAD08 , a.FAD16 , a.FAD10 , b.BCK03 , a.BCE03A , a.FAD09 from FAD1 a join BCK1 b on a.BCK01 = b.BCK01 where a.BCE03B is null ', '2010-11-23 15:02:09', Null, 0) else print 'sys_Scripts.id=8087 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8131) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8131, 83, 'SQL_部分退费未结帐', '部分退费未结帐数据', '检索部分退费未结帐数据', 1, 0, Null, 1, 'select c.VAA05 , c.VAA03 , c.VAA10 , b.VAI04 , b.BCE02A , b.BCE03A , b.BCE02B , b.BCE03B , b.VAI14 , b.VAI22 , b.VAI23 , c.ABBRP , c.ABBRW , b.VAA07 from VBX1 a join VAI1 b on b.VAI01 = a.VBX19 join VAA1 c on c.VAA01 = a.VAA01 where a.VBX03 = 1 and a.VBX04 = 2 and VAI16 = 1 and VBX22 = 1', '2013-07-09 17:05:30', '(8065)冯义强', 0) else print 'sys_Scripts.id=8131 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11171) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11171, 83, 'SQL_当次缴款支付方式', '按缴款ID汇总支付方式', '按缴款ID汇总支付方式', 1, 0, Null, 1, 'declare @FAD01 int set @FAD01 = %d select VBL14 , SUM(VBL13) VBL13 from V_VBL_FULL where VBL17 = @FAD01 group by VBL14 --HHY,2011-06-13,增加审批金额统计 union all select ''审批'',SUM(IBC15) from IBC1 where FAD01 = @FAD01 group by FAD01', '2011-06-14 11:05:35', Null, 0) else print 'sys_Scripts.id=11171 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11172) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11172, 83, 'SQL_检索缴款信息', '按ID检索缴款信息', '按ID检索缴款信息', 1, 0, Null, 1, 'select 1 as selected, a.FAD01 , a.FAD12 , a.FAD02 , a.FAD08 , a.FAD16 , a.FAD10 , b.BCK03 , a.BCE03A , a.FAD09 from FAD1 a join BCK1 b on a.BCK01 = b.BCK01 where a.FAD01 = %d ', '2011-05-25 17:00:37', Null, 0) else print 'sys_Scripts.id=11172 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=11174) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(11174, 83, 'SQL_FAK1ByBCE01', '人员缴款余额按领用人', '人员缴款余额按领用人加缴款ID', 1, 0, Null, 1, 'Declare @BCE01 int , @FAD01 int set @BCE01 = %d select FAK01, FAK01A, FAD01A, FAK04, FAK05, FAK06, FAK07, BCE01A, BCE03A, FAK10, BCK01A, FAD01B, FAK13, FAK14, FAK15, BCK01B, BCE03B, FAK18, FAK19 from FAK1 where FAK04 = 1 and BCE01A = @BCE01 and FAD01A <= 0 union all select FAK01, FAK01A, FAD01A, FAK04, FAK05, FAK06, FAK07, BCE01A, BCE03A, FAK10, BCK01A, FAD01B, FAK13, FAK14, FAK15, BCK01B, BCE03B, FAK18, FAK19 from FAK1 where FAK04 = 2 and FAD01A <= 0 and BCE01A = @BCE01 ', '2011-05-31 15:46:10', Null, 0) else print 'sys_Scripts.id=11174 已经存在.' GO --删除分类[挂号]下脚本 delete from sys_Scripts where CategoryID=85 /*挂号*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=85) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(85, 'SC85', '挂号', 15, 0, 51, 0, Null) else print 'SYS_ScriptCategories.id=85 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1878) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1878, 85, 'SQL_检索挂号类别', '检索挂号类别(挂号)', '检索挂号类别(挂号)', 1, 0, ' Declare @Date datetime , @CurrTime Datetime, @ltime datetime , @DateNum int SET @CurrTime = getdate() SELECT @DateNum = DATEPART(weekday, getdate()) SELECT @ltime = convert(varchar, getdate(), 108) SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) IF object_id(''tempdb..#tmpBCONew'') is not null BEGIN drop table #tmpBCONew END SELECT * INTO #tmpBCONew FROM (select * from BCO1 where BCO03 <= BCO04 and (BCO03 <= @ltime and BCO04 >= @ltime) union all select * from BCO1 where BCO03 > BCO04 and (BCO03 <= @ltime or BCO04 >= @ltime ) ) a SELECT a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW ,b.BCK03 ,d.BBY05 , e.BCE02 ,f.BGG01 , f.BGG05 , f.BGG06 FROM BCB1 a JOIN BBY1 d on a.BBY01 = d.BBY01 JOIN BGG1 f on a.BCB01 = f.BCB01 JOIN BGH1 m ON f.BGG01 = m.BGG01 JOIN #tmpBCONew n ON m.BGH04 = n.BCO02 LEFT JOIN BCK1 b ON a.BCK01 = b.BCK01 LEFT JOIN BCE1 e ON a.BCE01 = e.BCE01 where m.BGH03 = @DateNum AND BGG03 <= @Date and BGG18 >= @Date ', 1, ' select BCB01, BCB02, BCB03, BAO02, BCK01, BBY01, BCE01, BCE03, BCB09, BCB10, BCB11, BCB12, BCB13, BCB14, BCB15, BCB16, ABBRP, ABBRW from BCB1 where BCB01 = %d', '2013-01-29 16:31:26', '(8065)冯义强', 0) else print 'sys_Scripts.id=1878 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1879) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1879, 85, 'SQL_挂号信息', '挂号信息', '检索挂号信息', 1, 0, Null, 1, 'SELECT a.VAA01,a.VAC01, a.VAC36 , a.BCB03A , a.BCK01A , a.BCE02A , a.BCE03A , b.VAA03 , b.VAA05 , b.ABW01 , c.ABW02 , a.VAA10 , a.AAU01 , a.ABC02 , b.ABJ01 , e.ABJ02 , a.VAC19 , a.VAC20 , a.VAC46 , g.VCB04 , b.VAA33 , b.VAA34 , a.BAO02 , b.ABBRP , b.ABBRW , a.VAC10 , a.BCE02 , a.BCE03B , a.VAA01 ,a.UAA01 , a.BAQ01 , a.VAC26 , a.VAC27 , a.VAC28 , a.VAC29 , b.BAQ02 , b.BDX02 , b.ACC02 , b.ABQ02 , b.AAT02 , b.VAA12 , b.VAA34 , b.VAA35 , b.VAA47 , b.VAA48 , b.VAA49 , b.VAA33 , b.VAA15 , b.ACK01 , b.BDP02 , a.VAC16 , a.VAC26 , a.VAC27 , a.VAC28 , a.VAC29 , a.VAC56 , a.VAC06 , a.VAC57 , a.VAC45 , b.VAA61 , a.VAC43 , b.BCK01B , f.BCK03 , m.UAA03 , a.VAC02 , n.BCB03 , a.BCB01A , a.VAC31 , a.BCE01A , b.VBU01 , a.VAC44 , b.BEP06B , a.SCF01 , l.SCF04 , a.BAK05 , l.BCE03D , l.BCE01D , x.BCE01 CManageId , x.BCE03 CManage , b.VAA16 , a.BCE03E,b.VAA02 , g.VCB04 , g.VBU14 , g.VBU15 , g.VBU30 , a.VAC72 , v.VCJ15 FROM VAC1 a JOIN VAA1 b ON a.VAA01 = b.VAA01 LEFT JOIN BCB1 n on a.BCB01A = n.BCB01 LEFT JOIN BCK1 f on a.BCK01A = f.BCK01 LEFT JOIN ABW1 c ON b.ABW01 = c.ABW01 LEFT JOIN AAU1 d ON a.AAU01 = d.AAU01 LEFT JOIN ABJ1 e ON b.ABJ01 = e.ABJ01 LEFT JOIN UAA1 m on a.UAA01 = m.UAA01 LEFT JOIN VBU1 g on b.VBU01 = g.VBU01 LEFT JOIN SCF1 l on l.SCF01 = a.SCF01 LEFT JOIN SCI1 x on x.SCA01 = l.SCA01 and x.SCI04 = l.SCF01 and x.SCI03 = 1 LEFT JOIN VCJ1 v on v.VAA07 = a.VAC01 WHERE a.VAC01 = %d ', '2013-07-25 11:50:14', '(8065)冯义强', 0) else print 'sys_Scripts.id=1879 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1880) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1880, 85, 'SQL_检索挂号费用', '检索挂号费用', '检索挂号费用(挂号费、诊金、病历本、就诊卡)', 1, 0, Null, 1, 'DECLARE @lBBY01 int, @BBY34 tinyint , @CDate datetime SET @lBBY01 = %d SELECT @BBY34 = BBY34 FROM BBY1 WHERE BBY01 = @lBBY01 SET @CDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SELECT SELECTED = 1 ,VAJ01= 0 ,BBY01, BDN01, BBY04, BBY05, BBY06, BBY08, BBY25 , BBY25 OBBY25 ,b.BCF03 , a.BCF01 FROM BBY1 a LEFT JOIN BCF1 b on a.BCF01 = b.BCF01 WHERE BBY01 = @lBBY01 AND @BBY34 <> 2 UNION SELECT SELECTED = 1 ,VAJ01 = 0,BBY01, BDN01, BBY04, BBY05, BBY06, BBY08, case @BBY34 when 1 then BBY25 else BCR07 end as BBY25, case @BBY34 when 1 then BBY25 else BCR07 end as OBBY25 ,c.BCF03 ,a.BCF01 FROM BBY1 a JOIN BCR1 b ON a.BBY01 = b.BBY01B LEFT JOIN BCF1 c on a.BCF01 = c.BCF01 WHERE b.BBY01A = @lBBY01 UNION SELECT SELECTED = 1 ,VAJ01 =0,BBY01, BDN01, BBY04, BBY05, BBY06, BBY08, BBY25 , BBY25 OBBY25, b.BCF03 , a.BCF01 FROM BBY1 a LEFT JOIN BCF1 b on a.BCF01 = b.BCF01 WHERE BDN01 = ''R'' AND a.BCF01 IN(7,8) and a.BBY31 >= @CDate ', '2011-03-24 09:44:21', Null, 0) else print 'sys_Scripts.id=1880 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1942) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1942, 85, 'SQL_挂号结帐信息', '挂号结帐信息', '检索挂号结帐信息', 1, 0, Null, 1, 'Declare @VAK01 int, @VAA07 int set @VAA07 = %d select @VAK01 = VAK01 from V_VAK_FULL where VAA07 = @VAA07 and VAK06 =1 and VAK19 =1 select VBL13 ,VBL14 , VBL15, VAK08 , @VAK01 as VAK01 from V_VBL_FULL a join V_VAK_FULL b on a.VAK01 = b.VAK01 where b.VAK01 =@VAK01 ', '2012-07-11 11:22:14', '(8065)冯义强', 0) else print 'sys_Scripts.id=1942 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1943) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1943, 85, 'SQL_挂号收费明细', '挂号收费明细', '检索挂号收费明细', 1, 0, Null, 1, 'Declare @VAK01 int, @VAA07 int set @VAA07= %d select @VAK01=VAK01 from V_VAK_FULL where VAA07 = @VAA07 and VAK06 = 1 and VAK19 = 1 select a.VAI01, a.VAJ01 ,a.BBY01,a.BDN01 ,b.BBY05,b.BCF01,a.VAJ38 BBY25,c.BCF03 from V_VAJ_FULL a join BBY1 b on a.BBY01 = b.BBY01 Left join BCF1 c on b.BCF01 = c.BCF01 where a.VAK01= @VAK01 ', '2010-07-10 11:16:22', Null, 0) else print 'sys_Scripts.id=1943 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1944) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1944, 85, 'SQL_挂号自定义元素', '挂号自定义元素', '挂号自定义元素', 1, 0, Null, 1, 'Select convert(bit,0) as Selected,FieldName=''tvedtVAA65'',Des=''就诊卡号'',RowNo=12 Union All Select convert(bit,0) as Selected,FieldName=''col_zkCard'',Des=''折扣卡号'',RowNo=13 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA15'',Des=''身份证号'',RowNo=14 Union All Select convert(bit,0) as Selected,FieldName=''tvedtSex'',Des=''性别'',RowNo=16 Union All Select convert(bit,0) as Selected,FieldName=''tvedtAge'',Des=''年龄'',RowNo=18 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA12'',Des=''出生日期'',RowNo=17 Union All Select convert(bit,0) as Selected,FieldName=''col_AAT02'',Des=''职业'',RowNo=19 Union All Select convert(bit,0) as Selected,FieldName=''col_ACK01'',Des=''婚姻'',RowNo=20 Union All Select convert(bit,0) as Selected,FieldName=''col_ACC02'',Des=''国籍'',RowNo=21 Union All Select convert(bit,0) as Selected,FieldName=''col_ABQ02'',Des=''民族'',RowNo=22 Union All Select convert(bit,0) as Selected,FieldName=''tvedtPaitentType'',Des=''费别'',RowNo=24 Union All Select convert(bit,0) as Selected,FieldName=''tvedtPaymentMethod'',Des=''医疗付款'',RowNo=25 Union All Select convert(bit,0) as Selected,FieldName=''tvedtPhone'',Des=''电话'',RowNo=27 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA35'',Des=''移动电话'',RowNo=28 Union All Select convert(bit,0) as Selected,FieldName=''col_UAA01'',Des=''社区'',RowNo=29 Union All Select convert(bit,0) as Selected,FieldName=''tvedtAddress'',Des=''住址'',RowNo=30 Union All Select convert(bit,0) as Selected,FieldName=''col_BDX02'',Des=''了解途径'',RowNo=31 Union All Select convert(bit,0) as Selected,FieldName=''col_VAC57'',Des=''介绍人'',RowNo=32 Union All Select convert(bit,0) as Selected,FieldName=''tvedtOrderInfo'',Des=''摘要'',RowNo=34 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA47'',Des=''工作单位'',RowNo=37 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA48'',Des=''单位电话'',RowNo=38 Union All Select convert(bit,0) as Selected,FieldName=''col_VAA49'',Des=''单位地址'',RowNo=39', '2010-06-28 14:21:05', Null, 0) else print 'sys_Scripts.id=1944 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1945) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1945, 85, 'SQL_加载会员卡信息', '加载会员卡信息', '加载会员卡信息', 1, 0, Null, 1, 'select VBU01, VBU01A, VBU03, VBU04, VBU05, VBU06, c.VAA01 , c.VAA05, VBU07,VBU07 VBU08 ,a.BAQ01, VBU09, VBU10, VBU11, VBU12, VBU13, VBU14, VBU15, VBU16, VBU17, VBU18, VBU19 ,b.BAQ03 , c.ABW01 , c.VAA10 , c.ABC02 ,c.VAA01 , c.ABBRP , c.ABBRW , Search='''' , VBL14 , VBL15 from VBU1 a Left join BAQ1 b on a.BAQ01 = b.BAQ01 Left join VAA1 c on a.VBU03 = c.VAA65 Left join VBL1 d on c.VAA01 = d.VAA01 where VBU01 = %d and d.VAA01 =-1', '2010-04-01 10:41:01', Null, 0) else print 'sys_Scripts.id=1945 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1946) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1946, 85, 'SQL_检索病人信息', '检索病人信息', '检索病人信息', 1, 0, ' select a.VAA01,VAA05,VAA10,a.ABW01,b.ABW02,ABC02,a.ABBRP,a.ABBRW from VAA1 a left Join ABW1 b on a.ABW01 = b.ABW01 ', 1, 'SELECT a.VAA01 , b.VAC01 , a.VAA03 , a.VAA05 , a.VAA10 , a.AAU01 , a.ABBRP , a.ABBRW , b.BCK01A , b.BCE01A , b.BCE02A , b.BCE03A , c.BCK03 from VAA1 a join VAC1 b on b.VAA01 = a.VAA01 join BCK1 c on c.BCK01 = b.BCK01A where b.VAC01 = %d ', '2010-12-28 17:02:32', Null, 0) else print 'sys_Scripts.id=1946 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1947) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1947, 85, 'SQL_按卡号检索病人', '按卡号检索病人', '按卡号检索病人', 1, 0, ' select a.VBU01 , a.VBU03 , a.VCB04 , a.VCB03 , b.VAA01 , b.VAA05 , b.VAA10 , b.ABC02 , b.ABW01 , c.ABW02 from VBU1 a Left join VAA1 b on a.VBU01 = b.VBU01 Left join ABW1 c on b.ABW01 = c.ABW01 ', 1, 'select a.VBU01 , a.VBU03 , a.VCB03 , a.VCB04 , b.VAA01 , b.VAA05 , b.VAA10 , b.ABC02 , b.ABW01 from VBU1 a join VAA1 b on a.VBU01 = b.VBU01 where a.VCB04 = ''%s'' ', '2010-06-24 11:27:20', Null, 0) else print 'sys_Scripts.id=1947 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1948) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1948, 85, 'SQL_检索会员卡信息', '检索会员卡信息', '检索会员卡信息', 1, 0, ' select a.VAA01 , a.VAA05 , a.ABW01 , a.ABBRP, a.ABBRW , a.VAA10 , a.ABC02 , b.VBU01 , b.VBU03 , b.VBU04 , b.VBU05 , c.ABW02 , b.VBU13 , b.VBU14 from VAA1 a join VBU1 b on a.VAA65 = b.VBU05 left join ABW1 c on a.ABW01 = c.ABW01 ', 1, 'Declare @VAA01 int set @VAA01 = %d select a.VAA01 , a.VAA05 , a.ABW01 , a.ABBRP, a.ABBRW , a.VAA10 , a.ABC02 , d.ABW02 , b.VBU01 , b.VBU03 , b.VBU04 , b.VBU05 , c.VBL14 , c.VBL15 , c.VBL12 , Search='''' , b.VBU13 , b.VBU14 , c.VBL13 , c.VBL03 from VAA1 a join VBU1 b on a.VAA65 = b.VBU05 join (select top 1 * from VBL1 where VAA01 = @VAA01 and VBL04 =5 order by VBL19 desc) c on a.VAA01 = a.VAA01 left Join ABW1 d on a.ABW01 = d.ABW01 where c.VBL04 =5 and a.VAA01 = @VAA01 ', '2010-05-11 15:06:31', Null, 0) else print 'sys_Scripts.id=1948 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1949) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1949, 85, 'SQL_初始化门诊号序号', '初始化门诊号序号', '初始化门诊号序号', 1, 0, Null, 1, 'update VAA1_ID_3 set Value = %d', '2010-03-16 14:53:54', Null, 0) else print 'sys_Scripts.id=1949 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=1950) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(1950, 85, 'SQL_挂号打印信息', '挂号打印信息', '挂号打印信息', 1, 0, Null, 1, 'SELECT a.VAA07,c.VAC02 VAI04,b.VAA05,b.ABC02,b.BDP02,a.FAB03 FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01 = b.VAA01 JOIN VAC1 c ON a.VAA07 = c.VAC01 WHERE a.VAK01=%d', '2013-06-07 15:32:14', '(8065)冯义强', 0) else print 'sys_Scripts.id=1950 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5205) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5205, 85, 'SQL_支付方式按类型', '支付方式按类型检索', '支付方式按类型检索', 1, 0, ' Declare @BCE01 int , @AAO01 varchar(2) , @AAN01 varchar(4) SET @AAO01 = ''%s'' SET @AAN01 = ''%s'' SET @BCE01 = %d If exists(select * from BBR2 where BCE01 = @BCE01 and AAN01 = @AAN01 ) BEGIN select BBP01, BBP02, ABBRP, ABBRW, AAO01, BBP06, ROWNR, ISDEF from BBP1 a where AAO01 = @AAO01 AND EXISTS (SELECT * FROM BBR2 b WHERE a.BBP01 = b.BBP01 AND b.AAN01 = @AAN01 and b.BCE01 = @BCE01 ) Order by ROWNR END ELSE BEGIN select BBP01, BBP02, ABBRP, ABBRW, AAO01, BBP06, ROWNR, ISDEF from BBP1 a where AAO01 = @AAO01 AND EXISTS (SELECT * FROM BBR1 b WHERE a.BBP01 = b.BBP01 AND b.AAN01 = @AAN01 ) Order by ROWNR END ', 1, 'select BBP01, BBP02, ABBRP, ABBRW, AAO01, BBP06, ROWNR, ISDEF from BBP1 a where AAO01 = ''%s'' AND EXISTS (SELECT * FROM BBR1 b WHERE a.BBP01 = b.BBP01 AND b.AAN01 =''%s'')', '2012-04-05 13:48:34', '(8065)冯义强', 0) else print 'sys_Scripts.id=5205 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5206) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5206, 85, 'SQL_检索卡信息', '检索卡信息', '检索卡信息', 1, 0, Null, 1, 'select VBU01, VBU01A, VBU03, VBU04, VBU05, VBU06, VBU07, BAQ01, VBU09, VBU10, VBU11, VBU12, VBU13, VBU14, VBU15, VBU16, VBU17, VBU18, VBU19 from VBU1 Where VBU03 = ''%s''', '2010-03-30 17:35:34', Null, 0) else print 'sys_Scripts.id=5206 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5207) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5207, 85, 'SQL_检索记账私人项目', '检索记账私人项目', '检索记账私人项目', 1, 0, Null, 1, 'Declare @BDate datetime , @BCE01 int set @BCE01 = %d set @BDate = getdate() select a.BGE01, a.BCK01, a.BCE01, a.BBY01, a.BGE05 , b.BBY05 , b.BDN01 from BGE1 a join BBY1 b on a.BBY01 = b.BBY01 where a.BCE01 = @BCE01 and b.BDN01 <> ''4'' and BBY31 > @BDate union all select a.BGE01, a.BCK01, a.BCE01, a.BBY01, a.BGE05 , b.BBY05 , b.BDN01 from BGE1 a join BBY1 b on a.BBY01 = b.BBY01 join BCT1 c on a.BBY01 = c.BBY01 where a.BCE01 = @BCE01 and c.BCT33 =1 and b.BDN01 =''4'' and BBY31 > @BDate order by BGE05 Desc ', '2010-05-12 15:32:45', Null, 0) else print 'sys_Scripts.id=5207 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5208) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5208, 85, 'SQL_检索支付方式', '检索支付方式', '按不同类型检索支付方式', 1, 0, ' Declare @AAN01 varchar(4) , @AAO01 varchar(2) , @BCE01 int SET @AAN01 = ''%s'' SET @AAO01 = ''%s'' SET @BCE01 = %d IF EXISTS(SELECT * from BBR2 where BCE01 = @BCE01 and AAN01 = @AAN01 ) BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF ,a.ABBRP ,a.ABBRW FROM BBP1 a JOIN BBR2 b ON a.BBP01 = b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 and b.BCE01 = @BCE01 Order By a.ROWNR END ELSE BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF FROM BBP1 a JOIN BBR1 b ON a.BBP01 = b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 Order By a.ROWNR END ', 1, 'Declare @AAN01 varchar(4) , @AAO01 varchar(2) , @BCE01 int SET @AAN01 = ''%s'' SET @AAO01 = ''%s'' SET @BCE01 = %d IF EXISTS(SELECT * from BBR2 where BCE01 = @BCE01 and AAN01 = @AAN01 ) BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF FROM BBP1 a JOIN BBR2 b ON a.BBP01 = b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 and b.BCE01 = @BCE01 and ISNULL(BBP09,0) = 0 Order By a.ROWNR END ELSE BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF FROM BBP1 a JOIN BBR1 b ON a.BBP01 = b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 and ISNULL(BBP09,0) = 0 Order By a.ROWNR END ', '2013-12-23 16:12:03', '(8065)冯义强', 0) else print 'sys_Scripts.id=5208 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5209) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5209, 85, 'SQL_按账号检索卡信息', '按账号检索卡信息', '按会员卡账号检索卡信息', 1, 0, Null, 1, 'select VBU01, VBU01A, VBU03, VBU04, VBU05, VBU06, VBU07, BAQ01, VBU09, VBU10, VBU11, VBU12, VBU13, VBU14, VBU15, VBU16, VBU17, VBU18, VBU19 from VBU1 Where VBU05 = ''%s''', '2010-05-08 18:18:42', Null, 0) else print 'sys_Scripts.id=5209 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5210) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5210, 85, 'SQL_检索会员充值', '检索会员充值', '检索会员充值信息', 1, 0, 'select VBL01, VBL02, VBL03, VBL04, VBL05, a.VAA01, VAA07, BCK01, BAQ03, BBO02, VBL11, VBL12, VBL13, VBL14, VBL15, VAK01, VBL17, VBL18, VBL19, VBL01A, BCE01, BCE02, BCE03, VBL24, VBL25, VBL26, VBL27, PNRCP, VBL29 , b.VAA05 , b.VAA10 , b.VAA03 , c.ABW02 , b.BDP02 , d.VBM04 , d.VBM05 , d.VBM04 - d.VBM05 as yjye from VBL1 a join VAA1 b on a.VAA01 = b.VAA01 Left join ABW1 c on c.ABW01 = b.ABW01 join VBM1 d on a.VAA01 = d.VAA01 and VBM03 =3 where VBL04 = 5 ', 1, 'SELECT --病人信息 b.VAA01, b.VAA02, b.VAA03, b.VAA04, b.VAA05, b.VAA06, b.ABBRW, b.ABW01, b.VAA10, b.AAU01, b.VAA12, b.ACK01, b.VAA14, b.VAA15, b.BDP02, b.ABC02, b.ABQ02, b.VAA34, b.VAA35, --会员卡信息 a.VBU01, a.VBU03, a.VBU04, a.VBU05, a.VBU06, a.VBU07, a.BAQ01, a.VBU09, a.VBU10, a.VBU11, a.VBU12, a.VBU13, a.VBU14, a.VBU15, a.VBU16, a.VBU17, a.VBU19, a.VBU18, a.VBU19 FROM VBU1 A LEFT JOIN VAA1 B ON A.VBU05=B.VAA65 WHERE A.VBU17<=1 ', '2010-05-22 15:39:55', Null, 0) else print 'sys_Scripts.id=5210 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5211) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5211, 85, 'SQL_存在相同的卡号', '是否存在相同的卡号', '是否存在相同的卡号', 1, 0, Null, 1, 'Declare @Result tinyint , @VBU05 varchar(20) set @VBU05 = ''%s'' set @Result = 0 IF exists(Select * from vbu1 where VBU05 = @VBU05 and vbu17 = 0) begin set @Result = 1 select @Result Result return end If exists(Select * from vbu1 where VBU05 = @VBU05 and vbu17 = 1) begin set @Result = 2 end select @Result Result ', '2010-05-11 19:48:34', Null, 0) else print 'sys_Scripts.id=5211 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5212) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5212, 85, 'SQL_检索医保信息', '检索医保信息', '检索医保信息', 1, 0, Null, 1, 'select IAR01, ACF01, VAA01, VAA07, IAA01, IAB02, IAK04, IAK05, IAK06, IAR10, IAR11, IAR12, IAR13, IAR14, IAR15, IAR16, IAR17, IAR18, IAR19, IAR20, IAR21, IAR22, IAI03, IAR24, IAR25, IAR26, IAR27, IAR28, IAR29, IAR30, IAR31, IAR32, IAR33, IAR34, IAR35, IAC02, IAC03, IAD03, IAD04, IAR40, IAR41 from IAR1 where IAR01 = %d ', '2010-05-12 10:57:10', Null, 0) else print 'sys_Scripts.id=5212 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5213) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5213, 85, 'SQL_判断是否有医保', '判断是否有医保', '判断是否有医保', 1, 0, Null, 1, 'SELECT * FROM IAA1', '2010-05-12 11:06:00', Null, 0) else print 'sys_Scripts.id=5213 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5214) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5214, 85, 'SQL_医保是否成功', '医保是否成功', '医保记账单据是否保存成功', 1, 0, Null, 1, 'Declare @VAA01 int , @BDate Datetime Set @VAA01 = %d Set @BDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) select TOP 1 IAR01, ACF01, VAA01, VAA07, IAA01, IAB02, IAK04, IAK05, IAK06, IAR10, IAR11, IAR12, IAR13, IAR14, IAR15, IAR16, IAR17, IAR18, IAR19, IAR20, IAR21, IAR22, IAI03, IAR24, IAR25, IAR26, IAR27, IAR28, IAR29, IAR30, IAR31, IAR32, IAR33, IAR34, IAR35, IAC02, IAC03, IAD03, IAD04, IAR40, IAR41, IAK22, IAR43, IAR44, IAR45 from IAR1 where VAA01 = @VAA01 and ACF01 = 0 and IAR32 = 0 and IAR22 >= @BDate ORDER BY IAR01 DESC ', '2011-06-02 10:16:31', Null, 0) else print 'sys_Scripts.id=5214 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5215) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5215, 85, 'SQL_检索挂号明细', '检索挂号明细', '按就诊ID检索挂号明细', 1, 0, Null, 1, 'select SELECTED = 1 ,a.VAI01, a.VAJ01 ,a.BDN01 ,a.BBY01,b.BBY05,b.BCF01,a.VAJ38 BBY25, a.VAJ38 OBBY25 ,c.BCF03 from VAJ1 a join BBY1 b on a.BBY01 = b.BBY01 Left join BCF1 c on b.BCF01 = c.BCF01 where a.VAA07= %d and VAJ04 =1 and VAJ05 =1 ', '2011-08-11 10:23:29', '(8065)冯义强', 0) else print 'sys_Scripts.id=5215 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5216) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5216, 85, 'SQL_医保挂号成功记录', '查询医保挂号信息', '查询医保挂号信息', 1, 0, Null, 1, 'Declare @VAC01 INT Set @VAC01 = %d select IAR01, ACF01, VAA01, VAA07, IAA01, IAB02, IAK04, IAK05, IAK06, IAR10, IAR11, IAR12, IAR13, IAR14, IAR15, IAR16, IAR17, IAR18, IAR19, IAR20, IAR21, IAR22, IAI03, IAR24, IAR25, IAR26, IAR27, IAR28, IAR29, IAR30, IAR31, IAR32, IAR33, IAR34, IAR35, IAC02, IAC03, IAD03, IAD04, IAR40, IAR41, IAK22, IAR43, IAR44, IAR45 from IAR1 where VAA07 = @VAC01 and IAR32 <> 0 and ACF01 = 0', '2010-05-27 10:25:49', Null, 0) else print 'sys_Scripts.id=5216 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5217) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5217, 85, 'SQL_检索挂号类别', '检索挂号类别', '按挂号类别Id检索挂号类别信息', 1, 0, Null, 1, 'select a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW , b.BCK03 , c.BBY05 from BCB1 a Left join BCK1 b on a.BCK01 = b.BCK01 Left join BBY1 c on a.BBY01 = c.BBY01 where BCB01 = %d ', '2010-05-25 16:54:28', Null, 0) else print 'sys_Scripts.id=5217 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5218) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5218, 85, 'SQL_挂号排班', '按ID加载挂号排班', '按排班ID加载挂号排班', 1, 0, Null, 1, 'select BGG01, BCB01, BGG03, BGG04, BGG05, BGG06, BGG07, BGG08, BGG09, BGG10, BGG11, BGG12, BGG13, BGG14, BGG15, BCE03A, BGG17, BGG18, BCE03B, BGG20, BGG21 from BGG1 where BGG01 = %d ', '2010-05-25 21:41:21', Null, 0) else print 'sys_Scripts.id=5218 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5219) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5219, 85, 'SQL_检索时间段', '检索时间段', '检索挂号时间段', 1, 0, Null, 1, 'select BCO01, BCO02, BCO03, BCO04 from BCO1', '2010-05-26 11:39:29', Null, 0) else print 'sys_Scripts.id=5219 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5220) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5220, 85, 'SQL_所有挂号类别', '检索所有挂号类别', '检索所有挂号类别', 1, 0, Null, 1, 'select a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW , b.BCK03 , c.BBY05 from BCB1 a Left join BCK1 b on a.BCK01 = b.BCK01 Left join BBY1 c on a.BBY01 = c.BBY01 ', '2010-05-26 19:17:41', Null, 0) else print 'sys_Scripts.id=5220 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5221) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5221, 85, 'SQL_按类别加载排班', '按挂号类别加载排班信息', '按挂号类别加载排班信息', 1, 0, Null, 1, 'select BGG01, BCB01, BGG03, BGG04, BGG05, BGG06, BGG07, BGG08, BGG09, BGG10, BGG11, BGG12, BGG13, BGG14, BGG15, BCE03A, BGG17, BGG18, BCE03B, BGG20, BGG21 from BGG1 where BCB01 = %d ', '2010-05-26 19:45:52', Null, 0) else print 'sys_Scripts.id=5221 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5222) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5222, 85, 'SQL_是否有重复时间段', '排班是否有重复时间段', '挂号排班是否有重复时间段', 1, 0, Null, 1, 'Declare @Date datetime , @BGG01 int set @Date =''%s'' set @BGG01 = %d Select BGG01 from BGG1 where BCB01 = %d and BGG18 >= @Date and BGG01 <> @BGG01 ', '2010-11-24 09:53:46', Null, 0) else print 'sys_Scripts.id=5222 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5223) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5223, 85, 'SQL_删除挂号排班', '删除挂号排班', '删除挂号排班', 1, 0, Null, 1, 'Declare @BGG01 int Set @BGG01 = %d Delete from BGG1 where BGG01 = @BGG01 Delete from BGH1 where BGG01 = @BGG01 ', '2010-05-27 10:43:37', Null, 0) else print 'sys_Scripts.id=5223 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5224) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5224, 85, 'SQL_加载号类信息', '加载号类信息', '加载挂号号类信息', 1, 0, Null, 1, 'Declare @Date datetime SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) Select a.BCB01 , a.BCB02 , a.BCB03 , c.BGG04 , c.BGG05 , c.BGG06 , b.VAH07 , b.VAH08 , b.BCE03 , b.BCK01 , d.BCK03 from BCB1 a join VAH1 b on a.BCB01 = b.BCB01 join BGG1 c on a.BCB01 = c.BCB01 Left join BCK1 d on b.BCK01 = d.BCK01 where c.BGG03 <= @Date and c.BGG18 >= @Date and b.VAH02 = @Date ', '2013-05-17 16:18:37', '(8088)王海涛', 0) else print 'sys_Scripts.id=5224 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5225) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5225, 85, 'SQL_挂号类别预约', '检索挂号类别(预约)', '检索挂号类别(预约)', 1, 0, ' Declare @Date datetime , @ltime datetime , @CurrTime Datetime, @DateNum int SET @CurrTime = getdate() SELECT @DateNum = DATEPART(weekday, getdate()) SELECT @ltime = convert(varchar, getdate(), 108) SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) IF object_id(''tempdb..#tmpBCONew'') is not null BEGIN drop table #tmpBCONew END SELECT * INTO #tmpBCONew FROM (select * from BCO1 where BCO03 <= BCO04 and (BCO03 <= @ltime and BCO04 >= @ltime) union all select * from BCO1 where BCO03 > BCO04 and (BCO03 <= @ltime or BCO04 >= @ltime ) ) a SELECT a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW ,b.BCK03 ,d.BBY05 , e.BCE02 , f.BGG05 , f.BGG06 ,f.BGG01 FROM BCB1 a JOIN BBY1 d on a.BBY01 = d.BBY01 JOIN BGG1 f on a.BCB01 = f.BCB01 JOIN BGH1 m ON f.BGG01 = m.BGG01 JOIN #tmpBCONew n ON m.BGH04 = n.BCO02 LEFT JOIN BCK1 b ON a.BCK01 = b.BCK01 LEFT JOIN BCE1 e ON a.BCE01 = e.BCE01 where m.BGH03 = @DateNum AND BGG03 <= @Date and BGG18 >= @Date ', 1, Null, '2013-05-17 09:59:40', '(8065)冯义强', 0) else print 'sys_Scripts.id=5225 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5226) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5226, 85, 'SQL_检索诊室', '检索诊室', '检索诊室', 1, 0, Null, 1, 'select a.BAS01, a.BAS02, a.ABBRP, a.ABBRW, a.BAS05, a.BCK01, a.ISDEF , b.BCK03 , a.BCB01 , c.BCB02 , c.BCB03 from BAS1 a join BCK1 b on a.BCK01 = b.BCK01 left join BCB1 c on c.BCB01 = a.BCB01 where a.BAS01 = ''%s'' ', '2012-03-01 16:29:00', '(8065)冯义强', 0) else print 'sys_Scripts.id=5226 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5227) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5227, 85, 'SQL_班次是否使用', '班次是否使用', '班次是否使用', 1, 0, Null, 1, 'select * from BGH1 where BGH04 =''%s''', '2010-06-04 16:28:33', Null, 0) else print 'sys_Scripts.id=5227 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5228) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5228, 85, 'SQL_自定义快捷键', '检索自定义快捷键', '检索自定义快捷键', 1, 0, Null, 1, 'SELECT ''None'' ShortCut , 1 ROWNR UNION ALL SELECT ''F1'' ShortCut , 2 ROWNR UNION ALL SELECT ''F2'' ShortCut , 3 ROWNR UNION ALL SELECT ''F3'' ShortCut , 4 ROWNR UNION ALL SELECT ''F4'' ShortCut , 5 ROWNR UNION ALL SELECT ''F5'' ShortCut , 6 ROWNR UNION ALL SELECT ''F6'' ShortCut , 7 ROWNR UNION ALL SELECT ''F7'' ShortCut , 8 ROWNR UNION ALL SELECT ''F8'' ShortCut , 9 ROWNR UNION ALL SELECT ''F9'' ShortCut , 10 ROWNR UNION ALL SELECT ''F10'' ShortCut , 11 ROWNR UNION ALL SELECT ''F11'' ShortCut , 12 ROWNR UNION ALL SELECT ''F12'' ShortCut , 13 ROWNR UNION ALL SELECT ''Ctrl + A'' ShortCut , 14 ROWNR UNION ALL SELECT ''Ctrl + B'' ShortCut , 15 ROWNR UNION ALL SELECT ''Ctrl + C'' ShortCut , 16 ROWNR UNION ALL SELECT ''Ctrl + D'' ShortCut , 17 ROWNR UNION ALL SELECT ''Ctrl + E'' ShortCut , 18 ROWNR UNION ALL SELECT ''Ctrl + F'' ShortCut , 19 ROWNR UNION ALL SELECT ''Ctrl + G'' ShortCut , 20 ROWNR UNION ALL SELECT ''Ctrl + H'' ShortCut , 21 ROWNR UNION ALL SELECT ''Ctrl + I'' ShortCut , 22 ROWNR UNION ALL SELECT ''Ctrl + J'' ShortCut , 23 ROWNR UNION ALL SELECT ''Ctrl + K'' ShortCut , 24 ROWNR UNION ALL SELECT ''Ctrl + L'' ShortCut , 25 ROWNR UNION ALL SELECT ''Ctrl + M'' ShortCut , 26 ROWNR UNION ALL SELECT ''Ctrl + N'' ShortCut , 27 ROWNR UNION ALL SELECT ''Ctrl + O'' ShortCut , 28 ROWNR UNION ALL SELECT ''Ctrl + P'' ShortCut , 29 ROWNR UNION ALL SELECT ''Ctrl + Q'' ShortCut , 30 ROWNR UNION ALL SELECT ''Ctrl + R'' ShortCut , 31 ROWNR UNION ALL SELECT ''Ctrl + S'' ShortCut , 32 ROWNR UNION ALL SELECT ''Ctrl + T'' ShortCut , 33 ROWNR UNION ALL SELECT ''Ctrl + U'' ShortCut , 34 ROWNR UNION ALL SELECT ''Ctrl + V'' ShortCut , 35 ROWNR UNION ALL SELECT ''Ctrl + W'' ShortCut , 36 ROWNR UNION ALL SELECT ''Ctrl + X'' ShortCut , 37 ROWNR UNION ALL SELECT ''Ctrl + Y'' ShortCut , 38 ROWNR UNION ALL SELECT ''Ctrl + Z'' ShortCut , 39 ROWNR UNION ALL SELECT ''Ctrl + 1'' ShortCut , 40 ROWNR UNION ALL SELECT ''Ctrl + 2'' ShortCut , 41 ROWNR UNION ALL SELECT ''Ctrl + 3'' ShortCut , 42 ROWNR UNION ALL SELECT ''Ctrl + 4'' ShortCut , 43 ROWNR UNION ALL SELECT ''Ctrl + 5'' ShortCut , 44 ROWNR UNION ALL SELECT ''Ctrl + 6'' ShortCut , 45 ROWNR UNION ALL SELECT ''Ctrl + 7'' ShortCut , 46 ROWNR UNION ALL SELECT ''Ctrl + 8'' ShortCut , 47 ROWNR UNION ALL SELECT ''Ctrl + 9'' ShortCut , 48 ROWNR ', '2010-06-07 10:53:21', Null, 0) else print 'sys_Scripts.id=5228 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5229) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5229, 85, 'SQL_检索临床部门', '检索临床部门', '检索临床部门', 1, 0, ' SELECT a.BCK01,a.BCK02 ,a.BCK03,BCK01A FROM BCK1 a WHERE exists(select * from BAZ1 b where a.BCK01 = b.BCk01 and b.BAU01=''01'') ', 1, 'SELECT BCK01=0,BCK03=''所有科室'',BCK01A=null union all SELECT a.BCK01,a.BCK03,BCK01A=0 FROM BCK1 a WHERE exists(select * from BAZ1 b where a.BCK01 = b.BCk01 and b.BAU01=''01'') ', '2010-06-08 15:06:58', Null, 0) else print 'sys_Scripts.id=5229 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5230) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5230, 85, 'SQL_检索所有挂号号类', '检索所有挂号号类', '检索所有挂号号类', 1, 0, Null, 1, 'select 0 as Selected ,a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW , b.BCK03 , c.BBY05 from BCB1 a Left join BCK1 b on a.BCK01 = b.BCK01 JOIN BBY1 c on a.BBY01 = c.BBY01', '2010-06-10 14:04:54', Null, 0) else print 'sys_Scripts.id=5230 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5231) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5231, 85, 'SQL_查找最大有效期限', '查找最大有效期限', '按挂号类别查找挂号类别最大有效期限', 1, 0, Null, 1, 'Select max(BGG18) BGG18 from BGG1 where BCB01 = %d', '2010-06-11 13:57:03', Null, 0) else print 'sys_Scripts.id=5231 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5232) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5232, 85, 'SQL_检索挂号分诊病人', '检索挂号病人', '门诊分诊检索挂号病人', 1, 0, Null, 1, 'DECLARE @Date datetime SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SELECT a.VAC02 , c.BCB02 , a.BCB03A , b.BCK03 , e.VAA03 , e.VAA05 , a.BCE01A , a.VAA10 , f.ABW02 ,a.BCE03A , a.BAS02A ,a.VAC36 , v.ROWNR , a.VAC01 , a.BCK01A , v.VAD05 , e.ABBRP ,e.ABBRW , e.VAA02 , a.VAC06 , a.BDP02 , v.VAD18 , J.ADS03 , v.VAD17 , v.VAD25 , v.VAD21 , v.VAD22 FROM VAC1 a JOIN BCK1 b ON a.BCK01A = b.BCK01 JOIN BCB1 c ON a.BCB01A = c.BCB01 JOIN VAA1 e ON a.VAA01 = e.VAA01 LEFT JOIN ABW1 f ON e.ABW01 = f.ABW01 JOIN VAD1 v ON a.VAC01 = v.VAC01 JOIN ADS1 J on J.ADS01 = v.VAD18 WHERE v.VAD03 = @Date AND a.VAC45 = 1 %s Order by a.BCK01A , v.VAD17 , V.VAD25 ', '2013-04-11 13:11:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=5232 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5233) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5233, 85, 'SQL_诊室就诊病人', '诊室就诊病人', '检索当天诊室就诊病人信息', 1, 0, Null, 1, 'DECLARE @Date datetime SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SELECT c.BAS02 ,sum(CASE e.VAD05 WHEN 0 THEN 1 ELSE 0 END) AS VADHz, sum(CASE e.VAD05 WHEN 1 THEN 1 ELSE 0 END) AS VADZz, sum(CASE e.VAD05 WHEN 2 THEN 1 ELSE 0 END) AS VADYz, d.BCK03 FROM VAC1 a JOIN VAD1 e on e.VAC01 = a.VAC01 Left JOIN BAS1 c ON c.BAS02 = a.BAS02A JOIN BCK1 d ON d.BCK01 = a.BCK01A WHERE e.VAD03 = @Date and a.VAC45 = 1 %s GROUP BY c.BAS02 ,d.BCK03 ', '2011-10-20 15:00:00', '(8065)冯义强', 0) else print 'sys_Scripts.id=5233 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5234) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5234, 85, 'SQL_检索挂号状态', '检索挂号状态', '检索挂号状态', 1, 0, Null, 1, 'select VAC45 from VAC1 where VAC01 = %d ', '2010-06-29 14:03:52', Null, 0) else print 'sys_Scripts.id=5234 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5235) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5235, 85, 'SQL_更新挂号信息', '更新挂号信息', '更新挂号信息', 1, 0, Null, 1, 'Declare @Id int , @BCK01A int , @BCE01A int , @BCE02A varchar(20), @BCE03A varchar(20) set @Id = :ID set @BCK01A = :BCK01A set @BCE01A = :BCE01A set @BCE02A = :BCE02A set @BCE03A = :BCE03A Update VAC1 set BCK01A = @BCK01A , BCE01A = @BCE01A , BCE02A = @BCE02A , BCE03A = @BCE03A , BCE01D = @BCE01A , BCE03D = @BCE03A where VAC01 = @Id Update VAJ1 set BCK01D = @BCK01A, BCK01B = @BCK01A, BCK01C = @BCK01A where VAA07 = @Id AND VAJ04 = 1 AND BDN01 = ''R''', '2010-08-13 21:14:49', Null, 0) else print 'sys_Scripts.id=5235 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5237) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5237, 85, 'SQL_挂号界面元素', '挂号界面元素', '挂号界面元素', 1, 0, Null, 1, 'Select convert(bit,1) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtCode'',Des=''检索'',RowNo=0,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtBillNo'',Des=''票据号'',RowNo=4,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''tvedtClassification'',Des=''类别'',RowNo=6,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''tvedtDepartments'',Des=''科室'',RowNo=7,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtDoctor'',Des=''医生'',RowNo=8,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''tvedtPaitentNo'',Des=''门诊号'',RowNo=10,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,isnull(dbo.GetSysParamValue(100,103005,36),0)) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAC06'',Des=''复诊'',RowNo=11,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAC10'',Des=''急诊'',RowNo=12,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtVAA65'',Des=''卡号'',RowNo=13,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_zkCard'',Des=''折扣卡号'',RowNo=15,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA15'',Des=''身份证号'',RowNo=16,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''tvedtNameA'',Des=''姓名'',RowNo=17,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtSex'',Des=''性别'',RowNo=18,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''tvedtAge'',Des=''年龄'',RowNo=20,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA12'',Des=''出生日期'',RowNo=21,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_AAT02'',Des=''职业'',RowNo=22,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_ACK01'',Des=''婚姻'',RowNo=23,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_ACC02'',Des=''国籍'',RowNo=24,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_ABQ02'',Des=''民族'',RowNo=25,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,1) as Selected,convert(bit,1) as MustInput ,FieldName =''col_BDP02'',Des=''病人类别'',RowNo=26,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtPaitentType'',Des=''费别'',RowNo=27,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtPaymentMethod'',Des=''医疗付款'',RowNo=28,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtPhone'',Des=''电话'',RowNo=29,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA35'',Des=''移动电话'',RowNo=30,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_UAA01'',Des=''社区'',RowNo=31,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtAddress'',Des=''住址'',RowNo=32,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_BDX02'',Des=''了解途径'',RowNo=33,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAC57'',Des=''介绍人'',RowNo=34,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''tvedtOrderInfo'',Des=''摘要'',RowNo=35,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA47'',Des=''工作单位'',RowNo=38,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA48'',Des=''单位电话'',RowNo=39,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA49'',Des=''单位地址'',RowNo=40,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_BEP06B'',Des=''信用额度'',RowNo=41,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit Union All Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_BAK05'',Des=''疾病分类'',RowNo=42,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_SCA41'',Des=''客户经理'',RowNo=43,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_QueryPeople'',Des=''咨询顾问'',RowNo=44,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_SCF04'',Des=''预约号'',RowNo=45,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VAA16'',Des=''其他证件'',RowNo=46,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VBU14'',Des=''基本余额'',RowNo=47,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VBU15'',Des=''赠送余额'',RowNo=48,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VBU30'',Des=''积分余额'',RowNo=49,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_VCJ15'',Des=''查看健康档案'',RowNo=50,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_ABBRP'',Des=''拼音码'',RowNo=51,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit union all Select convert(bit,0) as Selected,convert(bit,0) as MustInput ,FieldName =''col_ABBRW'',Des=''五笔码'',RowNo=52,cast('''' as varchar(200)) as ImeName , convert(bit,1) as CanEdit', '2013-12-04 11:28:40', '(8065)冯义强', 0) else print 'sys_Scripts.id=5237 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5238) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5238, 85, 'SQL_检索收费项目', '检索收费项目', '检索收费项目', 1, 0, ' DECLARE @lText varchar(128) SET @lText = %s SELECT a.BBY01,a.BBY04,a.BBY06,a.BBY05,a.BBY25,a.BCK01,a.BAX01,a.AAS01 AS En_Name FROM BBY1 a WHERE (a.BBY04 LIKE @lText OR EXISTS(SELECT c.BBY01 FROM BCL1 c WHERE a.BBY01 = c.BBY01 AND (c.BCL03 LIKE @lText OR c.ABBRP LIKE @lText OR c.ABBRW LIKE @lText))) ORDER BY a.BBY01 ', 1, Null, '2010-08-31 14:18:18', Null, 0) else print 'sys_Scripts.id=5238 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5239) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5239, 85, 'SQL_按部门检索诊室', '按部门检索诊室', '按部门检索诊室', 1, 0, ' select BAS01, BAS02, ABBRP, ABBRW, BAS05, BCK01, ISDEF from BAS1 where BCK01 = %d ', 1, 'select BAS01, BAS02, ABBRP, ABBRW, BAS05, BCK01, ISDEF from BAS1 where BCK01 = %d', '2010-10-15 15:02:56', Null, 0) else print 'sys_Scripts.id=5239 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5240) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5240, 85, 'SQL_检索病人费别', '检索病人费别', '按病人类别过滤病人费别', 1, 0, ' select top 1 a.BGY01, a.BDP02, b.ABC01 ,a.ABC02,a.ISDEF from BGY1 a join ABC1 b on b.ABC02 = a.ABC02 where a.BDP02 = ''%s''order by a.IsDef desc ', 1, 'select top 1 BGY01, BDP02, ABC02, ISDEF from BGY1 where BDP02 = ''%s'' order by IsDef desc', '2010-11-25 17:43:39', Null, 0) else print 'sys_Scripts.id=5240 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5241) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5241, 85, 'SQL_检索挂号科室', '检索挂号科室', '检索挂号科室', 1, 0, Null, 1, 'Select a.BCK01, a.BCK02, a.BCK03 From BCK1 a where exists(select * from BAZ1 b where a.BCK01 = b.BCK01 and (b.ACF01 = 1 Or b.ACF01 = 3) and b.BAU01 = ''01'')', '2010-11-22 09:01:15', Null, 0) else print 'sys_Scripts.id=5241 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5242) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5242, 85, 'SQL_检索病人就诊信息', '检索病人就诊信息', '检索病人最近一次就诊信息', 1, 0, Null, 1, 'select a.BCK01A , b.BCK03 , c.BCB03 , a.BCB01A , a.BCE01A , a.BCE02A , a.BCE03A , a.BAO02 , c.BBY01 , a.BGG01 ,VAC57 from VAC1 a join BCK1 b on b.BCK01 = a.BCK01A join BCB1 c on c.BCB01 = a.BCB01A where a.VAC01 = %d ', '2014-07-21 09:49:01', '(8088)王海涛', 0) else print 'sys_Scripts.id=5242 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5243) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5243, 85, 'SQL_病人检查信息', '病人检查信息', '检索病人检查信息', 1, 0, Null, 1, 'select a.BCK01A , a.BCE01A , a.BCE02A ,a.BCE03A , a.VAA01 , a.VAA10 ,a.VAC01 , b.VAA03 , b.VAA05 , c.VCJ02 , c.VCJ03 , c.VCJ04 , c.VCJ05 , c.VCJ06 , c.VCJ07 , d.BCK03 , a.VAC06 , a.BDP02 , c.VCJ08 from VAC1 a join VAA1 b on b.VAA01 = a.VAA01 join BCK1 d on d.BCK01 = a.BCK01A left join VCJ1 c on c.VAA07 = a.VAC01 where a.VAC01 = %d ', '2014-07-09 16:10:04', '(8065)冯义强', 0) else print 'sys_Scripts.id=5243 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5244) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5244, 85, 'SQL_检索最近医保信息', '检索最近医保信息', '按病人信息检索医保信息', 1, 0, Null, 1, 'Declare @VAA01 int SET @VAA01 = %d select TOP 1 IAA01 , IAK05 from IAR1 where VAA01 = @VAA01 and ACF01 = 0 ', '2011-03-18 11:27:12', Null, 0) else print 'sys_Scripts.id=5244 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5245) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5245, 85, 'SQL_挂号结帐是否成功', '挂号结帐是否成功', '在挂号处的结帐是否成功，如果只有登记记录，VAC45为3，只有挂号结帐成功后VAC45为1', 1, 0, Null, 1, 'select VAC01 from VAC1 where VAC01 = %d and VAC45 = 1 ', '2011-04-07 08:48:34', Null, 0) else print 'sys_Scripts.id=5245 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5246) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5246, 85, 'SQL_设备支付方式', '设备支付方式', '按类型检索设备支付方式', 1, 0, Null, 1, 'Declare @AAN01 varchar(4) , @AAO01 varchar(2) , @BCE01 int SET @AAN01 = ''%s'' SET @AAO01 = ''%s'' SET @BCE01 = %d IF EXISTS(SELECT * from BBR2 where BCE01 = @BCE01 and AAN01 = @AAN01) BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF FROM BBP1 a JOIN BBR2 b ON a.BBP01=b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 and a.BBP09 = 1 and BCE01 = @BCE01 Order By a.ROWNR END ELSE BEGIN SELECT a.BBP01,a.BBP02,a.AAO01,BBP06, a.ISDEF FROM BBP1 a JOIN BBR1 b ON a.BBP01 = b.BBP01 WHERE b.AAN01 = @AAN01 and a.AAO01 = @AAO01 and a.BBP09 = 1 Order By a.ROWNR END ', '2011-08-31 14:36:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=5246 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5247) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5247, 85, 'SQL_按ID检索挂号类别', '按ID检索挂号类别', '按ID检索挂号类别', 1, 0, Null, 1, 'Declare @Date datetime , @CurrTime Datetime, @ltime datetime , @DateNum int , @BCB01 int SET @BCB01 = %d SET @CurrTime = getdate() SELECT @DateNum = DATEPART(weekday, getdate()) SELECT @ltime = convert(varchar, getdate(), 108) SET @Date = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) IF object_id(''tempdb..#tmpBCONew'') is not null BEGIN drop table #tmpBCONew END SELECT * INTO #tmpBCONew FROM (select * from BCO1 where BCO03 <= BCO04 and (BCO03 <= @ltime and BCO04 >= @ltime) union all select * from BCO1 where BCO03 > BCO04 and (BCO03 <= @ltime or BCO04 >= @ltime ) ) a SELECT a.BCB01, a.BCB02, a.BCB03, a.BAO02, a.BCK01, a.BBY01, a.BCE01, a.BCE03, a.BCB12, a.ABBRP, a.ABBRW ,b.BCK03 ,d.BBY05 , e.BCE02 ,f.BGG01 , f.BGG05 , f.BGG06 FROM BCB1 a JOIN BBY1 d on a.BBY01 = d.BBY01 JOIN BGG1 f on a.BCB01 = f.BCB01 JOIN BGH1 m ON f.BGG01 = m.BGG01 JOIN #tmpBCONew n ON m.BGH04 = n.BCO02 LEFT JOIN BCK1 b ON a.BCK01 = b.BCK01 LEFT JOIN BCE1 e ON a.BCE01 = e.BCE01 where a.BCB01 = @BCB01 and m.BGH03 = @DateNum AND BGG03 <= @Date and BGG18 >= @Date ', '2013-03-25 09:08:59', '(8065)冯义强', 0) else print 'sys_Scripts.id=5247 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5248) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5248, 85, 'SQL_检索分诊科室', '检索分诊科室', '检索分诊科室', 1, 0, ' select a.BCK01, a.BCK02, a.BCK03, a.BCK04, a.ABBRP, a.ABBRW, a.BCK01A, a.BCK09, a.ACA01, a.BCK13, a.ABY01, a.BCK15 FROM BCK1 a where exists (select * from BAZ1 b where b.BCK01 = a.BCK01 and b.ACF01 in(1 , 3) and b.BAU01 = ''01'') ', 1, 'select 0 as selected ,a.BCK01, a.BCK02, a.BCK03, a.BCK04, a.ABBRP, a.ABBRW, a.BCK01A, a.BCK09, a.ACA01, a.BCK13, a.ABY01, a.BCK15 FROM BCK1 a where BCK01 = -1 union all select 0 as selected ,a.BCK01, a.BCK02, a.BCK03, a.BCK04, a.ABBRP, a.ABBRW, a.BCK01A, a.BCK09, a.ACA01, a.BCK13, a.ABY01, a.BCK15 FROM BCK1 a where exists (select * from BAZ1 b where b.BCK01 = a.BCK01 and b.ACF01 in(1 , 3) and b.BAU01 = ''01'') ', '2012-05-22 15:21:51', '(8065)冯义强', 0) else print 'sys_Scripts.id=5248 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5249) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5249, 85, 'SQL_CRM预约ID', '检索CRM预约ID', '检索CRM预约ID', 1, 0, ' SELECT a.SCF01 , a.SCF04 , a.SCF14 , b.SCA06 , b.SCA26 , b.ABBRP , b.ABBRW ,a.SCA01 , a.BCE01D , a.BCE03D FROM SCF1 a JOIN SCA1 b on b.SCA01 = a.SCA01 WHERE a.ACF01 = 1 and SCF11 <> 3 ', 1, 'SELECT SCF01 , SCA01 , SCF04 , BCE01D , BCE03D FROM SCF1 WHERE VAA07 = %d and ACF01 = 1', '2012-05-04 15:15:58', '(8065)冯义强', 0) else print 'sys_Scripts.id=5249 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5250) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5250, 85, 'SQL_检索疾病分类', 'SQL_检索疾病分类', 'SQL_检索疾病分类', 1, 0, ' select BAH01, BAH02, BAH03, BAH04, BAH01A, LVLNR, BAH07, BAH08, BAH09, BAH10, ROWNR,ABBRP,ABBRW from BAH1 where BAH07=''D'' ', 1, Null, '2012-02-23 17:31:54', '(8088)王海涛', 0) else print 'sys_Scripts.id=5250 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5251) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5251, 85, 'SQL_按科室检索号别', '按科室检索号别', '按科室检索号别', 1, 0, ' Declare @BCK01 int SET @BCK01 = %d select BCB01, BCB02, BCB03, BAO02, BCK01, BBY01, BCE01, BCE03, BCB12, ABBRP, ABBRW from BCB1 where BCK01 = @BCK01 ', 1, Null, '2012-03-01 16:09:51', '(8065)冯义强', 0) else print 'sys_Scripts.id=5251 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5252) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5252, 85, 'SQL_按排班检索医生', '按排班检索医生', '按排班检索医生', 1, 0, ' DECLARE @BCK01 int , @CDate datetime SET @BCK01 = %d SET @CDate = GETDATE() SELECT BCE01,BCK01,BCE41, BCE02, BCE03, BCE04, BCE05, BCE06, a.ABBRP, a.ABBRW , b.AAH02 From BCE1 a left join AAH1 b on b.AAH01 = a.AAH01 where EXISTS(SELECT * FROM BDR1 b WHERE b.BCE01 = a.BCE01 AND b.BCK01 = @BCK01 ) and BCE41=1 AND EXISTS(SELECT * FROM BAA1 d WHERE d.BCE01 = a.BCE01 AND d.AAA01 = ''01'') AND ExISTS(SELECT * FROM ZAA1 e WHERE e.BCE01 = a.BCE01 AND e.ZAA07 <= @CDate and e.ZAA08 >= @CDate) ', 1, Null, '2012-05-22 17:54:05', '(8065)冯义强', 0) else print 'sys_Scripts.id=5252 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5253) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5253, 85, 'SQL_检索号别科室对应', '检索号别科室对应', '检索号别科室对应', 1, 0, Null, 1, ' select a.BJU01, a.BCB01, a.BCK01 , b.BCK03 , a.ABC02 from BJU1 a join BCK1 b on b.BCK01 = a.BCK01 where a.BCB01 = %d ', '2014-05-04 11:41:33', '(8065)冯义强', 0) else print 'sys_Scripts.id=5253 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5254) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5254, 85, 'SQL_检索号别对应医生', '检索号别对应医生', '检索号别对应医生', 1, 0, Null, 1, 'select a.BJV01, a.BCB01, a.BCE01 , b.BCE03 , a.BJV04 , a.BJV05 , a.BJV06 from BJV1 a join BCE1 b on b.BCE01 = a.BCE01 where a.BCB01 = %d', '2013-01-10 14:49:04', '(8065)冯义强', 0) else print 'sys_Scripts.id=5254 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5255) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5255, 85, 'SQL_选择科室', '选择科室', '检索时选择科室', 1, 0, ' select a.BCK01, a.BCK02, a.BCK03, a.BCK04, a.ABBRP, a.ABBRW, a.BCK01A, a.BCK09, a.ACA01, a.BCK13, a.ABY01, a.BCK15 FROM BCK1 a where exists (select * from BAZ1 b where b.BCK01 = a.BCK01 and b.ACF01 in(1 , 3) and b.BAU01 = ''01'') ', 1, Null, '2012-05-28 09:36:57', '(8065)冯义强', 0) else print 'sys_Scripts.id=5255 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5256) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5256, 85, 'SQL_选择医生', '选择医生', '选择医生', 1, 0, ' SELECT BCE01,BCK01,BCE41, BCE02, BCE03, BCE04, BCE05, BCE06, a.ABBRP, a.ABBRW , b.AAH02 From BCE1 a left join AAH1 b on b.AAH01 = a.AAH01 where BCE41=1 AND EXISTS(SELECT * FROM BAA1 d WHERE d.BCE01 = a.BCE01 AND d.AAA01 = ''01'') ', 1, Null, '2012-05-28 09:46:35', '(8065)冯义强', 0) else print 'sys_Scripts.id=5256 已经存在.' 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, ' 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 From VAA1 a LEFT JOIN ABW1 c ON a.ABW01 = c.ABW01 LEFT JOIN VBU1 d on a.VBU01 = d.VBU01 where %s like @context and a.VAA01A = 0 ', 1, Null, '2013-11-11 11:34:27', '(8065)冯义强', 0) else print 'sys_Scripts.id=5257 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5258) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5258, 85, 'SQL_预约挂号信息', '检索预约挂号信息', '按ID检索预约挂号信息', 1, 0, Null, 1, 'SELECT a.VAA01,a.VAC01, a.VAC36 , a.BCB03A , a.BCK01A , a.BCE02A , a.BCE03A , b.VAA03 , b.VAA05 , b.ABW01 , c.ABW02 , a.VAA10 , a.AAU01 , a.ABC02 , b.ABJ01 , e.ABJ02 , a.VAC19 , a.VAC20 , a.VAC46 , g.VCB04 , b.VAA33 , b.VAA34 , a.BAO02 , b.ABBRP , b.ABBRW , a.VAC10 , a.BCE02 , a.BCE03B , a.VAA01 ,a.UAA01 , a.BAQ01 , a.VAC26 , a.VAC27 , a.VAC28 , a.VAC29 , b.BAQ02 , b.BDX02 , b.ACC02 , b.ABQ02 , b.AAT02 , b.VAA12 , b.VAA34 , b.VAA35 , b.VAA47 , b.VAA48 , b.VAA49 , b.VAA33 , b.VAA15 , b.ACK01 , b.BDP02 , a.VAC16 , a.VAC26 , a.VAC27 , a.VAC28 , a.VAC29 , a.VAC56 , a.VAC06 , a.VAC57 , a.VAC45 , b.VAA61 , a.VAC43 , b.BCK01B , f.BCK03 , m.UAA03 , a.VAC02 , n.BCB03 , a.BCB01A , a.VAC31 , a.BCE01A , b.VBU01 , a.VAC44 , b.BEP06B , a.SCF01 , l.SCF04 , a.BAK05 , l.BCE03D , l.BCE01D , x.BCE01 CManageId , x.BCE03 CManage , b.VAA16 , a.BCE03E , g.VCB04 , g.VBU14 , g.VBU15 , g.VBU30 , b.VAA02 , v.VCJ15 FROM VAC4 a JOIN VAA1 b ON a.VAA01 = b.VAA01 LEFT JOIN BCB1 n on a.BCB01A = n.BCB01 LEFT JOIN BCK1 f on a.BCK01A = f.BCK01 LEFT JOIN ABW1 c ON b.ABW01 = c.ABW01 LEFT JOIN AAU1 d ON a.AAU01 = d.AAU01 LEFT JOIN ABJ1 e ON b.ABJ01 = e.ABJ01 LEFT JOIN UAA1 m on a.UAA01 = m.UAA01 LEFT JOIN VBU1 g on b.VBU01 = g.VBU01 LEFT JOIN SCF1 l on l.SCF01 = a.SCF01 LEFT JOIN SCI1 x on x.SCA01 = l.SCA01 and x.SCI04 = l.SCF01 and x.SCI03 = 1 LEFT JOIN VCJ1 v on v.VAA07 = a.VAC01 WHERE a.VAC01 = %d ', '2013-09-11 14:19:56', '(8065)冯义强', 0) else print 'sys_Scripts.id=5258 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5259) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5259, 85, 'SQL_号别对应医生', '检索号别对应医生', '检索号别对应医生', 1, 0, ' DECLARE @BCB01 int SET @BCB01= %d SELECT a.BCE01,BCK01,BCE41, BCE02, BCE03, BCE04, BCE05, BCE06, a.ABBRP, a.ABBRW , b.AAH02 From BCE1 a left join AAH1 b on b.AAH01 = a.AAH01 join BJV1 c on c.BCE01 = a.BCE01 where a.BCE41 = 1 and c.BCB01 = @BCB01 ', 1, Null, '2012-08-20 16:51:14', '(8065)冯义强', 0) else print 'sys_Scripts.id=5259 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5260) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5260, 85, 'SQL_按ID检索CRM预约', '按就诊ID检索CRM预约信息', '按就诊ID检索CRM预约信息', 1, 0, Null, 1, 'select SCF01, SCA01, SCF04, SCF05, SCF06, BCK03, BCE03A, SCF09, SCF10, SCF11, SCF12, BCE03B, SCF14, BCE03C, SCF16, ACF01, VAA07 , BCK01 , BCE01A , BCE01D , BCE03D , SCF24 , SCF25 , BCB01 , BCB03 from SCF1 where VAA07 = %d Order by SCF01 desc ', '2012-10-17 14:22:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=5260 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5261) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5261, 85, 'SQL_检索警告规则', '检索限号数警告规则', '检索限号数警告规则', 1, 0, Null, 1, 'SELECT BJV05 , BJV06 FROM BJV1 WHERE BCB01 = %d and BCE01 = %d ', '2013-01-10 14:53:50', '(8065)冯义强', 0) else print 'sys_Scripts.id=5261 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5262) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5262, 85, 'SQL_检索当天医生挂号', '检索医生当天挂号数', '检索医生当天挂号数', 1, 0, Null, 1, 'Declare @CurDate Datetime SET @CurDate = CONVERT(datetime, CONVERT(varchar(10), getdate(), 120)) SELECT VAH07 FROM VAH1 WHERE BCB01 = %d and BCE01 = %d and VAH02 = @CurDate ', '2013-01-10 13:53:22', '(8065)冯义强', 0) else print 'sys_Scripts.id=5262 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5263) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5263, 85, 'SQL_CRM客户信息', '按预约ID检索CRM客户信息', '按预约ID检索CRM客户信息', 1, 0, Null, 1, 'Declare @SCF01 int SET @SCF01 = %d select a.SCA01, SCA02, a.VAA01, SCA04, SCA05, SCA06, SCA07, a.ABBRP, a.ABBRW, a.ABW01, SCA11, SCA12, a.AAU01, SCA14, SCA15, SCA16, SCA17, a.ACC02, SCA19, SCA20, a.ABQ02, SCA22, a.AAT02, SCA24, SCA25, SCA26, SCA27, SCA28, SCA29, SCA30, SCA31, SCA32, SCA33, a.BCE01, a.BCE03, SCA36, SCA37, SCA38, SCA39 , c.VAA03 , d.BCK03 , d.BCE03A , d.SCF10 , b.ABW02 , d.SCF01 , d.SCF04, d.BCE01D , d.BCE03D ,d.BCB01 , d.BCB03 , d.BCK01 , d.BCK03 , d.BCE01A , d.BCE03A , d.SCF05 from SCA1 a join ABW1 b on b.ABW01 = a.ABW01 Left join VAA1 c on c.VAA01 = a.VAA01 join SCF1 d on d.SCA01 = a.SCA01 and d.SCF11 <= 2 where SCA37 = 1 and d.SCF01 = @SCF01 ', '2013-02-05 16:41:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=5263 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5264) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5264, 85, 'SQL_检索优先级', '检索优先级', '检索优先级', 1, 0, Null, 1, 'select ADS01, ADS02, ADS03, ADS04 from ADS1', '2013-04-07 11:55:20', '(8065)冯义强', 0) else print 'sys_Scripts.id=5264 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5265) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5265, 85, 'SQL_挂号参数权限', '挂号参数权限', '挂号参数权限', 1, 0, Null, 1, 'SELECT ID , Name , ParamNo , Privilege from Sys_Parameters where ProductId = 100 and ProgramId = 103005 and ParamNo in(24) order by ParamNo ', '2013-04-15 09:04:32', '(8065)冯义强', 0) else print 'sys_Scripts.id=5265 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5266) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5266, 85, 'SQL_按医生检索诊室', '按医生检索诊室', '按医生检索诊室', 1, 0, Null, 1, 'SELECT BAS02 from BJT1 where BCE01 = %d ', '2013-04-23 13:29:08', '(8065)冯义强', 0) else print 'sys_Scripts.id=5266 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5267) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5267, 85, 'SQL_挂号记录精确检索', '挂号记录精确检索', '挂号记录精确检索', 1, 0, Null, 1, 'declare @Xtext varchar(64) SET @Xtext = ''%s'' select a.VAC01, a.VAC02 , a.VAA01 , a.VAA10 , a.AAU01 , a.VAC06 , a.VAC09 , a.VAC10 , a.BAS02A , a.BDP02 , a.ABC02 , a.ABT02 , a.ACK01 , a.VAC16 , a.VAC17 , a.VAC18 , a.VAC19 , a.VAC20 , a.VAC21 , a.AAZ02 , a.VAC23 , a.VAC24 , a.BAQ01 , a.VAC26 , a.VAC27 , a.VAC28 , a.VAC29 , a.VAC30 , a.VAC31 , a.VAC34 , a.VAC35 , a.VAC36 , a.VAC37 , a.BCE02 , a.BCE03B , a.VAC40 , a.VAC41 , a.VAC42 , a.VAC43 , a.VAC44 , a.VAC45 , a.VAC46 , a.VAC57 , a.IAA01 , a.UAA01 , a.BCE03A , a.BCK01A , j.BCK02 , case ISNULL(J.BCK03,'''') when '''' then ''所有科室'' else j.BCK03 end as BCK03 , f.VAK19 , f.VAK13 , f.VAK01 , d.BDX02 , b.BBY01 , b.BCK01 , b.BCE01 , b.BCE03 , b.BCB02 , b.BCB03 , b.BAO02 , VAK08 , d.VAA03 , d.VAA05 , d.ABW01 , d.VAA10 , d.VAA02 , d.ABBRP , d.ABBRW , d.VAA33 , d.VAA34 , d.AAU01 , d.VAA12 , d.BDP02 , n.UAA03 ,d.ABJ01 , f.VAK01 , l.BBY05 , FAB03 ='''' , d.BEP06B , f.BCE03A as OBCE03A , a.VAC70 , a.BAK05 , a.VAC72 , f.VAK18 , f.PARTS FROM VAC1 a JOIN BCB1 b On a.BCB01A = b.BCB01 JOIN BBY1 l on b.BBY01 = l.BBY01 LEFT JOIN BCK1 j ON a.BCK01A = J.BCK01 Join V_VAK_FULL f On a.VAC01 = f.VAA07 Join VAA1 d On a.VAA01 = d.VAA01 Left Join UAA1 n on a.UAA01 = n.UAA01 where f.VAK06 = 1 and (VAA03 = @Xtext or VAA05 = @Xtext) ', '2013-09-12 10:06:48', '(8088)王海涛', 0) else print 'sys_Scripts.id=5267 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5268) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5268, 85, 'SQL_号别对应默认费别', '检索号别和科室对应默认费别', '检索号别和科室对应默认费别', 1, 0, Null, 1, 'select ABC02 from BJU1 where BCB01 = %d and BCK01 = %d ', '2014-05-04 14:33:58', '(8065)冯义强', 0) else print 'sys_Scripts.id=5268 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=5269) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(5269, 85, 'SQL_检索挂号票据使用', '检索挂号票据使用记录', '检索挂号票据使用记录', 1, 0, Null, 1, 'SELECT b.FAB03,b.FAB08,b.BCE03 , CASE b.FAB04 WHEN 1 THEN ''正常打印'' WHEN 2 THEN ''退单回收'' WHEN 3 THEN ''重新打印'' WHEN 4 THEN ''补打'' WHEN 5 THEN ''空白回收'' WHEN 6 THEN ''报损'' END as FAB04 ,b.FAA01,b.FAB01,b.AAK01 FROM V_FAC_FULL a JOIN V_FAB_FULL b ON a.FAC01 = b.FAC01 WHERE (a.FAC03 = ''%s'' and a.FAC04 = %d) or (a.FAC01 = %d) ', '2014-06-27 10:00:03', '(8065)冯义强', 0) else print 'sys_Scripts.id=5269 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8089) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8089, 112, 'SQL_检索病人', '检索病人信息', '检索病人信息', 1, 0, ' select VAA01 , VAA03 , VAA04 , VAA10 , case ABW01 when 0 then ''未知'' when 1 then ''男'' when 2 then ''女'' end as ABW02 , ABBRP,ABBRW ,VAA05 from VAA1 ', 1, Null, '2011-07-18 13:39:18', '(8065)冯义强', 0) else print 'sys_Scripts.id=8089 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8090) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8090, 112, 'SQL_检索应收款收款', '检索应收款收款', '检索应收款收款', 1, 0, Null, 1, 'select VCI01, VCI02, BAQ01, VCI04, VCI05, VCI06, VCI07, VCI08, BCE03A, VCI10, VCI11, BCE03B, VCI13 , 0 VAA01 , cast('''' as varchar(20)) VAA05 , cast('''' as varchar(10)) ABW02 , 0 VAA10 , cast('''' as varchar(20)) VAA03 , cast('''' as varchar(20)) VAA04 , cast('''' as varchar(64)) BAQ03 from VCI1 where VCI01 = %d ', '2012-05-30 11:14:16', '(8065)冯义强', 0) else print 'sys_Scripts.id=8090 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8091) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8091, 112, 'SQL_病人应收款支付', '检索病人应收款支付方式', '按病人ID检索应收款支付方式', 1, 0, Null, 1, 'declare @VAA01 int set @VAA01 = %d select CAST(1 as tinyint) selected , Case vbl04 when 3 then ''门诊结帐'' when 4 then ''住院结帐'' end as Type , VBL14 , VBL15 , VBL13 , VBL18 , VBL19 , VBL01 , BCE03 from VBL1 where VAA01 = @VAA01 and VAK01 > 0 and VCI01 = 0 and VBL05 <= 2 and VBL29 = 0 and VBL15 in(''03'' , ''06'' , ''07'') union all select CAST(1 as tinyint) selected , Case vbl04 when 3 then ''门诊结帐'' when 4 then ''住院结帐'' end as Type , VBL14 , VBL15 , VBL13 , VBL18 , VBL19 , VBL01 , BCE03 from VBL2 where VAA01 = @VAA01 and VAK01 > 0 and VCI01 = 0 and VBL05 <= 2 and VBL29 = 0 and VBL15 in(''03'' , ''06'' , ''07'')', '2010-12-08 10:35:43', Null, 0) else print 'sys_Scripts.id=8091 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8092) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8092, 112, 'SQL_应收款记录', '应收款记录', '按条件检索应收款记录', 1, 0, Null, 1, 'select VCI01, VCI02, BAQ01, VCI04, VCI05, VCI06, VCI07, case VCI08 when 0 then ''制单'' when 1 then ''审核'' end as VCI08, BCE03A, VCI10, VCI11, BCE03B, VCI13 from VCI1', '2010-12-08 10:19:54', Null, 0) else print 'sys_Scripts.id=8092 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8093) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8093, 112, 'SQL_未审核应收款记录', '未审核应收款记录', '检索所有未审核应收款记录', 1, 0, Null, 1, 'select 1 as selected ,VCI01, VCI02, BAQ01, VCI04, VCI05, VCI06, VCI07, case VCI08 when 0 then ''制单'' when 1 then ''审核'' end as VCI08, BCE03A, VCI10, VCI11, BCE03B, VCI13 from VCI1 where BCE03B is null and VCI13 is null', '2010-12-09 10:16:49', Null, 0) else print 'sys_Scripts.id=8093 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=12077) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(12077, 112, 'SQL_单位应付应收款', '单位应付应收款', '单位应付应收款', 1, 0, Null, 1, 'declare @BAQ03 varchar(64) set @BAQ03 = ''%s'' select CAST(1 as tinyint) selected , Case vbl04 when 3 then ''门诊结帐'' when 4 then ''住院结帐'' end as Type , VBL14 , VBL15 , VBL13 , VBL18 , VBL19 , VBL01 , BCE03 from VBL1 where BAQ03 = @BAQ03 and VAK01 > 0 and VCI01 = 0 and VBL05 <= 2 and VBL29 = 0 and VBL15 in(''03'' , ''06'' , ''07'') union all select CAST(1 as tinyint) selected , Case vbl04 when 3 then ''门诊结帐'' when 4 then ''住院结帐'' end as Type , VBL14 , VBL15 , VBL13 , VBL18 , VBL19 , VBL01 , BCE03 from VBL2 where BAQ03 = @BAQ03 and VAK01 > 0 and VCI01 = 0 and VBL05 <= 2 and VBL29 = 0 and VBL15 in(''03'' , ''06'' , ''07'')', '2012-05-30 11:13:39', '(8065)冯义强', 0) else print 'sys_Scripts.id=12077 已经存在.' GO --删除分类[批量打印]下脚本 delete from sys_Scripts where CategoryID=114 /*批量打印*/ GO GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=114) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(114, 'BatchPrint', '批量打印', 103, 0, 51, 0, '批量打印') else print 'SYS_ScriptCategories.id=114 已经存在.' GO GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8116) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8116, 114, 'SQL_待打印的结帐记录', '检索未打印的结帐记录', '检索未打印的结帐记录', 1, 0, Null, 1, 'DECLARE @StartDate datetime, @EndDate datetime, @EmpId int SET @StartDate = %s SET @EndDate = %s SET @EmpId = %d SELECT 0 selected ,VAK01,FAB03,VAI04,VAK07,VAK08,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, VAK23 - isnull(VAK24,0) jmyh, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19,b.ABBRP,b.ABBRW ,VAK21 - VAK23 as yhje ,VAK21 ,VAK23, a.VAA07 FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c on a.VAA07=c.VAC01 WHERE a.VAK06 = 2 AND VAK13 BETWEEN @StartDate AND @EndDate and a.BCE01A = @EmpId and FAB03 <= '''' and VAK19 =1 ', '2011-03-02 14:52:38', Null, 0) else print 'sys_Scripts.id=8116 已经存在.' GO IF not EXISTS(SELECT * FROM sys_Scripts WHERE id=8117) insert into sys_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(8117, 114, 'SQL_检索结帐记录', '检索结帐记录', '检索所有结帐记录', 1, 0, Null, 1, 'SELECT 0 selected ,VAK01,FAB03,VAI04,VAK07,VAK08,VAK08-VAK07 as wscl,b.VAA03,c.BDP02,b.VAA05,b.ABW01,b.VAA10, a.VAA01,a.BCE03A ,a.VAK13,a.VAK17,a.VAK01A,a.VAK19 , b.ABBRP , b.ABBRW ,a.VAK21 ,a.VAK21 - a.VAK23 as yhje , a.VAK21 - isnull(a.VAK24,0) jmyh , a.VAK23 , a.VAA07 FROM V_VAK_FULL a JOIN VAA1 b ON a.VAA01=b.VAA01 JOIN VAC1 c ON a.VAA07=c.VAC01 where a.FAB03 <= '''' and VAK19 = 1 and VAK06 = 2', '2012-07-13 09:18:02', '(8065)冯义强', 0) else print 'sys_Scripts.id=8117 已经存在.' GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER proc [MDS_MaterialSend_Task] @XML ntext , @UserID int , @UserName varchar(30) , @TerminalNO varchar(50) as declare @iDoc int, @iret int , @MDD_BCK01 int, @MAX_BillID int, @BillNO varchar(30), @MAX_ID int, @i int, @iCount int , @VAJ25 numeric(18, 6), @VAJ25new numeric(18, 6), @DeptID int, @DeptID_old int, @TradeID int, @Accepter varchar(30) , @ExpType int, @BBY01 int, @BBY05 varchar(100), @ID int, @ID_old int, @MDK_ID int, @VAJ09 int Exec @iret = sp_xml_preparedocument @iDoc OUTPUT, @XML IF @iret > 0 BEGIN RAISERROR('解析XML文档时发生错误，错误号: %d.', 16, 1, @iret) RETURN 1 END if OBJECT_ID('tempdb..#tmp_Master') is not null drop table #tmp_Master select * into #tmp_Master from openxml(@iDoc, '/Root/Master/Ie', 8) with( BCK01 int, DeptID int, Accepter varchar(30), Ratifier varchar(30), Dispenser varchar(30), Sender varchar(30), ExpType int, Maker varchar(30), MakeDate datetime, ACF01 int ) if OBJECT_ID('tempdb..#tmp_Detail') is not null drop table #tmp_Detail SELECT *, IDENTITY(INT, 1, 1) AS xRowNum INTO #tmp_Detail FROM openxml(@iDoc, '/Root/Detail/Ie', 8) with( Checked int, VAJ01 int, VAA01 int, VAA02 varchar(20), VAA04 varchar(20), VAA05 varchar(64), ABW01 varchar(1), ABW02 varchar(4), AGE varchar(41), VAO15 varchar(256), BCQ04 varchar(31), BCQ_ROWNR int, VAJ04 int, VAJ05 int, VAJ09 int, VAA07 int, VAI01 int, VAF01 int, CBM01 int, VAF11 tinyint, BDN01 varchar(2), BDN02 varchar(20), BBY01 int, BBY04 varchar(20), BBY05 varchar(128), BBY06 varchar(48), BBE02 varchar(64), BCT18 varchar(8), BCT19 numeric(12, 2), TQtyAbst varchar(90), VAJ23 int, VAJ24 numeric(18, 4), VAJ25 numeric(18, 4), VAJ32 numeric(18, 6), VAJ33 numeric(18, 6), VAJ34 numeric(18, 4), VAJ35 varchar(20), VAJ36 numeric(18, 2), VAJ37 numeric(18, 2), VAJ38 numeric(18, 2), VAF59 int, VAF17 int, VAF18 numeric(18, 4), BDG02 varchar(20), BBX05 varchar(128), BBX20 int, BAP01A varchar(1), VAF22 varchar(128), VAF19 varchar(10), VAF26 varchar(20), VAF23 varchar(256), VAF58 tinyint, BCK01A int, BCK03A varchar(64), BCK01B int, BCK03B varchar(64), BCK01C int, BCK03C varchar(64), BCK01D int, BCK03D varchar(64), BCK01E int, BCK03E varchar(64), BCE03A varchar(20), BCE02B varchar(20), BCE03B varchar(20), BCE03C varchar(20), VAJ46 datetime, VAJ47 datetime, VAJ48 int, VAJ51 datetime, VAJ54 varchar(255), DPK_Qty numeric(18, 6) ) where Checked = 1 order by BCK01B EXEC sp_xml_removedocument @iDoc --------------------检测数据 if not exists (select * from #tmp_Detail) begin raiserror('没有找到需要发送的材料，请重试！', 16, 1) with nowait return 1 end IF exists(SELECT V.VAJ01 FROM #tmp_Detail V WHERE exists(SELECT VAJ01 FROM VAJ1 J WHERE (V.VAJ01 = J.VAJ01) and (J.VAJ48 > 0 or J.VAJ53 > 0 or J.VAJ05 = 9))) BEGIN RAISERROR('提交的内容中有已经执行或已经销帐或已经作废的记录，请刷新后重试！', 16, 1) WITH NOWAIT RETURN 2 END IF exists(SELECT VAA01, VAJ01, VAJ09, BBY01, VAJ25, VAJ33, COUNT(1) FROM #tmp_Detail GROUP BY VAA01, VAJ01, VAJ09, BBY01, VAJ25, VAJ33 HAVING COUNT(1)>1) BEGIN RAISERROR('提交的内容中有重复记录，请刷新后重试。如果问题仍存在，请立即与软件开发商联系。', 16, 1) WITH NOWAIT RETURN 3 END --取出参数 select @MDD_BCK01 = BCK01, @ExpType = ExpType, @MAX_BillID = 0, @BillNO = '' from #tmp_Master if OBJECT_ID('tempdb..#tmp_MDD1') is not null drop table #tmp_MDD1 select *, IDENTITY(int, 1, 1) as xRow into #tmp_MDD1 from MDD1 where 1=2 if OBJECT_ID('tempdb..#tmp_MDD2') is not null drop table #tmp_MDD2 select *, CONVERT(int, 0) as DeptID into #tmp_MDD2 from MDD2 where 1=2 --建库存临时表 if OBJECT_ID('tempdb..#MDK1') is not null drop table #MDK1 CREATE TABLE #MDK1(UID int identity(1, 1) , ID int , BBY01 int , Unit varchar(20) , PackSize numeric(18, 4) , BatchNO varchar(30) , LastQuantity numeric(18, 6) , PurchasePrice numeric(18, 6) , ExpiryDate datetime , Flag int ) insert into #MDK1(ID, BBY01, Unit, PackSize, BatchNO, LastQuantity, PurchasePrice, ExpiryDate, Flag) SELECT K.ID, K.BBY01, K.Unit, K.PackSize, K.BatchNO, K.LastQuantity, K.PurchasePrice, K.ExpiryDate, 0 FROM MDK1 K WHERE K.BCK01 = @MDD_BCK01 and exists(select * from #tmp_Detail where BBY01 = K.BBY01) and K.LastQuantity > 0 --判断库存是否够 declare @strBBY05 varchar(1000) if OBJECT_ID('tempdb..#tmpMDK1') is not null drop table #tmpMDK1 select BBY01, SUM(VAJ25) VQty, 0 MQty1, IDENTITY(int, 1, 1) as xRow into #tmpMDK1 from #tmp_Detail group by BBY01 update M set M.MQty1 = N.Qty from #tmpMDK1 M join (select BBY01, sum(LastQuantity) Qty from #MDK1 group by BBY01) N on N.BBY01 = M.BBY01 select @i = 1, @iCount = MAX(xRow), @strBBY05 = '' from #tmpMDK1 while @i <= @iCount begin select @strBBY05 = @strBBY05 + B.BBY05 + ' ' + B.BBY06 + ', ' from #tmpMDK1 A join BBY1 B on B.BBY01 = A.BBY01 where A.xRow = @i and A.VQty > A.MQty1 set @i = @i + 1 end if @strBBY05 > '' begin raiserror('材料：%s 库存不够，请先入库！', 16, 1, @strBBY05) with nowait return 0 end select @i = 1, @iCount = MAX(xRowNum), @ID = 0, @ID_old = 0, @DeptID = 0, @DeptID_old = 0 from #tmp_Detail while @i <= @iCount begin select @VAJ25 = VAJ25, @BBY01 = BBY01, @BBY05 = BBY05, @DeptID = BCK01B, @VAJ09 = VAJ09 from #tmp_Detail where xRowNum = @i --区分单据 if @DeptID <> @DeptID_old select @MAX_BillID = @MAX_BillID + 1, @DeptID_old = @DeptID, @ID_old = @ID if @VAJ25 > 0 --发料 begin --重置所有标记为未用 update #MDK1 set Flag = 0 if isnull((select SUM(LastQuantity) from #MDK1 where BBY01 = @BBY01), 0) < @VAJ25 begin raiserror('材料：%s 库存不够，请先入库！', 16, 1, @BBY05) with nowait return 4 end while @VAJ25 > 0 begin set @ID = @ID + 1 if @ExpType = 0 --先进先出 select top 1 @MDK_ID = ID from #MDK1 where BBY01 = @BBY01 and Flag = 0 and LastQuantity > 0 order by ID else if @ExpType = 1 --先失效先出 select top 1 @MDK_ID = ID from #MDK1 where BBY01 = @BBY01 and Flag = 0 and LastQuantity > 0 order by ExpiryDate else if @ExpType = 2 --后进先出 select top 1 @MDK_ID = ID from #MDK1 where BBY01 = @BBY01 and Flag = 0 and LastQuantity > 0 order by ID DESC SET @VAJ25new = @VAJ25 - (SELECT TOP 1 LastQuantity FROM #MDK1 WHERE ID = @MDK_ID) if @VAJ25new >= 0 begin insert into #tmp_MDD2(ID, BCK01, BillID, xRowNum, BBY01, Unit, PackSize, BatchNo, Quantity , PurchasePrice, PurchaseAmount, RetailPrice, RetailAmount, CostPrice, CostAmount , VAA01, VAJ01, VAJ09, VAJ32, VAJ33, VAJ36, VAJ38, MDK_ID) select @ID, @MDD_BCK01, @MAX_BillID, @ID - @ID_old, BBY01, Unit, PackSize, BatchNO, LastQuantity , PurchasePrice, LastQuantity * PurchasePrice, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, ID from #MDK1 where ID = @MDK_ID update #MDK1 set LastQuantity = 0, Flag = 1 where ID = @MDK_ID end else if @VAJ25new < 0 begin insert into #tmp_MDD2(ID, BCK01, BillID, xRowNum, BBY01, Unit, PackSize, BatchNo, Quantity , PurchasePrice, PurchaseAmount, RetailPrice, RetailAmount, CostPrice, CostAmount , VAA01, VAJ01, VAJ09, VAJ32, VAJ33, VAJ36, VAJ38, MDK_ID) select @ID, @MDD_BCK01, @MAX_BillID, @ID - @ID_old, BBY01, Unit, PackSize, BatchNO, @VAJ25 , PurchasePrice, @VAJ25 * PurchasePrice, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, ID from #MDK1 where ID = @MDK_ID update #MDK1 set LastQuantity = LastQuantity - @VAJ25, Flag = 1 where ID = @MDK_ID end set @VAJ25 = @VAJ25new update M set M.VAA01 = N.VAA01, M.VAJ01 = N.VAJ01, M.VAJ09 = N.VAJ09, M.VAJ32 = N.VAJ32, M.VAJ33 = N.VAJ33 , M.VAJ36 = N.VAJ36, M.VAJ38 = N.VAJ38, M.DeptID = N.BCK01B from #tmp_MDD2 M, #tmp_Detail N where M.ID = @ID and N.xRowNum = @i end end --发料 else if @VAJ25 < 0 --发负数 begin set @ID = @ID + 1 select top 1 @MDK_ID = ID from #MDK1 where BBY01 = @BBY01 order by ID DESC insert into #tmp_MDD2(ID, BCK01, BillID, xRowNum, BBY01, Unit, PackSize, BatchNo, Quantity , PurchasePrice, PurchaseAmount, RetailPrice, RetailAmount, CostPrice, CostAmount , VAA01, VAJ01, VAJ09, VAJ32, VAJ33, VAJ36, VAJ38, MDK_ID) select @ID, @MDD_BCK01, @MAX_BillID, @ID - @ID_old, B.BBY01, B.Unit, B.PackSize, B.BatchNO, @VAJ25 , PurchasePrice, @VAJ25 * PurchasePrice, 0, 0, 0, 0 , A.VAA01, A.VAJ01, A.VAJ09, A.VAJ32, A.VAJ33, A.VAJ36, A.VAJ38, B.ID from #tmp_Detail A, #MDK1 B where A.xRowNum = @i and B.ID = @MDK_ID update #MDK1 set LastQuantity = LastQuantity - @VAJ25 where ID = @MDK_ID end set @i = @i + 1 end ---------------------更新价格信息 update M set M.RetailPrice = Y.BBY25, M.RetailAmount = Y.BBY25 * M.Quantity , M.CostPrice = T.BCT23, M.CostAmount = T.BCT23 * M.Quantity from #tmp_MDD2 M join BBY1 Y on Y.BBY01 = M.BBY01 join BCT1 T on T.BBY01 = M.BBY01 --------------------产生新的单据ID 单据号 SELECT @MAX_BillID = ISNULL(MAX(BillID),0) FROM MDD1 WHERE BCK01 = @MDD_BCK01 select @MAX_ID = MAX(ID) from MDD2 select top 1 @DeptID = isnull(DeptID, 0), @ID = BillID from #tmp_MDD2 where DeptID > 0 while @DeptID > 0 begin -----------------生成主表 insert into #tmp_MDD1(BCK01, BillID, BillNO, DeptID, Accepter, Ratifier, Dispenser, Sender , MakeDate, Maker, Abstract, BillType, TradeType, ExpType, AuditingDate, Assessor, TradeID , TradeTerm, LPntTimes, GPntTimes, UserID, TerminalNO, TransferFlag, SysDate) select @MDD_BCK01, @MAX_BillID + @ID, RIGHT('0000000000' + CAST((@MAX_BillID + @ID) AS VARCHAR),8) as BillNO , @DeptID, Accepter, Ratifier, Dispenser, Sender , MakeDate, Maker, '', ACF01, 1, Exptype, null, null, 0 , '', 0, 0, @UserID, @TerminalNO, 0, GETDATE() from #tmp_Master update #tmp_MDD2 set DeptID = 0 where DeptID = @DeptID set @DeptID = 0 select top 1 @DeptID = isnull(DeptID, 0), @ID = BillID from #tmp_MDD2 where DeptID > 0 end --修正字表BillID update #tmp_MDD2 set BillID = @MAX_BillID + BillID, ID = @MAX_ID + ID --select * from #tmp_MDD1 --select * from #tmp_MDD2 --return begin tran insert into MDD1(BCK01, BillID, BillNO, DeptID, Accepter, Ratifier, Dispenser, Sender , MakeDate, Maker, Abstract, BillType, TradeType, ExpType, AuditingDate, Assessor, TradeID , TradeTerm, LPntTimes, GPntTimes, UserID, TerminalNO, TransferFlag, SysDate) select BCK01, BillID, BillNO, DeptID, Accepter, Ratifier, Dispenser, Sender , MakeDate, Maker, Abstract, BillType, TradeType, ExpType, AuditingDate, Assessor, TradeID , TradeTerm, LPntTimes, GPntTimes, UserID, TerminalNO, TransferFlag, SysDate from #tmp_MDD1 if (@@ROWCOUNT = 0) or (@@ERROR <> 0) begin rollback tran raiserror('无法生成发料单主表，请重试！', 16, 1) return @@ERROR end insert into MDD2(ID, BCK01, BillID, xRowNum, BBY01, Unit, PackSize, BatchNo, Quantity , PurchasePrice, PurchaseAmount, RetailPrice, RetailAmount, CostPrice, CostAmount , VAA01, VAJ01, VAJ09, VAJ32, VAJ33, VAJ36, VAJ38, MDK_ID, Remark) select ID, BCK01, BillID, xRowNum, BBY01, Unit, PackSize, BatchNo, Quantity , PurchasePrice, PurchaseAmount, RetailPrice, RetailAmount, CostPrice, CostAmount , VAA01, VAJ01, VAJ09, VAJ32, VAJ33, VAJ36, VAJ38, MDK_ID, Remark from #tmp_MDD2 if (@@ROWCOUNT = 0) or (@@ERROR <> 0) begin rollback tran raiserror('无法生成发料单子表，请重试！', 16, 1) return @@ERROR end --生成单据成功 则 扣库存、反写VAJ1标记 select @iCount = MAX(xRow), @i = 1 from #tmp_MDD1 while @i <= @iCount begin select @MAX_BillID = BillID, @Accepter = Accepter from #tmp_MDD1 where xRow = @i exec MDS_ExportForm_Check @MDD_BCK01, @MAX_BillID, @UserName, @TerminalNO --产生发料流水ID EXEC Core_NewId_MDD1_ID @TradeID OUT --更改病人费用明细执行标志 UPDATE J SET --允许同一个VAJ01,会被更新多次.故不能加VAJ48=0判断 BCK01D = @MDD_BCK01--执行科室ID , BCE03C = @Accepter--执行者 , VAJ48 = @TradeID--执行ID , VAJ51 = GetDate()--执行时间 , VAJ52 = Getdate()--执行交易时间 , VAJ53 = 1--执行情况：0:未执行; 1:执行完成; 2:拒绝执行; 3:正在执行 FROM VAJ1 J WHERE exists(SELECT * FROM #tmp_MDD2 D WHERE D.BillID = @MAX_BillID and D.VAJ01 = J.VAJ01 and D.BBY01 = J.BBY01) IF (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新病人费用表执行标识时错误', 16, 1) WITH NOWAIT RETURN @@ERROR END UPDATE J SET --允许同一个VAJ01,会被更新多次.故不能加VAJ48=0判断 BCK01D = @MDD_BCK01--执行科室ID , BCE03C = @Accepter--执行者 , VAJ48 = @TradeID--执行ID , VAJ51 = GetDate()--执行时间 , VAJ52 = Getdate()--执行交易时间 , VAJ53 = 1--执行情况：0:未执行; 1:执行完成; 2:拒绝执行; 3:正在执行 FROM VAJ2 J WHERE exists(SELECT * FROM #tmp_MDD2 D WHERE D.BillID = @MAX_BillID and D.VAJ01 = J.VAJ01 and D.BBY01 = J.BBY01) IF (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新病人费用表执行标识时错误', 16, 1) WITH NOWAIT RETURN @@ERROR END UPDATE MDD1 SET TradeID = @TradeID WHERE BCK01 = @MDD_BCK01 and BillID = @MAX_BillID set @i = @i + 1 end commit tran select top 1 BCK01, BillNO from #tmp_MDD1 GO DROP PROCEDURE [DPS_ExportForm_CheckSep] GO DROP PROCEDURE [DPS_ExportForm_Check] GO DROP PROCEDURE [HORate_VAK1_Cancel] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --==================================================================================================== --Author <...Fyq> --Alter Date <...2014-11-07> --Description<...结账作废过程> --2011.09.13 部分退费后自动生成单据标记VAI17 --2011.11.21 GY提供未发药药品销帐时更新其记帐数量 --2012.06.18 FYQ,医嘱部分退费，新生成明细记录原医嘱ID --2013.07.30 FYQ,退费时记录原纪录DSK01 --2013.09.17 FYQ,退费时默认不写入票据号码 --2014.01.14 FYQ,部分退费时存在于VBY1中不退费的明细更新其VAJ01为新VAJ01 --2014.04.18 FYQ,虚拟库存的更新放到事务之外 --2014.04.21 FYQ,体检退费限制必须退费申请 --==================================================================================================== CREATE PROC [HORate_VAK1_Cancel] @XML ntext,@VAK01 int out , @GenRemain int = 0 , @IsCancel tinyint = 0 AS DECLARE @iDOM int, @iret int Exec @iret = sp_xml_preparedocument @iDOM OUTPUT, @XML if @iret > 0 BEGIN exec sp_xml_removedocument @iDOM RAISERROR('解析XML文档时发生错误，错误号: %d.', 16, 1, @iret) with nowait return @iret END --获取操作员基本信息 DECLARE @i int, @Value int, @Count int, @VAI01 int, @VAA01 int, @VAA07 int, @EmpId int, @VAK01A int, @BCK01B int, @VAI04 varchar(20), @VAK04 varchar(20), @EmpNo varchar(20), @EmpName varchar(20), @HostIp varchar(256), @HostName varchar(256), @DeptId int, @ErrId int, @DeptNo varchar(20), @DeptName varchar(20), @HostMac varchar(256), @FileVer varchar(20), @VAI22 numeric(18,4), @VAI23 numeric(18,4), @VAK13 datetime SELECT @EmpId = EmpId , @EmpNo = EmpNo , @EmpName = EmpName , @DeptId = DeptId , @DeptNo = DeptNo , @DeptName = DeptName , @HostIp = HostIp , @HostName = HostName , @HostMac = HostMac , @FileVer = FileVer FROM OpenXml(@iDOM,'/Root/OperInfo',8) WITH ( EmpId int , EmpNo varchar(20) , EmpName varchar(20) , DeptId int , DeptNo varchar(20) , DeptName varchar(20) , HostIp varchar(256) , HostName varchar(256) , HostMac varchar(256) , FileVer varchar(20) ) --获取要销账的明细数据 SELECT * INTO #tmpVAJ2 from OpenXml(@iDOM,'/Root/VAJ/Ie',8) with ( VAJ01 int--收费记录ID , VAF01 int--医嘱ID , ROWNR int--次序 , VAI01 int--单据ID , VAJ09 int , BDN01 varchar(2)--收费类型 , BBY01 int--收费项目ID , VAJ22 smallint--特殊标志 , VAJ23 smallint--剂数、中药剂数 , VAJ24 numeric(18,4)--单量 , VAJ25 numeric(18,4)--总量 , VAJ26 smallint--急诊标志 , VAJ27 int--婴儿费 , BCK01D int--执行科室ID , VAJ30 numeric(9,4)--折扣分子 , VAJ31 numeric(9,4)--折扣分母 , VAJ59 numeric(18,6)--成本价 , VAJ32 numeric(18,4)--全价 , VAJ33 numeric(18,4)--单价 , VAJ34 numeric(18,4)--包装 , VAJ35 varchar(20)--单位 , VAJ36 numeric(18,4)--全额、应收金额 , VAJ37 numeric(18,4)--应收金额 , VAJ38 numeric(18,4)--结账金额 , VAJ39 smallint--自费标志 , VAJ48 int , VAJ53 tinyint , VAJ61 numeric(18,4) , IsBackFee smallint--是否退费 , DSK01 int ) If not exists(select * from #tmpVAJ2 ) BEGIN EXEC sp_xml_removedocument @iDOM RAISERROR('提交错误，病人收费记录信息为空.', 16, 1) with nowait RETURN 2 END IF @IsCancel = 0 BEGIN IF NOT EXISTS(SELECT * FROM #tmpVAJ2 WHERE IsBackFee = -1) BEGIN EXEC sp_xml_removedocument @iDOM RAISERROR('提交错误，没有要退费的数据.', 16, 1) with nowait RETURN 2 END END --移除XML文档 exec sp_xml_removedocument @iDOM --如果当前表中数据不存在，则把备份表中数据转移过来 IF NOT EXISTS(SELECT * FROM VAK1 WHERE VAK01 = @VAK01) BEGIN EXEC @ErrId = HORate_Transfer_Data @VAK01 , 0 IF @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('转移数据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END END --如果不存在要作废的数据，则退出 IF NOT EXISTS(SELECT * FROM VAK1 WHERE VAK01 = @VAK01) BEGIN RAISERROR('系统不存在要作废的数据，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --体检病人限制退费数据必须经过退费申请 SELECT @VAA07 = VAA07 from VAK1 where VAK01 = @VAK01 /*If EXISTS(select * from VAC1 where VAC01 = @VAA07 and VAC09 = -3) and EXISTS(select * from #tmpVAJ2 where VAF01>0) BEGIN If not exists(select * from #tmpVAJ2 a , VBY1 b where a.VAJ01 = b.VAJ01 and b.VBY09 = 1) BEGIN RAISERROR('体检费用必须先通过体检退费申请.', 16, 1) WITH NOWAIT Return 1 END END*/ /*=====================================================从数据库加载其他信息=============================================*/ Update a SET a.ROWNR = b.ROWNR , a.VAF01 = b.VAF01 , a.VAJ09 = b.VAJ09 , a.BDN01 = b.BDN01 , a.BBY01 = b.BBY01 , a.VAJ22 = b.VAJ22 , a.VAJ23 = b.VAJ23 , a.VAJ24 = b.VAJ24 , a.VAJ26 = b.VAJ26 , a.VAJ27 = b.VAJ27 , a.BCK01D = b.BCK01D , a.VAJ30 = b.VAJ30 , a.VAJ31 = b.VAJ31 , a.VAJ59 = b.VAJ59 , a.VAJ32 = b.VAJ32 , a.VAJ33 = b.VAJ33 , a.VAJ34 = b.VAJ34 , a.VAJ35 = b.VAJ35 , a.VAJ36 = b.VAJ36 , a.VAJ37 = b.VAJ37 , a.VAJ38 = b.VAJ38 , a.VAJ39 = b.VAJ39 , a.VAJ48 = b.VAJ48 , a.VAJ53 = b.VAJ53 , a.VAJ61 = b.VAJ61 , a.DSK01 = b.DSK01 from #tmpVAJ2 a join VAJ1 b on a.VAJ01 = b.VAJ01 --where a.ROWNR is NOT null --如果是药品，转换为基本单位及价格 /*Update a SET a.VAJ32 = b.BBY25 , a.VAJ35 = b.BBY08 , a.VAJ33 = b.BBY25 * c.VAJ30 / c.VAJ31 , a.VAJ25 = a.VAJ25 * c.VAJ34 from #tmpVAJ2 a join BBY1 b on a.BBY01 = b.BBY01 join VAJ1 c on a.VAJ01 = c.VAJ01 where c.BDN01 <= '3' select * from #tmpVAJ2 return 2*/ /*=====================================================生成销账临时表===================================================*/ SELECT IDENTITY(int,1,1) AS ID , * INTO #tmpVAI2 from (SELECT * from VAI1 where VAI01 in (SELECT VAI01 from VAJ1 where VAK01 = @VAK01 )) a SELECT @i = 0, @Count = Count(1) from #tmpVAI2 Exec @ErrId = Core_NewIdEx 'VAI1' , 'VAI01' , @Value out , @Count If @ErrId > 0 BEGIN RETURN 1 END --更新冲销单据冲销ID Update #tmpVAI2 Set VAI01A = VAI01 --生成冲销单据 While @i < @Count BEGIN SET @VAI04 = '000000000' SET @VAI04 = @VAI04 + Cast(@Value - @Count + @i + 1 AS VARCHAR) SET @VAI04 = 'I' + SUBSTRING(@VAI04, Len(@VAI04) - 9, 10) Update #tmpVAI2 Set VAI01B = Case ISNULL(VAI01B , 0) when 0 then VAI01 else VAI01B end , VAI01C = VAI01 , VAI01 = @Value - @Count + @i + 1 , VAI04 = @VAI04 Where [ID] = @i + 1 SET @i = @i + 1 END --生成冲销明细记录 SELECT IDENTITY(int,1,1) AS ID , * INTO #tmpNewVAJ1 from (SELECT * from VAJ1 where VAK01 = @VAK01 ) a --更新冲销明细冲销ID Update #tmpNewVAJ1 Set VAJ09 = VAJ01 , VAJ01B = Case ISNULL(VAJ01B , 0) when 0 then VAJ01 else VAJ01B end where VAJ53 = 1 and VAJ48 > 0 SELECT @i = 0, @Count = Count(1) from #tmpNewVAJ1 Exec @ErrId = Core_NewIdEx 'VAJ1' , 'VAJ01' , @Value out , @Count If @ErrId > 0 BEGIN RETURN 1 END While @i < @count BEGIN Update #tmpNewVAJ1 Set VAJ01 = @Value - @Count + @i + 1 Where [ID] = @i + 1 Set @i = @i + 1 END --更新冲销明细单据ID Update a Set a.VAI01 = b.VAI01 from #tmpNewVAJ1 a join #tmpVAI2 b on a.VAI01 = b.VAI01A --如果原明细状态为待发药,冲销明细与原明细更新为不用发药 Update #tmpNewVAJ1 SET VAJ48 = 0, VAJ53 = 2 where BDN01 <= '3' and VAJ48 = 0 and VAJ53 = 0 --如果原明细状态为已发药状态,冲销明细更新为不用发药(不需要退药) Update a SET --VAJ48 = 0 , VAJ53 = 1 from #tmpNewVAJ1 a join #tmpVAJ2 b on a.VAJ09 = b.VAJ01 where a.BDN01 <= '3' and a.VAJ48 > 0 and a.VAJ53 = 1 and b.IsBackFee = 0 --如果原明细状态为已发药状态,冲销明细更新为待发药(需要退药) Update a SET VAJ48 = 0, VAJ53 = 0 from #tmpNewVAJ1 a join #tmpVAJ2 b on a.VAJ09 = b.VAJ01 where a.BDN01 <= '3' and a.VAJ48 > 0 and a.VAJ53 = 1 and b.IsBackFee = -1 --找出不退费明细生成新的待收费明细数据 SELECT VAJ01 INTO #tmpVAJ3 from (select VAJ01 from VAJ1 b where b.VAK01 = @VAK01 and b.VAJ01 not in (select VAJ01 from #tmpVAJ2) ) a SELECT IDENTITY(int,1,1) AS ID , * INTO #tmpRemainVAJ1 from ( SELECT b.* from #tmpVAJ2 a JOIN VAJ1 b on a.VAJ01 = b.VAJ01 where a.IsBackFee = 0 UNION SELECT b.* from VAJ1 b JOIN #tmpVAJ3 a on a.VAJ01 = b.VAJ01 ) a --更新关联ID update #tmpRemainVAJ1 set VAJ01B = Case ISNULL(VAJ01B , 0) when 0 then VAJ01 else VAJ01B end where VAJ48 > 0 and VAJ53 = 1 SELECT @i = 0 , @Count = Count(1) from #tmpRemainVAJ1 Exec @ErrId = Core_NewIdEx 'VAJ1' , 'VAJ01' , @Value out , @Count If @ErrId > 0 BEGIN RETURN 1 END While @i < @Count BEGIN Update #tmpRemainVAJ1 Set VAJ01 = @Value - @Count + @i + 1 Where [ID] = @i + 1 SET @i = @i + 1 END --如果是已发药药品，更新状态为不用发药 Update #tmpRemainVAJ1 SET --VAJ48 = 0 , VAJ53 = 1 where BDN01 <= '3' and VAJ48 > 0 and VAJ53 > 0 --如果是待发药药品，更新状态为待发药 Update #tmpRemainVAJ1 SET VAJ48 = 0, VAJ53 = 0 where BDN01 <= '3' and VAJ48 = 0 and VAJ53 = 0 --查找出部分退费的明细 SELECT IDENTITY(int,1,1) AS ID , * INTO #tmpPartVAJ1 from ( SELECT b.* from #tmpVAJ2 a join VAJ1 b on a.VAJ01 = b.VAJ01 where a.VAJ25 <> b.VAJ25 and a.IsBackFee = -1 ) a --如果存在部分退费 If Exists(select * from #tmpPartVAJ1) BEGIN --更新部分退费明细剩余部分数量及金额 Update a SET a.VAJ32 = c.VAJ32, a.VAJ33 = c.VAJ33, a.VAJ25 = b.VAJ25 - c.VAJ25, a.VAJ36 = (b.VAJ25 - c.VAJ25) * c.VAJ32, a.VAJ37 = (b.VAJ25 - c.VAJ25) * c.VAJ33, a.VAJ38 = (b.VAJ25 - c.VAJ25) * c.VAJ33, a.VAJ61 = (b.VAJ25 - c.VAJ25) * c.VAJ33 From #tmpPartVAJ1 a JOIN VAJ1 b on a.VAJ01 = b.VAJ01 JOIN #tmpVAJ2 c on b.VAJ01 = c.VAJ01 --生成新的明细ID SELECT @i = 0 , @Count = Count(1) from #tmpPartVAJ1 Exec @ErrId = Core_NewIdEx 'VAJ1' , 'VAJ01' , @Value out, @Count If @ErrId > 0 BEGIN RETURN 1 END --更新关联ID update #tmpPartVAJ1 set VAJ01B = Case ISNULL(VAJ01B , 0) when 0 then VAJ01 else VAJ01B end where VAJ48 > 0 and VAJ53 = 1 While @i < @Count BEGIN Update #tmpPartVAJ1 Set VAJ01 = @Value - @Count + @i + 1 where [ID] = @i + 1 SET @i = @i + 1 END --如果是药品，更新为待发药 Update #tmpPartVAJ1 SET VAJ48 = 0 , VAJ53 = 0 where BDN01 <= '3' --更新除中草药外的单量 Update #tmpPartVAJ1 SET VAJ24 = VAJ25 where BDN01 <> '03' END --生成待收费单据 SELECT IDENTITY(int,1,1) AS ID , a.* INTO #tmpPartVAI1 from ( SELECT a.VAI01 VAI01O ,b.* from (SELECT VAI01 from (SELECT VAI01 from #tmpRemainVAJ1 UNION SELECT VAI01 from #tmpPartVAJ1) a ) a JOIN VAI1 b on a.VAI01 = b.VAI01 ) a If Exists(select * from #tmpPartVAI1) BEGIN SELECT @i = 0 , @Count = Count(1) from #tmpPartVAI1 Exec @ErrId = Core_NewIdEx 'VAI1' , 'VAI01' , @Value out , @Count If @ErrId > 0 BEGIN RETURN 1 END While @i < @Count BEGIN SET @VAI04 = '000000000' SET @VAI04 = @VAI04 + Cast(@Value - @Count + @i + 1 AS VARCHAR) SET @VAI04 = 'T' + SUBSTRING(@VAI04, Len(@VAI04) - 9, 10) SELECT @VAI22 = 0 , @VAI23 = 0 ,@VAI01 = VAI01 from #tmpPartVAI1 where [ID] = @i + 1 If Exists(select * from #tmpRemainVAJ1 where VAI01 = @VAI01 ) BEGIN SELECT @VAI22 = @VAI22 + sum(VAJ36) , @VAI23 = @VAI23 + sum(VAJ38) from #tmpRemainVAJ1 where VAI01 = @VAI01 END If Exists(select * from #tmpPartVAJ1 where VAI01 = @VAI01 ) BEGIN SELECT @VAI22 = @VAI22 + sum(VAJ36) , @VAI23 = @VAI23 + sum(VAJ38) from #tmpPartVAJ1 where VAI01 = @VAI01 END Update #tmpPartVAI1 set VAI01B = Case ISNULL(VAI01B , 0) when 0 then VAI01 else VAI01B end , VAI01C = VAI01 , VAI01 = @Value - @Count + @i + 1 , VAI04 = @VAI04 , VAI22 = @VAI22 , VAI23 = @VAI23 where [ID] = @i + 1 set @i = @i + 1 END --更新明细中单据号码 Update a Set a.VAI01 = b.VAI01 from #tmpRemainVAJ1 a join #tmpPartVAI1 b on a.VAI01 = b.VAI01O Update a Set a.VAI01 = b.VAI01 from #tmpPartVAJ1 a join #tmpPartVAI1 b on a.VAI01 = b.VAI01O END --生成退费的药品表(没发药) SELECT BBY01 , BCK01D , VAJ25 , DSK01 INTO #tmpNoExecDrag from (SELECT a.BBY01 , a.BCK01D , sum(a.VAJ25) VAJ25 , a.DSK01 from #tmpVAJ2 a join VAJ1 b on b.VAJ01 = a.VAJ01 where a.IsBackFee = -1 and b.BDN01 <= '3' group by a.BBY01 , a.BCK01D , a.DSK01 ) a --汇总待发药单据到业务通知表中 SELECT IDENTITY(int,1,1) AS ID,VAI01 , BCK01D , BCK01E INTO #TmpForMedicine from (SELECT * from #tmpPartVAJ1 UNIOn ALL SELECT * from #tmpRemainVAJ1 ) a where BDN01 <= '3' and VAJ53 = 0 and VAJ01B = 0 group by VAI01 , BCK01D , BCK01E --检索临时表 /*select * from #tmpVAJ2 select * from #tmpVAI2 select * from #tmpPartVAI1 select * from #tmpNewVAJ1 select * from #tmpRemainVAJ1 select * from #tmpPartVAJ1 select * from #tmpNoExecDrag Return 2*/ --如果数据已经作废，则提示 IF EXISTS(SELECT * FROM VAK1 WHERE VAK01A = @VAK01) BEGIN RAISERROR('该结帐记录已经退费，请刷新门诊收费管理界面查看.', 16, 1) WITH NOWAIT Return 1 END BEGIN TRAN --开始事务 /*===========================================================保存冲销数据==================================================*/ --插入结账记录 Exec @ErrId = Core_NewIDEx 'VAK1','VAK01',@VAK01A out If @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RETURN 1 END SET @VAK04 = '000000000' SET @VAK04 = @VAK04 + Cast(@VAK01A AS VARCHAR) SET @VAK04 = 'K' + SUBSTRING(@VAK04, Len(@VAK04) - 9, 10) INSERT INTO VAK1(VAK01, VAA01, VAA07, VAI04, FAB03, VAK06, VAK07, VAK08, VAK09, VAK10, BCE02A, BCE03A, VAK13, VAK01A, VAK15, VAK16, VAK17, VAK18, VAK19 ,VAK21 , VAK23 , VAK24 , BCE01A , VAK28 ) SELECT @VAK01A, VAA01, VAA07, @VAK04, '', 2, -VAK07 , -VAK08 , 0, 0, '', '', getdate(), @VAK01, getdate(), getdate(), '门诊退费', 0, 2, -VAK21, -VAK23 , -VAK24 , 0 , @VAK01A from VAK1 where VAK01 = @VAK01 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人结帐单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --插入冲销单据 INSERT INTO VAI1 (VAI01, VAA01, VAA07, VAI04, VAI05, BCK01A, BCK01B, BCE02A, BCE03A, BCE02B, BCE03B, VAI12, VAI13, VAI14, VAI01A, VAI16, VAI17, VAI18 ,CBM01 , ACF01 , VAI22 , VAI23 , VAI01B , VAI01C , VAK01) SELECT VAI01, VAA01, VAA07, VAI04, '门诊退费', BCK01A, BCK01B, BCE02A, BCE03A, @EmpNo, @EmpName, getdate(), getdate(),'门诊退费' , VAI01A , 4 , VAI17, 4 ,CBM01 , 1 , -VAI22 , -VAI23 , VAI01B , VAI01C , @VAK01A from #tmpVAI2 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人收费单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --生成剩余单据 INSERT INTO VAI1 (VAI01, VAA01, VAA07, VAI04, VAI05, BCK01A, BCK01B, BCE02A, BCE03A, BCE02B, BCE03B, VAI12, VAI13, VAI14, VAI01A, VAI16, VAI17, VAI18 ,CBM01 , ACF01 , VAI22 , VAI23 , VAI01B , VAI01C ) SELECT VAI01, VAA01, VAA07, VAI04, '', BCK01A, BCK01B, BCE02A, BCE03A, @EmpNo, @EmpName, getdate(), getdate(),VAI12 , VAI01A , 1 , 2, 2 ,CBM01 , 1 , VAI22 , VAI23 , VAI01B , VAI01C from #tmpPartVAI1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人收费单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --插入冲销明细 INSERT INTO VAJ1(VAJ01, VAA01, VAA07, VAJ04, VAJ05, ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, VAK01, ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, VAJ36, VAJ37, VAJ38, VAJ39, VAJ40, VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, VAJ46, VAJ47, VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, VAJ54, BCE02D, BCE03D, VAJ57, FAB03, VAJ59 ,VAJ61 ,VAJ62 , BCK01E , DSK01) SELECT VAJ01, VAA01, VAA07, VAJ04, 4, ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, @VAK01A, ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, -VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, -VAJ36, -VAJ37, -VAJ38, VAJ39, -VAJ40, -VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, getdate(), Getdate(), VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, '门诊退费' , '', '', '' , FAB03, VAJ59, -VAJ61 ,VAJ62 , BCK01E , DSK01 from #tmpNewVAJ1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人收费单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --插入剩余明细 INSERT INTO VAJ1(VAJ01, VAA01, VAA07, VAJ04, VAJ05, ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, VAK01, ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, VAJ36, VAJ37, VAJ38, VAJ39, VAJ40, VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, VAJ46, VAJ47, VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, VAJ54, BCE02D, BCE03D, VAJ57, FAB03, VAJ59 ,VAJ61 ,VAJ62 , BCK01E , DSK01) SELECT VAJ01, VAA01, VAA07, 2, 1, ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, 0 , ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, VAJ36, VAJ37, VAJ38, VAJ39, VAJ40, VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, getdate(), Getdate(), VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, '门诊退费' , @EmpNo , @EmpName , '' , FAB03, VAJ59, VAJ61 ,VAJ62 , BCK01E , DSK01 from #tmpRemainVAJ1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人收费单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --插入部分退费明细 INSERT INTO VAJ1(VAJ01, VAA01, VAA07, VAJ04, VAJ05, ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, VAK01, ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, VAJ36, VAJ37, VAJ38, VAJ39, VAJ40, VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, VAJ46, VAJ47, VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, VAJ54, BCE02D, BCE03D, VAJ57, FAB03, VAJ59 ,VAJ61 ,VAJ62 , BCK01E , DSK01) SELECT VAJ01, VAA01, VAA07, 2 , 1 , ROWNR, VAJ01A, VAJ01B, VAJ09, VAJ10, VAI01, VAF01, 0 , ACF01, VAJ15, BCK01A, BCK01B, BDN01, BBY01, BCJ02, VAJ21, VAJ22, VAJ23, VAJ24, VAJ25, VAJ26, VAJ27, VAJ28, VAJ29, VAJ30, VAJ31, VAJ32, VAJ33, VAJ34, VAJ35, VAJ36, VAJ37, VAJ38, VAJ39, VAJ40, VAJ41, BCE03A, BCK01C, BCE02B, BCE03B, getdate(), Getdate(), VAJ48, BCK01D, BCE03C, VAJ51, VAJ52, VAJ53, '门诊退费' , @EmpNo , @EmpName , '' , FAB03, VAJ59, VAJ61 ,VAJ62 , BCK01E , DSK01 from #tmpPartVAJ1 IF @@ERROR > 0 --如果发生错误则回滚数据 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('冲病人收费单据时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END --部分退费时存在于VBY1中不退费的明细更新其VAJ01为新VAJ01 If exists(select * from #tmpRemainVAJ1) BEGIN Update a SET a.VAJ01 = b.VAJ01 from VBY1 a join #tmpRemainVAJ1 b on b.VAJ01B = a.VAJ01 where a.VBY09 = 0 END --更改原记录状态 Update VAJ1 set VAJ05 = 3 where VAK01 = @VAK01 --更新原单据状态 Update VAI1 set VAI16 = 3 where VAI01 in (select a.VAI01 from VAI1 a join VAJ1 b on a.VAI01 = b.VAI01 where b.VAK01 = @VAK01 ) --更新原结账明细未发药状态的未拒绝发药 Update VAJ1 set VAJ53 = 2 where VAK01 = @VAK01 and VAJ48 = 0 and VAJ53 = 0 /*=================================================如果存在部分退费的数据，写入业务单据通知表====================================================*/ If exists(select * from #tmpPartVAI1 ) BEGIN SELECT @i = 0 , @Count = COUNT(1) from #tmpPartVAI1 SELECT @VAA01 = VAA01 , @VAA07 = VAA07 , @VAK13 = VAK13 from VAK1 where VAK01 = @VAK01A WHILE @i < @Count BEGIN SELECT @VAI01 = VAI01 , @VAI04 = VAI04 from #tmpPartVAI1 WHERE [ID] = @i + 1 SELECT top 1 @BCK01B = BCK01B from VAJ1 where VAI01 = @VAI01 Exec @ErrId = HOPublic_VBX1_Update @VAA01 , @VAA07 , 1 , 1 , 2 , 0 , 0 , @VAI04 , @VAK13 , @VAK01 , @VAI01 , '门诊部分退费生成单据' , 1 , 1 , @EmpId , @EmpName , @BCK01B , @DeptId , @DeptId If @ErrId > 0 BEGIN IF @@TRANCOUNT > 0 ROLLBACK TRAN RAISERROR('写入业务单据通知时发生错误，错误号为: %d.', 16, 1, @@ERROR) WITH NOWAIT Return 1 END SET @i = @i + 1 END END /*====================================================汇总待发药的单据列表(暂时只处理门诊)=========================================================*/ If exists(select * from #TmpForMedicine) BEGIN Declare @CurDate datetime , @BCK01D int , @BCK01E int , @InDept int SET @CurDate = GETDATE() SELECT top 1 @InDept = BCK01B from #tmpPartVAJ1 If ISNULL(@InDept ,0) = 0 SELECT top 1 @InDept = BCK01B from #tmpRemainVAJ1 SELECT @i = 0 , @Count = COUNT(1) from #TmpForMedicine while @i < @Count BEGIN SELECT @BCK01D = BCK01D , @BCK01E = BCK01E , @VAI01 = VAI01 from #TmpForMedicine where [ID] = @i + 1 SELECT @VAI04 = VAI04 from #tmpPartVAI1 where VAI01 = @VAI01 --如果业务通知表中不存在数据，则写入 If not exists(select * from VBX1 where VBX18 = @VAI01 and VBX03 = 2 and BCK01D = @BCK01D and BCK01C = @BCK01E) BEGIN Exec @ErrId = HOPublic_VBX1_Update @VAA01 , @VAA07 , 1 , 2 , 2 , 2 , -1 , @VAI04 , @CurDate , @VAI01 , 0 ,'划价生成待发药单据' , 0 , 0 , @EmpId , @EmpName , @InDept , @BCK01E , @BCK01D , 0 END SET @i = @i + 1 END END /*==========================================================================================================================*/ COMMIT TRAN --=================================如果存在需要退药的明细(未发药)，更新其虚拟库存=========================================== If exists(select * from #tmpNoExecDrag) and not exists(select * from SYS_Parameters where ProductID = 9999 and ProgramID = 9999 and ParamNo = 46 and value ='1') BEGIN Update a set a.SellQty = a.SellQty - b.VAJ25 , a.Quantity = a.Quantity + b.VAJ25 from DPT1 a join #tmpNoExecDrag b on b.BBY01 = a.BBY01 and b.BCK01D = a.BCK01 and a.DSK_ID = b.DSK01 END --======================================================删除临时表========================================================= IF Object_id('tempdb..#tmpVAJ2') IS NOT NULL DROP TABLE #tmpVAJ2 IF Object_id('tempdb..#tmpVAI2') IS NOT NULL DROP TABLE #tmpVAI2 IF Object_id('tempdb..#tmpPartVAI1') IS NOT NULL DROP TABLE #tmpPartVAI1 IF Object_id('tempdb..#tmpNewVAJ12') IS NOT NULL DROP TABLE #tmpNewVAJ1 IF Object_id('tempdb..#tmpRemainVAJ1') IS NOT NULL DROP TABLE #tmpRemainVAJ1 IF Object_id('tempdb..#tmpPartVAJ1') IS NOT NULL DROP TABLE #tmpPartVAJ1 IF Object_id('tempdb..#tmpNoExecDrag') IS NOT NULL DROP TABLE #tmpNoExecDrag GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --=============================================================================================== --<...Alter Date >2014.11.07 --<...Description>药房药品发药单-审核 --<...History>2013.07.08 当前单据中不存在待发药明细，更新待发药单据处理状态(暂时只处理门诊发药) --<...Histpry>2014.02.28 更新存取过程优化 --=============================================================================================== CREATE PROCEDURE [DPS_ExportForm_Check] @BCK01 int--部门ID , @BillID int--单据ID , @Assessor varchar(20)--审核人 , @TerminalNO varchar(50)--终端编号 , @TradeID int = 0 OUT--流水号ID AS DECLARE @iCount int--计数器 , @iTotal int--总行数 , @BBY01 int--药品ID , @DPK_ID int--库存表ID , @DSK_ID int--库存表ID , @UpdQty numeric(18, 6)--预扣数量 , @Quantity numeric(18, 6)--执行数量 , @VAI01 int--单据ID IF not exists(SELECT * FROM DPD1 WHERE BCK01 = @BCK01 and BillID = @BillID) BEGIN RAISERROR('单据不存在或已复核，请刷新后重试！',16, 1) WITH NOWAIT RETURN 1 END --更新单据当前售价、成本价 UPDATE A SET RetailPrice = Y.BBY25 --当前售价 , CostPrice = G.BAG23 --当前成本价 , RetailAmount= ROUND(Y.BBY25*A.Quantity, 6)--售价金额 , CostAmount = ROUND(G.BAG23*A.Quantity, 6)--成本金额 FROM DPD2 A join BBY1 Y ON Y.BBY01 = A.BBY01 join BAG1 G ON G.BBY01 = Y.BBY01 WHERE A.BCK01 = @BCK01 and A.BillID = @BillID --建执行临时表 SELECT IDENTITY(int,1,1) AS UID, d.BBY01, d.Quantity, d.DPK_ID, k.DSK_ID,d.VAJ01 INTO #TmpDPD2 FROM DPD2 d left join DPK1 k ON d.BCK01 = k.BCK01 and d.DPK_ID = k.ID WHERE d.BCK01 = @BCK01 and d.BillID = @BillID ORDER BY d.Quantity ASC --负数排第一 --初始化变量 SELECT @iTotal = COUNT(*), @iCount = 1 FROM #TmpDPD2 BEGIN TRAN --循环逐条处理记录 WHILE @iCount <= @iTotal BEGIN --提取记录 SELECT @BBY01 = BBY01, @Quantity = Quantity, @DPK_ID = DPK_ID, @DSK_ID = DSK_ID FROM #TmpDPD2 WHERE UID = @iCount --更改部门药品库存表(正数是发药,负数是退药) UPDATE DPK1 SET LastQuantity = LastQuantity - @Quantity WHERE ID = @DPK_ID and BBY01 = @BBY01 and LastQuantity >= @Quantity --防止负库存 IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('库存数不足，更新药房库存药品Id %d 时错误，请刷新后重试。',16, 1, @BBY01) WITH NOWAIT RETURN 2 END -- --变更预扣库存 -- SET @UpdQty = -1*@Quantity --UPDATE DPT1 SET RefQty=RefQty+@UpdQty where bck01=@BCK01 and bby01=@BBY01 and dsk_id= @DSK_ID -- EXEC DPS_DPT1_Update @BCK01, @BBY01, @DSK_ID, @UpdQty --加计数器 SET @iCount = @iCount + 1 END ----产生发药临时表 --select VAJ01 , BBY01 INTO #tmpDPD2_3 --from DPD2 --where BCK01 = @BCK01 and BillID = @BillID --产生发药流水ID EXEC Core_NewId_DPD1_ID_2 @TradeID OUT --更改病人费用明细执行标志 UPDATE J SET --允许同一个VAJ01,会被更新多次.故不能加VAJ48=0判断 BCK01D = @BCK01--执行科室ID , BCE03C = @Assessor--执行者 , VAJ48 = @TradeID--执行ID , VAJ51 = GetDate()--执行时间 , VAJ52 = Getdate()--执行交易时间 , VAJ53 = 1--执行情况：0:未执行; 1:执行完成; 2:拒绝执行; 3:正在执行 FROM VAJ1 J join #tmpDPD2 b on b.VAJ01 = J.VAJ01 --WHERE exists(SELECT * FROM DPD2 d WHERE d.BCK01 = @BCK01 and d.BillID = @BillID and d.VAJ01 = J.VAJ01 and d.BBY01 = J.BBY01) IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新病人费用表执行标识时错误', 16, 1) WITH NOWAIT RETURN 3 END --数量上部分退费多次退费后自动发药，VAJ01B更新为当前VAJ01 Update J SET J. VAJ01B = J.VAJ01 from VAJ1 J join #tmpDPD2 b on b.VAJ01 = J.VAJ01 where J.VAJ01B > 0 and J.VAJ25 > 0 --更新单据主审核标志 UPDATE DPD1 SET AuditingDate = GetDate(), Assessor = @Assessor, TradeID = @TradeID WHERE BCK01 = @BCK01 and BillID = @BillID IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新单据主表审核标志时错误,请重试！', 16, 1) WITH NOWAIT RETURN 4 END --更新待发药列表中的处理状态 If exists(select * from DPD1 where BCK01 = @BCK01 and BillID = @BillID ) begin SELECT VAI01 ,VAJ53 into #tmpVBX1 from VAJ1 j join #tmpDPD2 d on d.VAJ01 = j.VAJ01 and d.BBY01 = j.BBY01 --where d.BCK01 = @BCK01 and d.BillID = @BillID group by j.VAI01 , j.VAJ53 Update a set a.VBX22 = 1 from VBX1 a join #tmpVBX1 b on b.VAI01 = a.VBX18 where a.VBX03 = 2 and b.VAJ53 = 1 end --重新计算预扣库存表 --select BBY01,DSK_ID,sum(Quantity) SumQuantity into #tmpDPD2_SUM from #tmpDPD2 --group by BBY01,DSK_ID --UPDATE DPT1 SET RefQty=RefQty-b.SumQuantity,sellQTY=sellQTY-b.SumQuantity,Quantity=RefQty-sellQTY --from DPT1 a join #tmpDPD2_SUM b on a.BBY01=b.BBY01 and a.DSK_ID=b.DSK_ID --where bck01=@BCK01 COMMIT TRAN GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --=============================================================================================== --<...Alter Date >2014.05.13 --<...Description>住院发药单-审核(分表) --<...分批向后台传入数据，接受前台XML文档> --=============================================================================================== CREATE PROCEDURE [DPS_ExportForm_CheckSep] @BCK01 int--部门ID , @BillID int--单据ID , @Assessor varchar(20)--审核人 , @TerminalNO varchar(50)--终端编号 , @TradeID int = 0 OUT--流水号ID , @Doc ntext = ''--前台传入XML文档 AS DECLARE @iCount int--计数器 , @iTotal int--总行数 , @BBY01 int--药品ID , @DPK_ID int--库存表ID , @DSK_ID int--库存表ID , @UpdQty numeric(18, 6)--预扣数量 , @Quantity numeric(18, 6)--执行数量 , @VAI01 int--单据ID , @iDoc int , @iret int--返回XML号 , @Error int--返回错误号 --解析XML文档 EXEC @iret = sp_xml_preparedocument @iDoc OUTPUT, @Doc IF @iret > 0 BEGIN EXEC sp_xml_removedocument @iDoc RAISERROR('解析XML文档时发生错误，错误号: %d.', 16, 1, @iret) WITH NOWAIT RETURN @iret END SELECT xRowNum, VAA01, VAJ01, VAJ09, BBY01, BatchNO, VAJ25, VAJ32, VAJ33, VAJ36, VAJ38, VAJ54 , BCK01A , BCK01B , BCK01E INTO #tmpVAJ2_1 FROM OPENXML (@iDoc, '/ROOT/RxList', 8) WITH ( xRowNum int--行号 , VAA01 int--病人ID , VAJ01 int--记费ID , VAJ09 int--冲销ID , BBY01 int--药品ID , BatchNo varchar(30)--产品批号 , VAJ25 numeric(18, 6)--数量, 数次, 总数量 , VAJ32 numeric(18, 6)--全价 , VAJ33 numeric(18, 6)--单价, 标准单价 , VAJ36 numeric(18, 6)--全额, 应收金额 , VAJ38 numeric(18, 6)--结帐金额 , VAJ54 varchar(255)--备注 , BCK01A int--病区ID , BCK01B int--科室ID , BCK01E int--领药科室ID ) IF not exists(SELECT * FROM #tmpVAJ2_1) BEGIN EXEC sp_xml_removedocument @iDoc RAISERROR('没有找到要提交的发药内容，请重新后重试！', 16, 1) WITH NOWAIT RETURN 1 END IF not exists(SELECT * FROM DPD1 WHERE BCK01 = @BCK01 and BillID = @BillID) BEGIN RAISERROR('单据不存在或已复核，请刷新后重试！',16, 1) WITH NOWAIT RETURN 1 END --更新单据当前售价、成本价 UPDATE A SET RetailPrice = Y.BBY25 --当前售价 , CostPrice = G.BAG23 --当前成本价 , RetailAmount= ROUND(Y.BBY25*A.Quantity, 6)--售价金额 , CostAmount = ROUND(G.BAG23*A.Quantity, 6)--成本金额 FROM DPD2 A join BBY1 Y ON Y.BBY01 = A.BBY01 join BAG1 G ON G.BBY01 = Y.BBY01 WHERE A.BCK01 = @BCK01 and A.BillID = @BillID --建执行临时表 /*SELECT IDENTITY(int,1,1) AS UID, d.BBY01, d.Quantity, d.DPK_ID, k.DSK_ID,d.VAJ01 INTO #TmpDPD2 FROM DPD2 d left join DPK1 k ON d.BCK01 = k.BCK01 and d.DPK_ID = k.ID WHERE d.BCK01 = @BCK01 and d.BillID = @BillID ORDER BY d.Quantity ASC --负数排第一*/ SELECT IDENTITY(int,1,1) AS UID, d.BBY01, d.Quantity, d.DPK_ID, k.DSK_ID,d.VAJ01 INTO #TmpDPD2 FROM DPD2 d left join DPK1 k ON d.BCK01 = k.BCK01 and d.DPK_ID = k.ID join #tmpVAJ2_1 c on c.VAJ01 = d.VAJ01 ORDER BY d.Quantity ASC --负数排第一 --初始化变量 SELECT @iTotal = COUNT(*), @iCount = 1 FROM #TmpDPD2 BEGIN TRAN --循环逐条处理记录 WHILE @iCount <= @iTotal BEGIN --提取记录 SELECT @BBY01 = BBY01, @Quantity = Quantity, @DPK_ID = DPK_ID, @DSK_ID = DSK_ID FROM #TmpDPD2 WHERE UID = @iCount --更改部门药品库存表(正数是发药,负数是退药) UPDATE DPK1 SET LastQuantity = LastQuantity - @Quantity WHERE ID = @DPK_ID and BBY01 = @BBY01 and LastQuantity >= @Quantity --防止负库存 IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('库存数不足，更新药房库存药品Id %d 时错误，请刷新后重试。',16, 1, @BBY01) WITH NOWAIT RETURN 2 END --变更预扣库存 --SET @UpdQty = -1*@Quantity --UPDATE DPT1 SET RefQty=RefQty+@UpdQty where bck01=@BCK01 and bby01=@BBY01 and dsk_id= @DSK_ID --EXEC DPS_DPT1_Update @BCK01, @BBY01, @DSK_ID, @UpdQty --加计数器 SET @iCount = @iCount + 1 END --产生发药流水ID If ISNULL(@TradeID , 0) <= 0 EXEC Core_NewId_DPD1_ID_2 @TradeID OUT --更改病人费用明细执行标志 UPDATE J SET --允许同一个VAJ01,会被更新多次.故不能加VAJ48=0判断 BCK01D = @BCK01--执行科室ID , BCE03C = @Assessor--执行者 , VAJ48 = @TradeID--执行ID , VAJ51 = GetDate()--执行时间 , VAJ52 = Getdate()--执行交易时间 , VAJ53 = 1--执行情况：0:未执行; 1:执行完成; 2:拒绝执行; 3:正在执行 FROM VAJ2 J join #tmpDPD2 b on b.VAJ01 = J.VAJ01 --WHERE exists(SELECT * FROM DPD2 d WHERE d.BCK01 = @BCK01 and d.BillID = @BillID and d.VAJ01 = J.VAJ01 and d.BBY01 = J.BBY01) IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新病人费用表执行标识时错误', 16, 1) WITH NOWAIT RETURN 3 END --更新单据主审核标志 UPDATE DPD1 SET AuditingDate = GetDate(), Assessor = @Assessor, TradeID = @TradeID WHERE BCK01 = @BCK01 and BillID = @BillID IF (@@ROWCOUNT = 0) OR (@@ERROR > 0) BEGIN ROLLBACK TRAN RAISERROR('更新单据主表审核标志时错误,请重试！', 16, 1) WITH NOWAIT RETURN 4 END --更新待发药列表中的处理状态 If exists(select * from DPD1 where BCK01 = @BCK01 and BillID = @BillID) begin SELECT VAI01 ,VAJ53 into #tmpVBX1 from VAJ2 j join DPD2 d on d.VAJ01 = j.VAJ01 and d.BBY01 = j.BBY01 where d.BCK01 = @BCK01 and d.BillID = @BillID group by j.VAI01 , j.VAJ53 Update a set a.VBX22 = 1 from VBX1 a join #tmpVBX1 b on b.VAI01 = a.VBX18 where a.VBX03 = 2 and b.VAJ53 = 1 end --重新计算预扣库存表 --select BBY01,DSK_ID,sum(Quantity) SumQuantity into #tmpDPD2_SUM from #tmpDPD2 --group by BBY01,DSK_ID --UPDATE DPT1 SET RefQty=RefQty-b.SumQuantity,sellQTY=sellQTY-b.SumQuantity,Quantity=RefQty-sellQTY --from DPT1 a join #tmpDPD2_SUM b on a.BBY01=b.BBY01 and a.DSK_ID=b.DSK_ID --where bck01=@BCK01 COMMIT TRAN GO --增加分类 GO IF not EXISTS(SELECT * FROM SYS_ScriptCategories WHERE id=14) insert into SYS_ScriptCategories(ID,Code,Name,ComponentID,xRowNum,ParentID,xLevel,Description) Values(14, 'SC14', '卫生材料管理', 1, 0, 1, 0, Null) else print 'SYS_ScriptCategories.id=14 已经存在.' GO --删除旧记录 delete from SYS_Scripts where id=255 --删除脚本内容 GO GO IF not EXISTS(SELECT * FROM SYS_Scripts WHERE id=255) insert into SYS_Scripts(ID,CategoryID,Code,Name,Description,xType,DatasourceID,DisplayNames,xRowNum,xText,UpdateDate,UpdateUser,UpdateMode) Values(255, 14, 'SQL_MaterialKindCur', Null, '查询出当前材料品种', 1, 1, Null, 1, 'DECLARE @Now datetime,@BDM01 varchar(20),@BDO01 int Set @Now=getdate() Set @BDM01 = %s Set @BDO01 = :BDO01 Set @BDO01 = :BDO01A ;with subqry(BDO01,BDO03,BDO01A) as ( select BDO01,BDO03,BDO01A from BDO1 where BDO01=@BDO01 union all select a.BDO01,a.BDO03,a.BDO01A from BDO1 a,subqry where a.BDO01A = subqry.BDO01 ) select * into #tmp_BDO1 from subqry Select td.BBX01, td.BDA01, td.BBX04, td.BDO01, td.BBX05, td.BDG02, td.BBX24, td.BBX25, tc.BDO03, tdt.NameA,tdt1.NameB, tdt2.NameC, tdt3.NameD, tdt4.NameE, isExpiry = case WHEN BBX25>@Now THEN 0 ELSE 1 END FROM BBX1 td JOIN BDO1 tc ON td.BDO01 = tc.BDO01 LEFT JOIN (SELECT tt.BDK03 AS NameA, tt.BBX01 FROM BDK1 tt WHERE tt.BDK06 = 1) tdt ON td.BBX01 = tdt.BBX01 LEFT JOIN (SELECT tt.BDK03 AS NameB, tt.BBX01 FROM BDK1 tt WHERE tt.BDK06 = 2) tdt1 ON td.BBX01 = tdt1.BBX01 LEFT JOIN (SELECT tt.BDK03 AS NameC, tt.BBX01 FROM BDK1 tt WHERE tt.BDK06 = 3) tdt2 ON td.BBX01 = tdt2.BBX01 LEFT JOIN (SELECT tt.BDK03 AS NameD, tt.BBX01 FROM BDK1 tt WHERE tt.BDK06 = 4) tdt3 ON td.BBX01 = tdt3.BBX01 LEFT JOIN (SELECT tt.BDK03 AS NameE, tt.BBX01 FROM BDK1 tt WHERE tt.BDK06 = 5) tdt4 ON td.BBX01 = tdt4.BBX01 WHERE tc.BDM01 = @BDM01 And exists(select * from #tmp_BDO1 where BDO01=td.BDO01) order by td.BBX04 drop table #tmp_BDO1', '2014-11-04 15:40:14', '(8088)王海涛', 0) else print 'SYS_Scripts.id=255 已经存在.' GO