-- Start of DDL Script for View SD_HOSPITAL.VW_XK_SXSQ00
-- Generated 15-十月-2018 10:14:23 from SD_HOSPITAL@clyy

CREATE OR REPLACE VIEW vw_xk_sxsq00 (
   sqdh00,
   zyid00,
   brid00,
   brxm00,
   mzzybz,
   zyh000,
   mrn000,
   xb0000,
   csrq00,
   nl0000,
   xx0000,
   fdxx00,
   rhxx00,
   tyktsc,
   tyktjd,
   jyygxm,
   fjrxm0,
   jyrqsj,
   ksmc00,
   bqmc00,
   ch0000,
   yzmxid,
   yzxx00,
   sxzsd0,
   chys00,
   scs000,
   lrrxm0,
   lrrq00,
   lrsj00,
   lrrqsj,
   sqzt00,
   sqztmc,
   sfjwsx,
   lczdmc,
   sxsz00,
   sxcf00,
   sxcfbh,
   sxsl00,
   sxdw00,
   cxrxm0,
   cyrq00,
   cyrqsj,
   sqysbh,
   sqysxm,
   shysxm,
   sqrq00,
   sqsj00,
   yjsxrq,
   yjsrsj,
   sqrqsj,
   yjsrrq,
   sxmd00,
   pxbgrq,
   pxbgsj,
   pxrqsj,
   pxygbh,
   pxrxm0,
   pxfhxm,
   qxrxm0,
   fxrbh0,
   qxrq00,
   qxsj00,
   sxrxm0,
   sxrq00,
   sxsj00,
   hdrxm0,
   hdrxm1,
   sxhs00,
   sxhs01,
   sxksrq,
   sxkssj,
   sxjsrq,
   sxjssj,
   sxgc00,
   jlrq00,
   jlsj00,
   jlrxm0,
   dqbq00,
   readbz,
   jsrq00,
   jssj00,
   zye000,
   ykzye0,
   fxdh00,
   dqks00,
   sxsqyt,
   sqdfzh,
   sszt00,
   shr000,
   lstdbz,
   sxl000,
   sprq00,
   spsj00,
   yssprq,
   ysspsj,
   ywkspr,
   sprxm0,
   sfywyx )
AS
select
       A.SQDH00  ,                             --申请单号,触发器维护 (SQ_XK_SXSQ00_SQDH00)
       A.ZYID00  ,                             --住院病人信息流水号  -->ZY_BRXXB0.ZYID00
       A.BRID00  ,                             --病人ID
       D.XM0000 BRXM00,                        --病人姓名
