CREATE OR REPLACE VIEW SD_HOSPITAL.VW_ZS_BAXXDY ( ZYID00, BAH000, ZYCS00, ZYH000, BRXM00, BRXB00, CSRQNF, CSRQYF, CSRQRF, BRNL00, HYZK00, ZY0000, CSSF00, CSXS00, MZ0000, GJ0000, SFZH00, GZDW00, GZDH00, GZYB00, JTDZ00, JTYB00, LXRXM0, LXRDZ0, LXRDH0, LXRGX0, RYQKW0, RYQKJ0, RYQKYB, RYRQNF, RYRQYF, RYRQRF, RYSJS0, RYKBMC, RYBF00, ZKKBMC, CYRQNF, CYRQYF, CYRQRF, CYSJS0, CYKBMC, CYBF00, ZYTS00, QZRQNF, QZRQYF, QZRQRF, SZQXNF, SZQXYF, SZQXRF, BLZD00, GMYW00, HBSAG0, HCVAB0, HIVAB0, MZCYFH, RYCYFH, SQSHFH, LCBLFH, FSBLFH, QJCS00, CGCS00, SFSJ00, DYBL00, SFSZ00, XX0000, RH0000, SXFY00, HXB000, XXB000, XJ0000, QX0000, SXQT00, SSZDWY, SJBL00, RYTJ00, CYFS00, RYQZL0, ZLLB00, ZZZYZJ, QJFF00, SFWZ00, SFJZ00, SFYNQK, ZKBF00, BLH000, MZYS00, ZYMZCY, ZYRYCY, SWGBYY, SWRQ00, SWRQNF, SWRQYF, SWRQRF, SWSJ00, SWSJS0, SWSJF0, SFCRB0, CRBFL0, SFBG00, SZQX00, BRJG00, MZH000, RYZDMC, RYQK00, SZYSXM, RYRQSJ, JFJE00, JFJEDX, JFFS00, RYCZY0, BQSZSJ, BRXBMC, JTDH00, YLFKFS, WZTS00 ) AS SELECT a.LSH000 ZYID00, a.BAH000, a.ZYCS00, --住院次数 a.ZYH000, --住院号 a.BRXM00, --病人姓名 Decode(trim(a.brxb00),'男','1','女','2') BRXB00, --病人性别 substr(a.brcsrq,1,4) CSRQNF, --病人出生日期年份 substr(a.brcsrq,5,2) CSRQYF, --病人出生日期月份 substr(a.brcsrq,7,2) CSRQRF, --病人出生日期日份 SF_bq_CSRQTONL(a.brcsrq,a.RYRQ00) BRNL00, --病人年龄 Decode(trim(a.hyzk00),'未婚','1','已婚','2','离婚','3','丧婚','4') HYZK00, --婚姻状况 a.ZY0000, --职业 --BRLY00, --病人来源 a.CSSF00, --出生地省(市) a.CSXS00, --出生地县 a.MZ0000, --民族 a.GJ0000, a.SFZH00, --身份证号 Nvl(a.GZDW00,' /')GZDW00, --工作单位和地址 Nvl(a.GZDH00,' /')GZDH00, --工作单位电话 Nvl(a.GZYB00,' /')GZYB00, --工作单位邮政编码 Nvl(a.JTDZ00,' /')JTDZ00, --户口地址 --JTDH00, -- Nvl(a.JTYB00,' /')JTYB00, --户口地址邮政编码 a.LXRXM0, --联系人姓名 a.LXRDZ0, --联系人地址 Nvl(a.LXRDH0,' /')LXRDH0, --联系人电话 a.LXRGX0, --联系人关系 --ZDFS00, decode(a.RYQK00,'危重','√','') RYQKW0, --入院情况:危 decode(a.RYQK00,'急诊','√','') RYQKJ0, --入院情况:急 decode(a.RYQK00,'一般','√','') RYQKYB, --入院情况:一般 Substr(a.ryrq00,1,4) RYRQNF, --入院日期年份 Substr(a.ryrq00,5,2) RYRQYF, --入院日期月份 Substr(a.ryrq00,7,2) RYRQRF, --入院日期日份 Substr(a.rysj00,1,2) RYSJS0, --入院时间-时 a.RYKBMC, --入院科别 A.RYBF00,--入院病房 --a.RYBF00, --入院病房 ---decode(trim(a.RYBF00),'',(select min(trim(CH0000)) from bq_brldxx where qszt00='入院' and ZYID00=a.LSH000),trim(a.RYBF00)) RYBF00, --入院病房 --a.RYBF00, --入院病房 decode(A.ZKKBMC,'',' /')ZKKBMC, --转科科别 Substr(a.CYRQ00,1,4) CYRQNF, --出院日期年份 Substr(a.CYRQ00,5,2) CYRQYF, --出院日期月份 Substr(a.CYRQ00,7,2) CYRQRF, --出院日期日份 Substr(a.CYSJ00,1,2) CYSJS0, --出院时间-时 a.CYKBMC, --出院科别名称 (select rycwh0 from ZY_BRXXB0 where zyid00=d.zyid00) CYBF00, --出院病房 --a.CYBF00, --出院病房 a.ZYTS00, --住院天数 Substr(a.QZRQ00,1,4) QZRQNF, --确诊日期年份 Substr(a.QZRQ00,5,2) QZRQYF, --确诊日期月份 Substr(a.QZRQ00,7,2) QZRQRF,--确诊日期日份 substr(a.szqx00,1,4) SZQXNF, --随诊期限年份 substr(a.szqx00,5,2) SZQXYF, --随诊期限月份 substr(a.szqx00,7,2) SZQXRF, --随诊期限日份 Nvl(a.BLZD00,'/')BLZD00, --病理诊断 ----decode(a.BLZD00,'',' /') a.GMYW00, --过敏药物 decode(a.HBSAG0,'未做','0','阴性','1','阳性','2') HBSAG0, --HBSAG decode(a.HCVAB0,'未做','0','阴性','1','阳性','2') HCVAB0, --HCVAB decode(a.HIVAB0,'未做','0','阴性','1','阳性','2') HIVAB0, --HIVAB -- a.HCVAB0, --HCVAB -- a.HIVAB0, --HIVAB decode(a.MZCYFH,'符合','1','不符合','2','未做','0','不肯定','3'), --门诊与出院是否符合 decode(a.RYCYFH,'符合','1','不符合','2','未做','0','不肯定','3'), --入院与出院是否符合 decode(a.SQSHFH,'符合','1','不符合','2','未做','0','不肯定','3'), --术前与术后是否符合 decode(a.LCBLFH,'符合','1','不符合','2','未做','0','不肯定','3'), --临床与病理是否符合 decode(a.FSBLFH,'符合','1','不符合','2','未做','0','不肯定','3'), --放射与病理是否符合 --a.RYCYFH, --入院与出院是否符合 --a.SQSHFH, --术前与术后是否符合 --a.LCBLFH, --临床与病理是否符合 --a.FSBLFH, --放射与病理是否符合 a.QJCS00, --抢救次数 a.CGCS00, --成功次数 decode(a.SFSJ00,'是','1','否','2','') SFSJ00, --是否尸检 decode(a.DYBL00,'是','1','否','2','') DYBL00, --是否第一病历 --a.DYBL00, --第一病历 decode(a.SFSZ00,'是','1','否','2','') SFSZ00, --是否随诊 --a.SFSZ00, --是否随诊 decode(a.XX0000,'A型','1','B型','2','AB型','3','O型','4','5') XX0000, --血型 decode(a.RH0000,'阴','1','阳','2','未','0')RH0000, --RH decode(a.SXFY00,'有','1','无','2') SXFY00, --输血反应 Nvl(a.HXB000,'/')HXB000, --红细胞 Nvl(trim(to_char(a.XXB000)),'/')XXB000, --血小板 Nvl(trim(to_char(a.XJ0000)),'/')XJ0000, --血浆 Nvl(trim(to_char(a.QX0000)),'/')QX0000, --全血 Nvl(trim(to_char(a.SXQT00)),'/')SXQT00, --其他 --其他 Nvl(a.SSZDWY,' /')SSZDWY , --损伤中毒外因 decode(a.sjbl00 ,'是','1','否','2','')sjbl00, a.RYTJ00 , --入院途径 1: 门诊 2急诊 3转院 a.CYFS00 , --出院方式 1：常规 2自动 3转院 a.RYQZL0 , --入院前治疗1：有 2：无 a.ZLLB00 , --治疗类别 1：中 2：西 3：中西 a.ZZZYZJ , --自制中药制剂 0：未知 1：有 2：无 a.QJFF00 , --抢救方法 1：中 2：西 3：中西 decode(a.SFWZ00 ,'是','1','否','2','') SFWZ00, --是否危重 1：是 2：否 a.SFJZ00 , --是否急症 1：是 2：否 a.SFYNQK , --是否疑难情况 1：是 2：否 a.ZKBF00 , --转科病房 a.BLH000 , --病理号 a.MZYS00 , --门诊医师 a.ZYMZCY , a.ZYRYCY , a.SWGBYY , --死亡根本原因 a.SWRQ00 , --死亡日期 substr(a.SWRQ00,1,4) SWRQNF, --死亡日期年份 substr(a.SWRQ00,5,2) SWRQYF, --死亡日期月份 substr(a.SWRQ00,7,2) SWRQRF, --死亡日期日份 a.SWSJ00 , --死亡时间 substr(a.SWSJ00,1,2) SWSJS0, --死亡时间时 substr(a.SWSJ00,4,2) SWSJF0, --死亡时间分 a.SFCRB0 , --是否传染病 1：是 2：否 a.CRBFL0 , --?静》掷? 1：一类 2：二类 3：三类 a.SFBG00, --传染病报告情况 1：已报 2：漏报 a.SZQX00, trim(a.CSSF00)||trim(a.CSXS00) BRJG00, --病人籍贯 b.BRBLH0 MZH000, --门诊号 (SELECT x.ZDMC00 FROM BQ_BRZDXX x, XT_ZD0000 y WHERE x.ZYID00(+)=a.LSH000 AND x.ZDLB00=y.DM0000(+) AND y.ZDBM00='ZDLB00' AND y.VALUE0='入院诊断' AND rownum=1) ryzdmc, --入院诊断 a.RYQK00, --入院情况 (SELECT ZWXM00 FROM BM_YGBM00 WHERE YGBH00(+)=d.szys00) SZYSXM, --收治医生 (e.czrq00||' '||e.czsj00) RYRQSJ, --入院日期时间 (select g.jfje00 from zy_brjfb0 g where (g.jfrq00||g.jfsj00,djh000) in (select min(f.jfrq00||f.jfsj00),min(djh000) from ZY_BRJFB0 f where f.brid00=d.brid00 )) JFJE00, --交费金额 -- SP_BM_RMB000(SF_ZY_GET_QDYJJE(A.LSH000,'20991231','','0','0')) JFJEDX, --交费金额大写 SP_BM_RMB000(Nvl((select g.jfje00 from zy_brjfb0 g where (g.jfrq00||g.jfsj00,djh000) in (select min(f.jfrq00||f.jfsj00),min(djh000) from ZY_BRJFB0 f where f.brid00=d.brid00 )),0)) JFJEDX, --交费金额大写 (select fbmc00 from bm_brfbb0 where fbbh00(+)=b.fbbh00) JFFS00, --费别 d.CZYXM0 RYCZY0, (SELECT min(trim(QSRQ00||' '||QSSJ00)) FROM BQ_BRLDXX WHERE ZYID00=a.LSH000 AND QSZT00='新入') BQSZSJ, a.brxb00 brxbmc, Nvl(a.jtdh00,' /')jtdh00,--家庭电话 a.ylfkfs,--医疗付款方式 a.wzts00--危重天数 FROM BA_BRZYXX a, BM_BRXXB0 b, ZY_BRXXB0 d,bm_brxxb0 e WHERE d.BRID00=b.BRID00 AND a.lsh000= d.ZYID00 and d.brid00 =e.brid00 /