--Begin-- 出院病人诊断报表 -- 2012-02-21 17:32:16
 
declare 
  V_TEMPID  T_CTLTEMP.F_TEMPID%TYPE; 
begin 
  SELECT COUNT(*) INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='Z' AND F_NAMECN='出院病人诊断报表';
  IF V_TEMPID =0 THEN
    SELECT nvl(MAX(F_TEMPID),0)+1 INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='Z';
  ELSE
    SELECT F_TEMPID INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='Z' AND F_NAMECN='出院病人诊断报表';
  END IF;
DELETE FROM T_TEMPTYPE WHERE F_SYSID='Z' AND F_TYPEID='00001';
INSERT INTO T_TEMPTYPE (F_SYSID,F_TYPEID,F_TYPENAME,F_MEMO) VALUES ('Z','00001','自定义报表','');
-- T_TEMPTYPE ------------------------------------------
 
DELETE FROM T_CTLTEMP WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLTEMP1 WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLEDIT WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLLABEL WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLLINE WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLDATE WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLCMB WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLCURR WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLGRID WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_CTLGRIDCOL WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_SQLPARAMS WHERE F_SYSID='Z' AND F_TEMPID=V_TEMPID;
DELETE FROM T_SQLLIST WHERE F_SYSID='Z' 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 ('Z',V_TEMPID,'00001','出院病人诊断报表','2012-02-21','管理员','0','0','','0','0','1','1','','A4','2500','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 ('Z',V_TEMPID,'1000','LABEL','Label0','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'1021','LABEL','Label21','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'1022','LABEL','Label22','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'1023','LABEL','Label23','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'1024','LABEL','Label24','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'1025','LABEL','label1025','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'2017','EDIT','Edit17','编辑框17');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'2018','EDIT','Edit18','编辑框18');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'2019','EDIT','Edit19','编辑框19');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'2020','EDIT','Edit20','编辑框20');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'2021','EDIT','Edit21','编辑21');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',V_TEMPID,'3001','LINE','Line1','');
INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('Z',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 ('Z',V_TEMPID,'2017','Edit17','编辑框17','CS_开始日期','0','2','0','0','0','0','0','0','9','0','1','0','0','286','222','378','61','宋体','1','14','-16777208','','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 ('Z',V_TEMPID,'2018','Edit18','编辑框18','CS_结束日期','0','2','0','0','0','0','0','0','9','0','1','0','0','759','220','439','61','宋体','1','14','-16777208','','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 ('Z',V_TEMPID,'2019','Edit19','编辑框19','XT_YGXM','0','2','0','0','0','0','0','0','9','0','1','0','0','265','2262','265','56','宋体','0','11','-16777208','','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 ('Z',V_TEMPID,'2020','Edit20','编辑框20','XT_DAY','0','2','0','0','0','0','0','0','9','0','1','0','0','1908','2254','497','56','宋体','0','11','-16777208','','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 ('Z',V_TEMPID,'2021','Edit21','编辑21','CS_科室','0','2','0','0','0','0','0','0','9','0','1','0','0','1421','212','669','61','宋体','1','14','-16777208','','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 ('Z',V_TEMPID,'1000','Label0','','出院病人诊断报表','2','2','0','0','1','601','61','619','90','宋体','10','14','-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 ('Z',V_TEMPID,'1021','Label21','','开始日期:','0','2','0','0','1','45','225','246','56','宋体','10','14','-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 ('Z',V_TEMPID,'1022','Label22','','至','0','2','0','0','1','685','222','61','56','宋体','10','14','-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 ('Z',V_TEMPID,'1023','Label23','','制表人:','0','2','0','0','1','130','2262','148','56','宋体','00','11','-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 ('Z',V_TEMPID,'1024','Label24','','打印日期:','0','2','0','0','1','1733','2257','193','56','宋体','00','11','-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 ('Z',V_TEMPID,'1025','label1025','','科室:','0','2','0','0','1','1289','220','119','56','宋体','10','14','-16777208','1');
--T_CTLLABEL------------------------------------------
 
INSERT INTO T_CTLLINE (F_SYSID,F_TEMPID,F_SEQUENCE,F_NAMEEG,F_FIELD,F_COLOR,F_PRINT,F_LEFT,F_TOP,F_DIRECTION,F_LENGTH,F_THICKNESS,F_VISUAL) VALUES ('Z',V_TEMPID,'3001','Line1','','0','1','132','2252','1','2278','1','1');
--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 ('Z',V_TEMPID,'7000','Grid0','网格0','0','select ZLXG00 as ZLXG00,decode(ZLXG00,''1'',''治愈率'',''2'',''好转率'',''3'',''未愈率'',''4'',''死亡率'') as ZBMC00,ZYRS00 as RS0000,CYRS00,to_char(ZYRS00*100/CYRS00,''FM990.99'')||''%'' as BFB000 from  (select b.ZLXG00,count(distinct a.ZYID00) as ZYRS00 from BQ_BRZDXX b,ZY_BRXXB0 a where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室) and a.ZYID00=b.ZYID00 and b.zdlb00=''3'' and b.ZLXG00 in (''1'',''2'',''3'',''4'') group by b.ZLXG00 order by b.ZLXG00) a, (select greatest(count(*),1) as CYRS00 from ZY_BRXXB0 a  where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室)  and exists (select 1 from BQ_BRZDXX where ZYID00=a.ZYID00 and ZDLB00=''3'' )) b  union all select ''-1'' as ZLXG00,''出入院诊断符合率'' as ZBMC00,ZDFHRS as RS0000,CYRS00,to_char(ZDFHRS*100/CYRS00,''FM990.99'')||''%'' as BFB000 from  (select count(*) as ZDFHRS from ZY_BRXXB0 a  where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室)  and exists (select 1 from BQ_BRZDXX b,BQ_BRZDXX c where b.ZYID00=a.ZYID00 and b.ZDLB00=''3'' and c.zyid00=a.ZYID00 and c.zdlb00=''2'' and b.zdm000=c.zdm000)) a, (select greatest(count(*),1) as CYRS00 from ZY_BRXXB0 a  where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室)  and exists (select 1 from BQ_BRZDXX where ZYID00=a.ZYID00 and ZDLB00=''3'' )) b  union all select ''-1'' as ZLXG00,''门诊诊断与出院诊断符合率'' as ZBMC00,ZDFHRS as RS0000,CYRS00,to_char(ZDFHRS*100/CYRS00,''FM990.99'')||''%'' as BFB000 from  (select count(*) as ZDFHRS from ZY_BRXXB0 a  where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室)  and exists (select 1 from BQ_BRZDXX b,BQ_BRZDXX c where b.ZYID00=a.ZYID00 and b.ZDLB00=''3'' and c.zyid00=a.ZYID00 and c.zdlb00=''1'' and b.zdm000=c.zdm000)) a, (select greatest(count(*),1) as CYRS00 from ZY_BRXXB0 a  where a.cyrq00>=:开始日期 and a.cyrq00<=:结束日期 and (a.DQKS00=:科室 or 0=:科室)  and exists (select 1 from BQ_BRZDXX where ZYID00=a.ZYID00 and ZDLB00=''3'' )) b ','','2','1','3','-16777201','-16777201','536870911','1','32','315','2466','1947','160','50','宋体','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 ('Z',V_TEMPID,'7000','0','ZBMC00','指标','0','812','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 ('Z',V_TEMPID,'7000','1','RS0000','人数','1','447','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 ('Z',V_TEMPID,'7000','2','BFB000','百分比','1','434','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 ('Z',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 ('Z',V_TEMPID,'7000','1','结束日期','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 ('Z',V_TEMPID,'7000','2','科室','1','6','select bmmc00,bmbh00,PYSM00,WBSM00 from bm_bmbm00 where BMXZ00 in (''0'',''1'') ','','');
--T_SQLPARAMS------------------------------------------
 
--T_SQLLIST------------------------------------------
 
commit; 
end; 
--End---出院病人诊断报表