--Begin-- 住院合理用药指标 -- 2012-10-19 15:23:13 declare V_TEMPID T_CTLTEMP.F_TEMPID%TYPE; begin SELECT COUNT(*) INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='3' AND F_NAMECN='住院合理用药指标'; IF V_TEMPID =0 THEN SELECT nvl(MAX(F_TEMPID),0)+1 INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='3'; ELSE SELECT F_TEMPID INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='3' AND F_NAMECN='住院合理用药指标'; END IF; DELETE FROM T_TEMPTYPE WHERE F_SYSID='3' AND F_TYPEID='00001'; INSERT INTO T_TEMPTYPE (F_SYSID,F_TYPEID,F_TYPENAME,F_MEMO) VALUES ('3','00001','自定义报表',''); -- T_TEMPTYPE ------------------------------------------ DELETE FROM T_CTLTEMP WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLTEMP1 WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLEDIT WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLLABEL WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLLINE WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLDATE WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLCMB WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLCURR WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLGRID WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLGRIDCOL WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_SQLPARAMS WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; DELETE FROM T_SQLLIST WHERE F_SYSID='3' AND F_TEMPID=V_TEMPID; -- DELETE ------------------------------------------ INSERT INTO T_CTLTEMP (F_SYSID,F_TEMPID,F_TEMPTYPE,F_NAMECN,F_CREATEDATE,F_CREATEPERSON,F_DATASRC,F_PACK,F_SQL,F_MODEL,F_MODELDIRECT,F_MODELCOLCOUNT,F_MODELROWCOUNT,F_PRINTER,F_PAPER,F_WIDTH,F_HEIGHT,F_COLOR,F_BORDERCOLOR,F_LOCK,F_ISSYS,F_ZOOM,F_ORIENTATION,F_MENUSHOW,F_MODELCOUNT) VALUES ('3',V_TEMPID,'00001','住院合理用药指标','2011-06-22','测试员','0','0','','0','0','1','1','','A4','2101','2971','16777215','0','0','0','0.1','0','1',''); --T_CTLTEMP------------------------------------------ INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'1003','LABEL','Label3',''); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'1004','LABEL','Label4',''); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'1005','LABEL','Label5',''); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'1006','LABEL','label1006',''); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'2002','EDIT','Edit2','编辑框2'); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'2003','EDIT','Edit3','编辑3'); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'2006','EDIT','Edit6','编辑6'); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'2008','EDIT','Edit8','编辑8'); INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('3',V_TEMPID,'7000','GRID','Grid0','网格0'); --T_CTLTEMP1------------------------------------------ INSERT INTO T_CTLEDIT (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_NAMECN,F_FIELD,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_DATA,F_DECIMAL,F_FORMATFLOAT,F_CAPITAL,F_DIGITAL,F_READONLY,F_PRINT,F_BORDERSTYLE,F_TAB,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_DEFAULT,F_CURRFORMAT,F_FULLPRINT,F_SHOWBTN,F_VISUAL) VALUES ('3',V_TEMPID,'2002','Edit2','编辑框2','CS_开始日期','1','2','0','0','0','0','0','0','9','0','1','0','0','302','238','336','61','宋体','0','12','0','','0','0','0','1'); INSERT INTO T_CTLEDIT (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_NAMECN,F_FIELD,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_DATA,F_DECIMAL,F_FORMATFLOAT,F_CAPITAL,F_DIGITAL,F_READONLY,F_PRINT,F_BORDERSTYLE,F_TAB,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_DEFAULT,F_CURRFORMAT,F_FULLPRINT,F_SHOWBTN,F_VISUAL) VALUES ('3',V_TEMPID,'2003','Edit3','编辑3','CS_结束日期','0','2','0','0','0','0','0','0','9','0','1','0','0','699','238','336','61','宋体','0','12','0','','0','0','0','1'); INSERT INTO T_CTLEDIT (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_NAMECN,F_FIELD,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_DATA,F_DECIMAL,F_FORMATFLOAT,F_CAPITAL,F_DIGITAL,F_READONLY,F_PRINT,F_BORDERSTYLE,F_TAB,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_DEFAULT,F_CURRFORMAT,F_FULLPRINT,F_SHOWBTN,F_VISUAL) VALUES ('3',V_TEMPID,'2006','Edit6','编辑6','XT_HOSNAME','1','2','0','0','0','0','0','0','9','0','1','0','0','188','101','812','103','宋体','1','24','0','','0','0','0','1'); INSERT INTO T_CTLEDIT (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_NAMECN,F_FIELD,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_DATA,F_DECIMAL,F_FORMATFLOAT,F_CAPITAL,F_DIGITAL,F_READONLY,F_PRINT,F_BORDERSTYLE,F_TAB,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_DEFAULT,F_CURRFORMAT,F_FULLPRINT,F_SHOWBTN,F_VISUAL) VALUES ('3',V_TEMPID,'2008','Edit8','编辑8','XT_NOW','0','2','0','0','0','0','0','0','9','0','1','0','0','1267','235','529','64','宋体','0','12','0','','0','0','0','1'); --T_CTLEDIT------------------------------------------ INSERT INTO T_CTLLABEL (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_FIELD,F_CAPTION,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_PRINT,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_VISUAL) VALUES ('3',V_TEMPID,'1003','Label3','','住院合理用药指标','2','2','0','0','1','950','111','799','79','宋体','10','24','-16777208','1'); INSERT INTO T_CTLLABEL (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_FIELD,F_CAPTION,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_PRINT,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_VISUAL) VALUES ('3',V_TEMPID,'1004','Label4','','统计时间:','0','2','0','0','1','114','238','191','56','宋体','00','12','-16777208','1'); INSERT INTO T_CTLLABEL (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_FIELD,F_CAPTION,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_PRINT,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_VISUAL) VALUES ('3',V_TEMPID,'1005','Label5','','至','0','2','0','0','1','638','238','58','56','宋体','00','12','0','1'); INSERT INTO T_CTLLABEL (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_FIELD,F_CAPTION,F_HALIGN,F_VALIGN,F_DISPERSE,F_MULLINE,F_PRINT,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FONTNAME,F_FONTSTYLE,F_FONTSIZE,F_FONTCOLOR,F_VISUAL) VALUES ('3',V_TEMPID,'1006','label1006','','打印时间:','0','2','0','0','1','1072','238','220','56','宋体','00','12','0','1'); --T_CTLLABEL------------------------------------------ --T_CTLLINE------------------------------------------ --T_CTLDATE------------------------------------------ --T_CTLCMB------------------------------------------ --T_CTLCURR------------------------------------------ INSERT INTO T_CTLGRID (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_NAMECN,F_PACK,F_SQL,F_MASTERFIELD,F_FIXROWS,F_ROWS,F_COLS,F_FIXCOLOR,F_DETAILCOLOR,F_LINECOLOR,F_VISUAL,F_LEFT,F_TOP,F_WIDTH,F_HEIGHT,F_FIXHEIGHT,F_DETAILHEIGHT,F_FONTNAME1,F_FONTSTYLE1,F_FONTSIZE1,F_FONTCOLOR1,F_FONTNAME2,F_FONTSTYLE2,F_FONTSIZE2,F_FONTCOLOR2,F_PRINTHEADER,F_PRINTDETAIL,F_PRINTCOLOR,F_PRINTVLINE,F_PRINTHLINE,F_INTERVAL,F_BORDERSTYLE,F_BORDERCOLOR,F_FILLALL,F_CURRENCY,F_CURRSYMBOL,F_CURRDIGITAL,F_CURRDECIMAL,F_SQL1) VALUES ('3',V_TEMPID,'7000','Grid0','网格0','0','select ''住院患者人均使用抗菌药物品种数'' MC0000,to_char(round(sum(KSSGS0)/count(1),2)) SJ0000 from ( select a.ZYID00,nvl((select count(distinct YPNM00) from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00),0) KSSGS0 from ZY_BRXXB0 a where SJCYRQ between :开始日期 and :结束日期 and BRZT00<>''9'' and exists (select 1 from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00)) union all select ''住院患者人均使用抗菌药物费用'' MC0000,to_char(round(sum(HJJE00)/count(1),2)) SJ0000 from ( select a.ZYID00,nvl((select sum(round(YPZSL0*LSDJ00,2)) from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00),0) HJJE00 from ZY_BRXXB0 a where SJCYRQ between :开始日期 and :结束日期 and BRZT00<>''9'' and exists (select 1 from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00)) union all select ''住院患者使用抗菌药物百分率'' MC0000,round(sum(SYKSS0)/count(1),4)*100||''%''SJ0000 from ( select a.ZYID00,nvl((select 1 from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00 and rownum=1),0) SYKSS0 from ZY_BRXXB0 a where SJCYRQ between :开始日期 and :结束日期 and BRZT00<>''9'') union all select ''抗菌药物使用强度'' MC0000,to_char(round(DDD000/ZYZTS0,2)*100) SJ0000 from (select sum(round(YPZSL0*ZHL000/DDD000,2)) DDD000 from VW_YK_KSSJB0_ZY where FYRQ00 between :开始日期 and :结束日期 ) a, (select sum(TJJG00) ZYZTS0 from ZH_TJZB00 where TJBH00=''0027'' and tjrq00 between :开始日期 and :结束日期) b union all select ''住院患者使用抗菌药物百分率(特殊使用级)'' MC0000,round(sum(SYKSS0)/count(1),4)*100||''%''SJ0000 from ( select a.ZYID00,nvl((select 1 from VW_YK_KSSJB0_ZYtsj3 where ZYID00=a.ZYID00 and rownum=1),0) SYKSS0 from ZY_BRXXB0 a where SJCYRQ between :开始日期 and :结束日期 and BRZT00<>''9'') union all select ''抗菌药物使用强度(特殊使用级)'' MC0000,to_char(round(DDD000/ZYZTS0,2)*100) SJ0000 from (select sum(round(YPZSL0*ZHL000/DDD000,2)) DDD000 from VW_YK_KSSJB0_ZYtsj3 where FYRQ00 between :开始日期 and :结束日期 ) a, (select sum(TJJG00) ZYZTS0 from ZH_TJZB00 where TJBH00=''0027'' and tjrq00 between :开始日期 and :结束日期) b union all select ''抗菌药物费用占药费总额的百分率'' MC0000,round(DDD000/HJJE00,4)*100||''%'' SJ0000 from (select sum(round(YPZSL0*LSDJ00,2)) DDD000 from VW_YK_KSSJB0_QY where FYRQ00 between :开始日期 and :结束日期 ) a, (select sum(TJJG00)HJJE00 from ZH_TJZB00 where TJBH00 in (''0017'',''0019'') and TJRQ00 between :开始日期 and :结束日期) b union all select ''住院用抗菌药物患者病原学检查百分率'' MC0000,round(sum(BYXJCS*SYKSS0)/sum(SYKSS0),4)*100||''%'' SJ0000 from ( select a.ZYID00,nvl((select 1 from VW_YK_KSSJB0_ZY where ZYID00=a.ZYID00 and rownum=1),0) SYKSS0, nvl((select 1 from YJ_YW0000 where ZYGHID=a.ZYID00 and MZZYBZ=''1'' and ZLXMID in (17295,17296,17297,17299,17300,17302,17306,19565,21050,21805,21806,21807,21825,21836,21837,21838,21839,21840,21908,21909,22612) and rownum=1),0) BYXJCS from ZY_BRXXB0 a where SJCYRQ between :开始日期 and :结束日期 and BRZT00<>''9'')','','1','1','2','16777215','-2147483643','536870911','1','132','323','1553','1122','80','70','宋体','0','14','0','宋体','0','14','0','1','1','0','1','1','1','0','0','0','0','','9','2',''); --T_CTLGRID------------------------------------------ INSERT INTO T_CTLGRIDCOL (F_SYSID,F_TEMPID,F_SEQUENCE,F_COLID,F_COLFIELD,F_COLCAPTION,F_COLALIGN,F_COLWIDTH,F_COLFIXED,F_COLVISUAL,F_COLPRINT,F_COLPAGETYPE,F_COLDATATYPE,F_COLDATANAME) VALUES ('3',V_TEMPID,'7000','1','SJ0000','指标值','1','254','0','1','1','0','0',''); INSERT INTO T_CTLGRIDCOL (F_SYSID,F_TEMPID,F_SEQUENCE,F_COLID,F_COLFIELD,F_COLCAPTION,F_COLALIGN,F_COLWIDTH,F_COLFIXED,F_COLVISUAL,F_COLPRINT,F_COLPAGETYPE,F_COLDATATYPE,F_COLDATANAME) VALUES ('3',V_TEMPID,'7000','0','MC0000','指标名称','0','1233','0','1','1','0','0',''); --T_CTLGRIDCOL------------------------------------------ INSERT INTO T_SQLPARAMS (F_SYSID,F_TEMPID,F_SEQUENCE,F_PARAMID,F_PARAMNAME,F_VALUETYPE,F_EDITTYPE,F_COMBOSTR,F_DEFAULT,F_DEFAUL1) VALUES ('3',V_TEMPID,'7000','0','开始日期','0','4','','',''); INSERT INTO T_SQLPARAMS (F_SYSID,F_TEMPID,F_SEQUENCE,F_PARAMID,F_PARAMNAME,F_VALUETYPE,F_EDITTYPE,F_COMBOSTR,F_DEFAULT,F_DEFAUL1) VALUES ('3',V_TEMPID,'7000','1','结束日期','0','4','','',''); --T_SQLPARAMS------------------------------------------ --T_SQLLIST------------------------------------------ commit; end; --End---住院合理用药指标