CREATE OR REPLACE 
FUNCTION sf_yf_jyfjfts(
 P_CFLSH0  in  char         --输入药品Id
 )return varchar2 is


v_Return      varchar2(180);
v_BH0000      BM_TYZD00.BH0000%type;
v_GHID00      SF_BRXXB0.GHID00%type;
v_YYGXH0      XT_XTCS00.VALUE0%type;
CNT          number(5);
C_TSXX        varchar2(180);
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- huangjy     2024.04.18  create  by YF-20240326-002
-- huangjy     2024.08.21  变更入参类型 by YF-20240821-001
-- ---------   ----------  -------------------------------------------
begin
  CNT:=0;
  C_TSXX:='';
  --select nvl(max(Trim(BH0000)),' ') into v_BH0000 from BM_TYZD00  where ZDMC00='煎药机煎药医技项目对应' and YXBZ00='1';
  begin
    select MAX(trim(GHID00)) into v_GHID00 from YF_MZCF00 where CFLSH0=P_CFLSH0;
  exception
    when others then
      v_GHID00:='';
    end;
  begin
     select count(1) into CNT from YJ_YW0000 a,YJ_YWJJ00 b where a.YJDJH0=b.YJDJH0 --and  a.YZCFID=P_CFLSH0 
     and a.MZZYBZ='0'  and a.ZYGHID=v_GHID00
       and a.XMZT00 in ('1','2') and exists (select 1 from BM_TYZD00 where ZDMC00='煎药机煎药医技项目对应' and YXBZ00='1' and BH0000=to_char(b.SFXMID) );
  exception
    when others then
      CNT:=0;
  end;
  if CNT>0 then
     C_TSXX :='您好，病人还有煎药机煎药项目需要执行！' ;
  end if;
  return C_TSXX;
end;
/