prompt 获取病案首页诊断类别信息  SF_ZY_GETBASYZDLBXX
create or replace function SF_ZY_GETBASYZDLBXX
(
  Pbke301  varchar2,       --诊断或症状类型, 01门诊 02入院 03出院 04病理诊断
  Pbke302  varchar2,       --诊断或症状次序, 01主要、主病 02次要、主症、其它 03第三等
  Pbkz564  varchar2,       --诊断分类, 1中医 2西医
  Pfhlx00  varchar2        --返回类型, 1诊断类别 2主诊断标志
)
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- linzetao    2021.11.26  created  获取病案首页诊断类别信息     ZYSF9-20211103-003
return varchar2 is
  LS_RESULT  varchar2(10);
begin
	
	if Pfhlx00 = '1' then
	  LS_RESULT := '2';
	  if Pbkz564 = '2' then
	    if Pbke301 = '03' and Pbke302 = '01' then
	      LS_RESULT := '1';
	    else
	      LS_RESULT := '1';
	    end if;
	  elsif Pbkz564 = '1' then
	    if Pbke302 = '01' then
	      LS_RESULT := '2';
	    else
	      LS_RESULT := '2';
	    end if;
	  end if;
	elsif Pfhlx00 = '2' then
	  LS_RESULT := '0';
  	if Pbke301 = '03' and Pbke302 = '01' and Pbkz564 = '2' then
  	  LS_RESULT := '1';
  	else
  	  LS_RESULT := '0';
  	end if;
	else
	  LS_RESULT := '';
	end if;
	
  return trim(LS_RESULT);
end;
/
show error;