CREATE OR REPLACE PROCEDURE SP_JY_WJZCX0 (PRQFW00 in varchar2, PYBH000 in varchar2, PSQMX00 in varchar2, PSQKS00 in varchar2, PBRLX00 in varchar2, PXBMC00 in varchar2, PNL0000 in varchar2, PZYHGHH in varchar2, PBBMC00 in varchar2, PYQDH00 in varchar2, PTJLB00 in char) as JY_SFZCXSHHDWJZ xt_xtcs00.value0%type; lsstart CHAR(20); --Person Date Comments --xutz 20160108 修改统计方式,增加过程用于危急值结果查询 for LIS-20151117-001 begin delete from time_ls; lsstart := to_char(sysdate,'HH24:MI:SS'); insert into time_ls(lsstart,lsend,lsbz) values(lsstart,to_char(sysdate,'HH24:MI:SS'),'1'); lsstart := to_char(sysdate,'HH24:MI:SS'); sp_execute_sql('truncate table jy_wjybcx'); insert into time_ls(lsstart,lsend,lsbz) values(lsstart,to_char(sysdate,'HH24:MI:SS'),'1'); lsstart := to_char(sysdate,'HH24:MI:SS'); begin select trim(value0) into JY_SFZCXSHHDWJZ from xt_xtcs00 where name00='JY_SFZCXSHHDWJZ'; exception when others then JY_SFZCXSHHDWJZ:='N'; end; if PTJLB00 ='1' then if JY_SFZCXSHHDWJZ<>'Y' then insert into time_ls(lsstart,lsend,lsbz) values(lsstart,to_char(sysdate,'HH24:MI:SS'),'2'); commit; lsstart := to_char(sysdate,'HH24:MI:SS'); sp_execute_sql('insert into jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 , ZLXMJC , BGSJ00 , BRXM00 , BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 ) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, ' || 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ, ' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC, ' || ''''' BGSJ00,B.BRXM00,0 BGCKR0,CKRXM0,'''' BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,''4'' JGZT00,0 BGR000,'''' BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00, '|| ' (select CZYXM0 from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) CZYXM0 , '|| ' (select DJRQSJ from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) DJRQSJ,''1'' '|| 'FROM VW_JY_YW0000 B,VW_JY_FCJL00 A ' || 'WHERE A.JYYWID = B.JYYWID AND A.SFCJJZ = ''Y'' ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00||PYQDH00); sp_execute_sql('insert into jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 , ZLXMJC , BGSJ00 , BRXM00 , BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 ) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, ' || 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ, ' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC, ' || ''''' BGSJ00,B.BRXM00,0 BGCKR0,CKRXM0,'''' BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,B.JGZT00,0 BGR000,'''' BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00, ' || ' (select CZYXM0 from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) CZYXM0 , '|| ' (select DJRQSJ from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) DJRQSJ,''1'' '|| 'FROM VW_JY_YW0000 B ,VW_JY_JYJG00_TEMP A ' || 'WHERE A.JYYWID = B.JYYWID AND A.SFCJJZ = ''Y'' ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00||PYQDH00); INSERT into TIME_LS SELECT 1,1,4 FROM DUAL; end if; insert into time_ls(lsstart,lsend,lsbz) values(lsstart,to_char(sysdate,'HH24:MI:SS'),'3'); lsstart := to_char(sysdate,'HH24:MI:SS'); sp_execute_sql('insert into jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 , ZLXMJC , BGSJ00 , BRXM00 , BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 ) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, ' || 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ, ' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC, ' || 'BGRQ00||'' ''||BGSJ00 BGSJ00,B.BRXM00,B.BGCKR0,B.CKRXM0,B.BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,B.JGZT00,B.BGR000,B.BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00 , ' || ' (select CZYXM0 from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) CZYXM0 , '|| ' (select DJRQSJ from JY_WJZJLD where pyrq00=B.PYRQ00 and ybh000=B.YBH000 and rownum=1) DJRQSJ,''1'' '|| 'FROM VW_JY_YW0000 B,VW_JY_JYJG00 A ' || 'WHERE A.JYYWID = B.JYYWID AND A.SFCJJZ||''B'' = ''YB'' ' || 'AND B.JGZT00||''A'' IN (''6A'', ''8A'', ''9A'') ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00 ||PYQDH00); INSERT into TIME_LS SELECT 1,1,6 FROM DUAL; ELSIF PTJLB00='2' THEN sp_execute_sql('INSERT INTO jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 , ZLXMJC , BGSJ00 , BRXM00 , BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 )'|| ' (JYYWID,ZLXMID,PYRQ00,YBH000,BGXMID,ZWMC00,JGLX00,JYJG00,JGZCBZ,FCXH00,CZR000,CKXX00,CKSX00,JJZSX0,JJZXX0,SFCJJZ, '|| 'BRID00,ZYHGHH,BRLX00,SQKS00,TXM000,QSSJ00,ZLXMJC,BGSJ00,BRXM00,BGCKR0,CKRXM0,BGCKSJ,XBMC00,NL0000,CH0000,DYBZ00, '|| 'YXBZ00,JGZT00,BGR000,BGRXM0,SQKSMC,MZZYBZ,XB0000,BBMC00,tjlb00) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, '|| 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ, ' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC, ' || ''''' BGSJ00,B.BRXM00,0 BGCKR0,CKRXM0,'''' BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,''4'' JGZT00,0 BGR000,'''' BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00,''2'' ' || 'FROM VW_JY_FCJL00 A, VW_JY_YW0000 B ' || 'WHERE A.JYYWID = B.JYYWID AND B.SFYB00 = ''Y'' ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00 ||PYQDH00); sp_execute_sql('INSERT INTO jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 , ZLXMJC , BGSJ00 , BRXM00 , BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 )'|| ' (JYYWID,ZLXMID,PYRQ00,YBH000,BGXMID,ZWMC00,JGLX00,JYJG00,JGZCBZ,FCXH00,CZR000,CKXX00,CKSX00,JJZSX0,JJZXX0,SFCJJZ, '|| 'BRID00,ZYHGHH,BRLX00,SQKS00,TXM000,QSSJ00,ZLXMJC,BGSJ00,BRXM00,BGCKR0,CKRXM0,BGCKSJ,XBMC00,NL0000,CH0000,DYBZ00, '|| 'YXBZ00,JGZT00,BGR000,BGRXM0,SQKSMC,MZZYBZ,XB0000,BBMC00,tjlb00) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, ' || 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ,' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC,' || ''''' BGSJ00,B.BRXM00,0 BGCKR0,CKRXM0,'''' BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,B.JGZT00,0 BGR000,'''' BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00,''2'' ' || 'FROM VW_JY_JYJG00_TEMP A, VW_JY_YW0000 B ' || 'WHERE A.JYYWID = B.JYYWID AND B.SFYB00 = ''Y'' ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00 ||PYQDH00); sp_execute_sql('INSERT INTO jy_wjybcx(JYYWID ,ZLXMID , PYRQ00 , YBH000 , BGXMID , ZWMC00 , JGLX00 , JYJG00 , JGZCBZ , FCXH00, CZR000 , CKXX00 , CKSX00 , JJZSX0, JJZXX0 , SFCJJZ , BRID00 , ZYHGHH , BRLX00 , SQKS00 , TXM000 , QSSJ00 ,ZLXMJC, BGSJ00, BRXM00, BGCKR0 , CKRXM0 , BGCKSJ , XBMC00 , NL0000 , CH0000 , DYBZ00 , YXBZ00 , JGZT00 , BGR000 , BGRXM0 , SQKSMC , MZZYBZ , XB0000 , BBMC00 , CZYXM0 , DJRQSJ , TJLB00 )'|| ' (JYYWID,ZLXMID,PYRQ00,YBH000,BGXMID,ZWMC00,JGLX00,JYJG00,JGZCBZ,FCXH00,CZR000,CKXX00,CKSX00,JJZSX0,JJZXX0,SFCJJZ, '|| 'BRID00,ZYHGHH,BRLX00,SQKS00,TXM000,QSSJ00,ZLXMJC,BGSJ00,BRXM00,BGCKR0,CKRXM0,BGCKSJ,XBMC00,NL0000,CH0000,DYBZ00, '|| 'YXBZ00,JGZT00,BGR000,BGRXM0,SQKSMC,MZZYBZ,XB0000,BBMC00,tjlb00) '|| 'SELECT A.JYYWID,A.ZLXMID,A.PYRQ00,A.YBH000,A.BGXMID,A.ZWMC00,A.JGLX00,A.JYJG00,A.JGZCBZ,A.FCXH00, ' || 'A.CZR000,A.CKXX00,A.CKSX00,A.JJZSX0,A.JJZXX0,A.SFCJJZ,' || 'B.BRID00,B.ZYHGHH,B.BRLX00,B.SQKS00,B.TXM000,B.BBSDRQ||'' ''||B.BBSDSJ QSSJ00,B.ZLXMJC,' || 'BGRQ00||'' ''||BGSJ00 BGSJ00,B.BRXM00,B.BGCKR0,B.CKRXM0,B.BGCKSJ, ' || 'B.XBMC00,B.NL0000,B.CH0000,B.DYBZ00,B.YXBZ00,B.JGZT00,B.BGR000,B.BGRXM0,B.SQKSMC,B.MZZYBZ,B.XB0000,B.BBMC00,''2'' ' || 'FROM VW_JY_JYJG00 A, VW_JY_YW0000 B ' || 'WHERE A.JYYWID = B.JYYWID AND B.SFYB00 = ''Y'' ' || 'AND B.JGZT00||''A'' IN (''6A'', ''8A'', ''9A'') ' || PRQFW00 || PYBH000 || PSQMX00 || PSQKS00 || PBRLX00 || PXBMC00 || PNL0000 || PZYHGHH || PBBMC00 ||PYQDH00); end if; COMMIT; EXCEPTION WHEN OTHERS THEN RAISE_APPLICATION_ERROR(-20020, NVL(SQLERRM, '原因不明出错!*')); END;