create or replace function SF_SF_AAB301
(
    PBRID00 in number        ,--病人ID
    PXZQH00 in varchar2      ,--行政区号
    PAAZ500 in varchar2      --社会保障卡号 
)
return varchar2 is
LS_FHXX00 varchar2(10);  --接口返回信息
LS_KHQZ00 varchar2(1);   --卡号第一位
-- modification history
-- Person      Date        Comments
-- liwm        2020.08.03  移植玉陈的脚本 ZYSF9-20200902-001    
begin
    LS_FHXX00:='';--返回信息
    --350128:平潭 359900:省直(K)  350100:福州(A) 350300:莆田(B) 350500:泉州(C)  350200:厦门(D)  350600:漳州(E)  350800:龙岩(F)  350400: 三明(G) 350700:南平(H)  350900:宁德(J)
    if trim(PAAZ500) is not null then 
        LS_KHQZ00:=substrb(PAAZ500,1,1);
    end if;
    
  if trim(PXZQH00) is not null and length(PXZQH00)>='6' then 
    LS_FHXX00:=trim(PXZQH00);
  else
    if LS_KHQZ00='K' then 
        LS_FHXX00:='359900'; --省直
    elsif LS_KHQZ00='A' then 
      LS_FHXX00:='350100'; --福州
    elsif LS_KHQZ00='B' then 
      LS_FHXX00:='350300'; --莆田
    elsif LS_KHQZ00='C' then 
      LS_FHXX00:='350500'; --泉州
    elsif LS_KHQZ00='D' then 
      LS_FHXX00:='350200'; --厦门
    elsif LS_KHQZ00='E' then 
      LS_FHXX00:='350600'; --漳州
    elsif LS_KHQZ00='F' then 
      LS_FHXX00:='350800'; --龙岩
    elsif LS_KHQZ00='G' then 
      LS_FHXX00:='350400'; --三明
    elsif LS_KHQZ00='H' then 
      LS_FHXX00:='350700'; --南平
    elsif LS_KHQZ00='J' then 
      LS_FHXX00:='350900'; --宁德
    end if;
  end if;
   
  return LS_FHXX00;
end;