-- Start of DDL Script for Function SD_HOSPITAL.SF_ZS_LJ_RYZDMC_ZYDZBL
-- Generated 4-五月-2018 9:40:27 from SD_HOSPITAL@KFYY

CREATE OR REPLACE 
FUNCTION sf_zs_lj_ryzdmc_zydzbl
( 
  Pzyid00        in   number,        --住院ID
  Pzdlb00        in   char,          --诊断类别
  Pzdmbz0        in char default '0' --0取诊断名称，1取诊断码
)
-- MODIFICATION HISTORY
-- Person      Date        Comments 
-- 阮炳辉     2014.12.11   create for DZBL-20141210-007 
return  varchar2 is
  V_Return_ZDXX   varchar2(1000);     --返回诊断信息
  ls_num  number(4);
  cursor cur_ZDXX is
  select ZDMC00,ZDM000 from VW_BQ_BRZDXX where ZYID00=Pzyid00 and ZDLB00=Pzdlb00;
BEGIN
    V_Return_ZDXX:='';
    ls_num:=0;
    for zdxx in cur_ZDXX loop
       if Pzdmbz0='0' then
         if ls_num=0 then  
            V_Return_ZDXX:=zdxx.ZDMC00;
         else 
            V_Return_ZDXX:=V_Return_ZDXX||'/'||zdxx.ZDMC00;
         end if;
       else
         if ls_num=0 then  
            V_Return_ZDXX:=zdxx.ZDM000;
         else 
            V_Return_ZDXX:=V_Return_ZDXX||'/'||zdxx.ZDM000;
         end if;       
       end if;  
       ls_num:=ls_num+1;
    end loop;
   return V_Return_ZDXX;
end;
/



-- End of DDL Script for Function SD_HOSPITAL.SF_ZS_LJ_RYZDMC_ZYDZBL