-- Start of DDL Script for View SD_HOSPITAL.VW_XK_SXSQ00
-- Generated 22-4月-2024 18:21:11 from SD_HOSPITAL@his

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,
   kzr000,
   kzrxm0,
   sxrqdy,
   sqrqdy,
   chysdy,
   scsdy0,
   sxxzcg,
   sxxzjj,
   fjxx00,
   bgzkt0,
   qtjcjg,
   sxfy00,
   cljg00,
   fxrxm0,
   sxhsxm,
   sxhsm1,
   yszxl0,
   syxgjc,
   xgrq00,
   xgsj00,
   xgrxm0 )
AS
select
    A.SQDH00,                             --申请单号,触发器维护 (SQ_XK_SXSQ00_SQDH00)
    A.ZYID00,                             --住院病人信息流水号  -->ZY_BRXXB0.ZYID00
    A.BRID00,                             --病人ID
    D.XM0000 BRXM00,                      --病人姓名
    nvl(A.MZZYBZ,'住院'),                             --门诊/住院标志 "门诊"  "住院"  2008.9.28 sechen
    --decode(nvl(A.MZZYBZ,'住院'),'住院',(select TRIM(ZYH000) from ZY_BRXXB0 where ZYID00=A.ZYID00),'门诊',(select TRIM(GHH000) from SF_BRXXB0 where GHID00=A.ZYID00),'') ZYH000,
    decode(nvl(A.MZZYBZ,'住院'),'住院',(select TRIM(ZYH000) from ZY_BRXXB0 where ZYID00=A.ZYID00),
           '门诊',(select TRIM(GHH000) from SF_BRXXB0 where GHID00=A.ZYID00),'') ZYH000,
    D.MRN000,                             --病案号
    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,
    --(select substrb(trim(ZLXMJC)||' '||to_char(SL0000)||trim(DW0000),1,100) from YJ_YW0000 where ZYGHID=A.ZYID00 and rownum=1) YZXX00,
    (select ZLXMJC from BQ_YJYZ00 where  A.YZMXID=YZMXID and rownum=1) YZXX00,
    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,
                                          --是否既往输血史
    nvl(A.LCZDMC,(select ZDMC00 from BQ_BRZDXX where ZYID00=A.ZYID00 and ZDLB00='2' and rownum=1)),
                                          --临床诊断
    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 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(A.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,
    A.KZR000,                             --科主任
    A.KZRXM0,                             --科主任姓名
    substr(A.YJSXRQ,1,4)||'年'||substr(A.YJSXRQ,5,2)||'月'||substr(A.YJSXRQ,7,2)||'日'||'  '||substr(YJSRSJ,1,2)||'时' SXRQDY,
                                          --打印预计输血日期
    substr(A.SQRQ00,1,4)||'年'||substr(A.SQRQ00,5,2)||'月'||substr(A.SQRQ00,7,2)||'日'||'  '||substr(SQSJ00,1,2)||'时' SQRQDY,
    decode(D.CHYS00,0,null,D.CHYS00) CHYSDY,
                                          --曾怀孕数（性别为女时填）
    decode(D.SCS000,0,null,D.SCS000) SCSDY0,
                                          --生产数（性别为女时填）
    decode(A.SXSZ00,'常规','√','') SXXZCG,
    decode(A.SXSZ00,'常规','','√') SXXZJJ,
    D.FJXX00,                             --复检血型
    D.BGZKT0,                             --不规则抗体筛查
    D.QTJCJG,                             --其他检查结果
    A.SXFY00,                             --输血反应
    A.CLJG00,                             --处理结果
    (select B.ZWXM00 from BM_YGBM00 B where A.FXRBH0=B.YGBH00(+)) FXRXM0,
                                          --发血者
    (select B.ZWXM00 from BM_YGBM00 B where A.SXHS00=B.YGBH00(+)) SXHSXM,
                                          --输血前核对医生/护士1
    (select B.ZWXM00 from BM_YGBM00 B where A.SXHS01=B.YGBH00(+)) SXHSM1,
                                          --输血前核对医生/护士1
    YSZXL0,
    SYXGJC,
    XGRQ00,
    XGSJ00,
    XGRXM0
 from XK_SXSQ00 A,XK_BRXX00 D
where A.BRID00 = D.BRID00
/


-- End of DDL Script for View SD_HOSPITAL.VW_XK_SXSQ00