prompt 1.026.获取发药等待人数 SF_PY_GETDDRS 
create or replace function SF_PY_GETDDRS
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- linshu      2021.12.28  create 获取发药等待人数;
-- ---------   ----------  -------------------------------------------
(
  PYFBMBH  in     number               ,          --发药药房
  PFYDLXH  in     number               ,          --队列序号
  PFYCKBH  in     number                          --发药窗口编号  
)
return number is 
  VDDRS00  YF_CFDL00.DDRS00%type;
begin
	
  begin
    select to_char(count(distinct FYDLXH)) into VDDRS00 from YF_CFDL00 where YFBMBH=PYFBMBH and PHRQ00=to_char(sysdate,'yyyymmdd')
       and ZT0000 in ('0','1') and FYDLXH<PFYDLXH and FYCKBH=PFYCKBH;  
  exception
    when others then
      VDDRS00 := 0;
  end;     
  return VDDRS00;
end; 
/
show error;
--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
prompt   摆药机处方推送接口返回处理    SP_SF_BYJJK0_JKFHCL
create or replace procedure SP_SF_BYJJK0_JKFHCL
(
  PCJLYBM   in    varchar2,              --厂家来源编码, AL:艾隆 QT: 全拓
  PJKCJBM   in    varchar2,              --接口场景编码, 01:处方推送
  PCZY000   in    varchar2,              --操作员
  PCZYXM0   in    varchar2,              --操作员姓名
  PBRID00   in    number,                --病人ID=BM_BRXXB0.BRID00
  PJZDH00   in    number,                --结账单号=ZY_JZB000.JZDH00
  PYFBMBH   in    varchar2,              --药房部门编号
  PCFLSH0   in    varchar2,              --处方流水号, 多个用逗号隔开
  PFYCKBH   in    number,                --发药窗口编号
  PFYDLXH   in    number,                --发药队列序号
  PINTSTR   in    varchar2  default '',  --摆药机接口返回处理
  PCOMMIT   in    varchar2  default 'Y', --是否提交, Y提交N不提交, 默认Y
  Pzxcgbz   out   number               , --执行成功标志 1成功 0失败
  Ptsxx00   out   varchar2             , --执行结果提示信息，成功的情况下也可能有警告信息
  Pxxxx00   out   varchar2               --执行结果详细信息，成功的情况下也可能有警告信息，一般用来显示参数等指标
)
-- Person      Date         Comments
-- linzetao    2021.11.12   create by    摆药机处方推送接口返回处理       	MZSF9-20211112-003
-- linshu      2021.12.28   modify by    增加了YF_CFDL00.DDRS00重新获取;
as
  Ecustom       exception;
  LS_JKFHCLFS   BM_TYZD00.MC0000%type;     --接口返回处理方式
  LS_CFLSH0     YF_CFDL00.CFLSH0%type;     --处方流水号
  LS_PYCKBH     YF_CFDL00.PYCKBH%type;     --配药窗口编号, 发药窗口对应的配药窗口编号
  i             number(5);                 --计数
  vDDRS00       number(5); 
begin
	
	Pzxcgbz := 0;
	
	--接口返回处理方式, 1前端处理2过程处理, 默认1
	LS_JKFHCLFS := nvl(SF_XT_TYZDMC('取药队列字典','DSFBYJK_JKFHCLFS'),'1');
	if LS_JKFHCLFS not in ('0','2') then
	  --不处理或非过程处理, 则直接返回成功
	  Pzxcgbz := 1;
	  return;
	end if;
	
	if PJKCJBM in ('01') then    --处方推送返回处理
  	if PBRID00 is null then
	    Ptsxx00 := '传入的病人id是空值';
	    raise Ecustom;
    end if;
	
	  if PCFLSH0 is null then
	    Ptsxx00 := '传入的处方流水号是空值';
	    raise Ecustom;
	  end if;
	
  	if PFYCKBH is null then
	    Ptsxx00 := '传入的发药窗口编号是空值';
	    raise Ecustom;
	  end if;
	
	  --获取发药窗口编号对应的配药窗口编号
	  begin
	    select nvl(DCKBH0,0) into LS_PYCKBH from BM_CKDY00 where SCKBH0=PFYCKBH and rownum=1;
	  exception
	    when others then
	      LS_PYCKBH := 0;
    end;
  
	  if PCJLYBM in ('AL','QT') then
      i := 0;
      loop
        i := i+1;
        LS_CFLSH0 := SF_XT_RETURNINDEXEH(PCFLSH0,',',i);
      
        --处方处理结束, 退出循环
        if LS_CFLSH0 is null then
          exit;
        end if;
        
        select SF_PY_GETDDRS(YFBMBH,nvl(PFYDLXH,FYDLXH),PFYCKBH) into vDDRS00 from YF_CFDL00 where CFLSH0 = LS_CFLSH0 and BRID00=PBRID00; 
      
        --更新处方队列
        update YF_CFDL00
             set ZT0000=decode(ZT0000,'a','0',ZT0000),
                 FYCKBH=PFYCKBH,
                 PYCKBH=decode(LS_PYCKBH,0,PYCKBH,LS_PYCKBH),
                 FYDLXH=nvl(PFYDLXH,FYDLXH),
                 DDRS00=vDDRS00    --SF_PY_GETDDRS(YFBMBH,nvl(PFYDLXH,FYDLXH),PFYCKBH) 
           where BRID00=PBRID00 and CFLSH0=LS_CFLSH0 and (PYFBMBH is null or YFBMBH=PYFBMBH);
         
      end loop;
    end if;
  end if;
  
  if PCOMMIT <> 'N' then
    commit;
  end if;
  
	Pzxcgbz := 1;
	
exception
  when Ecustom then
    Pxxxx00 := substr(SQLERRM||Ptsxx00||'执行存储过程错误:SP_SF_BYJJK0_JKFHCL',1,150);
    rollback;
  when others then
    Ptsxx00 := '出错原因未知！请记录此信息并和系统管理员联系！';
    Pxxxx00 := substr(SQLERRM||'执行存储过程错误:SP_SF_BYJJK0_JKFHCL',1,150);
    rollback;
end;
/
show error;
--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%