create or replace procedure SP_BA_BAJKDRGJGXRQ
(
  PZYID00        in  char
)
as
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- shieq      2020.05.11   病案接口导入根据更新日期
-- shieq      2020.06.11   备份，评分
COUNTER1               number(3);
COUNTER               number(3);
begin
--病案首页
--SHBZ00='5',ZZZT00=decode(ZZZT00,null,'5',ZZZT00),QSRQ00=to_char(sysdate,'YYYYMMDD'),
--QSSJ00=to_char(sysdate,'HH24:MI:SS'),QSR000=PYGBH00
    insert into BA_XTCZRZ(CZID00,CZB000,CZLX00,CZRYBM,CZNR00,lsh000) 
      Values(SQ_BA_XTCZRZ_CZID00.NEXTVAL,'BA_BRZYXX',1,9999,PZYID00||'任务导入',PZYID00);


 select count(*) into COUNTER1 from BA_BRZYXX where LSH000=PZYID00;
 if COUNTER1=0 then
     insert into BA_BRZYXX(LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,
      BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
      LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
      CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
      SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
      SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,LRRY00,LRRQ00,JFFS00,ZJE000,
      ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZXC0,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
      LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,SHBZ00,
      JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,BRNLMM,BRNLDD,xgrq00,xgsj00)
      select LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,

      BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
      LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
      CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
      SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
      SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,LRRY00,LRRQ00,JFFS00,ZJE000,
      ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZ000,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
      LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,SHBZ00,
      JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,nvl(BRNLMM,0) BRNLMM,BRNLDD,xgrq00,xgsj00 from VW_MR_BRZYXX where LSH000=PZYID00;
      


 else
    update BA_BRZYXX A set (LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,
    BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
    LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
    CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
    SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
    SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,JFFS00,ZJE000,
    ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZXC0,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
    LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,
    JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,BRNLMM,BRNLDD,xgrq00,xgsj00) =
    (select LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,
    BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
    LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
    CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
    SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
    SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,JFFS00,ZJE000,
    ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZ000,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
    LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,
    JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,nvl(BRNLMM,0) BRNLMM,BRNLDD,xgrq00,xgsj00 from VW_MR_BRZYXX V where V.LSH000=PZYID00)
    where LSH000=PZYID00 ;
  end if;

/*  merge into BA_BRZYXX a using (select * from VW_MR_BAYSXX where lsh000=to_char(PZYID00)) b
  on (to_char(a.lsh000)=b.lsh000) when matched then update set a.KZR000=b.KZR000,a.KZRMC0=b.KZRMC0,
  a.FZR000=b.FZR000,a.FZRMC0=b.FZRMC0,a.ZZYS00=b.ZZYS00,a.ZZYSMC=b.ZZYSMC,a.ZYYS00=b.ZYYS00,
  a.ZYYSMC=b.ZYYSMC,a.JXYS00=b.JXYS00,a.JXYSMC=b.JXYSMC,a.YJSYS0=b.YJSYS0,
  a.YJSMC0=b.YJSMC0,a.SXYS00=b.SXYS00,a.SXYSMC=b.SXYSMC,a.ZKYS00=b.ZKYS00,a.ZKYSMC=b.ZKYSMC,
  a.ZKHS00=b.ZKHS00,a.ZKHSMC=b.ZKHSMC,a.ZRHS00=b.ZRHS00,a.ZRHSMC=b.ZRHSMC;
  */
  update BA_BRZYXX a set (a.KZR000,a.KZRMC0,a.FZR000,a.FZRMC0,a.ZZYS00,a.ZZYSMC,a.ZYYS00,a.ZYYSMC,
  a.JXYS00,a.JXYSMC,a.YJSYS0,a.YJSMC0,a.SXYS00,a.SXYSMC,a.ZKYS00,a.ZKYSMC,a.ZKHS00,a.ZKHSMC,a.ZRHS00,a.ZRHSMC)=
  (select b.KZR000,b.KZRMC0,b.FZR000,b.FZRMC0,b.ZZYS00,b.ZZYSMC,b.ZYYS00,b.ZYYSMC,
  b.JXYS00,b.JXYSMC,b.YJSYS0,b.YJSMC0,b.SXYS00,b.SXYSMC,b.ZKYS00,b.ZKYSMC,b.ZKHS00,b.ZKHSMC,b.ZRHS00,
  b.ZRHSMC from VW_MR_BAYSXX b where to_char(a.lsh000)=b.lsh000)
  where exists(select 1 from VW_MR_BAYSXX b where to_char(a.lsh000)=b.lsh000) and a.lsh000=PZYID00;


 --手术表
