存储过程(工作随笔)门诊统筹

USE [420923_2013]
GO
/****** Object:  StoredProcedure [dbo].[Pro_MzTc_GetCanFee]    Script Date: 01/29/2013 11:00:12 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

/*重新计算报销项目*/
ALTER       proc [dbo].[Pro_MzTc_GetCanFee]
  @OrgCode varchar(12),      --服务机构
  @CoopMedCode varchar(12),  --合作医疗证号
  @IDNo varchar(10),         --个人序号
  @DiagNo varchar(10),       --就医序号
  @AreaCode varchar(12),     --行政区划
  @FreeFeeOld numeric(8,2),  --修改前的报销金额
  @MzTcFlag char(1),         --门诊统筹方式 1.县;2.乡镇;3.村;4.组
  @Type varchar(1),          --可报销费用类型 1.登记 2.一审 3.二审
  @dFee numeric(8,2) output
as
declare @Bl numeric(6,2),@MaxFee numeric(10,4),@TotalFee numeric(10,4),@FreeFee numeric(10,4),@FreeFee_Ts numeric(10,4),@AfterFreeFee numeric(10,4),@ZlfAfterFreeFee numeric(10,4),@dSumFreeFee numeric(8,2),@dFreeFee numeric(8,2)
declare @Indate varchar(10),@SGrade varchar(1),@CanFreeFee_Ts numeric(8,2),@HospitalCode varchar(12)
select @Bl=0,@MaxFee=0,@TotalFee=0,@FreeFee=0,@FreeFee_Ts=0,@AfterFreeFee=0,@ZlfAfterFreeFee=0,@dSumFreeFee=0,@dFreeFee=0,@dFee=0,@SGrade='0',@CanFreeFee_Ts=0

declare @dYearMaxFee numeric(8,2),@YearFlag char(1),@Digital int,@BlXz numeric(6,2),@BlCun numeric(6,2)
select @dYearMaxFee = 0,@YearFlag='1',@Digital=2,@BlXz=0,@BlCun=0
declare @DayMaxFeeXz numeric(10,4),@DayMaxFeeCun numeric(10,4),@DayFlag char(1),@MzTcMxb char(1),@Count int
select @DayMaxFeeXz=0,@DayMaxFeeCun=0,@DayFlag='1',@MzTcMxb='2',@Count=0
declare @Zlf varchar(20),@ZlfFlag char(1),@ZlfCount int,@ZlfYear char(1),@ZlFreeFee numeric(10,4)
select @Zlf='',@ZlfFlag='',@ZlfCount=0,@ZlfYear='',@ZlFreeFee=0
declare @FeeNo int,@dPrice numeric(10,4),@dLimitPrice numeric(10,4),@dNum numeric(6,2),@FeeType varchar(6)
select @FeeNo=0,@dPrice=0,@dLimitPrice=0,@dNum=0,@FeeType=''

--取当次就诊时间,医疗机构级别
select @Indate=convert(varchar(10),a.Indate,120),@SGrade=b.Grade,@HospitalCode=a.HospitalCode   
from o_cbmzbxdj a,p_Ylfwdw b
where a.HospitalCode=b.OrgCode and a.OrgCode=@OrgCode and a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.DiagNO=@DiagNO

if (@SGrade <> '1') and (@SGrade <> '4')
begin
    set @dFee=0
    return
end

--发生慢性病的不能报销
select @MzTcMxb=ParamValue from p_ParamLists where ParamName='MzTcMxb'
if @MzTcMxb='1'
begin
  select @Count=isnull(count(coopmedcode),0) from c_MxbCardInfos where coopmedcode=@CoopMedCode  and idno=@IDNo
  if @Count > 0
  begin
    set @dFee=-997
    return
  end
end

--年封顶及类别，小数位数
select @dYearMaxFee=ParamValue from p_ParamLists where ParamName='MzTcYearMaxFee'
select @YearFlag=ParamValue from p_ParamLists where ParamName='MzTcYearFlag'
select @Digital=ParamValue from p_ParamLists where ParamName='MzTcDigital'
--报销比例
select @BlXz=ParamValue from p_ParamLists where ParamName='MzTcBlXz'
select @BlCun=ParamValue from p_ParamLists where ParamName='MzTcBlCun'
--日封顶及类别
select @DayMaxFeeXz=ParamValue from p_ParamLists where ParamName='MzTcDayMaxFeeXz'
select @DayMaxFeeCun=ParamValue from p_ParamLists where ParamName='MzTcDayMaxFeeCun'
select @DayFlag=ParamValue from p_ParamLists where ParamName='MzTcDayFlag'
--一般诊疗费,7元/天,是否单独封顶,是否纳入年封顶
select @Zlf=ltrim(rtrim(ParamValue)) from p_ParamLists where ParamName='MzTcZlf'
select @ZlfYear=ParamValue from p_ParamLists where ParamName='MzTcZlfYear'
select @ZlfFlag=ParamValue from p_ParamLists where ParamName='MzTcZlfFlag'