decode(ksmc00,'急诊科','门诊',decode(c.mrn000,0  ,'门诊','住院'))mzzybz,                             --门诊/住院标志 "门诊"  "住院"  2008.9.28 sechen
       --D.ZYH000  ,                             --挂号号 住院号
           DECODE(c.mrn000, 0,(select GHH000 from SF_BRXXB0 where GHID00=a.ZYID00),(select distinct max(ZYH000)zyh000 from ZY_BRXXB0 m where m.brid00=d.brid00  ))ZYH000,
 d.zyh000,                               --病案号
       D.XB0000,                               --性别
       D.CSRQ00,                               --出生日期
       SUBSTR(SF_XT_CSRQTONL(D.CSRQ00,A.SQRQ00),1,8) NL0000,        --年龄
       D.ZDXX00 XX0000,                        --血型(正定)
       D.FDXX00  ,                              --反定血型
       D.RHXX00  ,                             --RH血型(D抗原)
       D.TYKTSC  ,                             --单特异性抗体筛查
       D.TYKTJD  ,                             --单特异性抗体鉴定
       (SELECT B.ZWXM00 FROM BM_YGBM00 B WHERE B.YGBH00(+)=D.JYYGBH) JYYGXM, --检验人姓名
       D.FJRXM0  ,                             --复检人姓名
       (substr(D.JYBGRQ,1,4)||'-'||substr(D.JYBGRQ,5,2)||'-'||substr(D.JYBGRQ,7,2)||' '||substr(D.JYBGSJ,1,5)) JYRQSJ  ,                             ---检验报告日期时间

       A.KSMC00  ,                             --科室名称
       A.BQMC00  ,                             --部门名称
       decode(a.MZZYBZ,'门诊',' ',A.CH0000)  ,                             --床位号
       A.YZMXID  ,                             --医嘱明细ID,病区申请时插入BQ_YJYZ00.YZMXID值
       (select substrb(trim(ZLXMJC)||' '||to_char(SL0000)||trim(DW0000),1,100) from YJ_YW0000 where ZYGHID=a.ZYID00 and YZCFID=a.YZMXID AND ROWNUM=1) YZXX00,  --VW_ZS_YZDY00
       D.SXZSD0  ,                             --受血者属地，（本市/外埠）
       D.CHYS00  ,                             --曾怀孕数（性别为女时填）
       D.SCS000  ,                             --生产数（性别为女时填）
       --输血申请
       A.LRRXM0  ,                             --录入人姓名
       A.LRRQ00  ,                             --录入日期
       A.LRSJ00  ,                             --录入时间
       (substr(A.LRRQ00,1,4)||'-'||substr(A.LRRQ00,5,2)||'-'||substr(A.LRRQ00,7,2)||' '||substr(A.LRSJ00,1,5)) LRRQSJ  ,                             --录入日期
       A.SQZT00  ,                             --申请状态0 录入 '1'申请'2'配血'3'发血'3'作废
       DECODE(A.SQZT00,'0','录入','1','申请','2','配血', '3','发血', '4','作废','5','签收','6','审核')  SQZTMC,  --申请状态名称
       DECODE(TRIM(SFJWSX),'1','有','无') SFJWSX,    --是否既往输血史
       A.LCZDMC  ,                             --临床诊断
       A.SXSZ00  ,                             --输血性质
       A.SXCF00  ,                             --输血成分
       (SELECT B.SXCFBH from VW_XK_SXCFBM B WHERE B.SXCFMC(+)=A.SXCF00) SXCFBH,--输血成分编号
       A.SXSL00  ,                             --输血数量
       A.SXDW00  ,                             --输血单位
       A.CXRXM0  ,                             --抽血人姓名
       A.CYRQ00  ,                             --采样日期
       (substr(A.CYRQ00,1,4)||'-'||substr(A.CYRQ00,5,2)||'-'||substr(A.CYRQ00,7,2)) CYRQSJ,  --采样日期
       A.SQYSBH,                              -- 申请医生编号
       (SELECT B.ZWXM00 FROM BM_YGBM00 B WHERE B.YGBH00(+)=A.SQYSBH) SQYSXM, --申请医生姓名
       A.SHYSXM  ,                             --审核医生姓名
       A.SQRQ00  ,                             --申请日期
       A.SQSJ00  ,                             --申请时间
       A.YJSXRQ  ,                             --预计输血日期
       A.YJSRSJ  ,                             --预计输血时间
       (substr(A.SQRQ00,1,4)||'-'||substr(A.SQRQ00,5,2)||'-'||substr(A.SQRQ00,7,2)||' '||substr(A.SQSJ00,1,5)) SQRQSJ  ,                             --申请日期
       (substr(A.YJSXRQ,1,4)||'-'||substr(A.YJSXRQ,5,2)||'-'||substr(A.YJSXRQ,7,2)||' '||substr(A.YJSRSJ,1,5)) YJSRRQ  ,                             --预计输血日期时间
       A.SXMD00,                                -- 输血目的
       --配血信息
       A.PXBGRQ  ,                             --配血报告日期
       A.PXBGSJ  ,                             --配血报告时间
       (substr(A.PXBGRQ,1,4)||'-'||substr(A.PXBGRQ,5,2)||'-'||substr(A.PXBGRQ,7,2)||' '||substr(A.PXBGSJ,1,5)) PXRQSJ  ,                             --配血日期时间
       A.PXYGBH  ,                             --配血员工编号 -->BM_YGBM00.YGBH00
       (select B.ZWXM00 FROM BM_YGBM00 B WHERE A.PXYGBH=B.YGBH00(+)) PXRXM0  ,														 --配血人姓名
       A.PXFHXM  ,                             --配血复核人姓名
       --输血记录
       A.QXRXM0  ,                             --取血人员姓名
       A.FXRBH0  ,                             --发血人员工编号 -->BM_YGBM00.YGBH00
       A.QXRQ00  ,                             --取血日期
       A.QXSJ00  ,                             --取血时间
       A.SXRXM0  ,                             --收血人姓名
       A.SXRQ00  ,                             --收血日期
       A.SXSJ00  ,                             --收血时间
       A.HDRXM0  ,                             --输血前核对人姓名
       A.HDRXM1  ,                             --输血前核对人姓名
       A.SXHS00  ,                             --输血护士员工编号 -->BM_YGBM00.YGBH00
       A.SXHS01  ,                             --输血护士员工编号 -->BM_YGBM00.YGBH00
       A.SXKSRQ  ,                             --输血开始日期
       A.SXKSSJ  ,                             --输血开始时间
       A.SXJSRQ  ,                             --输血结束日期
       A.SXJSSJ  ,                             --输血结束时间
       A.SXGC00  ,                             --输血过程
       A.JLRQ00  ,                             --记录日期
       A.JLSJ00  ,                             --记录时间
       A.JLRXM0  ,                              --记录人姓名
       decode(D.MZZYBZ,'门诊',NULL,(SELECT DQBQ00 from ZY_BRXXB0 where ZYID00=a.ZYID00)) as DQBQ00,  --当前病区 2008.9.24 sechen修改，只有住院的使用
       --(SELECT DQBQ00 from ZY_BRXXB0 where ZYID00=a.ZYID00) as DQBQ00,  --当前病区 2008.9.24 sechen修改，只有住院的使用
       --decode(D.MZZYBZ,'门诊',0,(select count(*) from XK_SQDJG0 WHERE ZYID00=A.ZYID00 AND SQDH00=A.SQDH00)) readbz,  --是否读取过LIS结果 2008.9.24 sechen修改，只有住院的使用
       (select count(*) from XK_SQDJG0 WHERE ZYID00=A.ZYID00 AND SQDH00=A.SQDH00) readbz,  --是否读取过LIS结果
       jsrq00,
       jssj00,
       sf_bq_kyje00(0,a.brid00),
       (select nvl(zye000,0)  from ZY_BRZHXX where brid00=a.brid00)+(select nvl(YBYZF0,0)  from ZY_BRZHXX where brid00=a.brid00),
       A.FXDH00,
       decode(d.MZZYBZ,'门诊',(select ghks00 from sf_brxxb0 where ghid00=a.zyid00),
              (select dqks00 from zy_brxxb0 where zyid00=a.zyid00 and substr(brzt00,1,1)='2')),
       A.SXSQYT,
       A.SQDFZH,
       A.SSZT00,
       A.SHR000,
       A.LSTDBZ,          --绿色通道标志
       SF_XK_GETSXL(A.SXSL00,A.SXDW00) SXL000,    --输血量(单位ml)
       A.SPRQ00,    --医务科审批日期
       A.SPSJ00,    --医务科审批时间
       A.YSSPRQ,    --医生审批日期
       A.YSSPSJ,    --医生审批时间
       A.YWKSPR,    --医务科审批人
       (select ZWXM00 from BM_YGBM00 where YGBH00=A.YWKSPR and rownum=1) SPRXM0,     --医务科审批人姓名
       nvl(a.SFYWYX,'0') SFYWYX
from XK_SXSQ00 A,XK_BRXX00 D,bm_brxxb0 c  
where a.brid00=d.brid00 and a.brid00=c.brid00 and d.brid00=c.brid00
/


-- End of DDL Script for View SD_HOSPITAL.VW_XK_SXSQ00