--Begin-- 传染病统计 -- 2015-04-08 12:51:13 declare V_TEMPID T_CTLTEMP.F_TEMPID%TYPE; begin SELECT COUNT(*) INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='7' AND F_NAMECN='传染病统计'; IF V_TEMPID =0 THEN SELECT nvl(MAX(F_TEMPID),0)+1 INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='7'; ELSE SELECT F_TEMPID INTO V_TEMPID FROM T_CTLTEMP WHERE F_SYSID='7' AND F_NAMECN='传染病统计'; END IF; DELETE FROM T_TEMPTYPE WHERE F_SYSID='7' AND F_TYPEID='00001'; INSERT INTO T_TEMPTYPE (F_SYSID,F_TYPEID,F_TYPENAME,F_MEMO) VALUES ('7','00001','自定义报表',''); -- T_TEMPTYPE ------------------------------------------ DELETE FROM T_CTLTEMP WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLTEMP1 WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLEDIT WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLLABEL WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLLINE WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLDATE WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLCMB WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLCURR WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLGRID WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_CTLGRIDCOL WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_SQLPARAMS WHERE F_SYSID='7' AND F_TEMPID=V_TEMPID; DELETE FROM T_SQLLIST WHERE F_SYSID='7' 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_MENUSHOW,F_ORIENTATION,F_MODELCOUNT) VALUES ('7',V_TEMPID,'00001','传染病统计','2005-08-24','丁宏','0','0','','0','0','1','1','','A4','2101','2971','16777215','0','0','0','0.1','1','0',''); --T_CTLTEMP------------------------------------------ INSERT INTO T_CTLTEMP1 (F_SYSID,F_TEMPID,F_SEQUENCE,F_CONTROLTYPE,F_NAMEEG,F_NAMECN) VALUES ('7',V_TEMPID,'7000','GRID','Grid0','网格0'); --T_CTLTEMP1------------------------------------------ --T_CTLEDIT------------------------------------------ --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 ('7',V_TEMPID,'7000','Grid0','网格0','0','select a.zdrq00,a.jzysxm,a.zdmc00,a.ghh000,B.XM0000,B.XB0000,B.CSRQ00,C.BRZY00,C.BRSZSF,c.BRSZS0,c.BRSZZ0,c.brjtdz from ys_brzdxx a,sf_brxxb0 b,bm_brxxb0 c,fe_crb000 d where a.ghid00=b.ghid00 and b.brid00=c.brid00 and a.icd900=d.icd900 and b.sfcz00=0 and b.sfcz00=''0'' and zdrq00 between :统计日期 and :截至日期 order by a.zdrq00','','1','1','12','-2147483633','-2147483643','536870911','1','-85','16','2220','1111','80','50','宋体','0','11','-2147483640','宋体','0','10','-2147483640','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','0','ZDRQ00','日期','1','222','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','1','JZYSXM','医生姓名','0','180','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','2','ZDMC00','诊断名称','0','267','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','3','XM0000','病人姓名','0','183','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','4','GHH000','挂号号','0','151','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','11','BRJTDZ','所在居委会','0','201','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','6','CSRQ00','出生日期','0','185','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','7','BRZY00','病人职业','0','188','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','8','BRSZSF','所在省','0','153','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','9','BRSZS0','所在市','0','167','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','10','BRSZZ0','所在镇','0','151','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_COLDATANAME,F_COLPAGETYPE,F_COLDATATYPE) VALUES ('7',V_TEMPID,'7000','5','XB0000','病人性别','0','143','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_DEFAUL1,F_DEFAULT) VALUES ('7',V_TEMPID,'7000','0','统计日期','2','4','','',''); INSERT INTO T_SQLPARAMS (F_SYSID,F_TEMPID,F_SEQUENCE,F_PARAMID,F_PARAMNAME,F_VALUETYPE,F_EDITTYPE,F_COMBOSTR,F_DEFAUL1,F_DEFAULT) VALUES ('7',V_TEMPID,'7000','1','截至日期','2','4','','',''); --T_SQLPARAMS------------------------------------------ --T_SQLLIST------------------------------------------ commit; end; --End---传染病统计