--乡镇卫生院
if (@SGrade = '1')
begin
  set @Bl=@BlXz/100
  set @MaxFee =@DayMaxFeeXz
end
--村卫生室
if (@SGrade = '4')
begin
  set @Bl=@BlCun/100
  set @MaxFee =@DayMaxFeeCun
end

--取当前患者当日已发生的费用
if @DayFlag='1'
begin
  select @AfterFreeFee=isnull(sum(c.FreeFee),0)
  from (
    select isnull(sum(FreeFee),0) as FreeFee  --已审核的
    from s_cbmzbxdj
    where CoopMedCode=@CoopMedCode and IDNo=@IDNo and convert(varchar(10),Indate,120)=@Indate and mzflag='2'
    union all
    select isnull(sum(FreeFee),0) as FreeFee
    from o_cbmzbxdj
    where CoopMedCode=@CoopMedCode and IDNo=@IDNo and convert(varchar(10),Indate,120)=@Indate and mzflag='2'
    union all                        
    select -isnull(sum(FreeFee),0) as FreeFee 
    from o_cbmzbxdj
    where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo
) c
end
else
begin
  select @AfterFreeFee=isnull(sum(c.FreeFee),0)
  from (
    select isnull(sum(FreeFee),0) as FreeFee  --已审核的
    from s_cbmzbxdj
    where CoopMedCode=@CoopMedCode and convert(varchar(10),Indate,120)=@Indate and mzflag='2'
    union all
    select isnull(sum(FreeFee),0) as FreeFee
    from o_cbmzbxdj
    where CoopMedCode=@CoopMedCode and convert(varchar(10),Indate,120)=@Indate and mzflag='2'
    union all                        
    select -isnull(sum(FreeFee),0) as FreeFee 
    from o_cbmzbxdj
    where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo) c
end

--取可报销费用
if @Type = '1'
  select @TotalFee=isnull(sum(Fee),0),@FreeFee=isnull(sum(CanFreeFee),0) from o_CbMzTcGrDjZb
  where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode
    and IDNo=@IDNo and DiagNo=@DiagNO
else if @Type = '2'
  select @TotalFee=isnull(sum(Fee),0),@FreeFee=isnull(sum(CanFreeFee-KnockOffFee1),0) from o_CbMzTcGrDjZb
  where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode
    and IDNo=@IDNo and DiagNo=@DiagNO
else if @Type = '3'
  select @TotalFee=isnull(sum(Fee),0),@FreeFee=isnull(sum(CanFreeFee-KnockOffFee),0) from o_CbMzTcGrDjZb
  where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode
    and IDNo=@IDNo and DiagNo=@DiagNO

