-- Start of DDL script for VW_BQ_YZCD00
-- Generated 16-一月-14  12:46:34 pm
-- from fw2-SD_HOSPITAL:1

-- View VW_BQ_YZCD00

CREATE OR REPLACE VIEW vw_bq_yzcd00 (
   zyid00,
   yexm00,
   lb0000,
   clbz00,
   dmbz00,
   yzlb00,
   yzzt00,
   yzid00,
   yzmxid,
   qysj00,
   qyyshs,
   yfnr00,
   yzxx00,
   lylxx0,
   tysj00,
   tyyshs,
   bz0000,
   qyrq00,
   tzrq00,
   pxsj00,
   zxrq00,
   tqsj00,
   lrsj00,
   yflbid,
   sfcdbz,
   pcmc00,
   bqh000 )
AS
SELECT     A.ZYID00,                              --住院ID
               A.YEXM00,                              --婴儿姓名
               '0',                                   --药品
               A.CLBZ00,                              --处理标志长期'0'短期'1'
               A.DMBZ00,                              --毒麻标志'0'正常'1'毒麻
               to_number(A.YPLBBH),                   --药品类别
               decode(A.YZZT00,'2',decode(sign(to_number(A.ZXRQ00)-to_number(to_char(sysdate,'YYYYMMDD'))),0,'9',1,'9','2'),A.YZZT00),      --医嘱状态
               A.YZID00,                              --医嘱ID
               B.YZMXID,                              --医嘱明细ID
               substr(A.QYRQ00,3,6)||' '||substr(A.QYSJ00,1,5),                      --起用日期+起用时间
               trim(C.ZWXM00)||'/'||trim(A.LRRXM0)||'/'||trim(A.HDRXM0),             --开嘱医生+录入人姓名+核对人姓名
               --用法信息
               decode(A.YPLBBH,'2',to_char(A.ZQCYTS)||'贴','') --草药贴数
                   ||decode(A.YPLBBH,'2',decode(A.JYCS00,0,'','代煎'||to_char(A.JYCS00)||'贴'),'') --草药煎药次数
                   ||decode(A.YPLBBH,'2','',trim(A.PCMC00)||' ') --频次
                   ||decode(a.SRCS00,-1,'','[首'||to_char(a.SRCS00)||']') --首几
                   ||trim(A.YPYFMC) --用法
                   ||decode(A.CLBZ00,'0','',decode(A.ZQS000,1,'',to_char(A.ZQS000)||trim(A.ZQDW00))),--短期周期数
               --药品信息
               trim(B.YPMC00)--药品名称
                   ||decode(b.YPGG00,'','','['||trim(B.YPGG00)||']')--药品规格
                   ||decode(B.MCSL00,0,'',decode(substr(to_char(B.MCSL00),1,1),'.','0','')||to_char(B.MCSL00)||trim(B.JLDW00)) --每次数量
                   ||trim(B.PSMC00)                      --皮试名称
                   ||trim(B.XMYFMC) --草药细目名称
                   ||decode(b.YZCLLB,'正常','','自备药','[备]','嘱托','[嘱]','出院带药','[出]','基数药','[基]','门诊带药','[门]','领药','[领]','应急领药','[急]','') --处理
                   ||trim(B.BZ0000), --备注
               decode(A.CLBZ00,'0','',decode(A.YPLBBH,'2','',decode(B.LYL000,0,'[无]',
                   decode(substr(to_char(B.LYL000),1,1),'.','0','')||to_char(B.LYL000)||trim(B.ZYFYDW)))),--短期领药量
               substr(A.TZRQ00,3,6)||' '||substr(A.TZSJ00,1,5),             --停用日期+停用时间
               decode(trim(D.ZWXM00),'','',trim(D.ZWXM00)||'/')
                   ||trim(A.TZRXM0),           --停止医生+停止人姓名
               trim(A.YYZF00),                        --备注
               A.QYRQ00,                              --起用日期
               A.TZRQ00,                              --停止日期
               A.PXSJ00,                              --排序时间
               A.ZXRQ00,                              --执行日期
               --substr(A.TQRQ00,3,6)||' '||substr(A.TQSJ00,1,5), --提取日期
               A.TQRQ00, --提取日期
               substr(A.LRRQ00,3,6)||' '||A.LRSJ00, --录入时间
               NVL(F.YFLBID,-1),
               --substr(A.LRRQ00,3,6)||' '||A.PXSJ00, --录入时间
               a.sfcdbz,--是否查对
               a.pcmc00,
               a.BQH000 --病区
      from BQ_YPYZ00 a,
           BQ_YPYZMX b,
           BM_YGBM00 c,
           BM_YGBM00 d,
           BM_YPYF00 F
      where b.YZID00 = a.YZID00
      and c.YGBH00(+) = a.KZYS00
      and d.YGBH00(+) = a.TZYS00
      AND F.YFID00(+) = A.YFID00
