---解决测试库上更新后，传染病登记时报错的问题 PROMPT 34.创建住院传染病登记信息视图 view VW_YS_MZCRDJ CREATE OR REPLACE VIEW VW_YS_MZCRDJ AS -- MODIFICATION HISTORY -- Person Date Comments -- CSF 2008.01.22 传染病病人登记信息 -- CSF 2008.03.18 增加字段 sfqr00字段 -- CSF 2008.06.26 增加字段 SFCRB0 -- CSF 2008.08.12 增加主要诊断、辅助诊断诊断名称 -- CSF 2008.12.11 增加修正诊断字段 -- xuzw 2009.02.27 增加字段民族，接触史，性病史，感染途径，样本来源，实验室检测结果，确认检测日前，确认检测单位，艾滋病确诊日期 -- ---------- ---------- ------------------------------------------------------------------------------------- SELECT DECODE(B.CZRQ00, NULL, '', B.DJID00) DJID00, --登记ID A.GHID00 MZID00, --挂号ID A.GHH000, --挂号号 DECODE(B.CZRQ00, NULL, C.BRXM00, B.HZXM00) BRXM00, --患者姓名 B.HEJZXM, --患儿家长姓名 DECODE(B.CZRQ00, NULL, C.BRZJBH, B.SFZH00) BRZJBH, --身份证号 DECODE(B.CZRQ00, NULL, C.BRXB00, B.BRXB00) BRXB00, --性别 DECODE(B.CZRQ00, NULL, C.BRCSRQ, B.BRCSRQ) BRCSRQ, --病人出生日期 substr(b.brcsrq,1,4) csrqN0, --病人出生日期年 substr(b.brcsrq,5,2) csrqY0, --病人出生日期月 substr(b.brcsrq,7,2) csrqR0, --病人出生日期日 TO_DATE(DECODE(B.CZRQ00, NULL, C.BRCSRQ, B.BRCSRQ),'YYYYMMDD') CSRQ01, --病人出生日期01 DECODE(B.CZRQ00, NULL, C.TYDWMC, B.TYDWMC) TYDWMC, --病人工作单位 DECODE(B.CZRQ00, NULL, C.BRLXDH, B.BRLXDH) BRLXDH, --病人联系电话 B.BRLS00, --病人隶属： --本县区 本市其它县区 本省其它地市 其他省 港澳台 外籍 B.DZSF00, --地址省份 B.DZDJS0, --地址地级市 B.DZXQ00, --地址县区 B.DZXZJD, --地址乡镇街道 B.DZC000, --地址村 B.DZMPH0, --地址门牌号 DECODE(B.CZRQ00, NULL, C.BRLXDZ, B.BRLXDZ) BRLXDZ, --病人联系地址 DECODE(B.CZRQ00, NULL, C.BRZY00, B.BRZY00) BRZY00, --病人职业 nvl(B.FBRQ00,to_char(sysdate,'YYYYMMDD')) FBRQ00, --发病日期 NVL(TO_DATE(B.FBRQ00,'YYYYMMDD'),SYSDATE) FBRQ01, --发病日期01 DECODE(B.CZRQ00, NULL, A.JZRQ00, B.ZDRQ00) ZDRQ00, --诊断日期 TO_DATE(DECODE(B.CZRQ00, NULL, A.JZRQ00, B.ZDRQ00),'YYYYMMDD') ZDRQ01, --诊断日期01 DECODE(B.CZRQ00, NULL, A.JZSJ00, B.ZDSJ00) ZDSJ00, --诊断时间 TO_DATE(DECODE(B.CZRQ00, NULL, A.JZSJ00, B.ZDSJ00),'HH24:MI:SS') ZDSJ01, --诊断时间01 DECODE(B.SWRQ00,' ',SUBSTR(B.SWRQ00,1,8)) SWRQ00, --死亡日期 -- nvl(b.SWRQ00,SYSDATE,TO_DATE(B.SWRQ00,'YYYYMMDD')) SWRQ01, --死亡日期01 B.BLFL01, --病例分类01 B.BLFL02, --病例分类02 B.TKYS00, --填卡医生 (select zwxm00 from bm_ygbm00 where ygbh00(+) = B.TKYS00) TKYSXM, --填卡医生姓名 B.TKRQ00, --填卡日期 NVL(TO_DATE(B.TKRQ00,'YYYYMMDD'),SYSDATE) TKRQ01, --填卡日期01 --B.JBMC00, --疾病名称 DECODE(B.CZRQ00, NULL,'', B.JBMC00) JBMC00, --疾病名称 B.JCZCR0, --密切接触者有无相同症状 0:无 1：有 B.BZ0000, --备注 B.CZY000, --操作员 B.CZRQ00, --操作日期 B.CZSJ00, --操作时间 DECODE(B.CZRQ00,NULL,'未登记','已登记') SFDJ00, --是否已登记 A.JZKS00, --当前科室 (select bmmc00 from bm_bmbm00 where bmbh00(+) = a.JZks00) DQKSMC, --当前科室名称 B.HY0000, --婚姻 B.WHCD00, --文化程度 B.CRLY00, --传染来源 substr(Trim(SF_YF_CSRQTONL(B.BRCSRQ,A.JZRQ00)),1,8) NL0000, NVL(B.SFSW00,'N') SFSW00, --是否死亡 A.JZRQ00, --就诊日期 NVL(B.SFQR00,'N') SFQR00, --是否确认 B.QRR000,--确认人 (select zwxm00 from bm_ygbm00 where ygbh00(+) = B.QRR000) QRRXM0, --确认人姓 decode((select count(*) from ys_brzdxx e,XT_ICD900 f where e.icd900=f.icd900 and f.sfcrb0='1' and rownum=1 and e.ghid00=a.ghid00),0,'N','Y') sfcrb0,--是否传染病 (select nvl(e.JBMC00,'') from XT_ICD900 e,YS_BRZDXX d where a.GHID00=d.GHID00 and d.ICD900=e.ICD900 and d.ZZDBZ0='3' and rownum=1) as ZZDMC0, (select nvl(e.JBMC00,'') from XT_ICD900 e,YS_BRZDXX d where a.GHID00=d.GHID00 and d.ICD900=e.ICD900 and d.ZZDBZ0<>'3' and rownum=1) as FZZDMC, A.XZZDID, A.XZZDMC, C.BRMZ00, --民族 B.JCS000, --接触史 B.XBS000, --性病史 B.GRTJ00, --感染途径 B.YBLY00, --样本来源 B.SYJCJL, --实验室检测结果 B.QRJCRQ, --确认检测日前 B.QRCSDW, --确认检测单位 B.AZQRRQ, --艾滋病确诊日期 TO_DATE(B.QRJCRQ,'YYYYMMDD') QRJCRQ1, TO_DATE(B.AZQRRQ,'YYYYMMDD') AZQRRQ1 FROM SF_BRXXB0 A, YS_CRBDJ0 B, BM_BRXXB0 C WHERE A.GHID00=B.MZID00(+) AND A.BRID00=C.BRID00 /