2.
3.
pZ_Out_RetChargeHi******************************************/
/*未结帐且不为同一操作员或已结帐的医保退票处理*/
/******************************************/
CREATE PROCEDURE pZ_Out_RetChargeHi(@DanJuID varchar(10),@JiuZhenID int,@KeShiBM varchar(10),
@XingMing varchar(10),@ShouKuanBM varchar(10),@YiShengBM varchar(10),@BingLiHao varchar(20),@YiLiaoDH varchar(12))
AS
declare @TuiFeiSJ datetime,@NewDanJuID varchar(10),@SerialNo varchar(23),@RiQi varchar(10),@OldJiuZhenID int
set @TuiFeiSJ=convert(datetime,getdate(),120)
set @SerialNo=convert(varchar(23),getdate(),121)
set @RiQi=convert(varchar(10),getdate(),120)
begin tran
--删除发票临时打印表
delete Out_TempPrintInvoice where ShouKuanYBM=@ShouKuanBM
if @@Error<>0
begin
RollBack Tran
Return 16
end
update Out_invoice set TuiFeiSJ=@TuiFeiSJ where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 0--更新发票主表
end
select @OldJiuZhenID=JiuZhenID from Out_Invoice where DanJuID=@DanJuID
/* insert into Out_ClinicInfo select @SerialNo,BingLiHao,@JiuZhenID,BingRenLB,LeiBieBM,XingMing,KeShiBM,JiuZhenRQ,@ShouKuanBM from Out_clinicInfo where JiuZhenID=@OldJiuZhenID if @@Error<>0 begin RollBack Tran Return 20--插入就诊主表失败 end */
update Out_RetCharge set TuiFeiBZ=1 where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 1--更新退费记录表
end
--Assay:
/*update DR_Store set ZhangMianShu=ZhangMianShu+a.ShuLiang*a.TieShu*a.TianShu from Out_RecipeDetail a,DR_Store b where a.YaoPinID=b.YaoPinID and b.KeShiBM=a.LingYaoKSBM and a.DanJuID=@DanJuID */
update DR_Store
set ZhangMianShu=ZhangMianShu+a.ShuLiang
from (select YaoPinID,LingYaoKSBM,
Sum(convert(Numeric(10,2),ShuLiang*TieShu*TianShu)) as ShuLiang
from Out_RecipeDetail where
DanJuID=@DanJuID Group by YaoPinID,LingYaoKSBM) a,DR_Store b
where
a.YaoPinID=b.YaoPinID and
b.KeShiBM=a.LingYaoKSBM
/* declare Out_Ret Cursor for select YaoPinID,LingYaoKSBM,ShuLiang*TieShu*TianShu as ShuLiang from Out_RecipeDetail where DanJuID=@DanJuID open Out_Ret declare @YaoPinID varchar(15),@LingYaoKSBM varchar(10),@ShuLiang Numeric(10,2) Fetch Next from Out_Ret into @YaoPinID,@LingYaoKSBM,@ShuLiang while (@@Fetch_Status=0) begin update DR_Store set ZhangMianShu=ZhangMianShu+@ShuLiang where YaoPinID=@YaoPinID and KeShiBM=@LingYaoKSBM if @@Error<>0 begin Close Out_Ret Deallocate Out_Ret RollBack Tran Return 2--更新药房帐面库存 end Fetch Next from Out_Ret into @YaoPinID,@LingYaoKSBM,@ShuLiang end Close Out_Ret Deallocate Out_Ret */
insert into Out_Recipe select @SerialNo,@BingLiHao,@JiuZhenID,2,@RiQi,@YiShengBM,@KeShiBM,@ShouKuanBM,-YingShouJE,-YingShouJE,1,0,0
from Out_Invoice where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 3--生成负处方主表
end
exec @NewDanJuID=pSys_GetBill @ShouKuanBM,1
if @@Error<>0
begin
RollBack Tran
Return -1--生成单据号错误
end
if @NewDanJuID=-1
begin
RollBack Tran
Return -2--单据已用完
end
--插入单据进入发票临时表
insert into Out_TempPrintInvoice (ShouKuanYBM,DanJuID) values (@ShouKuanBM,@NewDanJuID)
if @@Error<>0
begin
RollBack Tran
Return 15
end
--插入医保结算主表
insert into Z_Out_Clinic (YiLiaoDH, DanJuID, YiBaoKaHao, SheBaoHao,RenYuanLB,
JiuZhenSJ, ZongFY, YiBaoFY, ZiFeiFY, ZiLiFY, NDXTZiLiFY,
XianFuFY,DangNianZF, LiNianZF,BuZhuZF,BuChongZF, TongChouZF, JiuZhuZF,
GongBuKFZF,LiXiuYFZF, ZiFuZF,XianJinZF, BingZhongMC, JiaoYiSJ,BeiZhu)
select @YiLiaoDH, @NewDanJuID, YiBaoKaHao, SheBaoHao,RenYuanLB, @SerialNo, -ZongFY,
-YiBaoFY, -ZiFeiFY, -ZiLiFY,- NDXTZiLiFY, -XianFuFY,-DangNianZF, -LiNianZF,-BuZhuZF,
-BuChongZF, -TongChouZF, -JiuZhuZF, -GongBuKFZF, -LiXiuYFZF,-ZiFuZF, -XianJinZF,
BingZhongMC, @SerialNo,BeiZhu
from Z_Out_Clinic where YiLiaoDH=@YiLiaoDH and DanJuID=@DanJuID
if @@Error <>0
begin
Rollback Tran
Return 21
end
declare Out_Rec Cursor
for
select SerialNo,YaoPinID,HeSuanBM,ZhiXingBM,YaoMing,GuiGe,DanWei,DanJia,PiJia,JinJia,ShuLiang,TieShu,TianShu,JinE,ZiLiBL,ZiLiJE,LingYaoKSBM,TaoCanBM
from Out_RecipeDetail
where DanJuID=@DanJuID
open Out_Rec
declare @YaoPinID3 varchar (15),@HeSuanBM varchar(5),@ZhiXingBM varchar(10),@YaoMing varchar(30),@GuiGe varchar(15),
@DanWei varchar(5),@DanJia Numeric(8,4),@PiJia Numeric(8,4),@JinJia Numeric(8,4),@OldSerialNo varchar(23),
@ShuLiang3 Numeric(10,2),@TieShu3 int,@TianShu3 int,@JinE Numeric(10,2),@ZiLiBL Numeric(10,2),@ZiLiJE Numeric(10,2),@LingYaoKSBM3 varchar(10),@TaoCanBM int
Fetch Next from Out_Rec into @OldSerialNo,@YaoPinID3,@HeSuanBM,@ZhiXingBM,@YaoMing,@GuiGe,@DanWei,@DanJia,@PiJia,@JinJia,@ShuLiang3,@TieShu3,@TianShu3,@JinE,@ZiLiBL,@ZiLiJE,@LingYaoKSBM3,@TaoCanBM
while (@@Fetch_Status=0)
begin
insert into Out_RecipeDetail
(SerialNo,JiuZhenID,ChuFangLH,DanJuID,YaoPinID,HeSuanBM,ZhiXingBM,YaoMing,GuiGe,DanWei,
DanJia,PiJia,JinJia,ShuLiang,TieShu,TianShu,JinE,ZiLiBL,ZiLiJE,LingYaoKSBM)
values(@SerialNo,@JiuZhenID,2,@NewDanJuID,@YaoPinID3,@HeSuanBM,@ZhiXingBM,@YaoMing,@GuiGe,@DanWei,
@DanJia,@PiJia,@JinJia,-@ShuLiang3,@TieShu3,@TianShu3,-@JinE,@ZiLiBL,-@ZiLiJE,@LingYaoKSBM3)
if @@Error<>0
begin
Close Out_Rec
Deallocate Out_Rec
RollBack Tran
Return 4--生成负处方明细表
end
insert into Z_Out_ClinicDetail
(SerialNo,YiLiaoDH,DanJuID,YiYuanBM,YiBaoBM,YaoPinMC,ShouFeiLBYY,ShouFeiLBYB,JiXing,
GuiGe,DanWei,DanJia,ShuLiang,ZiFuBL,ZongFY,ZiFeiFY,ZiLiFY,YiBaoFY)
select @SerialNo,@YiLiaoDH,@NewDanJuID,YiYuanBM,YiBaoBM,YaoPinMC,ShouFeiLBYY,
ShouFeiLBYB,JiXing,GuiGe,DanWei,DanJia,-ShuLiang,ZiFuBL,-ZongFY,-ZiFeiFY,-ZiLiFY,-YiBaoFY
from Z_Out_ClinicDetail where YiLiaoDH=@YiLiaoDH and DanJuID=@DanJuID and SerialNo=@OldSerialNo
if @@Error<>0
begin
Close Out_Rec
Deallocate Out_Rec
RollBack Tran
Return 4--生成医保负处方明细表
end
insert into Z_Out_ClinicDetailExt
(Serialno,JiuZhenID,ChuFangLH,DanJuID,YaoPinID,PinCi,YongLiang)
select @SerialNo,JiuZhenID,2,@NewDanJuID,YaoPinID,PinCi,YongLiang
from Z_Out_ClinicDetailExt where SerialNo=@OldSerialNo and JiuZhenID=@OldJiuZhenID and YaoPinID=@YaoPinID3
and DanJuId=@DanJuID
if @@Error<>0
begin
Close Out_Rec
Deallocate Out_Rec
RollBack Tran
Return 4--生成医保负处方明细扩展表
end
set @SerialNo=convert(varchar(23),dateAdd(ms,10,@SerialNo),121)
Fetch Next from Out_Rec into @OldSerialNo,@YaoPinID3,@HeSuanBM,@ZhiXingBM,@YaoMing,@GuiGe,@DanWei,@DanJia,@PiJia,@JinJia,@ShuLiang3,@TieShu3,@TianShu3,@JinE,@ZiLiBL,@ZiLiJE,@LingYaoKSBM3,@TaoCanBM
end
Close Out_Rec
Deallocate Out_Rec
insert into Out_DistriMedicStatus select @SerialNo,@NewDanJuID,KeShiBM,FaYaoCZ,1,FaYaoRQ,FaYaoZT from Out_DistriMedicStatus where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 5--生成负的发药状态表
end
insert into Out_Invoice select SerialNo,@JiuZhenID,@NewDanJuID,@RiQi,XingMing,-YingShouJE,-ShiShouJE,-YingShouZLJE,-ShiShouZLJE,@ShouKuanBM,1,@SerialNo,Null
from Out_Invoice where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 6--生成负的发票主表
end
insert into Out_InvoiceDetail select @SerialNo,@JiuZhenID,@NewDanJuID,HeSuanBM,-YingShouJE,-ShiShouJE,-YingShouZLJE,-ShiShouZLJE from Out_InvoiceDetail where DanJuID=@DanJuID
if @@Error<>0
begin
RollBack Tran
Return 7--生成负的发票明细表
end
update Out_Recipe Set JieSuanBZ=1 where JiuZhenID=@JiuZhenID and ChuFangLH=1
--更新处方主表的结算标志为1
if @@Error<>0
begin
RollBack Tran
Return 8--更新正处方主表错误
end
declare @Num int
select @Num=count(*) from Out_Recipe where JiuZhenID=@JiuZhenID and ChuFangLH=1
if @Num=1
begin
exec @NewDanJuID=pSys_GetBill @ShouKuanBM,1
if @@Error<>0
begin
RollBack Tran
Return -1--生成单据号错误
end
if @NewDanJuID=-1
begin
RollBack Tran
Return -2--单据已用完
end
declare @YingShouJE Numeric(10,2),@ShiShouJE Numeric(10,2),@YingShouZLJE Numeric(10,2),@ShiShouZLJE Numeric(10,2)
set @YingShouJE=0.00
set @ShiShouJE=0.00
set @YingShouZLJE=0.00
set @ShiShouZLJE=0.00
declare Out_Invo Cursor
for
select HeSuanBM,convert(Numeric(10,2),sum(JinE)),sum(ZiLiJE)
from Out_RecipeDetail where JiuZhenID=@JiuZhenID and ChuFangLH=1 Group by HeSuanBM
open Out_Invo
declare @YingShouJE2 Numeric(10,2),@ShiShouJE2 Numeric(10,2),@HeSuanBM2 varchar(30),@YingShouZLJE2 Numeric(10,2),@ShiShouZLJE2 Numeric(10,2)
Fetch Next from Out_Invo into @HeSuanBM2,@YingShouJE2,@YingShouZLJE2
while (@@Fetch_Status=0)
begin
exec pSys_GetRound @YingShouJE2,@ShiShouJE2 out
if @ShiShouJE2=-1
begin
Close Out_Invo
Deallocate Out_Invo
RollBack Tran
Return -3
end
exec pSys_GetRound @YingShouZLJE2,@ShiShouZLJE2 out
if @ShiShouZLJE2=-1
begin
Close Out_Invo
Deallocate Out_Invo
RollBack Tran
Return -3
end
set @YingShouJE=@YingShouJE+@YingShouJE2
set @ShiShouJE=@ShiShouJE+@ShiShouJE2
set @YingShouZLJE=@YingShouZLJE+@YingShouZLJE2
set @ShiShouZLJE=@ShiShouZLJE+@ShiShouZLJE2
--生成发票明细表
insert into Out_InvoiceDetail values(@SerialNo,@JiuZhenID,@NewDanJuID,@HeSuanBM2,@YingShouJE2,@ShiShouJE2,@YingShouZLJE2,@ShiShouZLJE2)
if @@Error<>0
begin
Close Out_Invo
Deallocate Out_Invo
RollBack Tran
Return 11--生成发票明细表错误
end
Fetch Next from Out_Invo into @HeSuanBM2,@YingShouJE2,@YingShouZLJE2
end
Close Out_Invo
Deallocate Out_Invo
update Out_RecipeDetail Set DanJuID=@NewDanJuID where JiuZhenID=@JiuZhenID and ChuFangLH=1
--更新处方明细表单据号为当前单据号
if @@Error<>0
begin
RollBack Tran
Return 9--更新处方明细表错误
end
--插入单据进入发票临时表
insert into Out_TempPrintInvoice (ShouKuanYBM,DanJuID) values (@ShouKuanBM,@NewDanJuID)
if @@Error<>0
begin
RollBack Tran
Return 15
end
--生成发票主表
insert into Out_Invoice (SerialNo,JiuZhenID,DanJuID,DanJuRQ,XingMing,YingShouJE,ShiShouJE,YingShouZLJE,ShiShouZLJE,ShouKuanYBM,JieSuanZT,
TuiFeiSJ,JieZhangDH)
values (@SerialNo,@JiuZhenID,@NewDanJuID,@RiQi,@XingMing,@YingShouJE,@ShiShouJE,@YingShouZLJE,@ShiShouZLJE,@ShouKuanBM,1,
null,null)
if @@Error<>0
begin
RollBack Tran
Return 10--生成发票主表错误
end
insert into Out_DistriMedicStatus
select distinct @SerialNo,@NewDanJuID,a.LingYaoKSBM,b.FaYaoCZ,1,b.FaYaoRQ,b.FayaoZT
from Out_RecipeDetail a,Out_DistriMedicStatus b
where a.DanJuID=@NewDanJuID and b.DanJuID=@DanJuID and a.LingYaoKSBM=b.KeShiBM
if @@Error<>0
begin
RollBack Tran
Return 12--生成发药状态表
end
--Assay:
/*update DR_Store set ZhangMianshu=ZhangMianshu-a.ShuLiang*a.TieShu*a.TianShu from Out_RecipeDetail a,DR_Store b where a.YaoPinID=b.YaoPinID and a.LingYaoKSBM=b.KeShiBM and a.JiuZhenID=@JiuZhenID */
update DR_Store
set ZhangMianShu=ZhangMianShu-a.ShuLiang
from (select YaoPinID,LingYaoKSBM,
Sum(convert(Numeric(10,2),ShuLiang*TieShu*TianShu)) as ShuLiang
from Out_RecipeDetail where
JiuZhenID=@JiuZhenID and ChuFangLH=1 Group by YaoPinID,LingYaoKSBM) a,DR_Store b
where
a.YaoPinID=b.YaoPinID and
b.KeShiBM=a.LingYaoKSBM
/* declare Out_Rep Cursor for select YaoPinID,ShuLiang,TieShu,TianShu,LingYaoKSBM from Out_RecipeDetail where JiuZhenID=@JiuZhenID and ChuFangLH=1 open Out_Rep declare @YaoPinID2 varchar(15),@ShuLiang2 Numeric(10,2),@TieShu int,@TianShu int,@LingYaoKSBM2 varchar(10) Fetch Next from Out_Rep into @YaoPinID2,@ShuLiang2,@TieShu,@TianShu,@LingYaoKSBM2 while (@@Fetch_Status=0) begin declare @ZhangMianShu Amount set @ZhangMianShu=convert(numeric(10,2),@ShuLiang2*@TieShu*@TianShu) update DR_Store set ZhangMianShu=ZhangMianShu-@ZhangMianShu where YaoPinID=@YaoPinID2 and KeShiBM=@LingYaoKSBM2 if @@Error<>0 begin Close Out_Rep Deallocate Out_Rep RollBack Tran Return 13--更新药房库存错误 end Fetch Next from Out_Rep into @YaoPinID2,@ShuLiang2,@TieShu,@TianShu,@LingYaoKSBM2 end Close Out_Rep Deallocate Out_Rep */
end
commit tran
Return 14
GO