UNION ALL
    select     A.ZYID00,  --住院ID
               A.YEXM00,  --婴儿姓名
               '1',       --非药品医嘱
               A.CLBZ00,  --处理标志长期'0'短期'1'
               '0',       --
               A.YZLB00,--医嘱类别
               decode(a.YZZT00,'2',decode(sign(to_number(a.TQRQ00)-to_number(to_char(sysdate,'YYYYMMDD'))),0,'9',1,'9','2'),a.YZZT00),      --医嘱状态
               A.YZMXID,--医嘱明细ID
               A.YZMXID,--医嘱明细ID
               substr(a.QYRQ00,3,6)||' '||substr(a.QYSJ00,1,5),          --起用日期+起用时间
               trim(b.ZWXM00)||'/'||trim(a.LRRXM0)||'/'||trim(a.HDRXM0), --开嘱医生+录入人姓名+核对人姓名
               --用法信息
               '',
               --治疗项目信息
               trim(a.ZLXMJC)||' '  --治疗项目名称
               ||decode(a.YZCLLB,'正常','','自备','[备]','嘱托','[嘱]','门诊处理','[门]','') --处理
               ||trim(a.PCMC00)||' ' --频次
               ||decode(a.MCSL00,1,'',decode(substr(a.MCSL00,1,1),'.','0','')||trim(a.MCSL00)||trim(a.DW0000))||' ' --每次数量
               ||decode(a.CLBZ00,0,decode(a.TS0000,0,'',to_char(a.TS0000)||trim(a.TSDW00)),decode(a.TS0000,1,'',to_char(a.TS0000)||trim(a.TSDW00))) --周期数
               ||'['||d.BMMC00||']',
               '',
               substr(A.TZRQ00,3,6)||' '||substr(A.TZSJ00,1,5),             --停用日期+停用时间
               decode(trim(C.ZWXM00),'','',trim(C.ZWXM00)||'/')
                   ||trim(A.TZRXM0),                  --停止医生+停止人姓名
               trim(A.BZ0000),                             --备注
               A.QYRQ00,                   --起用日期
               A.TZRQ00,                   --停止日期
               A.PXSJ00,                   --排序时间
               A.TQRQ00,                   --执行日期
               --substr(A.TQRQ00,3,6)||' '||substr(A.TQSJ00,1,5),--提取日期
               A.TQRQ00, --提取日期
               --substr(A.LRRQ00,3,6)||' '||A.LRSJ00, --录入时间
               substr(A.LRRQ00,3,6)||' '||A.PXSJ00, --录入时间
               0,
               a.sfcdbz,--是否查对
               a.pcmc00,
               a.BQH000 --病区
      from BQ_YJYZ00 a,
           BM_YGBM00 b,
           BM_YGBM00 c,
           BM_BMBM00 d
      where b.YGBH00(+) = a.KZYS00
      and c.YGBH00(+) = a.TZYS00
      and d.BMBH00(+) = a.ZXKS00
/

-- End of DDL script for VW_BQ_YZCD00