CREATE OR REPLACE PROCEDURE SP_ZY_BASYFS_YBJK00 ( PZYID00 in number,--住院ID PCZY000 in number, PJZDH00 in number default 0, PID0000 OUT number ) as -- MODIFICATION HISTORY -- Person Date Comments --zhangyc 2015.07.28 create by ZYSF-20150615-001 --zhangyc 2015.11.04 增加pFHLX00=2,3,4 返回RYKSBM,CYKSBM,住院天数 by ZYSF-20151103-002 ---------- ------------ ---------------------------- Vreturn number(12); VID0000 number(12); VZDBM00 varchar2(20); VVALUE0 varchar2(100); VBRXM00 varchar2(50); VYBZYH0 varchar2(30); VYBKH00 varchar2(30); VYBID00 varchar2(30); VCZRQ00 char(8); VCZSJ00 char(8); VZYTS00 number(10); VSSBH01 Varchar2(10); --手术及操作编号 VSSMC01 Varchar2(50); --手术及操作名称 VSSRQ01 Varchar2(8); --手术及操作日期 VSSJB01 Varchar2(10); --手术级别 VMZFS01 Varchar2(2); --麻醉方式 VMZYS01 Varchar2(20); --麻醉医师 VSSBH02 Varchar2(10); VSSMC02 Varchar2(50); VSSRQ02 Varchar2(8); VSSJB02 Varchar2(10); VMZFS02 Varchar2(2); VMZYS02 Varchar2(20); VSSBH03 Varchar2(10); VSSMC03 Varchar2(50); VSSRQ03 Varchar2(8); VSSJB03 Varchar2(10); VMZFS03 Varchar2(2); VMZYS03 Varchar2(20); VSSBH04 Varchar2(10); VSSMC04 Varchar2(50); VSSRQ04 Varchar2(8); VSSJB04 Varchar2(10); VMZFS04 Varchar2(2); VMZYS04 Varchar2(20); VSSBH05 Varchar2(10); VSSMC05 Varchar2(50); VSSRQ05 Varchar2(8); VSSJB05 Varchar2(10); VMZFS05 Varchar2(2); VMZYS05 Varchar2(20); VSSBH06 Varchar2(10); VSSMC06 Varchar2(50); VSSRQ06 Varchar2(8); VSSJB06 Varchar2(10); VMZFS06 Varchar2(2); VMZYS06 Varchar2(20); VSSBH07 Varchar2(10); VSSMC07 Varchar2(50); VSSRQ07 Varchar2(8); VSSJB07 Varchar2(10); VMZFS07 Varchar2(2); VMZYS07 Varchar2(20); VSSBH08 Varchar2(10); VSSMC08 Varchar2(50); VSSRQ08 Varchar2(8); VSSJB08 Varchar2(10); VMZFS08 Varchar2(2); VMZYS08 Varchar2(20); vMzzd00 Varchar2(10); vMzzdmc Varchar2(50); vRYZD00 Varchar2(10); vRYZDMC Varchar2(50); vRYZDQK Varchar2(10); vBARYBQ Varchar2(10); VCYZD00 Varchar2(10); VZDMC00 Varchar2(50); VCYQK00 Varchar2(10); VQYQK00 Varchar2(10); VCYZD01 Varchar2(10); VZDMC01 Varchar2(50); VRYBQ01 Varchar2(10); VCYQK01 Varchar2(10); VCYZD02 Varchar2(10); VZDMC02 Varchar2(50); VRYBQ02 Varchar2(10); VCYQK02 Varchar2(10); VCYZD03 Varchar2(10); VZDMC03 Varchar2(50); VRYBQ03 Varchar2(10); VCYQK03 Varchar2(10); VCYZD04 Varchar2(10); VZDMC04 Varchar2(50); VRYBQ04 Varchar2(10); VCYQK04 Varchar2(10); VCYZD05 Varchar2(10); VZDMC05 Varchar2(50); VRYBQ05 Varchar2(10); VCYQK05 Varchar2(10); VCYZD06 Varchar2(10); VZDMC06 Varchar2(50); VRYBQ06 Varchar2(10); VCYQK06 Varchar2(10); VCYZD07 Varchar2(10); VZDMC07 Varchar2(50); VRYBQ07 Varchar2(10); VCYQK07 Varchar2(10); VCYZD08 Varchar2(10); VZDMC08 Varchar2(50); VRYBQ08 Varchar2(10); VCYQK08 Varchar2(10); VCYZD09 Varchar2(10); VZDMC09 Varchar2(50); VRYBQ09 Varchar2(10); VCYQK09 Varchar2(10); VCYZD10 Varchar2(10); VZDMC10 Varchar2(50); VRYBQ10 Varchar2(10); VCYQK10 Varchar2(10); VCYZD11 Varchar2(10); VZDMC11 Varchar2(50); VRYBQ11 Varchar2(10); VCYQK11 Varchar2(10); VCYZD12 Varchar2(10); VZDMC12 Varchar2(50); VRYBQ12 Varchar2(10); VCYQK12 Varchar2(10); VCYZD13 Varchar2(10); VZDMC13 Varchar2(50); VRYBQ13 Varchar2(10); VCYQK13 Varchar2(10); VCYZD14 Varchar2(10); VZDMC14 Varchar2(50); VRYBQ14 Varchar2(10); VCYQK14 Varchar2(10); VCYZD15 Varchar2(10); VZDMC15 Varchar2(50); VRYBQ15 Varchar2(10); VCYQK15 Varchar2(10); VFBBH00 IC_YBBRLB.FBBH00%TYPE; VYBZXLB IC_YBBRLB.YBZXLB%TYPE; VYBLB00 IC_YBBRLB.YBLB00%TYPE; VBRXB00 BM_BRXXB0.BRXB00%TYPE; vMRN000 BM_BRXXB0.MRN000%TYPE; vZYH000 ZY_BRXXB0.ZYH000%TYPE; VRZKS00 ZY_BRXXB0.RZKS00%TYPE; vRYBQ00 ZY_BRXXB0.RYBQ00%TYPE; VDQKS00 ZY_BRXXB0.DQKS00%TYPE; VDQBQ00 ZY_BRXXB0.DQBQ00%TYPE; VRYSQK0 ZY_BRXXB0.RYSQK0%TYPE; vZzysxm ZY_BRXXB0.Zzysxm%TYPE; --vRow BA_BRZYXX%rowtype; vRYTJ00 BA_BRZYXX.RYTJ00%TYPE; ZY_SFQYBASYCSJK Varchar2(100); Vount0 number(1); le_or varchar(2000); cursor BASYFS is select ZDBH00 from ZY_BASYFS where ID0000=VID0000 and ZYID00=PZYID00 order by PXXH00; cursor SSMZXX is select ssbh00,SSMC00,SSRQ00,mzbh00,MZMC00,pxxh00, (Select ZWXM00 from BM_YGBM00 FF Where FF.YGBH00=AA.YGBH00)MZYS00 from ( select ssbh00,nvl((select trim(xxms00) from bm_zlzd00 F where f.zlxmid= a.ssbh00),trim(a.ssmc00)) SSMC00,ssrq00, --mzbabh mzbh00, a.mzbh00,a.MZMC00,A.YGBH00,rownum as pxxh00 from bq_ssmzxx a,bm_mzzd00 b where Trim(substr(a.MZBH00,INSTR(';'||a.MZBH00,';',-1),4)) =b.mzbh00(+) and a.ZYID00=PZYID00 and rownum<=8 order by id0000 )AA order by pxxh00; cursor BRZDXX is select ZDM000,ZDMC00,ZLXG00,pxxh00 from ( select ZDM000,ZDMC00,ZLXG00,rownum as pxxh00 from BQ_BRZDXX where ZYID00=PZYID00 and ZDLB00 not in ('1','2') order by ZDLB00 )aa order by pxxh00 ; begin le_or:='1'; Vreturn:=0; VID0000:=0; VCZRQ00 := to_char(sysdate,'YYYYMMDD'); VCZSJ00 := to_char(sysdate,'HH24:MI:SS'); begin select trim(VALUE0) into ZY_SFQYBASYCSJK from XT_XTCS00 where name00='ZY_SFQYBASYCSJK'; exception when others then ZY_SFQYBASYCSJK:='N'; end; le_or:='2'; if upper(ZY_SFQYBASYCSJK)='M' then le_or:='3'; select trim(a.YBKH00),trim(a.YBID00),a.BRXM00,A.BRXB00,A.MRN000,B.RZKS00,B.RYBQ00,B.DQKS00, B.ZYH000,to_date(NVL(B.CYRQ00,to_char(sysdate,'YYYYMMDD')),'YYYYMMDD')-to_date(B.RYRQ00,'YYYYMMDD'), B.DQBQ00, trim(B.YBZYH0),C.FBBH00,C.YBZXLB,C.YBLB00,B.RYSQK0,b.Zzysxm into VYBKH00,VYBID00,VBRXM00,VBRXB00,vMRN000,VRZKS00,vRYBQ00,VDQKS00, vZYH000,VZYTS00, VDQBQ00,VYBZYH0,VFBBH00,VYBZXLB,VYBLB00,VRYSQK0,vZzysxm from BM_BRXXB0 A,ZY_BRXXB0 B,IC_YBBRLB C Where A.BRID00=B.BRID00 and B.FBBH00 = C.FBBH00 and B.YBLB00 = C.YBLB00 and B.ZYID00=PZYID00; begin select RYTJ00 into vRYTJ00 from BA_BRZYXX where lsh000=PZYID00 and rownum=1; exception when others then vRYTJ00:=''; end; le_or:='4'; select SQ_ZY_BASYFS_ID0000.nextval into VID0000 from dual; insert into ZY_BASYFS(ID0000,ZYID00,ZYH000,BRXM00,YBZYH0,YBKH00,YBID00,FBBH00,YBZXLB,YBLB00, CZY000,CZRQ00,CZSJ00,ZDBH00,ZDMC00,VALUE0,PXXH00,JZDH00) values(VID0000,PZYID00,vZYH000,VBRXM00,VYBZYH0,VYBKH00,VYBID00,VFBBH00,VYBZXLB,VYBLB00, PCZY000,VCZRQ00,VCZSJ00,'request','request','TRUE',0,PJZDH00); insert into ZY_BASYFS(ID0000,ZYID00,ZYH000,BRXM00,YBZYH0,YBKH00,YBID00,FBBH00,YBZXLB,YBLB00, CZY000,CZRQ00,CZSJ00,ZDBH00,ZDMC00,VALUE0,PXXH00,JZDH00) values(VID0000,PZYID00,vZYH000,VBRXM00,VYBZYH0,VYBKH00,VYBID00,VFBBH00,VYBZXLB,VYBLB00, PCZY000,VCZRQ00,VCZSJ00,'success','success','TRUE',0,PJZDH00); insert into ZY_BASYFS(ID0000,ZYID00,ZYH000,BRXM00,YBZYH0,YBKH00,YBID00,FBBH00,YBZXLB,YBLB00, CZY000,CZRQ00,CZSJ00,ZDBH00,ZDMC00,VALUE0,PXXH00,JZDH00) values(VID0000,PZYID00,vZYH000,VBRXM00,VYBZYH0,VYBKH00,VYBID00,VFBBH00,VYBZXLB,VYBLB00, PCZY000,VCZRQ00,VCZSJ00,'error','error','',0,PJZDH00); insert into ZY_BASYFS(ID0000,ZYID00,ZYH000,BRXM00,YBZYH0,YBKH00,YBID00,FBBH00,YBZXLB,YBLB00, CZY000,CZRQ00,CZSJ00,ZDBH00,ZDMC00,VALUE0,PXXH00,JZDH00) select VID0000,PZYID00,vZYH000,VBRXM00,VYBZYH0,VYBKH00,VYBID00,VFBBH00,VYBZXLB,VYBLB00, PCZY000,VCZRQ00,VCZSJ00,ZDBH00,ZDMC00,'',nvl(PXXH00,1),PJZDH00 from ZY_BASYDY order by nvl(PXXH00,1); le_or:='5'; for cur in SSMZXX loop if cur.pxxh00=1 then VSSBH01:=substr(cur.ssbh00,1,10); VSSMC01:=substr(cur.SSMC00,1,50); VSSRQ01:=substr(cur.SSRQ00,1,8); VSSJB01:=''; VMZFS01:=substr(cur.mzbh00,1,2); VMZYS01:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=2 then VSSBH02:=substr(cur.ssbh00,1,10); VSSMC02:=substr(cur.SSMC00,1,50); VSSRQ02:=substr(cur.SSRQ00,1,8); VSSJB02:=''; VMZFS02:=substr(cur.mzbh00,1,2); VMZYS02:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=3 then VSSBH03:=substr(cur.ssbh00,1,10); VSSMC03:=substr(cur.SSMC00,1,50); VSSRQ03:=substr(cur.SSRQ00,1,8); VSSJB03:=''; VMZFS03:=substr(cur.mzbh00,1,2); VMZYS03:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=4 then VSSBH04:=substr(cur.ssbh00,1,10); VSSMC04:=substr(cur.SSMC00,1,50); VSSRQ04:=substr(cur.SSRQ00,1,8); VSSJB04:=''; VMZFS04:=substr(cur.mzbh00,1,2); VMZYS04:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=5 then VSSBH05:=substr(cur.ssbh00,1,10); VSSMC05:=substr(cur.SSMC00,1,50); VSSRQ05:=substr(cur.SSRQ00,1,8); VSSJB05:=''; VMZFS05:=substr(cur.mzbh00,1,2); VMZYS05:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=6 then VSSBH06:=substr(cur.ssbh00,1,10); VSSMC06:=substr(cur.SSMC00,1,50); VSSRQ06:=substr(cur.SSRQ00,1,8); VSSJB06:=''; VMZFS06:=substr(cur.mzbh00,1,2); VMZYS06:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=7 then VSSBH07:=substr(cur.ssbh00,1,10); VSSMC07:=substr(cur.SSMC00,1,50); VSSRQ07:=substr(cur.SSRQ00,1,8); VSSJB07:=''; VMZFS07:=substr(cur.mzbh00,1,2); VMZYS07:=substr(cur.MZYS00,1,20); elsif cur.pxxh00=8 then VSSBH08:=substr(cur.ssbh00,1,10); VSSMC08:=substr(cur.SSMC00,1,50); VSSRQ08:=substr(cur.SSRQ00,1,8); VSSJB08:=''; VMZFS08:=substr(cur.mzbh00,1,2); VMZYS08:=substr(cur.MZYS00,1,20); end if; end loop; le_or:='6'; --门诊诊断 begin select ZDM000,ZDMC00 into vMzzd00,vMzzdmc from BQ_BRZDXX where ZYID00=PZYID00 and ZDLB00='1' and rownum=1; exception when others then vRYZD00:=''; vRYZDMC:=''; vRYZDQK:=''; end; --入院诊断 le_or:='7'; begin select ZDM000,ZDMC00,ZLXG00 into vRYZD00,vRYZDMC,vRYZDQK from BQ_BRZDXX where ZYID00=PZYID00 and ZDLB00='2' and rownum=1; exception when others then vRYZD00:=''; vRYZDMC:=''; vRYZDQK:=''; end; le_or:='8'; if vRYZD00 is null then vBARYBQ:='1'; else vBARYBQ:='4'; end if; --入院主要病情（新增）(1.有，2.临床未确定，3.情况不明，4.无) for cur in BRZDXX loop if cur.pxxh00=1 then VCYZD00:=cur.ZDM000; VZDMC00:=cur.ZDMC00; VCYQK00:=cur.ZLXG00; elsif cur.pxxh00=2 then VCYZD01:=cur.ZDM000; VZDMC01:=cur.ZDMC00; VCYQK01:=cur.ZLXG00; if VCYZD01 is null then VRYBQ01:='1'; else VRYBQ01:='4'; end if; elsif cur.pxxh00=3 then VCYZD02:=cur.ZDM000; VZDMC02:=cur.ZDMC00; VCYQK02:=cur.ZLXG00; if VCYZD02 is null then VRYBQ02:='1'; else VRYBQ02:='4'; end if; elsif cur.pxxh00=4 then VCYZD03:=cur.ZDM000; VZDMC03:=cur.ZDMC00; VCYQK03:=cur.ZLXG00; if VCYZD03 is null then VRYBQ03:='1'; else VRYBQ03:='4'; end if; elsif cur.pxxh00=5 then VCYZD04:=cur.ZDM000; VZDMC04:=cur.ZDMC00; VCYQK04:=cur.ZLXG00; if VCYZD04 is null then VRYBQ04:='1'; else VRYBQ04:='4'; end if; elsif cur.pxxh00=6 then VCYZD05:=cur.ZDM000; VZDMC05:=cur.ZDMC00; VCYQK05:=cur.ZLXG00; if VCYZD05 is null then VRYBQ05:='1'; else VRYBQ05:='4'; end if; elsif cur.pxxh00=7 then VCYZD06:=cur.ZDM000; VZDMC06:=cur.ZDMC00; VCYQK06:=cur.ZLXG00; if VCYZD06 is null then VRYBQ06:='1'; else VRYBQ06:='4'; end if; elsif cur.pxxh00=8 then VCYZD07:=cur.ZDM000; VZDMC07:=cur.ZDMC00; VCYQK07:=cur.ZLXG00; if VCYZD07 is null then VRYBQ07:='1'; else VRYBQ07:='4'; end if; elsif cur.pxxh00=9 then VCYZD08:=cur.ZDM000; VZDMC08:=cur.ZDMC00; VCYQK08:=cur.ZLXG00; if VCYZD08 is null then VRYBQ08:='1'; else VRYBQ08:='4'; end if; elsif cur.pxxh00=10 then VCYZD09:=cur.ZDM000; VZDMC09:=cur.ZDMC00; VCYQK09:=cur.ZLXG00; if VCYZD09 is null then VRYBQ09:='1'; else VRYBQ09:='4'; end if; elsif cur.pxxh00=11 then VCYZD10:=cur.ZDM000; VZDMC10:=cur.ZDMC00; VCYQK10:=cur.ZLXG00; if VCYZD10 is null then VRYBQ10:='1'; else VRYBQ10:='4'; end if; end if; end loop; le_or:='9'; select count(1) into Vount0 From ZY_BASYXX where ZYID00=PZYID00; IF Vount0>0 then update ZY_BASYXX set FSCGBZ='1' where ZYID00=PZYID00; else insert into ZY_BASYXX (zyid00,zylsh0,cardno,yybah0,rykb00, rybs00,zkkb00,cykb00,cybs00,ryqk00, Ryzdqk,cyzd00,Zdmc00,cyqk00,cyzd01, Zdmc01,cyqk01, cyzd02,Zdmc02,cyqk02, cyzd03,Zdmc03,cyqk03, cyzd04,Zdmc04, cyqk04,cyzd05,Zdmc05,cyqk05,Blzd00, Zzysxm,Ssbh01,Ssmc01,Ssrq01,Mzfs01, Ssbh02,Ssmc02,Ssrq02,Mzfs02,Ssbh03, Ssmc03,Ssrq03,Mzfs03,Ssbh04,Ssmc04, Ssrq04,Mzfs04,Ssbh05,Ssmc05,Ssrq05, Mzfs05,Ssbh06,Ssmc06,Ssrq06,Mzfs06, Ssbh07,Ssmc07,Ssrq07,Mzfs07,Ssbh08, Ssmc08,Ssrq08,Mzfs08,FSCGBZ,ERROR0) VALUES( PZYID00,substr(VYBZYH0,1,16),substr(VYBKH00,1,30),substr(vMRN000,1,16),nvl(VRZKS00,'0'), nvl(vRYBQ00,'0'),'',nvl(VDQKS00,0),nvl(VDQBQ00,'0'),'3', vRYZDQK,nvl(VCYZD00,'0'),nvl(VZDMC00,'0'),'3',VCYZD01, VZDMC01,'',VCYZD02,VZDMC02,'', VCYZD03,VZDMC03,'',VCYZD04,VZDMC04, '',VCYZD05,VZDMC05,'','', vZzysxm,vSsbh01,vSsmc01,vSsrq01,vMzfs01, vSsbh02,vSsmc02,vSsrq02,vMzfs02,vSsbh03, vSsmc03,vSsrq03,vMzfs03,vSsbh04,vSsmc04, vSsrq04,vMzfs04,vSsbh05,vSsmc05,vSsrq05, vMzfs05,vSsbh06,vSsmc06,vSsrq06,vMzfs06, vSsbh07,vSsmc07,vSsrq07,vMzfs07,vSsbh08, vSsmc08,vSsrq08,vMzfs08,'1',''); end if; le_or:='10'; for cur in BASYFS loop VZDBM00:=cur.ZDBH00; VVALUE0:=''; if upper(vzdbm00)='ZYLSH0' then -- 住院流水号 if VYBZYH0='0' then VVALUE0:=''; else VVALUE0:=VYBZYH0; end if; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CARDNO' then -- 卡号 VVALUE0:=VYBKH00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ID0000' then -- 医保ID VVALUE0:=VYBID00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='XMING0' then -- 病人姓名 VVALUE0:=VBRXM00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='XBIE00' then -- 病人性别男:0 女:1 if VBRXB00='男'then VVALUE0:='0'; else VVALUE0:='1'; end if; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YYBAH0' then -- 医院病案号 VVALUE0:=vMRN000; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYKB00' then -- 入院科别 Select BMMC00 into VVALUE0 from BM_BMBM00 Where BMBH00=VRZKS00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYKSBM' then -- 入院科别编码（新增） VVALUE0:=SF_ZY_GetYYKSBM(VRZKS00,2); update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBS00' then -- 入院病房 Select BMMC00 into VVALUE0 from BM_BMBM00 Where BMBH00=vRYBQ00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZKKB00' then -- 转科科别 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYKB00' then -- 出院科别 Select BMMC00 into VVALUE0 from BM_BMBM00 Where BMBH00=VDQKS00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYKSBM' then -- 出院科别编码（新增） VVALUE0:=SF_ZY_GetYYKSBM(VDQKS00,3); update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZYTS00' then -- 实际住院天数（新增） VVALUE0:=SF_ZY_GetYYKSBM(PZYID00,4);--VZYTS00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYBS00' then -- 出院病房 Select BMMC00 into VVALUE0 from BM_BMBM00 Where BMBH00=VDQBQ00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYQK00' then -- 入院情况(1.危2.急3.一般) if Instrb(VRYSQK0,'危')>0 then VVALUE0:='1'; elsif Instrb(VRYSQK0,'急')>0 then VVALUE0:='2'; else VVALUE0:='3'; end if; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYTJ00' then -- 入院途径（新增）1.急诊2.门诊3.其他医疗机构转入9.其他 VVALUE0:=vRYTJ00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZZDMC' then -- 门（急）诊诊断名称 VVALUE0:=vMZZDMC; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZZD00' then -- 门（急）诊诊断疾病编码 VVALUE0:=vMZZD00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYZD00' then -- 入院诊断编码 VVALUE0:=vRYZD00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYZDQK' then -- 入院诊断 VVALUE0:=vRYZDMC; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ00' then -- 入院主要病情（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=vBARYBQ; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD00' then -- 出院主要诊断编码 VVALUE0:=vCYZD00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC00' then -- 出院主要诊断名称 VVALUE0:=vZDMC00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK00' then -- 出院主要情况(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='QYQK00' then -- 出院主要情况(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=vQYQK00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ01' then -- 入院病情01（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=vRYBQ01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD01' then -- 出院其他诊断编码01 VVALUE0:=vCYZD01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC01' then -- 出院其他诊断名称01 VVALUE0:=vZDMC01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK01' then --出院其他情况1(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ02' then --入院病情02（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD02' then -- 出院其他诊断编码02 VVALUE0:=VCYZD02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC02' then -- 出院其他诊断名称02 VVALUE0:=VZDMC02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK02' then -- 出院其他情况2(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ03' then -- 入院病情03（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD03' then -- 出院其他诊断编码03 VVALUE0:=VCYZD03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC03' then -- 出院其他诊断名称03 VVALUE0:=VZDMC03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK03' then -- 出院其他情况3(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ04' then -- 入院病情04（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD04' then -- 出院其他诊断编码04 VVALUE0:=VCYZD04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC04' then -- 出院其他诊断名称04 VVALUE0:=VZDMC04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK04' then -- 出院其他情况4(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ05' then -- 入院病情05（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD05' then -- 出院其他诊断编码05 VVALUE0:=VCYZD05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC05' then -- 出院其他诊断名称05 VVALUE0:=VZDMC05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK05' then -- 出院其他情况5(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ06' then -- 入院病情06（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD06' then -- 出院其他诊断编码06 VVALUE0:=VCYZD06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC06' then -- 出院其他诊断名称06 VVALUE0:=VZDMC06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK06' then -- 出院其他情况6(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ07' then -- 入院病情07（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD07' then -- 出院其他诊断编码07 VVALUE0:=VCYZD07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC07' then -- 出院其他诊断名称07 VVALUE0:=VZDMC07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK07' then -- 出院其他情况7(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ08' then -- 入院病情08（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD08' then -- 出院其他诊断编码08 VVALUE0:=VCYZD08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC08' then -- 出院其他诊断名称08 VVALUE0:=VZDMC08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK08' then -- 出院其他情况8(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ09' then -- 入院病情09（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ09; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC09' then -- 出院其他诊断名称09 VVALUE0:=VZDMC09; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD09' then -- 出院其他诊断编码09 VVALUE0:=VCYZD09; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK09' then -- 出院其他情况9(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK09; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ10' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ10; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD10' then -- 出院其他诊断编码10 VVALUE0:=VCYZD10; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC10' then -- 出院其他诊断名称10 VVALUE0:=VZDMC10; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK10' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK10; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ11' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ11; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD11' then -- 出院其他诊断编码10 VVALUE0:=VCYZD11; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC11' then -- 出院其他诊断名称10 VVALUE0:=VZDMC11; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK11' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK11; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ12' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ12; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD12' then -- 出院其他诊断编码10 VVALUE0:=VCYZD12; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC12' then -- 出院其他诊断名称10 VVALUE0:=VZDMC12; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK12' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK12; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ13' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ13; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD13' then -- 出院其他诊断编码10 VVALUE0:=VCYZD13; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC13' then -- 出院其他诊断名称10 VVALUE0:=VZDMC13; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK13' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK13; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ14' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ14; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD14' then -- 出院其他诊断编码10 VVALUE0:=VCYZD14; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC14' then -- 出院其他诊断名称10 VVALUE0:=VZDMC14; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK14' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK14; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RYBQ15' then -- 入院病情10（新增）(1.有，2.临床未确定，3.情况不明，4.无) VVALUE0:=VRYBQ15; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYZD15' then -- 出院其他诊断编码10 VVALUE0:=VCYZD15; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZDMC15' then -- 出院其他诊断名称10 VVALUE0:=VZDMC15; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYQK15' then -- 出院其他情况10(1.治愈 2.好转 3.无效 4.未治 5.其他) VVALUE0:=VCYQK15; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSYY00' then -- 损伤、中毒的外部原因（新增） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSYYDM' then -- 损伤、中毒的疾病编码（新增） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='BLZDBM' then -- 病理诊断编码（新增） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='BLHM00' then -- 病理号（新增） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YWGM00' then -- 药物过敏（新增）（1.无，2.有） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SWSJ00' then -- 死亡患者尸检（新增）（1.无，2.有） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='XUEX00' then -- 血型（1.A2.B3.O4.AB5.不详6.未查） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='RH0000' then -- RH（1.阴2.阳3.不详4.未查） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZKYS00' then -- 质控医师 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZKRQ00' then -- 质控日期（年月日） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='LYFS00' then -- 离院方式（1.医嘱离院，2.医嘱转院，3.医嘱转社区卫生服务机构/乡镇卫生院，4.非医嘱离院5.死亡9.其他） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYJH00' then -- 是否有出院31天内再住院计划（新增）（1.无，2.有） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CYJHMD' then -- 出院31天内再住院目的（新增） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='ZZYSXM' then -- 主治医师姓名 VVALUE0:=vZzysxm; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='BLZD00' then -- 病理诊断 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='GMYWMC' then -- 过敏药物名称 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='BAZL00' then -- 病案质量（1.甲2.乙3.丙） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='NJSJG0' then -- 拟接收医疗机构名称 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YQHMTS' then -- 入院前颅脑损伤患者昏迷时间（_天_小时_分钟）天 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YQHMXS' then -- 入院前颅脑损伤患者昏迷时间（_天_小时_分钟）小时 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YQHMFZ' then -- 入院前颅脑损伤患者昏迷时间（_天_小时_分钟）分钟 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHHMTS' then -- 入院后颅脑损伤患者昏迷时间（_天_小时_分钟）天 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHHMXS' then -- 入院后颅脑损伤患者昏迷时间（_天_小时_分钟）小时 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHHMFZ' then -- 入院后颅脑损伤患者昏迷时间（_天_小时_分钟）分钟 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH01' then -- 手术及操作编号01 VVALUE0:=VSSBH01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC01' then -- 手术及操作名称01 VVALUE0:=vSSMC01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ01' then -- 手术及操作日期01 VVALUE0:=vSSRQ01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB01' then -- 手术级别01（见说明，填写“值”） VVALUE0:=vSSJB01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS01' then -- 手术及操作医师01（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ01' then -- 切口愈合等级01（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS01' then -- 麻醉方式01（见说明，填写“值”） VVALUE0:=VMZFS01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS01' then -- 麻醉医师01 VVALUE0:=VMZYS01; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH02' then -- 手术及操作编号02 VVALUE0:=vSSBH02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC02' then -- 手术及操作名称02 VVALUE0:=vSSMC02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ02' then -- 手术及操作日期02 VVALUE0:=VSSRQ02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB02' then -- 手术级别02（见说明，填写“值”） VVALUE0:=VSSJB02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS02' then -- 手术及操作医师02（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ02' then -- 切口愈合等级02（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS02' then -- 麻醉方式02（见说明，填写“值”） VVALUE0:=VMZFS02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS02' then -- 麻醉医师02 VVALUE0:=VMZYS02; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH03' then -- 手术及操作编号03 VVALUE0:=VSSBH03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC03' then -- 手术及操作名称03 VVALUE0:=VSSMC03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ03' then -- 手术及操作日期03 VVALUE0:=VSSRQ03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB03' then -- 手术级别03（见说明，填写“值”） VVALUE0:=VSSJB03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS03' then -- 手术及操作医师03（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ03' then --切口愈合等级03（见说明，填写“值”） 切口愈合等级03（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS03' then --麻醉方式03（见说明，填写“值”） VVALUE0:=VMZFS03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS03' then --麻醉医师03 VVALUE0:=VMZYS03; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH04' then --手术及操作编号04 VVALUE0:=VSSBH04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC04' then --手术及操作名称04 VVALUE0:=VSSMC04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ04' then --手术及操作日期04 VVALUE0:=VSSRQ04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB04' then --手术级别04（见说明，填写“值”） VVALUE0:=VSSJB04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS04' then --手术及操作医师04（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ04' then -- 切口愈合等级04（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS04' then --麻醉方式04（见说明，填写“值”） VVALUE0:=VMZFS04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS04' then --麻醉医师04 VVALUE0:=VMZYS04; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH05' then --手术及操作编号05 VVALUE0:=VSSBH05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC05' then --手术及操作名称05 VVALUE0:=VSSMC05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ05' then --手术及操作日期05 VVALUE0:=VSSRQ05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB05' then --手术级别05（见说明，填写“值”） VVALUE0:=VSSJB05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS05' then --手术及操作医师05（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ05' then --切口愈合等级05（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS05' then --麻醉方式05（见说明，填写“值”） VVALUE0:=VMZFS05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS05' then --麻醉医师05 VVALUE0:=VMZYS05; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH06' then --手术及操作编号06 VVALUE0:=VSSBH06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC06' then --手术及操作名称06 VVALUE0:=VSSMC06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ06' then --手术及操作日期06 VVALUE0:=VSSRQ06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB06' then --手术级别06（见说明，填写“值”） VVALUE0:=VSSJB06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS06' then --手术及操作医师06（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ06' then -- 切口愈合等级06（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS06' then --麻醉方式06（见说明，填写“值”） VVALUE0:=VMZFS06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS06' then --麻醉医师06 VVALUE0:=VMZYS06; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH07' then --手术及操作编号07 VVALUE0:=VSSBH07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC07' then --手术及操作名称07 VVALUE0:=VSSMC07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ07' then --手术及操作日期07 VVALUE0:=VSSRQ07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB07' then --手术级别07（见说明，填写“值”） VVALUE0:=VSSJB07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS07' then --手术及操作医师07（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ07' then --（见说明，填写“值”） 切口愈合等级07（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS07' then --麻醉方式07 VVALUE0:=VMZFS07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS07' then --麻醉医师07 VVALUE0:=VMZYS07; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSBH08' then --手术及操作编号08 VVALUE0:=VSSBH08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSMC08' then --手术及操作名称08 VVALUE0:=VSSMC08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSRQ08' then -- 手术及操作日期08 VVALUE0:=VSSRQ08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='SSJB08' then --手术级别08（见说明，填写“值”） VVALUE0:=VSSJB08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='CZYS08' then ---- 切口愈合等级08（见说明，填写“值”） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='YHDJ08' then -- 手术及操作医师08（术者，Ⅰ助，Ⅱ助） VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZFS08' then -- 麻醉方式08（见说明，填写“值”） VVALUE0:=VMZFS08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='MZYS08' then -- 麻醉医师08 VVALUE0:=VMZYS08; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; elsif upper(vzdbm00)='Cyxj00' then -- 出院小结 VVALUE0:=''; update ZY_BASYFS Set VALUE0=VVALUE0 Where ID0000=VID0000 and ZYID00=PZYID00 and ZDBH00=VZDBM00; end if; end loop; end if; PID0000:=VID0000; EXCEPTION WHEN OTHERS THEN RAISE_APPLICATION_ERROR(-20910, le_or||'##'||'发生错误*'||TO_CHAR(SQLCODE)||SQLERRM); END; /