CREATE OR REPLACE VIEW SD_HOSPITAL.VW_PY_MZCFMX_BZ
 (
 CFLSH0, CFID00, CFXH00, CKPDXH, BRXM00, YPNM00, YPMC00, CFMX00, JE0000, 
XMYFMC, JXMC00, YPGG00, YPZSL0, YFYL00, LSDJ00, JLBZ00, PCMC00, PCMCSM, 
YYSJ00, YYSJDW, YFSMMC, YPYFMC, ZB0000, DLXH00, ZFBL00, YPDLBH, YPYL00, 
YFCFWZ

 )
 AS 
select
  X.CFLSH0,X.CFID00,0,
  nvl((select c.CKMC00||' '||'序号['||b.FYDLXH||']' bh0000 from YF_CFDL00 b, BM_CKBM00 c where  d.CFLSH0=b.CFLSH0 and c.CKBH00=b.FYCKBH and rownum=1),'.'),
  rpad(''||trim(d.BRXM00),16,' '),X.YPNM00,
  ''||X.YPMC00,
  rpad(trim(x.YPGG00),10,' ')||' '||
  lpad((decode(substr(X.YPZSL0,1,1),'.','0','')||X.YPZSL0||trim(X.CFDW00)),7,' ')||' '||
  trim(nvl(X.YFSMMC,' '))||trim(nvl(X.YPYFMC,' '))||','||
  trim(decode(X.CSL000,null,'',0,'',decode(substr(abs(X.CSL000),1,1),'.','0','')||abs(X.CSL000)||trim(X.JLDW00)))||
  ','||trim(x.PCMC00)||','||decode(x.YYSJ00,null,'',x.YYSJ00||trim(X.YYSJDW)),--lpad(trim(to_char(round(X.LSDJ00,2),'9999990.00')),5,' '),
  trim(round(YPZSL0*LSDJ00,2)),
  trim(X.XMYFMC),
  (select trim(JXMC00) from BM_YPJX00 A,BM_YD0000 B where B.YPNM00=X.YPNM00 and A.LBBH00=B.LBBH00 and A.JXBH00=B.JXBH00),
  trim(x.YPGG00),
  lpad((decode(substr(X.YPZSL0,1,1),'.','0','')||X.YPZSL0||trim(X.CFDW00)),7,' '),
  trim(nvl(X.YFSMMC,' '))||trim(nvl(X.YPYFMC,' '))||
  decode(abs(X.CSL000),null,'',decode(substr(abs(round(X.CSL000*X.F2J000/
  decode(Y.JLDW00,nvl(Y.MZKFDW,Y.JLDW00),X.ZHL000,X.F2J000),3)),1,1),'.','0','')
  ||abs(round(X.CSL000*X.F2J000/decode(Y.JLDW00,nvl(Y.MZKFDW,Y.JLDW00),X.ZHL000,
  X.F2J000),3))||'('|| decode(Y.JLDW00,nvl(Y.MZKFDW,Y.JLDW00),trim(X.CFDW00),trim(X.JLDW00))||')') ,
  lpad(trim(to_char(round(X.LSDJ00,2),'9999990.00')),5,' '), 'Y', trim(PCMC00),
  ''||(select substr(trim(SM0000),1,4) from BM_PC0000 where trim(PCMC00)=trim(X.PCMC00) and rownum=1), TO_CHAR(X.YYSJ00)||trim(X.YYSJDW),
  trim(X.YYSJDW), trim(X.YFSMMC), trim(X.YPYFMC) ||'           '||Y.BZ0000, X.ZB0000, (select FYDLXH from YF_CFDL00 where CFLSH0=X.CFLSH0) DLXH00,
  X.ZFBL00,
  X.YPDLBH,
  decode(trim(JXBH00),
                  '9', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  '19', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  '16', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  '7', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  '44', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  '47', '每次'
                   || rtrim(replace (to_char(x.CSL000, 'FM9999990.999')
                                      || ' ',
                                      '. ',
                                      ''
                                     )
                            )
                   || x.JLDW00,
                  DECODE (sf_yf_getcfdgs0 (x.CFLSH0, '0'),
                          '2', '每次'
                           || rtrim(replace (to_char(x.CSL000 / y.Z2J000,
                                                          'FM9999990.99'
                                                         )
                                              || ' ',
                                              '. ',
                                              ''
                                             )
                                    )
                           || y.ZYFYDW,
                             '每次'
                          || rtrim(replace (to_char(x.CSL000 / y.Z2J000,
                                                         'FM9999990.999'
                                                        )
                                             || ' ',
                                             '. ',
                                             ''
                                            )
                                   )
                          || y.ZYFYDW
                         )
                 )||'   ',
 (select e.CFWZMC from YF_YPKCXX c,BM_YPCFWZ e where  c.YFBMBH=d.YFBMBH  and c.YPNM00=x.YPNM00 and e.BMBH00=c.YFBMBH and c.CFWZ00=e.CFWZBH and rownum=1)
from YF_MZCFMX X,BM_YD0000 y,YF_MZCF00 d where x.YPNM00=y.YPNM00 and d.CFLSH0=x.CFLSH0  and X.SFZBY0='N'
/