create or replace function SF_XT_PAY_TKYXQR
(
 PMZZYBZ    varchar2  ,--门诊住院标识 0:门诊 1:住院
 PCJBM00    varchar2  ,--支付厂家编码
 PZFFS00    number    ,--支付方式 8:银行卡 24:微信 25:支付宝 28:平台支付
 PXMLSTR    varchar2  ,--XML字符
 PFHLX00    varchar2   --返回类型 0:开始日期 1:结束日期 2:格式:开始日期|结束日期 
)
-- MODIFICATION HISTORY
-- Person      Date        Comments
--zhangyc      2024.08.15  create  支付微信、支付宝退款有效日期 by  MZSF9-20240815-001
-- ---------   ----------  -------
return  varchar2 is
  LS_FHXX00     varchar2(100);              --返回信息
  LS_KSRQ00     char(8);                    --开始日期
  LS_JSRQ00     char(8);                    --结束日期
  LS_TYZDCS     varchar2(100);              --通用字典参数
  LS_TKYXTS     number(5);                  --退款有效天数
begin
  LS_KSRQ00:=to_char(sysdate,'YYYYMMDD');--开始日期
  LS_JSRQ00:=to_char(sysdate,'YYYYMMDD');--结束日期
  LS_TKYXTS:=0;--退款有效天数
  if PZFFS00=8 then --银行卡退款有效天数 
    if PMZZYBZ='0' then  
      LS_TYZDCS:=substrb(trim(SF_SF_TYZD00('支付统一平台参数','YHPOS_MZ')),1,100);
    else
        LS_TYZDCS:=substrb(trim(SF_SF_TYZD00('支付统一平台参数','YHPOS_ZY')),1,100);
    end if;
    LS_TKYXTS:=SF_SF_STRTONUM(substrb(SF_SF_RETURNINDEXEH(LS_TYZDCS,',', 2),1,5));
  elsif PZFFS00=24 then
    LS_TYZDCS:=substrb(trim(SF_SF_TYZD00('支付统一平台参数','TKYXTS')),1,5);
    LS_TKYXTS:=SF_SF_STRTONUM(LS_TYZDCS);
  elsif PZFFS00=25 then 
    LS_TYZDCS:=substrb(trim(SF_SF_TYZD00('支付统一平台参数','ZFBTKYXTS')),1,5);
    LS_TKYXTS:=SF_SF_STRTONUM(LS_TYZDCS); 
  elsif PZFFS00=28 then 
    LS_TYZDCS:=substrb(trim(SF_SF_TYZD00('支付统一平台参数','POSTKCS')),1,100);
    LS_TKYXTS:=SF_SF_STRTONUM(substrb(SF_SF_RETURNINDEXEH(LS_TYZDCS,',', 2),1,5));--银行卡退款有效天数      
  end if;  
  LS_KSRQ00:=to_char(sysdate-LS_TKYXTS,'YYYYMMDD');--开始日期
  LS_JSRQ00:=to_char(sysdate,'YYYYMMDD');--结束日期
  
  if PFHLX00='0' then 
    LS_FHXX00:=LS_KSRQ00;
  elsif PFHLX00='1' then 
    LS_FHXX00:=LS_JSRQ00;
  elsif PFHLX00='2' then
    LS_FHXX00:=LS_KSRQ00||'|'||LS_JSRQ00;
  else
    LS_FHXX00:=LS_KSRQ00;
  end if;
     
  return trim(LS_FHXX00);
end;
/