--特殊项目：一般诊疗费
if ((@SGrade = '1') or (@SGrade = '4')) and (@Zlf<>'')
begin
  --判断本次是否有一般诊疗费及金额
  select @FeeNo=isnull(FeeNo,0),@FeeType=FeeTypeCode,@dPrice=Price,@dLimitPrice=LimitPrice,@dNum=Num from o_CbMzTcGrDjZb where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and ItemCode=@Zlf
  if @FeeNo > 0
  begin
    exec Pro_MzTc_GetItem @OrgCode,@CoopMedCode,@IDNo,@DiagNo,@FeeNo,'1',@FeeType,@Zlf,@dPrice,@dLimitPrice,@dNum,@CanFreeFee_Ts output
    update o_CbMzTcGrDjZb set CanFreeFee=@CanFreeFee_Ts
     where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and FeeNo=@FeeNo
    --取可报销费用   
    if @Type = '1'
 select @FreeFee=isnull(sum(CanFreeFee),0) from o_CbMzTcGrDjZb where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNO
    else if @Type = '2'
 select @FreeFee=isnull(sum(CanFreeFee-KnockOffFee1),0) from o_CbMzTcGrDjZb where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNO
    else if @Type = '3'
 select @FreeFee=isnull(sum(CanFreeFee-KnockOffFee),0) from o_CbMzTcGrDjZb  where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNO
  end
 --判断是否超过每日次封顶线,，本次录入一般诊疗且报销(当天未发生过一般诊疗费，@ZlfAfterFreeFee＝0)
  if (@FeeNo>0) and (@CanFreeFee_Ts<>0)
  begin
    --单独日封顶
    if (@ZlfFlag ='1')
    begin
      if @MaxFee > 0
      begin
        if @AfterFreeFee >= @MaxFee
          set @dFee=0
        else
        begin
          if (@FreeFee-@CanFreeFee_Ts)*@Bl + @AfterFreeFee > @MaxFee
            set @dFee = @MaxFee - @AfterFreeFee
          else
            set @dFee = (@FreeFee-@CanFreeFee_Ts)*@Bl
        end
      end
      else
        set @dFee = (@FreeFee-@CanFreeFee_Ts)*@Bl

      set @dFee=@dFee + @CanFreeFee_Ts
    end
    else
    begin
      --纳入日封顶
      if @MaxFee > 0
      begin
        if @AfterFreeFee >= @MaxFee
        begin
          set @dFee=-998
          if @CanFreeFee_Ts > 0
          begin
       set @CanFreeFee_Ts = 0
            update o_cbmztcgrdjzb set CanFreeFee=@CanFreeFee_Ts where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and ItemCode=@Zlf and CanFreeFee<>0
          end
        end
        else
        begin
          if (@FreeFee-@CanFreeFee_Ts)*@Bl + @CanFreeFee_Ts + @AfterFreeFee > @MaxFee
   begin
            set @dFee = @MaxFee - @AfterFreeFee
        if @dFee < @CanFreeFee_Ts
     begin
       set @CanFreeFee_Ts = @dFee
       update o_cbmztcgrdjzb set CanFreeFee=@CanFreeFee_Ts where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and ItemCode=@Zlf and CanFreeFee<>0
     end
   end
          else
            set @dFee = (@FreeFee-@CanFreeFee_Ts)*@Bl + @CanFreeFee_Ts
        end
      end
      else
        set @dFee = (@FreeFee-@CanFreeFee_Ts)*@Bl + @CanFreeFee_Ts

    end
  end
  else
  begin
    --单独日封顶
    if (@ZlfFlag ='1')
    begin
      --当天已发生的一般诊疗费
      select @ZlfAfterFreeFee=isnull(sum(aa.ZlfFee),0) from
      (select isnull(a.ZlfFee,0) as ZlfFee 
      from s_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and convert(varchar(10),a.Indate,120)=@Indate and a.mzflag='2'
      union all                        
      select isnull(a.ZlfFee,0) as ZlfFee 
      from o_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and convert(varchar(10),a.Indate,120)=@Indate and a.mzflag='2'
      union all                        
      select -isnull(a.ZlfFee,0) as ZlfFee 
      from o_cbmzbxdj a
      where a.OrgCode=@OrgCode and a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.DiagNo=@DiagNo) aa

      if @MaxFee > 0
      begin
        if (@AfterFreeFee-@ZlfAfterFreeFee)>= @MaxFee
          set @dFee=-998
        else
        begin
          if @FreeFee*@Bl + (@AfterFreeFee-@ZlfAfterFreeFee) > @MaxFee
            set @dFee = @MaxFee - (@AfterFreeFee-@ZlfAfterFreeFee)
          else
            set @dFee = @FreeFee*@Bl
        end
      end
      else
        set @dFee = @FreeFee*@Bl
    end
    else
    begin
      --纳入日封顶
      if @MaxFee > 0
      begin
        if @AfterFreeFee >= @MaxFee
          set @dFee=-998
        else
        begin
          if @FreeFee*@Bl + @AfterFreeFee > @MaxFee
            set @dFee = @MaxFee - @AfterFreeFee
          else
            set @dFee = @FreeFee*@Bl
        end
      end
      else
        set @dFee = @FreeFee*@Bl
    end
  end
end
else
begin
  --判断是否超过每日次封顶线
  if @MaxFee > 0
  begin
    if @AfterFreeFee >= @MaxFee
      set @dFee=-998
    else
    begin
      if @FreeFee*@Bl + @AfterFreeFee > @MaxFee
        set @dFee = @MaxFee - @AfterFreeFee
      else
        set @dFee = @FreeFee*@Bl
    end
  end
  else
    set @dFee = @FreeFee*@Bl
end
set @dFee=round(@dFee,@Digital)

