SP_ZY_BASYFS_NEWYBJK

--开始写入诊断list
  VINDEX0 := 0;
  for XJK_BRZDXX in (select ZDM000,ZDMC00,ZLXG00,ZDFS00,ZDLB00,ZDJB00,rownum as PXXH00 ,ZDCX00
                      from (select  decode(CHANGE_ZDBM_SSBM,'1',nvl(trim(b.DYBZBM),a.ZDM000),a.ZDM000) ZDM000,decode(CHANGE_ZDBM_SSBM,'1',nvl(trim(b.DYJBMC),a.ZDMC00),a.ZDMC00) ZDMC00,nvl(SF_ZY_GETZLXG00(a.ZYID00,a.ZLXG00,'0'),'5') ZLXG00,
                                    ZDFS00,a.ZDLB00,
                                    --ZDJB00,
                                    (select lpad(PLXH00,2,'0') from XT_ZDLB00 where DM0000=a.ZDLB00) ZDJB00,
                                    decode(a.ZDLB00,'3','01','4','02','03') ZDCX00
                              from BQ_BRZDXX a,xt_icd900 b where ZYID00=PZYID00 and a.ZDLB00 in ('1','2','3','4','5')  
							  --增加trim()
							  and trim(a.zdm000)=trim(b.icd900)
							  --and b.SYBZ00='1'
                    order by decode(a.ZDLB00,'3','0',a.ZDLB00))aa where rownum <=10 order by aa.ZDJB00 )
  loop