CREATE OR REPLACE VIEW SD_HOSPITAL.VW_ZS13_YPSRF0
 (
 YPNM00, YKBMBH, YPBM00, BMPYSM, BMWBSM, BMMC00, YPMC00, EYPMC0, PYSM00, 
WBSM00, NSBL00, YPSPMC, YPGG00, KCDW00, JLDW00, ZYFYDW, MZFYDW, K2J000, 
Z2J000, M2J000, LSJ000, FYDJ00, GJJ000, CYJL00, SFKYYY, SFPSYY, CFJB00, 
GZDJ00, MZDJ00, DPDJ00, SJDJ00, LBBH00, YLBH00, JXBH00, ZFBL00, FBBH00, 
YBLB00, YBZXLB, YBLBMC, YFID00, YPYFMC, PCID00, ZQCD00, ZQDW00, CYL000, 
ZQS000, YPSYSM, BZ0000, JXMC00, YPMC02, YPMCLB, F2J000, YPBZ00, YPCZFL, 
ZJJLDW, ZJJL2J, MZKFDW, KSSJB0, HXMC00, ZJMZCF, QZFS00, ZDXL00, PSLX00, 
PSMC00, MAXTS0, MAXZL0, TSYBMC, ZJBZ00, BYFL00, YFBMBH, YKKCSL, ZJZYCF, 
DXSYBZ, YPXZ00, XYKC00, ZBQMC0, GJBZBM, GJBZMC, YPDJ00

 )
 AS 