delete from BA_BRSSXX where LSH000 =PZYID00;
insert into BA_BRSSXX(LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,
SSYSMC,IYS000,IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,lb0000)
select * from VW_MR_BRSSXX where LSH000 =PZYID00;
 commit;
 --诊断表
  delete from BQ_BRZDXX where ZYID00 =PZYID00;
insert into BQ_BRZDXX(ID0000,ZYID00,PLXH00,ZDLB00,ZDM000,ZDMC00,FZBM00,FZMC00,ZDRQ00,ZLXG00,SFYZ00,M16800,RYBQ00,BRID00)
 select SQ_BQ_BRZDXX_ID0000.nextval,ZYID00,PLXH00,ZDLB00,ZDM000,ZDMC00,FZBM00,FZMC00,ZDRQ00,ZLXG00,SFYZ00,M16800,RYBQ00,BRID00 from VW_MR_BRZDXX t where ZYID00=PZYID00;

 --医生表
  delete from BA_SSYSB0 where LSH000 =PZYID00;
insert into BA_SSYSB0(LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00) select LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00 from BA_BRSSXX T where T.LSH000=PZYID00;
commit;
--接生信息
  delete from BA_BRJSXX where LSH000 =PZYID00;
   insert into BA_BRJSXX(LSH000,JSXH00,YC0000,CC0000,TS0000,FMFS00,HYPL00,HYZS00,SYTS00,YEQK00,APGAR0,JSYS00,JSYSMC,YECSRQ,YETZ00,YEXB00,YEXM00)
   select LSH000,JSXH00,YC0000,CC0000,TS0000,FMFS00,HYPL00,HYZS00,SYTS00,YEQK00,APGAR0,JSYS00,JSYSMC,YECSRQ,YETZ00,YEXB00,YEXM00 from VW_MR_BRJSXX where lsh000 =PZYID00;

--费用表
  delete from BA_SYFYB0 where ZYID00 =PZYID00;
  insert into BA_SYFYB0(ZYID00,ZYZFY0,ZFJE00,YBYLFW,ZYBZLZ,ZYBZHZ,YBZLCZ,HLF000,QTFY00,BLZDF0,SYSZDF,YXXZDF,LCZDXM,FSSZLF,LCWLZL,SSZLF0,
  MZF000,SSF000,KFF000,ZYZD00,ZYZL00,ZYWZ00,ZYGS00,ZCYJF0,ZYTNZL,ZYGCZL,ZYTSZL,ZYQT00,ZYTSTP,BZSSF0,XYF000,KJYWF0,ZCYF00,ZYZJF0,ZCYF10,
  XF0000,BDBLZP,QDBLZP,NXYZZP,XBYZZP,JCYCLF,ZLYCLF,SSYCLF,QTF000)
  select ZYID00,ZYZFY0,ZFJE00,YBYLFW,ZYBZLZ,ZYBZHZ,YBZLCZ,HLF000,QTFY00,BLZDF0,SYSZDF,YXXZDF,LCZDXM,FSSZLF,LCWLZL,SSZLF0,
  MZF000,SSF000,KFF000,ZYZD00,ZYZL00,ZYWZ00,ZYGS00,ZCYJF0,ZYTNZL,ZYGCZL,ZYTSZL,ZYQT00,ZYTSTP,BZSSF0,XYF000,KJYWF0,ZCYF00,ZYZJF0,ZCYF10,
  XF0000,BDBLZP,QDBLZP,NXYZZP,XBYZZP,JCYCLF,ZLYCLF,SSYCLF,QTF000 from VW_MR_BRZYFY where ZYID00=PZYID00;
commit;
--病案首页附页
  delete from BA_BRZYFY where ZYID00 =PZYID00;
/*insert into  BA_BRZYFY (ZYID00,ZYH000,JLLCLJ,JXDBFF,ZYSFBW,SFSX00,SFYYGR)
  select ZYID00,ZYH000,JLLCLJ,JXDBFF,ZYSFBW,SFSX00,SFYYGR from vw_mr_fyxx00 where ZYID00=PZYID00;*/
  insert into  BA_BRZYFY (ZYID00,ZYH000,jllclj,jxdbff,zysfbw,sfsx00,sfyygr,zlxg00,wclclj,wwcyy0,wcdbz0,rzrq00,rzsj00,sfsy00,sxsyfy,lcljmc,lcljbm,dbzmc0,dbzbm0,sfswbl,yngrmc,sfrjss,
jicurq,jicusj,cicurq,cicusj,hxjysj,sfricu)
  select ZYID00,ZYH000,jllclj,jxdbff,zysfbw,trim(sfsx00),sfyygr,zlxg00,wclclj,wwcyy0,wcdbz0,rzrq00,rzsj00,trim(sfsy00),trim(sxsyfy),lcljmc,lcljbm,dbzmc0,dbzbm0,sfswbl,yngrmc,sfrjss,
