-- Start of DDL script for SF_BQ_JYXMMC
-- Generated 18-十一月-15  2:51:43 pm
-- from fw2-SD_HOSPITAL:1

-- Function SF_BQ_JYXMMC

CREATE OR REPLACE
FUNCTION sf_bq_jyxmmc (PTXM000 IN VARCHAR2)
return varchar2 is
  Vxmmc00 varchar2(255);--项目名称
  cursor C_xmmc00 is select distinct ZLXMJC from yj_yw0000 a where a.txm000=PTXM000 and a.sfdjh0<>0 and
  NOT EXISTS (SELECT 1 FROM YJ_YW0000 b WHERE a.YJDJH0=b.CXDJH0 AND B.ZYGHID=a.ZYGHID) and a.cxdjh0 is null;
  --2007-08-06 qks C_xmmc00中增加distinct
begin
  for xm in C_xmmc00 loop
          if Vxmmc00 is null then
         Vxmmc00:=trim(xm.ZLXMJC);
      else
         Vxmmc00:=Vxmmc00||'+'||trim(xm.ZLXMJC);
      end if;
  end loop;
  return Vxmmc00;
end;
/

-- End of DDL script for SF_BQ_JYXMMC