create or replace procedure procPushMeasure(p_pk_measure varchar2)
as    
  v_pk_measure char(20);   
begin
  --新单据的主键为原主键中第5-8位替换为'PUSH'
  v_pk_measure := substr(p_pk_measure, 1, 4)||'PUSH'||substr(p_pk_measure, 9);
  dbms_output.put_line(p_pk_measure||' => '||v_pk_measure);

  insert into jgpm_cm_measure(pk_measure, vbillno, vbillstatus, biscollect, bissplit, bisupload, dapprovedate, dbilldate, dmakedate, dmeapprodate, dr, dreportdate, napplybasemny, 
                              napplyorigmny, napplyrate, nbaserate, ncanpaybasemny, ncanpayorigmny, ncanpayrate, ncontbasemny, ncontorigmny, ncurrpaybasemny, ncurrpayorigmny, 
                              ncurrprodbasemny, ncurrprodorigmny, nexecbasemny, nexecorigmny, nmeaapplybasemny, nmeaapplyorigmny, nmeaapprbasemny, nmeaapprorigmny, nmeasurbasemny, 
                              nmeasurorigmny, npaybasemny, npayorigmny, npayrate, nprevpaybasemny, nprevpayorigmny, nprevprodbasemny, nprevprodorigmny, nsumapplybasemny, nsumapplyorigmny, 
                              nsummeabasemny, nsummeaorigmny, pk_basetype, pk_billtype, pk_cont, pk_corp, pk_file, pk_origintype, pk_project, pk_source, sourcets, sourcetype, ts, 
                              vapproveid, vapprovenote, vauditor, vconmanager, vdealerid, vdef1, vdef10, vdef2, vdef3, vdef5, vdef6, vdef7, vdef8, vdef9, vdeptid, vmemo, voperatorid, 
                              vprocess, vrealmeasno, vreserve1, vreserve10, vreserve2, vreserve3, vreserve4, vreserve5, vreserve6, vreserve7, vreserve8, vreserve9, vsupermanager, vyearprojpoint, 
                              dreceiptdate, vmanagerpinion, vapprvstatus, vrealprocess, nmeaapprorigmnypart1, nmeaapprbasemnypart1, nmeaapprorigmnypart2, nmeaapprbasemnypart2, nmeaapprorigmnypart3, 
                              nmeaapprbasemnypart3, itermno, vyearmonth, dtermbegindate, dtermenddate, nmeaapplyedorigmny, nmeaapplyedbasemny, pk_valstat, nmeaapplyedbasemny, nmeaapplyedorigmny)
    SELECT v_pk_measure, 'T85L'||substr(vbillno,5), 8, biscollect, bissplit, bisupload, dapprovedate, dbilldate, dmakedate, dmeapprodate, dr, dreportdate, napplybasemny,
                              napplyorigmny, napplyrate, nbaserate, ncanpaybasemny, ncanpayorigmny, ncanpayrate, ncontbasemny, ncontorigmny, ncurrpaybasemny, ncurrpayorigmny, 
                              ncurrprodbasemny, ncurrprodorigmny, nexecbasemny, nexecorigmny, nmeaapplybasemny, nmeaapplyorigmny, nmeaapprbasemny, nmeaapprorigmny, nmeasurbasemny, 
                              nmeasurorigmny, npaybasemny, npayorigmny, npayrate, nprevpaybasemny, nprevpayorigmny, nprevprodbasemny, nprevprodorigmny, nsumapplybasemny, nsumapplyorigmny, 
                              nsummeabasemny, nsummeaorigmny, pk_basetype, pk_billtype, pk_cont, pk_corp, pk_file, pk_origintype, pk_project, pk_source, sourcets, sourcetype, ts, 
                              vapproveid, vapprovenote, vauditor, vconmanager, vdealerid, vdef1, vdef10, vdef2, vdef3, vdef5, vdef6, vdef7, vdef8, vdef9, vdeptid, vmemo, voperatorid, 
                              vprocess, vrealmeasno, vreserve1, vreserve10, vreserve2, vreserve3, vreserve4, vreserve5, vreserve6, vreserve7, vreserve8, vreserve9, vsupermanager, vyearprojpoint, 
                              dreceiptdate, vmanagerpinion, vapprvstatus, vrealprocess, nmeaapprorigmnypart1, nmeaapprbasemnypart1, nmeaapprorigmnypart2, nmeaapprbasemnypart2, nmeaapprorigmnypart3, 
                              nmeaapprbasemnypart3, itermno, vyearmonth, dtermbegindate, dtermenddate, nmeaapplyedorigmny, nmeaapplyedbasemny, pk_valstat, nmeaapplyedbasemny, nmeaapplyedorigmny
      FROM jgpm_cm_measure
      WHERE pk_measure=p_pk_measure;
end;