if (@dFee>0) and (@dYearMaxFee>0)
begin
  --取当前患者全年已发生的费用
  if @YearFlag='1'
    select @dSumFreeFee=isnull(sum(c.FreeFee),0)
    from (
      select isnull(sum(FreeFee),0) as FreeFee  --已审核的
      from s_cbmzbxdj
      where CoopMedCode=@CoopMedCode and IDNo=@IDNo and mzflag='2'
      union all
      select isnull(sum(FreeFee),0) as FreeFee
      from o_cbmzbxdj
      where CoopMedCode=@CoopMedCode and IDNo=@IDNo and mzflag='2'
      union all                        
      select -isnull(sum(FreeFee),0) as FreeFee 
      from o_cbmzbxdj
      where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo) c
  else
    select @dSumFreeFee=isnull(sum(c.FreeFee),0)
    from (
      select isnull(sum(FreeFee),0) as FreeFee  --已审核的
      from s_cbmzbxdj
      where CoopMedCode=@CoopMedCode and mzflag='2'
      union all
      select isnull(sum(FreeFee),0) as FreeFee
      from o_cbmzbxdj
      where CoopMedCode=@CoopMedCode and mzflag='2'
      union all                        
      select -isnull(sum(FreeFee),0) as FreeFee 
      from o_cbmzbxdj
      where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo) c

  --一般诊疗不纳入年封顶
  if (@Zlf<>'') and (@ZlfYear ='2')
  begin
    if @YearFlag='1'
      select @ZlFreeFee=isnull(sum(aa.ZlfFee),0) from
      (select isnull(a.ZlfFee,0) as ZlfFee
      from s_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.mzflag='2'
      union all                        
      select isnull(a.ZlfFee,0) as ZlfFee
      from o_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.mzflag='2'
      union all                        
      select -isnull(a.ZlfFee,0) as ZlfFee 
      from o_cbmzbxdj a
      where a.OrgCode=@OrgCode and a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.DiagNo=@DiagNo) aa
    else
      select @ZlFreeFee=isnull(sum(aa.ZlfFee),0) from
      (select isnull(a.ZlfFee,0) as ZlfFee
      from s_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.mzflag='2'
      union all                        
      select isnull(a.ZlfFee,0) as ZlfFee
      from o_cbmzbxdj a
      where a.CoopMedCode=@CoopMedCode and a.mzflag='2'
      union all                        
      select -isnull(a.ZlfFee,0) as ZlfFee 
      from o_cbmzbxdj a
      where a.OrgCode=@OrgCode and a.CoopMedCode=@CoopMedCode and a.IDNo=@IDNo and a.DiagNo=@DiagNo) aa

    set @dSumFreeFee=@dSumFreeFee-@ZlFreeFee
    --判断普通金额是否超过年封顶
    if (@dSumFreeFee>=@dYearMaxFee)
      set @dFee=@CanFreeFee_Ts
    else
    begin
      if (@dFee-@CanFreeFee_Ts)+@dSumFreeFee>@dYearMaxFee set @dFee=@dYearMaxFee-@dSumFreeFee+@CanFreeFee_Ts
    end
  end
  else
  begin
    --一般诊疗纳入年封顶
    if (@dSumFreeFee>=@dYearMaxFee)
    begin
      set @dFee=-999
      if @CanFreeFee_Ts > 0
      begin
        set @CanFreeFee_Ts=0
        update o_cbmztcgrdjzb set CanFreeFee=@CanFreeFee_Ts where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and ItemCode=@Zlf and CanFreeFee<>0
      end
    end
    else
    begin
      if @dFee+@dSumFreeFee>@dYearMaxFee
      begin
        set @dFee=@dYearMaxFee-@dSumFreeFee
 if @dFee < @CanFreeFee_Ts
 begin
          set @CanFreeFee_Ts = @dFee
       update o_cbmztcgrdjzb set CanFreeFee=@CanFreeFee_Ts where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode and IDNo=@IDNo and DiagNo=@DiagNo and ItemCode=@Zlf and CanFreeFee<>0
 end
      end
    end
  end
end

set @dFreeFee=@dFee
if @dFreeFee<0 set  @dFreeFee=0

--更新o_CbMzBxDj
if @Type = '1'
  update o_CbMzBxDj set TotalFee=@TotalFee,CanFreeFee=@FreeFee,FreeFee=@dFreeFee,ZlfFee=@CanFreeFee_Ts 
    where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode  and IDNo=@IDNo and DiagNo=@DiagNo
else if @Type = '2'
  update o_CbMzBxDj set CheckOneFee=@dFreeFee 
    where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode  and IDNo=@IDNo and DiagNo=@DiagNo
else if @Type = '3'
  update o_CbMzBxDj set CheckFee=@dFreeFee 
    where OrgCode=@OrgCode and CoopMedCode=@CoopMedCode  and IDNo=@IDNo and DiagNo=@DiagNo