CREATE OR REPLACE FUNCTION SF_SS_ESBHIGHFEE_YND( Pid0000 varchar2, --5.0没有用 Pczy000 number, Pczyks0 number, Pyjdjh0 number, --医技单据号 Pczlx00 varchar2, --操作类型：1收费,2,3退费,4收费，5退费 Pzyghid number default 0 ) -- modification history -- Person Date Comments -- liwm 2019.05.13 Create:移植9.0代码 YJ-20190425-001 -- dsm 2020.06.15 针对5.0做修改 for YJ-20200615-001 -- dsm 2020.06.30 EVN中传VZXKS00 for ZYSF-20200630-003 -- cx 2020.07.14 Pczlx00 = '2' SFXMID一样、主条码不一样情况 增加ZTM000=YWJJ.ZTM000条件 -- dsm 2021.12.07 VSERVICE_TYPE -- dsm 2021.12.08 InpatientID取ZYGHID改成取ZYHGHH for BQ-20211224-001 -- dsm 2022.01.14 增加增加OPERDOCTOR 主刀医生姓名、OPERDOCTORDEPT for SSMZ-20220121-001 -- dsm 2022.08.03 不管是手麻还是医技的DEPTID都传YJ_YW0000.YJKSBH -- dsm 2023.06.28 泉州人民VSSXMJC:=Vitemyj.ZLXMJC; -- linshu 2023.11.03 移植到9.0; for SSMZ9-20231103-002 return clob is --Vresult0 varchar2(4000); -- Vresult varchar2(4000); Vresult0 CLOB; Vresult CLOB; Vitem VW_SS_YW0000%rowtype; --手麻系统 Vitemyj VW_YJ_YW0000%rowtype; --医技系统 Vitem1 YJ_YWJJ00%rowtype; --耗材中间表信息 Vitem2 SS_GZHCJK%rowtype; --耗材中间表信息 VPID VW_BM_BRXXB1%rowtype; VOBX VW_ss_ywmx00%rowtype; --手术明细 VMRN000 ZY_BRXXB0.MRN000%type; VGSDJH0 ZY_BRXXB0.GSDJH0%type; VRYLB00 ZY_BRXXB0.RYLB00%type; VRYSQK0 ZY_BRXXB0.RYSQK0%type; VBRRYCS ZY_BRXXB0.BRRYCS%type; --VSJRYRQ ZY_BRXXB0.SJRYRQ%type; --VRYFS00 ZY_BRXXB0.RYFS00%type; VZDM000 YS_BRZDXX.ICD900%type; VZDMC00 BQ_BRZDXX.ZDMC00%type; --YS_BRZDXX VZDRQ00 YS_BRZDXX.ZDRQ00%type; VZDLB00 YS_BRZDXX.ZZDBZ0%type; VZDYSBH YS_BRZDXX.JZYS00%type; VZDYSXM YS_BRZDXX.JZYSXM%type; VZDXXID BQ_BRZDXX.ID0000%type; VID0000 SS_YWMX00.ID0000%type; VTYDWMC BM_BRXXB0.TYDWMC%type; VCZYXM0 BM_YGBM00.ZWXM00%type; VCZYKSM BM_BMBM00.BMMC00%type; VJJID00 YJ_YWJJ00.ID0000%type; VYYQC00 xt_yyxx00.YYQC00%type; VYSZMC0 ZS_YSZ000.YSZMC0%type; VNBID00 SS_GZHCJK.NBID00%type; VDQKS00 ZY_BRXXB0.DQKS00%type; VDQKSMC BM_BMBM00.BMMC00%type; VID0001 YJ_YWJJ00.ID0000%type; VSFSL00 number(7,2); VSFJE00 number(12,2); VORC1 varchar2(20); VORC5 varchar2(20); VPV2 varchar2(20); --2患者类别(默认I) VExamine varchar2(100); --场景 vcount0 number; VBRXB00 varchar(4); ----------填集成平台参数变量 VMKName varchar2(30); --模块名 VSSYJDJH varchar2(50); --业务流水号 手术为SSDH00，医技为YJDJH0 Vmzzybz varchar2(10); --门诊住院标志 0 门诊 1 住院 Vzyghid varchar2(12); --ZYID00或者GHID00 Vyszid0 SS_YW0000.YSZID0%type; --医生组ID Vbrid00 BM_BRXXB0.BRID00%type; --病人ID Vywks00 BM_BMBM00.BMBH00%type; --业务科室 Vzyhghh SF_BRXXB0.GHH000%type; --zyhghh Vrycwh0 VW_ZY_BRXXB0.RYCWH0%type; -- Vywbq00 BM_BMBM00.BMBH00%type; --业务病区 Vywys00 YJ_YW0000.KDYS00%type; --业务医生 Vywysxm VW_YJ_YW0000.KDYSXM%type; Vsxys00 VW_SS_YW0000.SXYS00%type; --输血医生 Vsxysxm VW_SS_YW0000.SXYSXM%type; --输血医生姓名 Vzxks00 BM_BMBM00.BMBH00%type; --手麻是ssks 医技是 zxks Vsqrq00 SS_YW0000.SQRQ00%type; Vsqsj00 SS_YW0000.SQSJ00%type; Vssyjxh YJ_YWMX00.ID0000%type; --手麻SS_YW0000.SSBH00，医技YJ_YW0000.ID0000 Vxmzt00 YJ_YW0000.XMZT00%type; Vxmmc00 varchar2(100); LS_SSDH00 SS_YW0000.SSDH00%TYPE; LS_SL0000 YJ_YW0000.SL0000%type; VYJDJH0 YJ_YW0000.YJDJH0%type; VRYRQ00 varchar2(20); VCM3000 varchar2(50); VSSXMJC varchar2(200); VSSYS00 varchar2(20); VSSYSXM varchar2(100); VSSQSRQ varchar2(20); VSSDH00 SS_YW0000.SSDH00%type; VBRCSRQ varchar2(20); VSERVICE_TYPE varchar2(50); VZLXMID YJ_YW0000.ZLXMID%type; VZLXMJC YJ_YW0000.ZLXMJC%type; Vczlx00 varchar2(5); VJJJE00 YJ_YWJJ00.JJJE00%type; VMXID00 ZY_FYMX00.MXID00%type; VDJID00 ZY_FYMX00.DJID00%type; --VZDYSXM SS_YW0000.SSYSXM%type; VZDYSKS BM_BMBM00.BMBH00%type; ls_FYJDJH YJ_YW0000.YJDJH0%type; VAGE000 varchar2(10); VSSMC00 SS_YW0000.SSDJMC%type; VSSSJ00 varchar2(20); begin --select * into Vitem1 from SS_GZHCJK where NBID00=Pid0000; Vczlx00:=Pczlx00; if Pczlx00 in('2','5') then --退 select CXDJH0,ZLXMID,ZLXMJC,BRID00,ZYHGHH into VYJDJH0,VZLXMID,VZLXMJC,vBRID00,Vzyhghh from YJ_YW0000 where YJDJH0=pyjdjh0; /* if vZLXMID=0 and VZLXMJC='病区普通费用退费' then select ID0000,MXID00 into vID0000,VMXID00 from YJ_YWJJ00 where YJDJH0=pyjdjh0; select DJID00 into VDJID00 from ZY_FYMX00 where MXID00=VMXID00; select a.ZYID00,b.DQKS00,b.DQBQ00 ZXKS00,NBID00 into vzyghid,Vywks00,Vzxks00,vNBID00 from BQ_JZXM00 a,ZY_BRXXB0 b where ID0000=VDJID00 and a.ZYID00=b.ZYID00 and rownum=1; select * into Vitem2 from SS_GZHCJK where NBID00=vNBID00 and rownum=1 and XZBZ00='1'; VMZZYBZ:='1'; Vczlx00:='5'; else*/ select * into Vitem2 from SS_GZHCJK where YJDJH0=VYJDJH0 and rownum=1; --and XZBZ00='1'; -- end if; elsif Pczlx00='1' then --收 select * into Vitem2 from SS_GZHCJK where YJDJH0=pyjdjh0 and rownum=1; -- and XZBZ00='1'; /* elsif Pczlx00='4' then --病区收 select a.ZYID00,b.DQKS00,b.DQBQ00,NBID00,a.ZYH000 into vzyghid,Vywks00,Vzxks00,vNBID00,Vzyhghh from BQ_JZXM00 a,ZY_BRXXB0 b where a.ZYID00=Pzyghid and JZCZID=pyjdjh0 and nvl(NBID00,0)>0 and a.ZYID00=b.ZYID00 and rownum=1; select * into Vitem2 from SS_GZHCJK where NBID00=vNBID00 and rownum=1 and XZBZ00='1'; select BRID00 into Vbrid00 from ZY_BRXXB0 where ZYID00=Pzyghid; VMZZYBZ:='1';*/ end if; VSSDH00:=Vitem2.SSDH00; --一些变量的填充 --场景名填充 if Vitem2.LYXT00 = '0' then --手麻 select * into Vitem from VW_SS_YW0000 where SSDH00 = Vitem2.ssdh00; elsif Vitem2.LYXT00 = '1' then --医技 select * into Vitemyj from VW_YJ_YW0000 where YJDJH0 = Vitem2.YJDJH0; end if; if Vitem2.LYXT00 ='0' then --手麻 VMKName := '手术麻醉'; VSSYJDJH := Vitem.SSDH00; Vmzzybz := Vitem.MZZYBZ; Vzyghid := Vitem.ZYGHID; Vyszid0 := Vitem.YSZID0; Vbrid00 := Vitem.BRID00; Vywks00 := Vitem.SQKS00; Vzyhghh := Vitem.ZYHGHH; Vrycwh0 := Vitem.RYCWH0; Vywbq00 := Vitem.SQBQ00; Vywys00 := Vitem.SQYS00; Vywysxm := Vitem.SQYSXM; Vsxys00 := Vitem.SXYS00; Vsxysxm := Vitem.SXYSXM; Vzxks00 := Vitem.SSKS00; Vsqrq00 := Vitem.SQRQ00; Vsqsj00 := Vitem.SQSJ00; Vxmzt00 := Vitem.SSZT00; Vxmmc00 := Vitem.SSMC00; VZDYSXM := Vitem.SSYSXM; VAGE000 := Vitem.NL0000; VSSMC00 := Vitem.SSDJMC; VSSSJ00 := Vitem.SSRQSJ; if VSSSJ00 = '-- ' then VSSSJ00 := null; end if; begin select a.BMBH00 into VZDYSKS from BM_YGBM00 a,BM_BMBM00 b where a.YGBH00=vitem.SSYS00 and a.BMBH00=b.BMBH00; exception when others then VZDYSKS:=''; end; select YJKSBH into Vzxks00 from YJ_YW0000 where YJDJH0=Pyjdjh0; elsif Vitem2.LYXT00 ='1' then --医技 VMKName := '医技'; VSSYJDJH := Vitemyj.YJDJH0; Vmzzybz := Vitemyj.MZZYBZ; Vzyghid := Vitemyj.ZYGHID; Vyszid0 := Vitemyj.YSZID0; Vbrid00 := Vitemyj.BRID00; Vywks00 := Vitemyj.KDKSBH; Vzyhghh := Vitemyj.ZYHGHH; Vrycwh0 := Vitemyj.RYCWH0; Vywbq00 := Vitemyj.KDBQ00; Vywys00 := Vitemyj.KDYS00; Vywysxm := Vitemyj.KDYSXM; Vzxks00 := Vitemyj.YJKSBH; Vsqrq00 := Vitemyj.KDRQ00; Vsqsj00 := Vitemyj.KDSJ00; Vxmzt00 := Vitemyj.XMZT00; Vxmmc00 := Vitemyj.ZLXMJC; VZDYSXM := Vitemyj.KDYSXM; VZDYSKS := Vitemyj.KDKSBH; end if; --VJJID00 := Vitem1.JJID00; select max(YYQC00) into VYYQC00 from xt_yyxx00 where YYID00=(select YYID00 from BM_BMBM00 where BMBH00=Vywks00); select * into VPID From VW_BM_BRXXB1 where BRID00=Vbrid00; VTYDWMC := VPID.TYDWMC; begin VBRCSRQ:=to_char(to_date(VPID.BRCSRQ,'YYYYMMDD'),'YYYY-MM-DD'); exception when others then VBRCSRQ:=''; end; if instr(VTYDWMC,chr(9))>0 then VTYDWMC:=''; end if; if VPID.BRXB00='女' then VBRXB00:='2'; elsif VPID.BRXB00='男' then VBRXB00:='1'; else VBRXB00:='9'; end if; if Vmzzybz = '1' then --住院处理 select MRN000,GSDJH0,RYLB00,RYSQK0,BRRYCS,ZZYS00,ZZYSXM,DQKS00,RYRQ00 into VMRN000,VGSDJH0,VRYLB00,VRYSQK0,VBRRYCS,VZDYSBH,VZDYSXM,VDQKS00,VRYRQ00 from zy_brxxb0 where ZYID00=Vzyghid; select max(ID0000) into VZDXXID from (select a.* From BQ_BRZDXX a where ZYID00=Vzyghid order by decode(ZDLB00,'3','0','4','1','2','2','1','3',ZDLB00)) a where rownum=1; if VZDXXID is not null then select trim(ZDM000),trim(ZDMC00),ZDRQ00,ZDLB00 into VZDM000,VZDMC00,VZDRQ00,VZDLB00 from BQ_BRZDXX where ID0000=VZDXXID; end if; --VPV2 := 'I'; VPV2 := '3'; select max(YSZMC0) into VYSZMC0 from ZS_YSZ000 where YSZID0=Vyszid0 and rownum=1; else select max(ZDXXID) into VZDXXID from (select a.* From YS_BRZDXX a where GHH000=Vzyhghh order by decode(ZZDBZ0,'3','0','4','1','1','2','2','3',ZZDBZ0)) a where rownum=1; if VZDXXID is not null then select trim(ICD900),trim(ZDMC00),ZDRQ00,ZZDBZ0,JZYS00,JZYSXM into VZDM000,VZDMC00,VZDRQ00,VZDLB00,VZDYSBH,VZDYSXM from YS_BRZDXX where ZDXXID=VZDXXID; end if; --VPV2 := 'O'; VPV2 := '1'; --判断是否属于急诊病人 --select count(1),max(a.GHKS00) into vcount0,VDQKS00 from sf_brxxb0 a,bm_bmbm00 b where a.GHH000=Vzyhghh and a.ghks00=b.bmbh00 and b.bmmc00 like '%急诊%' and rownum=1; select decode(sign(instr(b.bmmc00,'急诊')),1,1,0),max(a.GHKS00) into vcount0,VDQKS00 from sf_brxxb0 a,bm_bmbm00 b where a.GHH000=Vzyhghh and a.ghks00=b.bmbh00 and rownum=1; if vcount0=1 then VPV2 := '2'; end if; end if; select max(BMMC00) into VDQKSMC from bm_bmbm00 where bmbh00=VDQKS00; if Vitem2.LYXT00 ='2' then --手麻 select SSDH00 into LS_SSDH00 from ss_ssyjd0 where (YJDJH0=VYJDJH0 or YJDJH0=PYJDJH0) and rownum=1; select max(ID0000) into VID0000 from (select a.* From SS_YWMX00 a where SSDH00=LS_SSDH00 order by SFZSS0,ID0000) a where rownum=1; select * into VOBX From VW_SS_YWMX00 where ID0000=VID0000; Vssyjxh := VOBX.SSBH00; elsif Vitem2.LYXT00='1' then --医技系统 select max(ID0000) into Vssyjxh From YJ_YWMX00 a where YJDJH0=Pyjdjh0; /* elsif Vitem2.LYXT00 in('3') then --病区系统 select max(ID0000) into Vssyjxh from BQ_JZXM00 where ZYID00=PZYGHID and JZCZID=Pyjdjh0;*/ end if; select max(ZWXM00) into VCZYXM0 from bm_ygbm00 where YGBH00=Pczy000; select max(BMMC00) into VCZYKSM from bm_bmbm00 where BMBH00=Vzxks00;--BMBH00=Pczyks0; begin select CM3000,SSXMJC into VCM3000,VSSXMJC from SS_YWMX00 where SSDH00=VSSDH00 and SFZSS0='1' and rownum=1; select SSYS00,SSYSXM,SSQSRQ into VSSYS00,VSSYSXM,VSSQSRQ from SS_YW0000 where SSDH00=VSSDH00; exception when others then VCM3000:=''; VSSXMJC:=''; end; if Vitem2.LYXT00 ='1' then --医技 begin select FYJDJH into ls_FYJDJH from YJ_YJDJGL b where ZYJDJH=Vitemyj.YJDJH0; exception when others then ls_FYJDJH:=Vitemyj.YJDJH0; end; select ZLXMJC,KDRQ00 into VSSXMJC,VSSQSRQ from YJ_YW0000 where YJDJH0=ls_FYJDJH; end if; if Pczlx00 in('1','4') then VSERVICE_TYPE:='HRPT0001'; else VSERVICE_TYPE:='HRPT0002'; end if; Vresult:=' '; Vresult0 := '' ||''||VSERVICE_TYPE||'' ||'FJPHHIS' ||'' ||''||Pczy000||'' ||''||Vzxks00||'' ||''||to_char(sysdate,'YYYY-MM-DD HH24:MI:SS')||'' ||''||'3501'||'' ||'' ||'' ||''||Vbrid00||'' ||''||Vzyhghh||'' ||''||VMZZYBZ||'' ||''||VPID.BRXM00||'' ||''||VBRXB00||'' ||''||VDQKS00||'' ||''||to_char(to_date(VRYRQ00,'YYYYMMDD'),'YYYY-MM-DD')||'' ||''||VZDMC00||'' ||''||VBRCSRQ||'' ||''||VBRXB00||'' ||'
'||VPID.BRGJ00||'
' ||'sfz' ||''||VPID.BRZJBH||'' ||''||VPID.BRDH00||'' ||''||''||'' ||''||''||'' ||''||VCM3000||'' ||''||VSSXMJC||'' ||''||VSSYS00||'' ||''||VSSYSXM||'' ||''||''||'' ||''||''||'' ||''||Vywks00||'' ||''||Vywys00||'' ||''||Vzxks00||'' ||''||PCZY000||'' ||''||VSSQSRQ||'' ||''||VYSZID0||'' ||''||VZDYSXM||'' ||''||VZDYSKS||'' ||''||VAGE000||'' ||''||VSSMC00||'' ||''||VSSSJ00||'' ||'' ; if nvl(Pyjdjh0,0)>0 then if Vczlx00 = '2' then --传新单 退费 select CXDJH0 into VYJDJH0 from YJ_YW0000 where YJDJH0=Pyjdjh0 ; for YWJJ in ( select b.ID0000,c.ID0000 as CXID00,c.SFXMID,c.GZJLH0,b.ZTM000 from YJ_YWJJ00 b,YJ_YWJJ00 c where b.yjdjh0=Pyjdjh0 --and c.GZJLH0=b.GZJLH0 and b.SFXMID=c.SFXMID --and c.ZTM000 is not null and c.YJDJH0=VYJDJH0 --and b.CXBZ00='+' and exists(select 1 from SS_GZHCJK where YJDJH0=c.YJDJH0 and CKRQ00 is not null and SFXMBH=b.SFXMID and CXBZ00='Z') order by b.ID0000 ) loop select sum(SL0000) into LS_SL0000 from SS_GZHCJK where YJDJH0=VYJDJH0 and SFXMBH=YWJJ.SFXMID and JJID00 = YWJJ.CXID00 and CKRQ00 is not null; if LS_SL0000>0 then select nvl(round(SL0000*SFCS00,2),0),nvl(round(SL0000*SFCS00*JJJE00,2),0) into VSFSL00,VSFJE00 from YJ_YWJJ00 where ID0000=YWJJ.ID0000; select * into Vitem1 from YJ_YWJJ00 where ID0000=YWJJ.ID0000; select * into Vitem2 from SS_GZHCJK where YJDJH0=VYJDJH0 and SFXMBH=YWJJ.SFXMID and JJID00 = YWJJ.CXID00 and rownum=1; --and XZBZ00='1' Vresult := Vresult|| '' ||''||Vitem1.id0000||'' ||''||to_char(sysdate,'YYYY-MM-DD HH24:MI:SS')||'' ||''||Vitem2.ZTM000||'' ||''||Vitem2.CTM000||'' ||'' ||''||Vitem1.SFXMID||'' ||''||VSFJE00||'' ||''||Vitem1.JJJE00||'' ||''||VSFSL00||'' ||''||Vitem2.GHDWID||'' ||''||''||'' ||''||Vitem2.SXRQ00||'' ||''; end if; end loop; elsif Vczlx00 = '3' then --传原单 select nvl(max(YJDJH0),0) into VYJDJH0 from YJ_YW0000 where CXDJH0=Pyjdjh0 and XMZT00 in('2','3') ; for YWJJ in ( select b.ID0000,c.ID0000 as CXID00,c.SFXMID,c.GZJLH0 from YJ_YWJJ00 b,YJ_YWJJ00 c where b.yjdjh0=VYJDJH0 and c.GZJLH0=b.GZJLH0 and b.SFXMID=c.SFXMID and c.ZTM000 is not null and c.YJDJH0=VYJDJH0 --and b.CXBZ00='+' and exists(select 1 from SS_GZHCJK where YJDJH0=c.YJDJH0 and CKRQ00 is not null and SFXMBH=b.SFXMID and CXBZ00='Z') order by b.ID0000 ) loop select sum(SL0000) into LS_SL0000 from SS_GZHCJK where YJDJH0=Pyjdjh0 and SFXMBH=YWJJ.SFXMID and (NBID00=YWJJ.GZJLH0 or CXNBID=YWJJ.GZJLH0) and CKRQ00 is not null; if LS_SL0000>0 then select nvl(round(SL0000*SFCS00,2),0),nvl(round(SL0000*SFCS00*JJJE00,2),0) into VSFSL00,VSFJE00 from YJ_YWJJ00 where ID0000=YWJJ.ID0000; select * into Vitem1 from YJ_YWJJ00 where ID0000=YWJJ.ID0000; select * into Vitem2 from SS_GZHCJK where YJDJH0=Pyjdjh0 and SFXMBH=YWJJ.SFXMID and rownum=1; --and XZBZ00='1' Vresult := Vresult|| '' ||''||Vitem1.id0000||'' ||''||to_char(sysdate,'YYYY-MM-DD HH24:MI:SS')||'' ||''||Vitem2.ZTM000||'' ||''||Vitem2.CTM000||'' ||'' ||''||Vitem1.sfxmid||'' ||''||VSFJE00||'' ||''||Vitem1.JJJE00||'' ||''||VSFSL00||'' ||''||Vitem2.GHDWID||'' ||''||''||'' ||''||Vitem2.SXRQ00||'' ||''; end if; end loop; elsif Vczlx00 = '1' then --收费 for YWJJ in (select b.ID0000,b.SFXMID,GZJLH0 from YJ_YWJJ00 b where b.yjdjh0=Pyjdjh0 and b.CXBZ00='Z' --and b.ztm000 is not null and exists(select 1 from SS_GZHCJK where YJDJH0=b.YJDJH0 and CKRQ00 is null and SFXMBH=b.SFXMID AND JJID00 = B.ID0000 ) order by b.ID0000 ) loop select nvl(round(SL0000*SFCS00,2),0),nvl(round(SL0000*SFCS00*JJJE00,2),0),id0000 into VSFSL00,VSFJE00,VID0001 from YJ_YWJJ00 where ID0000=YWJJ.ID0000 /*and ztm000 is not null*/; select * into Vitem2 from SS_GZHCJK where YJDJH0=PYJDJH0 and SFXMBH=YWJJ.SFXMID and JJID00 = YWJJ.ID0000 and rownum=1; --and XZBZ00='1' Vresult := Vresult|| '' ||''||VID0001||'' ||''||to_char(sysdate,'YYYY-MM-DD HH24:MI:SS')||'' ||''||Vitem2.ZTM000||'' ||''||Vitem2.CTM000||'' ||'' ||''||Vitem2.SFXMBH||'' ||''||VSFJE00||'' ||''||VSFJE00||'' ||''||VSFSL00||'' ||''||Vitem2.GHDWID||'' ||''||''||'' ||''||Vitem2.SXRQ00||'' ||''; end loop; end if; else for YWJJ in (select b.ID0000,b.SFXMID,GZJLH0 from YJ_YWJJ00 b where b.yjdjh0=Pyjdjh0 and b.CXBZ00='Z' and b.ztm000 is not null and exists(select 1 from SS_GZHCJK where YJDJH0=b.YJDJH0 and CKRQ00 is null and SFXMBH=b.SFXMID and NBID00=b.GZJLH0) order by b.ID0000 ) loop select nvl(round(SL0000*SFCS00,2),0),nvl(round(SL0000*SFCS00*JJJE00,2),0),ID0000 into VSFSL00,VSFJE00,VID0001 from YJ_YWJJ00 where ID0000=YWJJ.ID0000; select * into Vitem2 from SS_GZHCJK where YJDJH0=PYJDJH0 and SFXMBH=YWJJ.SFXMID and NBID00=YWJJ.GZJLH0 and rownum=1; --and XZBZ00='1' Vresult := Vresult|| '' ||''||VID0001||'' ||''||to_char(sysdate,'YYYY-MM-DD HH24:MI:SS')||'' ||''||Vitem2.ZTM000||'' ||''||Vitem2.CTM000||'' ||'' ||''||Vitem2.SFXMBH||'' ||''||VSFJE00||'' ||''||VSFJE00||'' ||''||VSFSL00||'' ||''||Vitem2.GHDWID||'' ||''||''||'' ||''||Vitem2.SXRQ00||'' ||'' ; end loop; end if; if Vresult=' ' then return ''; else Vresult := Vresult0 ||'' ||Vresult ||'' ||'' ; return Vresult; end if; end;