jicurq,jicusj,cicurq,cicusj,hxjysj,sfricu from vw_mr_fyxx00 where ZYID00=PZYID00;
commit;


--病案首页签收-病案室诊断表
 select count(*) into COUNTER
   from BQ_BASZDB
  where ZYID00=PZYID00;
  if COUNTER=0 then
insert into  BQ_BASZDB(ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00) select ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00 from BQ_BRZDXX where ZYID00=PZYID00;
 
 
  --如果病人年龄大于5，且存在P码，将P码转到婴儿诊断信息表中
 select  count(1)  into COUNTER from BA_BRZYXX BA 
join BQ_BRZDXX ZD on BA.LSH000=ZD.ZYID00
where BA.LSH000=PZYID00 and ba.brnl00>5
and ZD.ZDM000 like 'P%';
 if COUNTER<>0 then
   insert into  BA_YEZDXX( ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00) select  ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00 from BQ_BRZDXX where ZYID00=PZYID00 and ZDM000 like 'P%';
 
 delete from BQ_BASZDB where ZYID00=PZYID00 and ZDM000 like 'P%';
   end if;
 
 
 
  end if;
 --病案室手术表
 select count(*) into COUNTER
   from BA_BASSSB
  where LSH000=PZYID00;
  if COUNTER=0 then
insert into BA_BASSSB(LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00) select LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00 from BA_BRSSXX T where T.LSH000=PZYID00;
 end if;
 --病案室原始诊断表
  select count(*) into COUNTER
   from BQ_ZDYSB0
  where ZYID00=PZYID00;
  if COUNTER=0 then
insert into  BQ_ZDYSB0(ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00) select ID0000,BRID00,ZYID00,ZDLB00,ZDM000,ZDMC00,ZDRQ00,ZDSJ00,
 SFYZ00,ZLXG00,LRR000,YQBGBZ,ZDFS00,CRDJID,BZ0000,FZBM00,
 PLXH00,FZMC00,M16800,RYBQ00,ZDJB00,ZDBZ00,DYCS00,BGRQ00,
 BWMC00,FWMC00 from BQ_BRZDXX where ZYID00=PZYID00;
 end if;
 --病案室原始手术表
 select count(*) into COUNTER
   from BA_SSYSB0
  where LSH000=PZYID00;
  if COUNTER=0 then
insert into BA_SSYSB0(LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00) select LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,SSYSMC,IYS000,
 IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,SQSHFH,CZRQ00,CZSJ00,CZY000,
 SFMZSW,BWMC00,FWMC00,BCSM00 from BA_BRSSXX T where T.LSH000=PZYID00;
  end if;
--同步病案室诊断修改界面病人住院信息
 select count(*) into COUNTER
   from BA_BASZYB
  where LSH000=PZYID00;
  if COUNTER=0 then

   insert into BA_BASZYB (LSH000,ZYH000, BLZDBM, BLZD00, SSZDWY, SSZDBM,ZLBM00,ZLMC00)
     select LSH000, ZYH000,BLZDBM, BLZD00, SSZDWY, SSZDBM,ZLBM00,ZLMC00 from BA_BRZYXX
      where LSH000=PZYID00;
  end if;
--同步医生原始诊断界面病人住院信息表
--病理诊断
  select count(*) into COUNTER
   from BQ_ZDYSB0
  where ZYID00=PZYID00 and ZDLB00='5';
  if COUNTER=0 then

   insert into BQ_ZDYSB0 (ID0000,BRID00,ZYID00, ZDLB00,ZDM000, ZDMC00, SFYZ00)
     select 0,0,LSH000,'5', BLZDBM, BLZD00, '0' from BA_BRZYXX
      where LSH000=PZYID00;
  end if;
  --损伤中毒因素
 select count(*) into COUNTER
   from BQ_ZDYSB0
  where ZYID00=PZYID00 and ZDLB00='7';
  if COUNTER=0 then

   insert into BQ_ZDYSB0 (ID0000,BRID00,ZYID00, ZDLB00,ZDM000, ZDMC00, SFYZ00)
     select 0,0,LSH000,'7', SSZDBM, SSZDWY, '0' from BA_BRZYXX
      where LSH000=PZYID00;
  end if;
  --肿瘤形态
 select count(*) into COUNTER
   from BQ_ZDYSB0
  where ZYID00=PZYID00 and ZDLB00='0';
  if COUNTER=0 then

   insert into BQ_ZDYSB0 (ID0000,BRID00,ZYID00, ZDLB00,ZDM000, ZDMC00, SFYZ00)
     select 0,0,LSH000,'0', ZLBM00, ZLMC00, '0' from BA_BRZYXX
      where LSH000=PZYID00;
  end if;