select
  K.YPNM00,      --药品内码，机器内码
  K.YKBMBH,      --药库部门编号，区分药品所属的药库
  K.YPBM00,      --药品编码，院内码
  B.PYSM00 BMPYSM,      --别名拼音首码
  B.WBSM00 BMWBSM,      --别名五笔首码
  B.BMMC00,      --药品名称
  --decode(K.zbqmc0,'4+7','(4+7)',null,'')||decode(K.YPXZ00,1,'(基)',2,'(省基)',3,'',4,'')||decode(k.gwypfl,'0',null,'(高危)')||K.YPMC00 YPMC00,      --药品名称
 decode((select VALUE0 from XT_XTCS00 where NAME00='ZS_YPQSFXSTSZF' and  rownum=1),'Y',decode(K.ZBQMC0,'4+7','(4+7)',null,'')||decode(K.YPXZ00,1,'(基)',2,'(省基)',3,'',4,'')||decode(K.GWYPFL,'0',null,'(高危)')||K.YPMC00,K.YPMC00) YPMC00,      --药品名称
  K.EYPMC0,      --英文名
  K.PYSM00,      --拼音首码
  K.WBSM00,      --五笔首码
  K.NSBL00,      --数量
  decode(K.LBBH00,'0','[西药]','1','[中成药]')||K.YPMC00 YPSPMC,      --药品商品名称
  K.YPGG00,      --规格
  K.KCDW00,      --库存单位(K)
  nvl(trim(K.MZKFDW),K.JLDW00) JLDW00,      --剂量单位改为门诊开方单位
  K.ZYFYDW,      --住院发药单位(Z)（住院药房维护）
  K.MZFYDW,      --门诊发药单位(M)（门诊药房维护）
  K.K2J000,      --K/J转换率
  K.Z2J000,      --Z/J转换率
  K.M2J000,      --M/J转换率
  K.LSJ000,      --零售价(库存单位)
  to_char(round(F.LSDJ00 / (K.K2J000 * K.NSBL00) * K.M2J000, 4),'fm99999999990.9999')||'/'||K.MZFYDW FYDJ00,--发药单价(门诊发药单位)
  round(K.GJJ000/K.NSBL00,4) GJJ000,      --购进价(库存单位,最近一批)
  round(K.CYJL00/K.F2J000,4) CYJL00,      --常用剂量
  K.SFKYYY,      --是否科研用药 'Y':科研用药,单价数量均为0
  K.SFPSYY,      --是否皮试用药'N'-否，'Y'-是
  K.CFJB00,      --处方级别
  K.GZDJ00,      --贵重等级
  K.MZDJ00,      --麻醉等级
  K.DPDJ00,      --毒品等级
  K.SJDJ00,      --神经等级
  K.LBBH00,      --药品类号
  K.YLBH00,      --药理编号
  K.JXBH00,      --剂型编号
  1 ZFBL00,      --自付比率
  1 FBBH00,      --费别编号
  '7' YBLB00,      --医保项目类别
  '0' YBZXLB,      --医保中心类别
  '自付' YBLBMC,      --医保项目类别名称
  K.YFID00,      --药品用法
  (select YPYFMC from BM_YPYF00 Y where Y.YFID00=K.YFID00) YPYFMC,      --药品用法名称
  K.PCID00,      --服用频次
  G.ZQCD00,      --周期长度
  G.ZQDW00,      --周期单位
  round(K.CYL000/K.F2J000,4)*K.NSBL00 CYL000,      --次用量
  K.ZQS000,      --周期数
  K.YPSYSM,       --药品使用说明
  '' BZ0000,    --备注
  (select JXMC00 from BM_YPJX00 where LBBH00=K.LBBH00 and JXBH00=K.JXBH00) JXMC00, --剂型名称
  K.YPTYM0 YPMC02,--药品名称2
  K.YPMCLB,    --ypmc00字段代表的名称 0: 通用名 1：商品名 2： 别名
  K.F2J000,    --门诊开方单位转换率
  K.BZ0000 YPBZ00,
  K.YPCZFL,    --药品材质分类 0:中草药 1:颗粒药 2:全成分
  K.ZJJLDW,    --中间计量单位(J)
  K.ZJJL2J,    --中间计量/剂量 转换率
  K.MZKFDW,    --门诊开方单位
  K.KSSJB0,    --抗生素级别
  K.HXMC00,    --rbh 20120908 药品化学名称
  K.ZJMZCF,    --中间门诊拆分 0:不拆分 1:拆分
  K.QZFS00,    --取整方式
  K.ZDXL00,    --最大剂量
  K.PSLX00,    --皮试id BM_PS0000.psid00
  (select PSMC00 from BM_PS0000 where PSID00=K.PSLX00) PSMC00,--皮试名称 BM_PS0000.psmc00
  K.MAXTS0,    --最大天数
  K.MAXZL0,    --最大总量
  (select MC0000 from BM_TYZD00 where ZDMC00 ='药典维护-特殊医保类别' and NBBH00=K.TSYBLB) TSYBMC,
  K.ZJBZ00,
  K.BYFL00,--摆药分类 0,针剂;1,口服
  F.YFBMBH,--药房部门编号
  F.YKKCSL,--预扣库存数量
  K.ZJZYCF,--中间住院拆分 0:不拆分 1:拆分
 -- K.DXSYBZ, --大型输液标志
  decode(K.DXSYBZ,0,
          decode(
          (select 1 from BM_YDTSSX M, BM_YPSX00 N where M.YPNM00 = K.YPNM00  and M.SXBH00 = N.SXBH00 and N.BZ0000 like '%溶媒%'  and rownum <= 1),
          null, 0,1), 1) DXSYBZ,    -- 大输液
 decode(K.YPXZ00,1,'是',2,'是',3,'否',4,'否')YPXZ00,
  decode((select trim(VALUE0) from XT_XTCS00 where NAME00='XT_SFXSKC'),'N',
  decode(sign(decode((select trim(VALUE0) from XT_XTCS00 where NAME00='XT_bsdjkc'),'Y',(F.YKKCSL-F.YCKCSL)*K.NSBL00  ,(F.SJKCSL-F.YCKCSL)*K.NSBL00 )    ),1,null,0),
    round(decode((select trim(VALUE0) from XT_XTCS00 where NAME00='XT_bsdjkc'),'Y',(F.YKKCSL-F.YCKCSL)*K.NSBL00  ,(F.SJKCSL-F.YCKCSL)*K.NSBL00 )
     /decode((Select nvl(trim(VALUE0),'Y') from XT_XTCS00 where NAME00='YF_SFABYFFYDWFY'),'Y',F.F2J000,K.M2J000),3)
    ||decode((Select nvl(trim(VALUE0),'Y') from XT_XTCS00 where NAME00='YF_SFABYFFYDWFY'),'Y',F.FYDW00,K.MZFYDW)) XYKC00,  --库存
    K.ZBQMC0,
  K.GJBZBM,
  K.GJBZMC,
  trim(nvl(decode(K.GZDJ00, 0, '', ' 贵重')||decode(K.MZDJ00, 0, '', ' 麻醉') ||decode(K.DPDJ00, 0, '', ' 毒品')||decode(K.SJDJ00, 0, '', ' 精神')
  ||decode(K.FSDJ00, 0, '', ' 放射') || decode(K.KSSJB0,'1',' 非限制使用抗生素','2',' 限制使用抗生素','3',' 特殊使用抗生素','')
  || decode(K.WZDJ00, '0', '', ' 高危'),'普通')) YPDJ00
  from BM_YD0000 K,BM_PC0000 G,BM_YPBM00 B,YF_YPKCXX F
  where K.YPNM00=B.YPNM00(+) and G.PCID00(+)=K.PCID00
  and K.TZRQ00 is null
  and F.YPNM00=K.YPNM00 and F.PDXH00<>'0' and nvl(F.ZTBZ00,'0')='0'
/