create or replace procedure SP_BA_BASSJZKXY -- MODIFICATION HISTORY -- Person Date Comments -- xuxq 2019.09.03 Create 病案室三级质控西医 BAGL-20190906-001 -- xuxq 2019.11.27 新增损伤不在编码范围内校验 ( as_ksrq00 in char, as_jsrq00 in char, as_cjr000 in varchar2 ) as cursor CUR_BRZYXX is select * from VW_BA_SJJXBASSJ VW where VW.CYRQ00>=as_ksrq00 and VW.CYRQ00<=as_jsrq00; LS_BRZYXX CUR_BRZYXX%rowtype; zdmCount1 number(4); --zdmCount2 number(4); --zdmCount3 number(4); --zdmCount4 number(4); mzCount number(4); qtzdmCount number(4); cytzCount number(4); v_zlxg VARCHAR(800); tempFlag VARCHAR(8); yrcstzCount number(4);--婴儿出生体重 ybCount number(4);--邮编 ssCount number(4);--手术 lnCount number(4);--颅脑损失患者 fyCount number(4);--费用 hyzkCount number(4);--婚姻状况 xbCount number(4);--性别 zyCount number(4);--职业 zlxgCount number(4);--治疗效果 qkyhdjCount number(4);--切口愈合等级 kbCount number(4);--科别 rybqCount number(4);--入院病情 ssjbCount number(4);--手术级别 jffsCount number(4);--医保支付方式 mzfsCount number(4);--麻醉方式 begin delete from BA_ZKJL00; open CUR_BRZYXX; loop fetch CUR_BRZYXX into LS_BRZYXX; exit when CUR_BRZYXX%notfound; select count(1) into qtzdmCount from BQ_BASZDB ZD where ZD.ZYID00=LS_BRZYXX.LSH000 and substr(ZD.ZDM000,1,3) ='Z37' and ZDLB00='4'; select count(1) into cytzCount from BQ_BASZDB ZD where ZD.ZYID00=LS_BRZYXX.LSH000 and (ZD.ZDM000 ='Z37.000' or ZD.ZDM000 ='Z37.000X001' or ZD.ZDM000 ='Z37.000x001' ); /* select count(1) into zdmCount1 from XT_CM3000 where CM3000=LS_BRZYXX.SSJCZBM1; select count(1) into zdmCount2 from XT_CM3000 where CM3000=LS_BRZYXX.SSJCZBM2; select count(1) into zdmCount3 from XT_CM3000 where CM3000=LS_BRZYXX.SSJCZBM3; select count(1) into zdmCount4 from XT_CM3000 where CM3000=LS_BRZYXX.SSJCZBM4; select count(1) into mzCount from XT_MZ0000 MZ where MZ.MC0000=LS_BRZYXX.MZ0000;*/ if(LS_BRZYXX.Zkrq00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'质控日期不得为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYRQ00>LS_BRZYXX.CYRQ00) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院时间应小于等于出院日期','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(to_date(LS_BRZYXX.RYRQ00,'yyyy-mm-dd')-to_date(LS_BRZYXX.BRCSRQ,'yyyy-mm-dd')<=28 and LS_BRZYXX.YERYTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'新生儿入院体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BRNL00>0 and floor((to_date(LS_BRZYXX.RYRQ00,'yyyy-mm-dd')-to_date(LS_BRZYXX.BRCSRQ,'yyyy-mm-dd'))/365)-LS_BRZYXX.BRNL00>2) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄不正确','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(cytzCount>0 and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断为Z37.000或Z37.000X001时， 新生儿出生体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(to_date(LS_BRZYXX.RYRQ00,'yyyy-mm-dd')-to_date(LS_BRZYXX.BRCSRQ,'yyyy-mm-dd')<=28 and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'新生儿出生体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZKRQ00 to_char(sysdate,'yyyymmdd')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'质控日期不能晚于当前时间','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LYFS00 is null or LS_BRZYXX.LYFS00='-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'离院方式不能为空或不能为''-'';','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LYFS00='医嘱转院' and LS_BRZYXX.ZYYLJG is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'离院方式为医嘱转院或医嘱转社区卫生服务机构/乡镇卫生院的患者必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LYFS00='死亡' and LS_BRZYXX.SFSJ00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院情况为死亡，尸检不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZZYJH0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'是否有31天再住院计划值不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZZYJH0='有' and LS_BRZYXX.ZZYMD0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'有出院31日内再住院计划，出院31天再住院计划目的不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BAH000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病案号不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYCS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院次数不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BRCSRQ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出生日期不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYSJ00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院时间不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYKB00='0') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院科别不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if (LS_BRZYXX.CYRQ00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院时间不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYTS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'实际住院天数不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYTS00=0 or ISNUMBER(LS_BRZYXX.ZYTS00)=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'实际住院天数字段值错误，值域范围参考[1-999999]','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYBF00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院病房不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.CYBF00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院病房不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.CSDS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出生地不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if (LS_BRZYXX.SFZH00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'身份证号不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XZZXC0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XZZDH0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址电话不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XZZYB0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址邮政编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if((LS_BRZYXX.BRNL00 is null or LS_BRZYXX.BRNL00=0) and LS_BRZYXX.BRNLDD>365) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病人年龄有无,值域范围参考[0-365]','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if((LS_BRZYXX.BRNL00 is null or LS_BRZYXX.BRNL00=0)and LS_BRZYXX.BRNLDD is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当病人小于1岁时，不足1周岁不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XZZXC0<>'-' and ISNUMBER(LS_BRZYXX.XZZYB0)=0 and ls_brzyxx.xzzyb0 <> '-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址邮政编码应为数字类型','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(length(LS_BRZYXX.XZZYB0)<>6 and LS_BRZYXX.XZZYB0<>'-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址邮编长度应该等于6','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.JTYB00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'户口住址邮政编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.JTDZ00<>'-' and ISNUMBER(LS_BRZYXX.JTYB00)=0 and ls_brzyxx.jtyb00 <> '-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'户口邮政编码应为数字类型','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(length(LS_BRZYXX.JTYB00)<>6 and LS_BRZYXX.JTYB00<>'-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'户口邮编长度应该等于6','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.GZDW00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作单位及地址不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.GZDH00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作单位电话不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.GZYB00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作单位邮政编码不能为空; ','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.GZDW00<>'-' and ISNUMBER(LS_BRZYXX.GZYB00)=0 and ls_brzyxx.gzyb00 <> '-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作邮政编码应为数字类型','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(length(LS_BRZYXX.GZYB00)<>6 and LS_BRZYXX.GZYB00<>'-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作邮编长度应该等于6','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LXRXM0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'联系人姓名不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LXRDZ0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'联系人地址不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LXRDH0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'联系人电话不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.LXRGX0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'联系人关系不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.JFFS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'医疗付款方式不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BRXM00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'性别不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.GJ0000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'国籍不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.JGSF00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'籍贯不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.MZ0000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'民族不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from XT_MZ0000 MZ where MZ.MC0000=LS_BRZYXX.MZ0000; if(mzCount =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'民族值不在字典范围内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZY0000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'职业不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.HYZK00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婚姻状况不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYTJ00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院途径不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XX0000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'ABO血型,不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RH0000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'Rh血型,不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.KZR000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'科主任不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.FZR000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主任不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZZYS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主治医师不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYYS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院医师不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZRHS00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'责任护士不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from XT_ZD0000 where VALUE0=LS_BRZYXX.JGSF00 and ZDBM00='JG0000'; if(LS_BRZYXX.JGSF00 <>'-' and zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'籍贯不在字典范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SHRXM0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'编码员不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(to_date(LS_BRZYXX.CYRQ00,'yyyyMMdd')-to_date(LS_BRZYXX.RYRQ00,'yyyyMMdd')<>0 and to_date(LS_BRZYXX.CYRQ00,'yyyyMMdd')-to_date(LS_BRZYXX.RYRQ00,'yyyyMMdd')<>LS_BRZYXX.ZYTS00) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'实际住院天数（SJZY）填写不正确','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASSSB SS where SS.LSH000=LS_BRZYXX.LSH000 and SS.SSRQ00 >LS_BRZYXX.CYRQ00; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术日期应小于出院日期','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASSSB SS where SS.LSH000=LS_BRZYXX.LSH000 and SS.SSRQ00 0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术日期应大于入院日期','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASSSB SS where SS.LSH000=LS_BRZYXX.LSH000 and SS.SSRQ00 <>'-' and isdate(SSRQ00,'yyyy-mm-dd')=0; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术时间格式不正确','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC1 <> '-' and (LS_BRZYXX.SSJCZBM1 is null or LS_BRZYXX.SSJCZBM1='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第1条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC2 <> '-' and (LS_BRZYXX.SSJCZBM2 is null or LS_BRZYXX.SSJCZBM3='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第2条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC3 <> '-' and (LS_BRZYXX.SSJCZBM3 is null or LS_BRZYXX.SSJCZBM3='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第3条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC4 <> '-' and (LS_BRZYXX.SSJCZBM4 is null or LS_BRZYXX.SSJCZBM4='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第4条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC5 <> '-' and (LS_BRZYXX.SSJCZBM5 is null or LS_BRZYXX.SSJCZBM5='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第5条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC6 <> '-' and (LS_BRZYXX.SSJCZBM6 is null or LS_BRZYXX.SSJCZBM6='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第6条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC7 <> '-' and (LS_BRZYXX.SSJCZBM7 is null or LS_BRZYXX.SSJCZBM7='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第7条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC8 <> '-' and (LS_BRZYXX.SSJCZBM8 is null or LS_BRZYXX.SSJCZBM8='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第8条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC9 <> '-' and (LS_BRZYXX.SSJCZBM9 is null or LS_BRZYXX.SSJCZBM9='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第9条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC10 <> '-' and (LS_BRZYXX.SSJCZBM10 is null or LS_BRZYXX.SSJCZBM10='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第10条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC11 <> '-' and (LS_BRZYXX.SSJCZBM11 is null or LS_BRZYXX.SSJCZBM11='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第11条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC12 <> '-' and (LS_BRZYXX.SSJCZBM12 is null or LS_BRZYXX.SSJCZBM12='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第12条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC13 <> '-' and (LS_BRZYXX.SSJCZBM13 is null or LS_BRZYXX.SSJCZBM13='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第13条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC14 <> '-' and (LS_BRZYXX.SSJCZBM14 is null or LS_BRZYXX.SSJCZBM14='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第14条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC15 <> '-' and (LS_BRZYXX.SSJCZBM15 is null or LS_BRZYXX.SSJCZBM15='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第15条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* if(LS_BRZYXX.SSJCZMC16 <> '-' and (LS_BRZYXX.SSJCZBM16 is null or LS_BRZYXX.SSJCZBM16='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第16条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC17 <> '-' and (LS_BRZYXX.SSJCZBM17 is null or LS_BRZYXX.SSJCZBM17='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第17条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC18 <> '-' and (LS_BRZYXX.SSJCZBM18 is null or LS_BRZYXX.SSJCZBM18='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第18条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC19 <> '-' and (LS_BRZYXX.SSJCZBM19 is null or LS_BRZYXX.SSJCZBM19='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第19条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC20 <> '-' and (LS_BRZYXX.SSJCZBM20 is null or LS_BRZYXX.SSJCZBM20='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第20条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC21 <> '-' and (LS_BRZYXX.SSJCZBM21 is null or LS_BRZYXX.SSJCZBM21='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第21条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC22 <> '-' and (LS_BRZYXX.SSJCZBM22 is null or LS_BRZYXX.SSJCZBM22='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第22条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC23 <> '-' and (LS_BRZYXX.SSJCZBM23 is null or LS_BRZYXX.SSJCZBM23='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第23条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC24 <> '-' and (LS_BRZYXX.SSJCZBM24 is null or LS_BRZYXX.SSJCZBM24='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第24条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC25 <> '-' and (LS_BRZYXX.SSJCZBM25 is null or LS_BRZYXX.SSJCZBM25='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第25条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC26 <> '-' and (LS_BRZYXX.SSJCZBM26 is null or LS_BRZYXX.SSJCZBM26='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第26条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC27 <> '-' and (LS_BRZYXX.SSJCZBM27 is null or LS_BRZYXX.SSJCZBM27='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第27条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC28 <> '-' and (LS_BRZYXX.SSJCZBM28 is null or LS_BRZYXX.SSJCZBM28='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第28条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC29 <> '-' and (LS_BRZYXX.SSJCZBM29 is null or LS_BRZYXX.SSJCZBM29='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第29条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC30 <> '-' and (LS_BRZYXX.SSJCZBM30 is null or LS_BRZYXX.SSJCZBM30='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第30条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC31 <> '-' and (LS_BRZYXX.SSJCZBM31 is null or LS_BRZYXX.SSJCZBM31='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第31条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC32 <> '-' and (LS_BRZYXX.SSJCZBM32 is null or LS_BRZYXX.SSJCZBM32='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第32条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC33 <> '-' and (LS_BRZYXX.SSJCZBM33 is null or LS_BRZYXX.SSJCZBM33='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第33条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC34 <> '-' and (LS_BRZYXX.SSJCZBM34 is null or LS_BRZYXX.SSJCZBM34='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第34条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC35 <> '-' and (LS_BRZYXX.SSJCZBM35 is null or LS_BRZYXX.SSJCZBM35='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第35条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC36 <> '-' and (LS_BRZYXX.SSJCZBM36 is null or LS_BRZYXX.SSJCZBM36='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第36条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC37 <> '-' and (LS_BRZYXX.SSJCZBM37 is null or LS_BRZYXX.SSJCZBM37='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第37条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC38 <> '-' and (LS_BRZYXX.SSJCZBM38 is null or LS_BRZYXX.SSJCZBM38='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第38条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC39 <> '-' and (LS_BRZYXX.SSJCZBM39 is null or LS_BRZYXX.SSJCZBM39='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第39条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZMC40 <> '-' and (LS_BRZYXX.SSJCZBM40 is null or LS_BRZYXX.SSJCZBM40='null')) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第40条手术编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /*select count(1) into zdmCount1 from XT_CM3000 where CM3000=LS_BRZYXX.SSJCZBM1; if(LS_BRZYXX.SSJCZBM1 <> '-' and zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第一条手术编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZBM2 <> '-' and zdmCount2=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第二条手术编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZBM3 <> '-' and zdmCount3=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第三条手术编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SSJCZBM4 <> '-' and zdmCount4=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'第四条手术编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ tempFlag :='f'; if(LS_BRZYXX.ZYZFY0 < (LS_BRZYXX.Ybylfw+LS_BRZYXX.Ybzlcz+LS_BRZYXX.Hlf000+LS_BRZYXX.QTFY00+LS_BRZYXX.Blzdf0+LS_BRZYXX.Syszdf+LS_BRZYXX.Yxxzdf+LS_BRZYXX.Lczdxm +LS_BRZYXX.Fsszlf+LS_BRZYXX.Sszlf0+LS_BRZYXX.Kff000+LS_BRZYXX.Zyzl00+LS_BRZYXX.Xyf000+LS_BRZYXX.Zcyf00+LS_BRZYXX.Zcyf10+LS_BRZYXX.Xf0000+LS_BRZYXX.Bdblzp +LS_BRZYXX.Qdblzp+LS_BRZYXX.Nxyzzp+LS_BRZYXX.Xbyzzp+LS_BRZYXX.Jcyclf+LS_BRZYXX.Zlyclf+LS_BRZYXX.Ssyclf)) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'总费用大于或等于分项费用之和D01≥（D11+D12+D13+D14+D15+D16+D17+D18+D19+D20+D21+D22+D23+D24+D25+D26+D27+D28+D29+D30+D31+D32+D33+D34）','3','2',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); tempFlag :='t'; end if; if(LS_BRZYXX.ZFJE00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'自付金额不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); tempFlag :='t'; end if; if(LS_BRZYXX.ZYZFY0 28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院主要诊断疾病诊断码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM2,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM3,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM4,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM5,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM6,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM7,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院其他诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.MZZD_JBBM,1,3) between 'P10' and 'P15' and (LS_BRZYXX.RYRQ00-LS_BRZYXX.BRCSRQ)>28) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门（急）诊诊断编码为P10～P15时，入院时间减出生日期必须≤28天','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM1,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM2,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM3,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM4,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM5,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM6,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM7,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM8,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM9,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM10,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM11,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM12,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM13,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM14,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM15,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* if(substr(LS_BRZYXX.ZYZD_JBBM16,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM17,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM18,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM19,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM20,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM21,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM22,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM23,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM24,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM25,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM26,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM27,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM28,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM29,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM30,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM31,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM32,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM33,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM34,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM35,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM36,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM37,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM38,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM39,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM40,1,3) between 'O80' and 'O84' and qtzdmCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断编码出现O80-O84编码,出院其他诊断编码必须有分娩结局编码Z37','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if((substr(LS_BRZYXX.ZYZD_JBBM,1,5)='Z37.0' or substr(LS_BRZYXX.ZYZD_JBBM,1,5)='Z37.2' or substr(LS_BRZYXX.ZYZD_JBBM,1,5)='Z37.3' or substr(LS_BRZYXX.ZYZD_JBBM,1,5)='Z37.5' or substr(LS_BRZYXX.ZYZD_JBBM,1,5)='Z37.6') and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'产妇的新生儿体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD_JBBM1 is not null and (substr(LS_BRZYXX.ZYZD_JBBM1,1,5)='Z37.0' or substr(LS_BRZYXX.ZYZD_JBBM1,1,5)='Z37.2' or substr(LS_BRZYXX.ZYZD_JBBM1,1,5)='Z37.3' or substr(LS_BRZYXX.ZYZD_JBBM1,1,5)='Z37.5' or substr(LS_BRZYXX.ZYZD_JBBM1,1,5)='Z37.6') and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'产妇的新生儿体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD_JBBM2 is not null and (substr(LS_BRZYXX.ZYZD_JBBM2,1,5)='Z37.0' or substr(LS_BRZYXX.ZYZD_JBBM2,1,5)='Z37.2' or substr(LS_BRZYXX.ZYZD_JBBM2,1,5)='Z37.3' or substr(LS_BRZYXX.ZYZD_JBBM2,1,5)='Z37.5' or substr(LS_BRZYXX.ZYZD_JBBM2,1,5)='Z37.6') and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'产妇的新生儿体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD_JBBM2 is not null and (substr(LS_BRZYXX.ZYZD_JBBM3,1,5)='Z37.0' or substr(LS_BRZYXX.ZYZD_JBBM3,1,5)='Z37.2' or substr(LS_BRZYXX.ZYZD_JBBM3,1,5)='Z37.3' or substr(LS_BRZYXX.ZYZD_JBBM3,1,5)='Z37.5' or substr(LS_BRZYXX.ZYZD_JBBM3,1,5)='Z37.6') and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'产妇的新生儿体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD_JBBM2 is not null and (substr(LS_BRZYXX.ZYZD_JBBM4,1,5)='Z37.0' or substr(LS_BRZYXX.ZYZD_JBBM4,1,5)='Z37.2' or substr(LS_BRZYXX.ZYZD_JBBM4,1,5)='Z37.3' or substr(LS_BRZYXX.ZYZD_JBBM4,1,5)='Z37.5' or substr(LS_BRZYXX.ZYZD_JBBM4,1,5)='Z37.6') and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'产妇的新生儿体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD_JBBM is null or LS_BRZYXX.ZYZD_JBBM='-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要诊断名称不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYZD is null or LS_BRZYXX.ZYZD='-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要诊断疾病编码不能为空,不能为''-''','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASZYB where LSH000=LS_BRZYXX.LSH000 and SSZDWY is null; if((LS_BRZYXX.ZYZD_JBBM like 'S%' or LS_BRZYXX.ZYZD_JBBM like 'T%') and zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'损伤中毒原因不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASZYB where LSH000=LS_BRZYXX.LSH000 and SSZDBM is null; if((LS_BRZYXX.ZYZD_JBBM like 'S%' or LS_BRZYXX.ZYZD_JBBM like 'T%') and zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'损伤中毒编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASZYB A ,VW_ZS_SSZDYW_DZBL B where LSH000=LS_BRZYXX.LSH000 and A.SSZDBM=B.ICD900; if((LS_BRZYXX.ZYZD_JBBM like 'S%' or LS_BRZYXX.ZYZD_JBBM like 'T%') and zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'损伤中毒编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.MZZD is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门诊诊断不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.MZZD_JBBM is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门诊诊断疾病编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM,1,3) between 'C00' and 'D48' and LS_BRZYXX.BLZDBM is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病理诊断编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(substr(LS_BRZYXX.ZYZD_JBBM,1,3) between 'C00' and 'D48' and LS_BRZYXX.BLZD00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病理诊断名称不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if((substr(LS_BRZYXX.ZYZD_JBBM,1,3) between 'D00' and 'D48' or LS_BRZYXX.ZYZD_JBBM like 'C%') and LS_BRZYXX.blh000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病理诊断编码不能空,病理号不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BASZYB A ,XT_ZLXTM0 B where LSH000=LS_BRZYXX.LSH000 and A.BLZDBM=B.ICD100; if(LS_BRZYXX.BLZDBM is not null and trim(LS_BRZYXX.BLZDBM)<>'-' and zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病理诊断编码不在编码范围内','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select floor(months_between(to_date(LS_BRZYXX.RYRQ00,'yyyy-mm-dd'), to_date(LS_BRZYXX.BRCSRQ,'yyyy-mm-dd'))/12 ) into mzCount from dual; if(mzCount -1 <= LS_BRZYXX.BRNL00 and mzCount+1>= LS_BRZYXX.BRNL00) then mzCount :=1; else insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄应等于入院时间减出生日期（误差范围1岁）','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYKB00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院科别不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); else select count(1) into qtzdmCount from BA_SJJXDY H where H.BH0000=LS_BRZYXX.RYKB00 and rownum<=1; if(qtzdmCount =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院科别三级绩效科室没对应','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.CYKB00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院科别不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); else select count(1) into qtzdmCount from BA_SJJXDY H where H.BH0000=LS_BRZYXX.CYKB00 and rownum<=1; if(qtzdmCount =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院科别三级绩效科室没对应','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(length(LS_BRZYXX.RYTJ00)>1) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院途径值域范围参考代码表','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗代码') and ss.SSYSMC is null and ss.lsh000 =LS_BRZYXX.LSH000 and ss.sslb00 ='1'; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作术者必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ select count(1) into mzCount from BA_BASSSB SS where ss.SSYSMC is null and ss.lsh000 =LS_BRZYXX.LSH000 ; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作术者必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; -- select count(1),wm_concat(ss.ssm000) into mzCount,v_zlxg from BA_BASSSB SS where ss.ssys00 is null and ss.lsh000 =LS_BRZYXX.LSH000 ; select count(1),wm_concat(ss.ssmc00) into mzCount,v_zlxg from BA_BASSSB ss left join bm_ygbm00 yg on ss.ssys00 = yg.YGBH00 where lsh000 =LS_BRZYXX.LSH000 and (ss.ssys00 is null or ygbh00 is null); if(mzCount >0) then -- insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,v_zlxg+'手术名称的术者异常，请及时修正','3','3',as_lsh000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,v_zlxg || '手术名称的术者异常，请及时修正','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗') and ss.SSXH00 ='1' and ss.lsh000 =LS_BRZYXX.LSH000 and trim(LS_BRZYXX.SHJB1) is null; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作级别必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗') and trim(LS_BRZYXX.YZ1) is null and ss.lsh000 =LS_BRZYXX.LSH000 and ss.sslb00 ='1'; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作I助必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗') and trim(LS_BRZYXX.EZ1) is null and ss.lsh000 =LS_BRZYXX.LSH000 and ss.sslb00 ='1'; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作Ⅱ助必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗') and trim(LS_BRZYXX.MZFS1) is null and ss.lsh000 =LS_BRZYXX.LSH000 and ss.sslb00 ='1'; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作麻醉方式必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术','介入治疗') and trim(LS_BRZYXX.MZYS1) is null and ss.lsh000 =LS_BRZYXX.LSH000 and ss.sslb00 ='1'; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术或介入治疗代码时，主要手术操作麻醉医师必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into mzCount from BA_BASSSB SS join xt_cm3000 xt on ss.ssm000=xt.cm3000 where xt.lb0000 in ('手术') and ss.SSXH00 ='1' and ss.lsh000 =LS_BRZYXX.LSH000 and trim(LS_BRZYXX.QKYHDJ1) is null; if(mzCount >0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码为手术时，主要手术操作切口愈合等级必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.YBYLFW <0 or LS_BRZYXX.YBZLCZ <0 or LS_BRZYXX.HLF000 <0 or LS_BRZYXX.QTFY00 <0 or LS_BRZYXX.BLZDF0 <0 or LS_BRZYXX.SYSZDF <0 or LS_BRZYXX.YXXZDF <0 or LS_BRZYXX.LCZDXM <0 or LS_BRZYXX.FSSZLF <0 or LS_BRZYXX.SSZLF0 <0 or LS_BRZYXX.KFF000 <0 or LS_BRZYXX.ZYZL00 <0 or LS_BRZYXX.XYF000 <0 or LS_BRZYXX.ZCYF00 <0 or LS_BRZYXX.ZCYF10 <0 or LS_BRZYXX.XF0000 <0 or LS_BRZYXX.BDBLZP <0 or LS_BRZYXX.QDBLZP <0 or LS_BRZYXX.NXYZZP <0 or LS_BRZYXX.XBYZZP <0 or LS_BRZYXX.JCYCLF <0 or LS_BRZYXX.ZLYCLF <0 or LS_BRZYXX.SSYCLF <0 or LS_BRZYXX.Qtf000 <0 ) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'费用不能为负数','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into v_zlxg from (select rownum XH0000,a.* from (select ZLXG00 from bq_baszdb where ZYID00=LS_BRZYXX.LSH000 and ZDLB00='3' order by PLXH00,ID0000) a) where XH0000=1; if(v_zlxg <>'0') then select decode(ZLXG00,'1','1','2','2','3','3','4','4','5','9','6','9','7','9','8','9') into v_zlxg from (select rownum XH0000,a.* from (select ZLXG00 from bq_baszdb where ZYID00=LS_BRZYXX.LSH000 and ZDLB00='3' order by PLXH00,ID0000) a) where XH0000=1; if(v_zlxg ='4') then if(LS_BRZYXX.LYFS00 <>'死亡') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当出院主要诊断治疗效果为死亡,离院方式不能为1.医嘱离院 2.医嘱转院 3.医嘱转社区卫生服务机构 4.非医嘱离院 9. 其他','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; end if; mzCount := trunc(MONTHS_BETWEEN(to_date(LS_BRZYXX.RYRQ00,'yyMMdd'),to_date(LS_BRZYXX.BRCSRQ,'yyMMdd'))/12); if(LS_BRZYXX.BRNLMM is null and mzCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当年龄小于1周岁时,病人年龄月不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BRNL00=0 and LS_BRZYXX.BRNLDD=0 ) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当年龄小于1周岁时,病人年龄天不能为0','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if( (LS_BRZYXX.YBYLFW+LS_BRZYXX.YBZLCZ+LS_BRZYXX.HLF000+LS_BRZYXX.QTFY00+LS_BRZYXX.BLZDF0+LS_BRZYXX.SYSZDF+LS_BRZYXX.YXXZDF+LS_BRZYXX.LCZDXM+LS_BRZYXX.FSSZLF+LS_BRZYXX.SSZLF0+ LS_BRZYXX.KFF000+LS_BRZYXX.ZYZL00+LS_BRZYXX.XYF000+LS_BRZYXX.ZCYF00+LS_BRZYXX.ZCYF10+LS_BRZYXX.XF0000+LS_BRZYXX.BDBLZP+LS_BRZYXX.QDBLZP+LS_BRZYXX.NXYZZP+LS_BRZYXX.XBYZZP+ LS_BRZYXX.JCYCLF+LS_BRZYXX.ZLYCLF+LS_BRZYXX.SSYCLF+LS_BRZYXX.Qtf000) <> LS_BRZYXX.ZYZFY0 ) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院费用=一般医疗服务费用+一般治疗操作费+护理费+其他费用+病理诊断费+实验室诊断费+影像学诊断费+临床诊断项目费+非手术治疗项目费+手术治疗费+康复费+中医治疗费+西药费+中草药费+中草药费+血费+白蛋白质类制品费+球蛋白类制品费+凝血因子类制品费+细胞因子类制品费+检查用一次性医用材料费+治疗用一次性医用材料费+手术用一次性医用材料费+其他费','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); tempFlag :='t'; end if; if(tempFlag ='t') then delete from BA_SYFYB0 where zyid00= LS_BRZYXX.LSH000; insert into BA_SYFYB0(ZYID00,ZYZFY0,ZFJE00,YBYLFW,ZYBZLZ,ZYBZHZ,YBZLCZ,HLF000,QTFY00,BLZDF0,SYSZDF,YXXZDF,LCZDXM,FSSZLF,LCWLZL,SSZLF0, MZF000,SSF000,KFF000,ZYZD00,ZYZL00,ZYWZ00,ZYGS00,ZCYJF0,ZYTNZL,ZYGCZL,ZYTSZL,ZYQT00,ZYTSTP,BZSSF0,XYF000,KJYWF0,ZCYF00,ZYZJF0,ZCYF10, XF0000,BDBLZP,QDBLZP,NXYZZP,XBYZZP,JCYCLF,ZLYCLF,SSYCLF,QTF000) select ZYID00,ZYZFY0,ZFJE00,YBYLFW,ZYBZLZ,ZYBZHZ,YBZLCZ,HLF000,QTFY00,BLZDF0,SYSZDF,YXXZDF,LCZDXM,FSSZLF,LCWLZL,SSZLF0, MZF000,SSF000,KFF000,ZYZD00,ZYZL00,ZYWZ00,ZYGS00,ZCYJF0,ZYTNZL,ZYGCZL,ZYTSZL,ZYQT00,ZYTSTP,BZSSF0,XYF000,KJYWF0,ZCYF00,ZYZJF0,ZCYF10, XF0000,BDBLZP,QDBLZP,NXYZZP,XBYZZP,JCYCLF,ZLYCLF,SSYCLF,QTF000 from VW_MR_BRZYFY where ZYID00=LS_BRZYXX.LSH000; commit; end if; if(LS_BRZYXX.BLZDBM is not null and LS_BRZYXX.Blh000 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'有病理诊断编码时,病理号不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if((LS_BRZYXX.cyrq00||LS_BRZYXX.cysj00 ) <= (LS_BRZYXX.ryrq00||LS_BRZYXX.rysj00 )) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院时间应不晚于出院时间','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BQ_BASZDB where ZYID00=LS_BRZYXX.LSH000 and ZDM000 not in (select icd900 from XT_ICD900) and zdlb00 in ('3','4'); if(LS_BRZYXX.ZYZD_JBBM <> '-' and zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,(select (select '【'||wm_concat(zdm000) ||'】'||'诊断疾病编码不在疾病编码范围内' from BQ_BASZDB where ZYID00=LS_BRZYXX.LSH000 and ZDM000 not in (select icd900 from XT_ICD900) and zdlb00 in ('3','4')) from dual),'3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from XT_ICD900 where ICD900=LS_BRZYXX.MZZD_JBBM; if(LS_BRZYXX.MZZD_JBBM <> '-' and zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门急诊疾病编码不在疾病编码范围内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.zrhs00 is not null ) then select count(1) into v_zlxg from BM_YGBM00 where ygbh00||''=LS_BRZYXX.zrhs00 and YSZJHM is not null; if(v_zlxg =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'责任护士医师执业证书编码未对应','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.zyys00 is not null ) then select count(1) into v_zlxg from BM_YGBM00 where ygbh00||''=LS_BRZYXX.zyys00 and YSZJHM is not null; if(v_zlxg =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院医师执业证书编码未对应','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.zzys00 is not null ) then select count(1) into v_zlxg from BM_YGBM00 where ygbh00||''=LS_BRZYXX.zzys00 and YSZJHM is not null; if(v_zlxg =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主治医师执业证书编码未对应','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.fzr000 is not null ) then select count(1) into v_zlxg from BM_YGBM00 where ygbh00||''=LS_BRZYXX.fzr000 and YSZJHM is not null; if(v_zlxg =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主（副主）任医师执业证书编码未对应','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.kzr000 is not null ) then select count(1) into v_zlxg from BM_YGBM00 where ygbh00||''=LS_BRZYXX.kzr000 and YSZJHM is not null; if(v_zlxg =0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'科主任执业证书编码未对应','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if( length(LS_BRZYXX.BLZD00)>100) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病理诊断名称长度不能超过100','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.YECSTZ is not null ) then if (ISNUMBER(LS_BRZYXX.YECSTZ)=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婴儿出生体重字段值错误，值域范围参考[100-9999]','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); elsif (ISNUMBER(LS_BRZYXX.YECSTZ)=1 and (to_number(LS_BRZYXX.YECSTZ)>9999 or to_number(LS_BRZYXX.YECSTZ)<100 )) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婴儿出生体重字段值错误，值域范围参考[100-9999]','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.YERYTZ is not null ) then if ( ISNUMBER(LS_BRZYXX.YERYTZ)=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婴儿入院体重字段值错误，值域范围参考[100-9999]','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); elsif (ISNUMBER(LS_BRZYXX.YERYTZ)=1 and (to_number(LS_BRZYXX.YERYTZ)>9999 or to_number(LS_BRZYXX.YERYTZ)<100 )) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婴儿入院体重字段值错误，值域范围参考[100-9999]','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; --xuexc 龙岩质控规则缺失补充 /*if(LS_BRZYXX.JKDAH0 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'健康卡号不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if(LS_BRZYXX.BAH000='-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病案号不能为''-''','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZYCS00<=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院次数必须是大于0的整数','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.CYRQ00||LS_BRZYXX.CYSJ00 < LS_BRZYXX.RYRQ00||LS_BRZYXX.RYSJ00) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院时间不能晚于出院时间','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BRXM00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'姓名不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.JTDZ00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'户口地址不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into ssCount from ba_basssb sb where sb.lsh000=LS_BRZYXX.LSH000; if(ssCount>0)then select count(1) into zdmCount1 from BA_BRZYFY FY where FY.ZYID00=LS_BRZYXX.LSH000 and FY.SFRJSS is null; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'是否为日间手术不能为空 ','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if;*/ select count(1) into zdmCount1 from BQ_BASZDB BQ where BQ.Zdlb00='1' and BQ.ZYID00=LS_BRZYXX.LSH000 and BQ.Zdm000 is null; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门（急）诊诊断编码不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BQ_BASZDB BQ where BQ.Zdlb00='1' and BQ.ZYID00=LS_BRZYXX.LSH000 and BQ.Zdmc00 is null; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'门（急）诊诊断名称不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BQ_BASZDB BQ where BQ.Zdlb00='3' and BQ.ZYID00=LS_BRZYXX.LSH000 and ( BQ.Rybq00 is null or bq.rybq00='-' ); if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院主要诊断入院病情不能为空,不能为''-''','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SFYWGM='有' and LS_BRZYXX.GMYW00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'有药物过敏，则过敏药物名称必填','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* if(LS_BRZYXX.GMYW00 is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'有无药物过敏不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if(LS_BRZYXX.ZYZFY0 is null or LS_BRZYXX.ZYZFY0<=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'住院总费用不能为空，并且大于0','2','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZKRQ000) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄不足1周岁的年龄≤28天新生儿的出生体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into yrcstzCount from BA_BRZYXX ba where to_date(ba.RYRQ00,'yyyy-mm-dd')-to_date(ba.BRCSRQ,'yyyy-mm-dd')<=28 and sf_xt_isnumber2(ba.YERYTZ)='1' and ba.LSH000=LS_BRZYXX.LSH000; if(yrcstzCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'新生儿出生体重填写范围：100克-9999克，精确到10克','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into yrcstzCount from BA_BRZYXX ba where to_date(ba.RYRQ00,'yyyy-mm-dd')-to_date(ba.BRCSRQ,'yyyy-mm-dd')<=28 and sf_xt_isnumber2(ba.yerytz)='1' and ba.LSH000=LS_BRZYXX.LSH000; if(yrcstzCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'新生儿入院体重填写范围：100克-9999克，精确到10克','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.Gzyb00<>'-')then if(length(LS_BRZYXX.Gzyb00)<>6)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'工作单位邮政编码应为6位数字','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.XZZYB0<>'-')then if(length(LS_BRZYXX.XZZYB0)<>6)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'现住址邮政编码应为6位数字','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; if(LS_BRZYXX.JTYB00<>'-')then if(length(LS_BRZYXX.JTYB00)<>6)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'户口地址邮政编码应为6位数字','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; select count(1) into ssCount from BA_BASSSB SB where SB.SSLB00='1' and SB.SSM000 is null and SB.LSH000=LS_BRZYXX.LSH000; if(ssCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作编码不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into ssCount from BA_BASSSB SB where SB.SSLB00='1' and SB.SSMC00 is null and SB.LSH000=LS_BRZYXX.LSH000; if(ssCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作名称不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into ssCount from BA_BASSSB SB where SB.SSLB00='1' and SB.SSRQ00 is null and SB.LSH000=LS_BRZYXX.LSH000; if(ssCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'主要手术操作日期不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /*select count(1) into zdmCount1 from BQ_BASZDB BQ where BQ.Zdlb00='3' and BQ.ZYID00=LS_BRZYXX.LSH000 and BQ.Zdm000= 'R65.900'; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院主要诊断编码不能为R65.900','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /*if(LS_BRZYXX.LYFS00='死亡' and LS_BRZYXX.SFSJ00<>'是' or LS_BRZYXX.LYFS00='死亡' and LS_BRZYXX.SFSJ00<>'否') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当离院方式为5死亡时，死亡患者尸检为 1或 2','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ select count(1) into zdmCount1 from BQ_BASZDB bq,XT_ICD100 xt where bq.Zdm000=xt.ICD100 and bq.Zdlb00='4'and bq.ZYID00=LS_BRZYXX.LSH000 and ( bq.ZDMC00 is null or bq.ZDMC00='-' ); if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'有对应的其他诊断编码时，出院其他诊断名称不能为空，不能为 -','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into ssCount from ba_basssb sb where sb.lb0000='手术' and sb.qkyhdj is null and sb.lsh000=LS_BRZYXX.LSH000; if(ssCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术编码属性为手术时，主要手术操作切口愈合类别不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /*select count(1) into fyCount from BA_BASSSB ss where ss.lsh000=LS_BRZYXX.ZYID00 and ss.mzfs00 is null and LS_BRZYXX.MZF000>0; if(fyCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'麻醉方式>0时，麻醉费>0','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /*select count(1) into fyCount from ba_brssxx ss where ss.lsh000=LS_BRZYXX.zyid00 and LS_BRZYXX.sszlf0 >0 and ss.ssm000 is null; if(fyCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术治疗费>0时，手术编码非空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if(LS_BRZYXX.BRNL00 is null or mod(LS_BRZYXX.BRNL00,1)!=0 or LS_BRZYXX.BRNL00<0 or LS_BRZYXX.BRNL00<>(round(trunc(MONTHS_BETWEEN(to_date(LS_BRZYXX.RYRQ00,'yyMMdd'),to_date(LS_BRZYXX.BRCSRQ,'yyMMdd'))/12),2))) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄不能为空且为正整数且年龄应等于入院日期减去出生日期','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(to_date(LS_BRZYXX.RYRQ00,'yyyy-mm-dd')-to_date(LS_BRZYXX.BRCSRQ,'yyyy-mm-dd')<28 and LS_BRZYXX.YECSTZ is null) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院时间减出生日期≤28天时，新生儿入院体重不能为空','1','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BA_BRZYXX ba join BQ_BASZDB ZD on BA.LSH000=ZD.ZYID00 where (ZD.ZDM000 like '%Z37.0%' or ZD.ZDM000 like '%Z37.2%' or ZD.ZDM000 like '%Z37.3%' or ZD.ZDM000 like '%Z37.5%' or ZD.ZDM000 like '%Z37.6%') and BA.YECSTZ is null and ba.LSH000=LS_BRZYXX.LSH000; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'当出院主要诊断编码或出院其他诊断编码为Z37.0，Z37.2，Z37.3，Z37.5，Z37.6编码时,新生儿出生体重不能为空','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /*select count(1) into hyzkCount from BA_BRZYXX ba where ba.brnl00<22 and ba.brxb00='男' and ba.hyzk00 in ('已婚','丧偶','离婚') and ba.lsh000=LS_BRZYXX.LSH000; if(hyzkCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄小于法定结婚年龄,(男<22周岁),则婚姻这一项不能选已婚、丧偶、离婚','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into hyzkCount from BA_BRZYXX ba where ba.brnl00<20 and ba.brxb00='女' and ba.hyzk00 in ('已婚','丧偶','离婚') and ba.lsh000=LS_BRZYXX.LSH000; if(hyzkCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'年龄小于法定结婚年龄,(女<20周岁),则婚姻这一项不能选已婚、丧偶、离婚','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /*if(LS_BRZYXX.HYZK00='未婚' and LS_BRZYXX.LXRGX0='配偶' or LS_BRZYXX.HYZK00='丧偶' and LS_BRZYXX.LXRGX0='配偶' or LS_BRZYXX.HYZK00='离婚' and LS_BRZYXX.LXRGX0='配偶') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婚姻状况为未婚、丧偶、离婚，则联系人与患者关系不能为配偶。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if(LS_BRZYXX.SSZDBM not like 'V%' and LS_BRZYXX.SSZDBM not like 'W%' and LS_BRZYXX.SSZDBM not like 'X%' and LS_BRZYXX.SSZDBM not like 'Y%' and LS_BRZYXX.SSZDBM <>'-') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'损伤、中毒外部原因编码范围：V、W、X、Y开头的。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into zdmCount1 from BQ_BASZDB bq where bq.Zyid00=LS_BRZYXX.LSH000 and substr(bq.Zdm000,1,3) in('C51','C52','C53','C54','C55','C56','C57','C58','N71','N72','N73','N74','N75','N76','N77','N78','N79','N80', 'N81','N82','N83','N84','N85','N86','N87','N88','N89','N90','N91','N92','N93','N94','N95','N96','N97','N98','Q50','Q51','Q52') and LS_BRZYXX.BRXB00='男'; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'性别为男，出院主要诊断编码/出院其他诊断编码不能出现C51~C58,N72~N98,Q50~Q52','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BQ_BASZDB bq where bq.Zyid00=LS_BRZYXX.LSH000 and substr(bq.Zdm000,1,5) in ('N99.2','N99.3','P54.6'); if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'性别为男，出院主要诊断编码/出院其他诊断编码不能出现N99.2,N99.3,P54.6','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zdmCount1 from BQ_BASZDB bq where bq.Zyid00=LS_BRZYXX.LSH000 and substr(bq.Zdm000,1,3) in ('C60','C61','C62','C63','N40','N41','N42','N43','N44','N45','N46','N47','N48','N49','N50','N51','Q53','Q54','Q55') and LS_BRZYXX.BRXB00='女'; if(zdmCount1>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'性别为女，出院主要诊断编码/出院其他诊断编码不能出现C60.~C63-，N40~N51、Q53~Q55。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /* select count(1) into zdmCount1 from BQ_BASZDB bq where exists(select 1 from xt_icd100 xt where xt.icd100=bq.zdm000 and xt.jbmc00=bq.zdmc00) and bq.zyid00=LS_BRZYXX.LSH000; if(zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'诊断名称和编码不具有一致性','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into ssCount from BA_BASSSB SX where exists(select 1 from xt_cm3000 xt where xt.cm3000=sx.ssm000 and xt.ssmc00=sx.ssmc00 ) and sx.lsh000=LS_BRZYXX.LSH000; if(zdmCount1=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术名称和编码不具有一致性','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ select count(1) into xbCount from xt_zd0000 xt where xt.zdmc00 like '%性别%' and xt.dm0000 =(select decode(ba.brxb00,'男','1','女','2','未知的性别','0','未说明的性别','9') brxb00 from ba_brzyxx ba where ba.lsh000 = LS_BRZYXX.LSH000); if(xbCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'性别值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into hyzkCount from xt_zd0000 xt where xt.zdmc00 like '%婚姻状态%' and xt.value0 =(select ba.hyzk00 from ba_brzyxx ba where ba.lsh000 = LS_BRZYXX.LSH000); if(hyzkCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'婚姻状况值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; --20210708 本次不校验入院情况值和职业值 /* if(LS_BRZYXX.ZY0000<>'职员' and LS_BRZYXX.ZY0000<>'国家公务员' and LS_BRZYXX.ZY0000<>'专业技术人员' and LS_BRZYXX.ZY0000<>'企业管理人员' and LS_BRZYXX.ZY0000<>'工人' and LS_BRZYXX.ZY0000<>'农民' and LS_BRZYXX.ZY0000<>'学生' and LS_BRZYXX.ZY0000<>'现役军人'and LS_BRZYXX.ZY0000<>'个体经营者' and LS_BRZYXX.ZY0000<>'无业人员' and LS_BRZYXX.ZY0000<>'退(离)休人员' and LS_BRZYXX.ZY0000<>'其他') then select count(1) into zyCount from xt_zd0000 xt where xt.zdmc00 like '%职业%' and xt.Value0 =LS_BRZYXX.ZY0000; if(zyCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'职业值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if;*/ /* if(LS_BRZYXX.RYQK00<>'危' and LS_BRZYXX.RYQK00<>'急' and LS_BRZYXX.RYQK00<>'一般') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院情况值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ select count(1) into zlxgCount from xt_zd0000 xt where xt.zdmc00 like '%治疗效果%' and xt.DM0000=(select zlxg00 from bq_baszdb bq where bq.zyid00=LS_BRZYXX.LSH000 and bq.zdlb00 not in ('1','2') and rownum=1); if(zlxgCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'治疗效果值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RH0000<>'未查' and LS_BRZYXX.RH0000<>'阴' and LS_BRZYXX.RH0000<>'阳' and LS_BRZYXX.RH0000<>'不详') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'RH值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.BAZL00 <>'甲' and LS_BRZYXX.BAZL00 <>'乙' and LS_BRZYXX.BAZL00 <>'丙') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'病案质量值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into ssCount from ba_basssb ss where ss.lsh000=LS_BRZYXX.Lsh000; if(ssCount>0)then select count(1) into mzfsCount from xt_zd0000 xt where xt.zdmc00 like '%麻醉方式%' and xt.value0=(select sb.mzfs00 from ba_basssb sb where sb.lsh000=LS_BRZYXX.Lsh000 and rownum=1); if(mzfsCount=0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'麻醉方式值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if;*/ ---查询是否有手术、介入治疗类型的病案，麻醉方式不在字典范围内 --modify by linng 2021.08.10 select count(1) into mzfsCount from (select sb.mzfs00 from ba_basssb sb, xt_cm3000 xt where 1=1 and sb.lsh000 in (select b1.lsh000 from ba_brzyxx b1 where b1.cyrq00 >='20210701' and b1.cyrq00<='20210731') and sb.ssm000 = xt.cm3000 and xt.lb0000 in ('手术', '介入治疗')) where mzfs00 not in (select zd.VALUE0 from xt_zd0000 zd where zd.zdmc00 = '麻醉方式'); if(mzfsCount=0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'麻醉方式值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into ssCount from ba_basssb sb where sb.lsh000=LS_BRZYXX.LSH000; if(ssCount>0)then select count(1) into qkyhdjCount from xt_zd0000 xt where xt.zdmc00 like '%切口愈合等级%' and xt.VALUE0=(select sb.qkyhdj from ba_basssb sb,xt_cm3000 xt where sb.lsh000=LS_BRZYXX.LSH000 and sb.ssm000=xt.cm3000 and xt.lb0000 in ('手术','介入治疗') and sb.qkyhdj is not null and rownum=1); if(qkyhdjCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'切口愈合等级值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if;*/ ---查询是否有手术、介入治疗类型的病案，切口愈合等级不在字典范围内 --modify by linng 2021.08.10 select count(1) into qkyhdjCount from (select sb.qkyhdj from ba_basssb sb, xt_cm3000 xt where 1=1 and sb.lsh000 =LS_BRZYXX.LSH000 and sb.ssm000 = xt.cm3000 and sb.qkyhdj is not null and xt.lb0000 in ('手术', '介入治疗')) where qkyhdj not in (select zd.VALUE0 from xt_zd0000 zd where zd.zdmc00 = '切口愈合等级'); if(qkyhdjCount>0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'切口愈合等级值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* if(LS_BRZYXX.SFSJ00<>'是' and LS_BRZYXX.SFSJ00<>'否' and LS_BRZYXX.SFSJ00<>'-')then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'是否尸检值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.SXFY00<>'未输' and LS_BRZYXX.SXFY00<>'有' and LS_BRZYXX.SXFY00<>'无') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'输血反应值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ if(LS_BRZYXX.LYFS00<>'医嘱离院' and LS_BRZYXX.LYFS00<>'医嘱转院' and LS_BRZYXX.LYFS00<>'医嘱转社区卫生' and LS_BRZYXX.LYFS00<>'医嘱转社区卫生服务机构' and LS_BRZYXX.LYFS00<>'医嘱转社区卫生服务机构/乡镇卫生院' and LS_BRZYXX.LYFS00<>'非医嘱离院' and LS_BRZYXX.LYFS00<>'死亡' and LS_BRZYXX.LYFS00<>'其他') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'离院方式值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into kbCount from BM_BMBM00 bm where bm.bmbh00=(select cykb00 from BA_BRZYXX ba where ba.lsh000=LS_BRZYXX.LSH000); if(kbCount=0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'科别值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.RYTJ00<>'1' and LS_BRZYXX.RYTJ00<>'2' and LS_BRZYXX.RYTJ00<>'3' and LS_BRZYXX.RYTJ00<>'9')then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院途径值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into rybqCount from XT_ZD0000 xt where xt.zdmc00 like '%入院病情%' and xt.value0=(select bq.rybq00 from bq_baszdb bq where bq.zyid00=LS_BRZYXX.LSH000 and bq.zdlb00<>'1' and rownum=1); if(rybqCount=0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'入院病情值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.ZZYJH0<>'无' and LS_BRZYXX.ZZYJH0<>'有') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院31天内再住院计划值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* select count(1) into ssCount from ba_basssb ss where ss.lsh000=LS_BRZYXX.LSH000; if(ssCount>0)then select count(1) into ssjbCount from xt_zd0000 xt where xt.zdmc00 like '%手术级别%' and xt.DM0000=(select decode(sb.sszl00,'一级','1','二级','2','三级','3','四级','4') from ba_basssb sb,xt_cm3000 xt where sb.lsh000=LS_BRZYXX.LSH000 and sb.ssm000=xt.cm3000 and xt.lb0000 in ('手术','介入治疗') and rownum=1); if(ssjbCount=0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术级别值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if;*/ ---查询是否有手术、介入治疗类型的病案，手术级别不在字典范围内 --modify by linng 2021.08.10 select count(1) into ssjbCount from (select decode(sb.sszl00, '一级', '1', '二级', '2', '三级', '3', '四级', '4','-1') ssdj00 from ba_basssb sb, xt_cm3000 xt where 1=1 and sb.lsh000 =LS_BRZYXX.LSH000 and sb.ssm000 = xt.cm3000 and xt.lb0000 in ('手术', '介入治疗')) where ssdj00 not in (select zd.dm0000 from xt_zd0000 zd where zd.zdmc00 = '手术级别代码'); if(ssjbCount>0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'手术级别值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(LS_BRZYXX.XX0000='A型' and LS_BRZYXX.XX0000='B型' and LS_BRZYXX.XX0000='AB型' and LS_BRZYXX.XX0000='O型' and LS_BRZYXX.XX0000='不祥' and LS_BRZYXX.XX0000='未查') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'血型值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into jffsCount from XT_ZD0000 xt where xt.ZDBM00 like 'JFFS01%' and xt.value0=LS_BRZYXX.Jffs00; if(jffsCount=0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'医疗付费方式值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; /* if(LS_BRZYXX.LXRGX0<>'兄、弟、姐、妹' and LS_BRZYXX.LXRGX0<>'子' and LS_BRZYXX.LXRGX0<>'配偶' and LS_BRZYXX.LXRGX0<>'其他' and LS_BRZYXX.LXRGX0<>'孙子' and LS_BRZYXX.LXRGX0<>'孙女' and LS_BRZYXX.LXRGX0<>'外孙子' and LS_BRZYXX.LXRGX0<>'外孙女' and LS_BRZYXX.LXRGX0<>'祖父母' and LS_BRZYXX.LXRGX0<>'外祖父母' and LS_BRZYXX.LXRGX0<>'兄弟姐妹' and LS_BRZYXX.LXRGX0<>'同事同学' and LS_BRZYXX.LXRGX0<>'父母' and LS_BRZYXX.LXRGX0<>'女' and LS_BRZYXX.LXRGX0<>'本人或户主')then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'联系人关系值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /* if(LS_BRZYXX.SFYWGM<>'有' and LS_BRZYXX.SFYWGM<>'无') then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'药物过敏值不在字典值内','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ /*if(trim(translate(LS_BRZYXX.HMRYQD,'0123456789',' '))is not null or LS_BRZYXX.HMRYQD<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院前昏迷时间（天）不能为空，且为大于等于0整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(trim(translate(LS_BRZYXX.HMRYQH,'0123456789',' '))is not null or LS_BRZYXX.HMRYQH>24 or LS_BRZYXX.HMRYQH<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院前昏迷时间(小时)不能为空，且为大于等于0，小于24整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(trim(translate(LS_BRZYXX.HMRYQM,'0123456789',' '))is not null or LS_BRZYXX.HMRYQM>24 or LS_BRZYXX.HMRYQM<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院前昏迷时间（分钟）不能为空，且为大于等于0，小于60整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(trim(translate(LS_BRZYXX.HMRYHD,'0123456789',' '))is not null or LS_BRZYXX.HMRYHD<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院后昏迷时间（天）不能为空，且为大于等于0整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(trim(translate(LS_BRZYXX.HMRYHH,'0123456789',' '))is not null or LS_BRZYXX.HMRYHH>24 or LS_BRZYXX.HMRYHH<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院后昏迷时间（天）不能为空，且为大于等于0整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; if(trim(translate(LS_BRZYXX.HMRYHM,'0123456789',' '))is not null or LS_BRZYXX.HMRYHM>60 or LS_BRZYXX.HMRYHM<0) then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'颅脑损伤患者入院后昏迷时间（分钟）不能为空，且为大于等于0，小于60整数。','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if;*/ select count(1) into zdmCount1 from bq_baszdb zd where zd.zyid00=LS_BRZYXX.LSH000 and zd.zdm000='-'; if(zdmCount1>0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出院诊断疾病编码字段值错误，不能为''-''','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; commit; if(LS_BRZYXX.ZKRQ00 is not null)then if(length(LS_BRZYXX.ZKRQ00)<>8)then if(LS_BRZYXX.ZKRQ00 = '-')then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'质控日期值不能为-','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end if; end if; select count(1) into zlxgCount from ba_brzyfy fy where fy.zyid00=LS_BRZYXX.LSH000 and fy.jicurq is not null and fy.jicurq||' '||fy.jicusj='--'; if(zlxgCount>0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'进ICU时间不能为-','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; select count(1) into zlxgCount from ba_brzyfy fy where fy.zyid00=LS_BRZYXX.LSH000 and fy.cicurq is not null and fy.cicurq||' '||fy.cicusj='--'; if(zlxgCount>0)then insert into BA_ZKJL00(LSH000,WTSZ00,LX0000,TYPE00,CJR000,CJRQ00,CJSJ00) values(LS_BRZYXX.LSH000,'出ICU时间不能为-','3','3',as_cjr000,to_char(sysdate,'yyyyMMdd'),to_char(sysdate,'hh24miss')); end if; end loop; close CUR_BRZYXX; exception when others then raise_application_error(-20001,'流水号'||LS_BRZYXX.LSH000||'执行过程SP_BA_BASSJZKXY出错！'); end; create or replace view vw_ba_sjjxbassj as select BA.BAH000,BA.LSH000,BA.ZYYLJG,BA.ZKRQ00,BA.RYRQ00,BA.BRCSRQ,BA.BRNL00,BA.CYRQ00,BA.YECSTZ,BA.SFYWGM,BA.GMYW00,BA.LYFS00, BA.ZYCS00,BA.RYSJ00,BA.CYSJ00,BA.ZYTS00,BA.BRNLDD,BA.YERYTZ,BA.RYBF00,BA.CYBF00,BA.CSDS00,BA.SFZH00,BA.XZZXC0,BA.XZZDH0,BA.XZZYB0,BA.JTDZ00,BA.JTYB00, BA.GZDW00,BA.GZDH00,BA.GZYB00,BA.LXRXM0,BA.LXRDZ0,BA.LXRDH0,BA.LXRGX0,BA.JFFS00,BA.BRXM00,BA.GJ0000,BA.JGSF00,BA.MZ0000,BA.ZY0000,BA.HYZK00,BA.RYTJ00, BA.ZZYJH0,BA.ZZYMD0,BA.ZZZYZJ,BA.ZLSB00,BA.ZLJS00,BA.BZSH00,BA.CYKB00,BA.XX0000,BA.RH0000,BA.KZR000,BA.FZR000,BA.ZZYS00,BA.ZYYS00,BA.ZRHS00,BA.SHRXM0, BA.HMRYQD,BA.HMRYQH,BA.HMRYQM,BA.HMRYHD,BA.HMRYHH,BA.HMRYHM,BA.SFSJ00,BA.BRNLMM,BA.RYKB00,ba.zrhsmc,--临时增加责任护士名称 BA.JKDAH0,BA.ZYH000,BA.ZJE000,FY.ZYID00,BA.SHBZ00,BA.CSSF00, BA.BRXB00,BA.RYQK00,BA.BAZL00,BA.SXFY00,BA.BLH000, SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'1',2,1) MZZD,--门诊诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'1',0,1) MZZD_JBBM,--门诊诊断编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'3',2,1) ZYZD,--主要诊断出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'3',0,1) ZYZD_JBBM,--主要诊断疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'3',4,1) XY_RYBQ,--主要诊断入院病情 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,1) QTZD1, --其他诊断2出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,1) ZYZD_JBBM1, --其他诊断2疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',4,1) RYBQ1, --其他诊断2入院病情 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,2) QTZD2, --其他诊断2出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,2) ZYZD_JBBM2, --其他诊断2疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',4,2) RYBQ2, --其他诊断2入院病情 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,3) QTZD3,--其他诊断3出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,3) ZYZD_JBBM3, --其他诊断3疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',4,3) RYBQ3, --其他诊断入院病情3 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,4) QTZD4, --其他诊断4出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,4) ZYZD_JBBM4, --其他诊断4疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',4,4) RYBQ4,--其他诊断入院病情4 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,5) QTZD5,--其他诊断5出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,5) ZYZD_JBBM5, --其他诊断5疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',4,5) RYBQ5, --其他诊断入院病情5 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,6) QTZD6,--其他诊断6出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,6) ZYZD_JBBM6,--其他诊断6疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,6) RYBQ6,--其他诊断入院病情6 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,7) QTZD7,--其他诊断7出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,7) ZYZD_JBBM7,--其他诊断7疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,7) RYBQ7, --其他诊断入院病情7 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,8) QTZD8,--其他诊断8出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,8) ZYZD_JBBM8,--其他诊断8疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,8) RYBQ8, --其他诊断入院病情8 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,9) QTZD9,--其他诊断9出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,9) ZYZD_JBBM9,--其他诊断9疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,9) RYBQ9, --其他诊断入院病情9 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,10) QTZD10,--其他诊断10出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,10) ZYZD_JBBM10,--其他诊断10疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,10) RYBQ10, --其他诊断入院病情10 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,11) QTZD11,--其他诊断11出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,11) ZYZD_JBBM11,--其他诊断11疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,11) RYBQ11, --其他诊断入院病情11 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,12) QTZD12,--其他诊断12出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,12) ZYZD_JBBM12,--其他诊断12疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,12) RYBQ12, --其他诊断入院病情12 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,13) QTZD13,--其他诊断13出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,13) ZYZD_JBBM13,--其他诊断13疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,13) RYBQ13, --其他诊断入院病情13 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,14) QTZD14,--其他诊断14出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,14) ZYZD_JBBM14,--其他诊断14疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,14) RYBQ14, --其他诊断入院病情14 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,15) QTZD15,--其他诊断15出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,15) ZYZD_JBBM15,--其他诊断15疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,15) RYBQ15, --其他诊断入院病情15 /*SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,16) QTZD16,--其他诊断16出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,16) ZYZD_JBBM16,--其他诊断16疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,16) RYBQ16, --其他诊断入院病情16 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,17) QTZD17,--其他诊断17出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,17) ZYZD_JBBM17,--其他诊断17疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,17) RYBQ17, --其他诊断入院病情17 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,18) QTZD18,--其他诊断18出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,18) ZYZD_JBBM18,--其他诊断18疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,18) RYBQ18, --其他诊断入院病情18 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,19) QTZD19,--其他诊断19出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,19) ZYZD_JBBM19,--其他诊断19疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,19) RYBQ19, --其他诊断入院病情19 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,20) QTZD20,--其他诊断20出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,20) ZYZD_JBBM20,--其他诊断20疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,20) RYBQ20, --其他诊断入院病情20 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,21) QTZD21,--其他诊断21出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,21) ZYZD_JBBM21,--其他诊断21疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,21) RYBQ21, --其他诊断入院病情21 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,22) QTZD22,--其他诊断22出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,22) ZYZD_JBBM22,--其他诊断22疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,22) RYBQ22, --其他诊断入院病情22 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,23) QTZD23,--其他诊断23出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,23) ZYZD_JBBM23,--其他诊断23疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,23) RYBQ23, --其他诊断入院病情23 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,24) QTZD24,--其他诊断24出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,24) ZYZD_JBBM24,--其他诊断24疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,24) RYBQ24, --其他诊断入院病情24 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,25) QTZD25,--其他诊断25出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,25) ZYZD_JBBM25,--其他诊断25疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,25) RYBQ25, --其他诊断入院病情25 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,26) QTZD26,--其他诊断26出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,26) ZYZD_JBBM26,--其他诊断26疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,26) RYBQ26, --其他诊断入院病情26 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,27) QTZD27,--其他诊断27出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,27) ZYZD_JBBM27,--其他诊断27疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,27) RYBQ27, --其他诊断入院病情27 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,28) QTZD28,--其他诊断28出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,28) ZYZD_JBBM28,--其他诊断28疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,28) RYBQ28, --其他诊断入院病情28 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,29) QTZD29,--其他诊断29出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,29) ZYZD_JBBM29,--其他诊断29疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,29) RYBQ29, --其他诊断入院病情29 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,30) QTZD30,--其他诊断30出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,30) ZYZD_JBBM30,--其他诊断30疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,30) RYBQ30, --其他诊断入院病情30 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,31) QTZD31,--其他诊断31出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,31) ZYZD_JBBM31,--其他诊断31疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,31) RYBQ31, --其他诊断入院病情31 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,32) QTZD32,--其他诊断32出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,32) ZYZD_JBBM32,--其他诊断32疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,32) RYBQ32, --其他诊断入院病情32 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,33) QTZD33,--其他诊断33出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,33) ZYZD_JBBM33,--其他诊断33疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,33) RYBQ33, --其他诊断入院病情33 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,34) QTZD34,--其他诊断34出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,34) ZYZD_JBBM34,--其他诊断34疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,34) RYBQ34, --其他诊断入院病情34 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,35) QTZD35,--其他诊断35出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,35) ZYZD_JBBM35,--其他诊断35疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,35) RYBQ35, --其他诊断入院病情35 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,36) QTZD36,--其他诊断36出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,36) ZYZD_JBBM36,--其他诊断36疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,36) RYBQ36, --其他诊断入院病情36 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,37) QTZD37,--其他诊断37出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,37) ZYZD_JBBM37,--其他诊断37疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,37) RYBQ37, --其他诊断入院病情37 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,38) QTZD38,--其他诊断38出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,38) ZYZD_JBBM38,--其他诊断38疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,38) RYBQ38, --其他诊断入院病情38 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,39) QTZD39,--其他诊断39出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,39) ZYZD_JBBM39,--其他诊断39疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,39) RYBQ39, --其他诊断入院病情39 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',2,40) QTZD40,--其他诊断40出院西医诊断 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',0,40) ZYZD_JBBM40,--其他诊断40疾病编码 SF_BA_GETZDMRYBQZLXG20(BA.LSH000,'4',1,40) RYBQ40, --其他诊断入院病情40*/ SF_BA_GETBABRSSXX20(BA.LSH000,0,1) SSJCZBM1,--手术操作编码1 SF_BA_GETBABRSSXX20(BA.LSH000,3,1) SSJCZMC1,--主要手术操作名称 SF_BA_GETBABRSSXX20(BA.LSH000,15,1) SSJCZRQ1,--手术操作日期1 SF_BA_GETBABRSSXX20(BA.LSH000,1,1) SSSJ001,--手术时间 SF_BA_GETBABRSSXX20(BA.LSH000,2,1) SHJB1,--手术级别1 SF_BA_GETBABRSSXX20(BA.LSH000,6,1) SZ1,--术者1 SF_BA_GETBABRSSXX20(BA.LSH000,7,1) YZ1,--I助1 SF_BA_GETBABRSSXX20(BA.LSH000,8,1) EZ1,--II助1 SF_BA_GETBABRSSXX20(BA.LSH000,9,1) MZFS1, SF_BA_GETBABRSSXX20(BA.LSH000,12,1) MZYS1, --麻醉医师1 SF_BA_GETBABRSSXX20(BA.LSH000,0,2) SSJCZBM2,--手术操作编码2 SF_BA_GETBABRSSXX20(BA.LSH000,0,3) SSJCZBM3,--手术操作编码3 SF_BA_GETBABRSSXX20(BA.LSH000,0,4) SSJCZBM4,--手术操作编码4 SF_BA_GETBABRSSXX20(BA.LSH000,0,5) SSJCZBM5,--手术操作编码5 SF_BA_GETBABRSSXX20(BA.LSH000,0,6) SSJCZBM6,--手术操作编码6 SF_BA_GETBABRSSXX20(BA.LSH000,0,7) SSJCZBM7,--手术操作编码7 SF_BA_GETBABRSSXX20(BA.LSH000,0,8) SSJCZBM8,--手术操作编码8 SF_BA_GETBABRSSXX20(BA.LSH000,0,9) SSJCZBM9,--手术操作编码9 SF_BA_GETBABRSSXX20(BA.LSH000,0,10) SSJCZBM10,--手术操作编码10 SF_BA_GETBABRSSXX20(BA.LSH000,0,11) SSJCZBM11,--手术操作编码11 SF_BA_GETBABRSSXX20(BA.LSH000,0,12) SSJCZBM12,--手术操作编码12 SF_BA_GETBABRSSXX20(BA.LSH000,0,13) SSJCZBM13,--手术操作编码13 SF_BA_GETBABRSSXX20(BA.LSH000,0,14) SSJCZBM14,--手术操作编码14 SF_BA_GETBABRSSXX20(BA.LSH000,0,15) SSJCZBM15,--手术操作编码15 /*SF_BA_GETBABRSSXX20(BA.LSH000,0,16) SSJCZBM16,--手术操作编码16 SF_BA_GETBABRSSXX20(BA.LSH000,0,17) SSJCZBM17,--手术操作编码17 SF_BA_GETBABRSSXX20(BA.LSH000,0,18) SSJCZBM18,--手术操作编码18 SF_BA_GETBABRSSXX20(BA.LSH000,0,19) SSJCZBM19,--手术操作编码19 SF_BA_GETBABRSSXX20(BA.LSH000,0,20) SSJCZBM20,--手术操作编码20 SF_BA_GETBABRSSXX20(BA.LSH000,0,21) SSJCZBM21,--手术操作编码21 SF_BA_GETBABRSSXX20(BA.LSH000,0,22) SSJCZBM22,--手术操作编码22 SF_BA_GETBABRSSXX20(BA.LSH000,0,23) SSJCZBM23,--手术操作编码23 SF_BA_GETBABRSSXX20(BA.LSH000,0,24) SSJCZBM24,--手术操作编码24 SF_BA_GETBABRSSXX20(BA.LSH000,0,25) SSJCZBM25,--手术操作编码25 SF_BA_GETBABRSSXX20(BA.LSH000,0,26) SSJCZBM26,--手术操作编码26 SF_BA_GETBABRSSXX20(BA.LSH000,0,27) SSJCZBM27,--手术操作编码27 SF_BA_GETBABRSSXX20(BA.LSH000,0,28) SSJCZBM28,--手术操作编码28 SF_BA_GETBABRSSXX20(BA.LSH000,0,29) SSJCZBM29,--手术操作编码29 SF_BA_GETBABRSSXX20(BA.LSH000,0,30) SSJCZBM30,--手术操作编码30 SF_BA_GETBABRSSXX20(BA.LSH000,0,31) SSJCZBM31,--手术操作编码31 SF_BA_GETBABRSSXX20(BA.LSH000,0,32) SSJCZBM32,--手术操作编码31 SF_BA_GETBABRSSXX20(BA.LSH000,0,33) SSJCZBM33,--手术操作编码33 SF_BA_GETBABRSSXX20(BA.LSH000,0,34) SSJCZBM34,--手术操作编码34 SF_BA_GETBABRSSXX20(BA.LSH000,0,35) SSJCZBM35,--手术操作编码35 SF_BA_GETBABRSSXX20(BA.LSH000,0,36) SSJCZBM36,--手术操作编码36 SF_BA_GETBABRSSXX20(BA.LSH000,0,37) SSJCZBM37,--手术操作编码37 SF_BA_GETBABRSSXX20(BA.LSH000,0,38) SSJCZBM38,--手术操作编码38 SF_BA_GETBABRSSXX20(BA.LSH000,0,39) SSJCZBM39,--手术操作编码39 SF_BA_GETBABRSSXX20(BA.LSH000,0,40) SSJCZBM40,--手术操作编码40*/ SF_BA_GETBABRSSXX20(BA.LSH000,3,2) SSJCZMC2,--手术操作名称2 SF_BA_GETBABRSSXX20(BA.LSH000,3,3) SSJCZMC3,--手术操作名称3 SF_BA_GETBABRSSXX20(BA.LSH000,3,4) SSJCZMC4,--手术操作名称4 SF_BA_GETBABRSSXX20(BA.LSH000,3,5) SSJCZMC5,--手术操作名称5 SF_BA_GETBABRSSXX20(BA.LSH000,3,6) SSJCZMC6,--手术操作名称6 SF_BA_GETBABRSSXX20(BA.LSH000,3,7) SSJCZMC7,--手术操作名称7 SF_BA_GETBABRSSXX20(BA.LSH000,3,8) SSJCZMC8,--手术操作名称8 SF_BA_GETBABRSSXX20(BA.LSH000,3,9) SSJCZMC9,--手术操作名称9 SF_BA_GETBABRSSXX20(BA.LSH000,3,10) SSJCZMC10,--手术操作名称10 SF_BA_GETBABRSSXX20(BA.LSH000,3,11) SSJCZMC11,--手术操作名称11 SF_BA_GETBABRSSXX20(BA.LSH000,3,12) SSJCZMC12,--手术操作名称12 SF_BA_GETBABRSSXX20(BA.LSH000,3,13) SSJCZMC13,--手术操作名称13 SF_BA_GETBABRSSXX20(BA.LSH000,3,14) SSJCZMC14,--手术操作名称14 SF_BA_GETBABRSSXX20(BA.LSH000,3,15) SSJCZMC15,--手术操作名称15 /*SF_BA_GETBABRSSXX20(BA.LSH000,3,16) SSJCZMC16,--手术操作名称16 SF_BA_GETBABRSSXX20(BA.LSH000,3,17) SSJCZMC17,--手术操作名称17 SF_BA_GETBABRSSXX20(BA.LSH000,3,18) SSJCZMC18,--手术操作名称18 SF_BA_GETBABRSSXX20(BA.LSH000,3,19) SSJCZMC19,--手术操作名称19 SF_BA_GETBABRSSXX20(BA.LSH000,3,20) SSJCZMC20,--手术操作名称20 SF_BA_GETBABRSSXX20(BA.LSH000,3,21) SSJCZMC21,--手术操作名称21 SF_BA_GETBABRSSXX20(BA.LSH000,3,22) SSJCZMC22,--手术操作名称22 SF_BA_GETBABRSSXX20(BA.LSH000,3,23) SSJCZMC23,--手术操作名称23 SF_BA_GETBABRSSXX20(BA.LSH000,3,24) SSJCZMC24,--手术操作名称24 SF_BA_GETBABRSSXX20(BA.LSH000,3,25) SSJCZMC25,--手术操作名称25 SF_BA_GETBABRSSXX20(BA.LSH000,3,26) SSJCZMC26,--手术操作名称26 SF_BA_GETBABRSSXX20(BA.LSH000,3,27) SSJCZMC27,--手术操作名称27 SF_BA_GETBABRSSXX20(BA.LSH000,3,28) SSJCZMC28,--手术操作名称28 SF_BA_GETBABRSSXX20(BA.LSH000,3,29) SSJCZMC29,--手术操作名称29 SF_BA_GETBABRSSXX20(BA.LSH000,3,30) SSJCZMC30,--手术操作名称30 SF_BA_GETBABRSSXX20(BA.LSH000,3,31) SSJCZMC31,--手术操作名称31 SF_BA_GETBABRSSXX20(BA.LSH000,3,32) SSJCZMC32,--手术操作名称32 SF_BA_GETBABRSSXX20(BA.LSH000,3,33) SSJCZMC33,--手术操作名称33 SF_BA_GETBABRSSXX20(BA.LSH000,3,34) SSJCZMC34,--手术操作名称34 SF_BA_GETBABRSSXX20(BA.LSH000,3,35) SSJCZMC35,--手术操作名称35 SF_BA_GETBABRSSXX20(BA.LSH000,3,36) SSJCZMC36,--手术操作名称36 SF_BA_GETBABRSSXX20(BA.LSH000,3,37) SSJCZMC37,--手术操作名称37 SF_BA_GETBABRSSXX20(BA.LSH000,3,38) SSJCZMC38,--手术操作名称38 SF_BA_GETBABRSSXX20(BA.LSH000,3,39) SSJCZMC39,--手术操作名称39 SF_BA_GETBABRSSXX20(BA.LSH000,3,40) SSJCZMC40,--手术操作名称40*/ SF_BA_GETBABRSSXX20(BA.LSH000,15,2) SSJCZRQ2,--手术操作日期2 SF_BA_GETBABRSSXX20(BA.LSH000,1,2) SSSJ002,--手术时间 SF_BA_GETBABRSSXX20(BA.LSH000,15,3) SSJCZRQ3,--手术操作日期3 SF_BA_GETBABRSSXX20(BA.LSH000,1,3) SSSJ003,--手术时间 SF_BA_GETBABRSSXX20(BA.LSH000,15,4) SSJCZRQ4,--手术操作日期4 SF_BA_GETBABRSSXX20(BA.LSH000,1,4) SSSJ004,--手术时间 SF_BA_GETBABRSSXX20(BA.LSH000,2,2) SHJB2,--手术级别2 --SF_BA_GETBABRSSXX20(BA.LSH000,2,3) SHJB3,--手术级别3 --SF_BA_GETBABRSSXX20(BA.LSH000,2,4) SHJB4,--手术级别4 --SF_BA_GETBABRSSXX20(BA.LSH000,2,5) SHJB5,--手术级别5 --SF_BA_GETBABRSSXX20(BA.LSH000,2,6) SHJB6,--手术级别6 SF_BA_GETBABRSSXX20(BA.LSH000,6,2) SZ2,--术者2 SF_BA_GETBABRSSXX20(BA.LSH000,6,3) SZ3,--术者3 SF_BA_GETBABRSSXX20(BA.LSH000,6,4) SZ4,--术者4 SF_BA_GETBABRSSXX20(BA.LSH000,7,2) YZ2,--I助2 SF_BA_GETBABRSSXX20(BA.LSH000,7,3) YZ3,--I助3 SF_BA_GETBABRSSXX20(BA.LSH000,7,4) YZ4,--I助4 SF_BA_GETBABRSSXX20(BA.LSH000,8,2) EZ2,--II助2 SF_BA_GETBABRSSXX20(BA.LSH000,8,3) EZ3,--II助3 SF_BA_GETBABRSSXX20(BA.LSH000,8,4) EZ4,--II助4 SF_BA_GETBABRSSXX20(BA.LSH000,9,2) MZFS2, --SF_BA_GETBABRSSXX20(BA.LSH000,9,3) MZFS3, --SF_BA_GETBABRSSXX20(BA.LSH000,9,4) MZFS4, SF_BA_GETBABRSSXX20(BA.LSH000,11,1) QKYHDJ1,--切口愈合等级1 --SF_BA_GETBABRSSXX20(BA.LSH000,12,2) MZYS2, --麻醉医师2 --SF_BA_GETBABRSSXX20(BA.LSH000,12,3) MZYS3, --麻醉医师3 --SF_BA_GETBABRSSXX20(BA.LSH000,12,4) MZYS4, --麻醉医师4 (select ZD.BLZDBM from BA_BASZYB ZD where ZD.LSH000=BA.LSH000) BLZDBM,--疾病编码 (select ZD.BLZD00 from BA_BASZYB ZD where ZD.LSH000=BA.LSH000) BLZD00,--病理诊断, (select BL.SSZDBM from BA_BASZYB BL where BL.LSH000=BA.LSH000) SSZDBM, (select BL.SSZDWY from BA_BASZYB BL where BL.LSH000=BA.LSH000) SSZDWY, --中毒的外部原因 BA.ZZYJH0 ZZYJH, --出院31天内再住院计划 FY.ZYZFY0, --总费用 FY.ZFJE00, --自付金额 FY.YBYLFW, --一般医疗服务费 FY.ZYBZLZ, --中医辨证论治费 FY.ZYBZHZ, --中医辨证论治会诊费 FY.YBZLCZ, --一般治疗操作费 FY.HLF000, --护理费 FY.QTFY00,--综合医疗服务类(1)其他费用 FY.BLZDF0, --病理诊断费 FY.SYSZDF, --实验室诊断费 FY.YXXZDF, --影像学诊断费 FY.LCZDXM, --临床诊断项目费 FY.FSSZLF, --非手术治疗项目费 FY.LCWLZL, --临床物理治疗费 FY.SSZLF0, --手术治疗费 FY.MZF000, --麻醉费 FY.MZF000 FY.SSF000, --手术费 FY.SSF000 FY.KFF000, --康复费 FY.ZYZD00,--中医诊断 FY.ZYZL00,--中医治疗 FY.ZYWZ00,--中医外治 FY.ZYGS00,--中医骨伤 FY.ZCYJF0,--针刺与灸法 FY.ZYTNZL,--中医推拿治疗 FY.ZYGCZL,--中医肛肠治疗 FY.ZYTSZL,--中医特殊治疗 FY.ZYQT00,--中医其他 FY.ZYTSTP,--中医特殊调配加工 FY.BZSSF0,--辨证施膳 FY.XYF000, --西药费 FY.KJYWF0, --抗菌药物费 FY.ZCYF00, --中成药费 FY.ZYZJF0,--医疗机构中药制剂费 FY.ZCYF10, --中草药费 FY.XF0000, --血费 FY.BDBLZP, --白蛋白类制品费 FY.QDBLZP, --球蛋白类制品费 FY.NXYZZP, --凝血因子类制品费 FY.XBYZZP, --细胞因子类制品费 FY.JCYCLF, --检查用一次性医用材料费 FY.ZLYCLF, --治疗用一次性医用材料费 FY.SSYCLF, --手术用一次性医用材料费 FY.QTF000 --其他费 from BA_BRZYXX BA,BA_SYFYB0 FY where BA.LSH000=FY.ZYID00;