commit;

----备份表
 if COUNTER1=0 then
   
 
  select count(*) into COUNTER
   from BA_BRZY02
  where LSH000=PZYID00 ;
  if COUNTER=0 then
        insert into BA_BRZY02(LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,
  BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
  LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
  CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
  SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
  SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,LRRY00,LRRQ00,JFFS00,ZJE000,
  ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZXC0,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
  LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,--SHBZ00,
  JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,BRNLMM,BRNLDD,xgrq00,xgsj00,
  KZR000,KZRMC0,FZR000,FZRMC0,ZZYS00,ZZYSMC,ZYYS00,ZYYSMC,JXYS00,JXYSMC,YJSYS0,YJSMC0,
  SXYS00,SXYSMC,ZKYS00,ZKYSMC,ZKHS00,ZKHSMC,ZRHS00,ZRHSMC)
  select LSH000,BAH000,ZYCS00,ZYH000,BRXM00,BRXB00,BRCSRQ,BRNL00,HYZK00,ZY0000,
  BRLY00,CSSF00,CSXS00,MZ0000,GJ0000,SFZH00,GZDW00,GZDH00,GZYB00,JTDZ00,JTDH00,JTYB00,LXRXM0,
  LXRDZ0,LXRDH0,LXRGX0,ZDFS00,RYQK00,RYRQ00,RYSJ00,RYKB00,RYKBMC,RYBF00,ZKKB00,ZKKBMC,CYRQ00,
  CYSJ00,CYKB00,CYKBMC,CYBF00,ZYTS00,QZRQ00,BLZD00,GMYW00,HBSAG0,HCVAB0,HIVAB0,MZCYFH,RYCYFH,
  SQSHFH,LCBLFH,FSBLFH,QJCS00,CGCS00,BAZL00,SFSJ00,DYBL00,SFSZ00,SZQX00,SJBL00,XX0000,RH0000,
  SXFY00,HXB000,XXB000,XJ0000,QX0000,SXQT00,ZKRQ00,BAZT00,SRRK00,LRRY00,LRRQ00,JFFS00,ZJE000,
  ZYLSH0,CARDNO,BZ0000,JKDAH0,CSDS00,YECSTZ,YERYTZ,XZZXC0,XZZDH0,XZZYB0,BLZDBM,BLH000,SFYWGM,
  LYFS00,ZYYLJG,ZZYJH0,ZZYMD0,HMRYQD,HMRYQH,HMRYQM,HMRYHD,HMRYHH,HMRYHM,LRRYMC,--SHBZ00,
  JGSF00,JGXS00,RYTJ00,SSZDWY,SSZDBM,LCLJ01,BRNLMM,BRNLDD,xgrq00,xgsj00,
  KZR000,KZRMC0,FZR000,FZRMC0,ZZYS00,ZZYSMC,ZYYS00,ZYYSMC,JXYS00,JXYSMC,YJSYS0,YJSMC0,
  SXYS00,SXYSMC,ZKYS00,ZKYSMC,ZKHS00,ZKHSMC,ZRHS00,ZRHSMC from BA_BRZYXX where LSH000=PZYID00;
  end if;

 select count(*) into COUNTER
   from BA_BRSS02
  where LSH000=PZYID00 ;
  if COUNTER=0 then
 insert into BA_BRSS02(LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,
SSYSMC,IYS000,IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,lb0000)
select LSH000,SSXH00,SSLB00,SSM000,SSMC00,SSRQ00,SSSJ00,SSZL00,SSYS00,
SSYSMC,IYS000,IYSMC0,IIYS00,IIYSMC,MZFS00,QKYHDJ,MZYS00,MZYSMC,lb0000
 from BA_BRSSXX where LSH000 =PZYID00;
   end if;
 
  select count(*) into COUNTER
   from BQ_BRZD02
  where ZYID00=PZYID00 ;
  if COUNTER=0 then
  insert into BQ_BRZD02(ID0000,ZYID00,PLXH00,ZDLB00,ZDM000,ZDMC00,FZBM00,FZMC00,ZDRQ00,ZLXG00,SFYZ00,M16800,RYBQ00,BRID00)
 select ID0000,ZYID00,PLXH00,ZDLB00,ZDM000,ZDMC00,FZBM00,FZMC00,ZDRQ00,ZLXG00,SFYZ00,M16800,RYBQ00,BRID00
  from BQ_BRZDXX  where ZYID00=PZYID00;
    end if;
   commit;
 
   SP_BA_BASYSJZLPFBZBYLSH000(PZYID00,9999,'9999');
 end if;


exception
  when others then
      raise_application_error(-20001,'流水号'||PZYID00||'执行过程SP_TransLog出错！');
end;