Oracle存储过程导入，判断已有数据更新，没有的数据导入，统计导入成功与失败数，返回一个表

create or replace procedure Proc_PX_GWBMImport(PlanTimes nvarchar2,BMDates nvarchar2,PWDs nvarchar2,cur_arg out sys_refcursor)
as
successc number;
failc number;
chongf number;
counts number;
begin
  delete from PROC_PXBAOMLS where identitynum=' ' or identitynum is null;

select  count(1) into counts  from PROC_PXBAOMLS;

update PROC_PXBAOMLS set PlanTime=PlanTimes;
/*身份证重复的，更新标记*/
update PROC_PXBAOMLS set Flag='1' where identitynum in (
select PROC_PXBAOMLS.identitynum from PROC_PXBAOMLS right join (
select identitynum From PROC_PXBAOMLS Group by identitynum having Count(identitynum) > 1 ) T on PROC_PXBAOMLS.identitynum = T.identitynum );

/*身份证不符合规则的，更新标记*/

update PROC_PXBAOMLS set Flag='0' where (select CHECK_IDCARD(PROC_PXBAOMLS.identitynum) as IsRight from dual )='0';

/*插入到人员表*/
   insert into pk_user(
                        RowGuid,
                        Name,
                        SEX,
                        IdentityNum,
                        LoginID,
                        Password,
                        DanWeiName,
                        MobilePhone,
                        IsEnable,
                        Status,
                        USERTYPE
                        )
                 (select
                        LOWER(sys_guid()),
                        a.UserName,
                        (case a.Sex when cast('男' as nvarchar2(10)) then cast('0' as nvarchar2(10))  else cast('1' as nvarchar2(10))  end) as Sex,
                        a.identitynum,
                        a.identitynum,
                        PWDs,
                        a.DANWEINAME,
                        a.MobilePhone,
                        '0',
                        '0',
                        '0'
                        from PROC_PXBAOMLS a --where a.identitynum not in (select identitynum from pk_user) and (a.flag is null or a.flag!='1')
                        where not exists (select identitynum from pk_user where a.identitynum=pk_user.IDENTITYNUM) and  a.flag is null
                        );
    /*更新人员表 */
    update pk_user set Name=(select UserName from PROC_PXBAOMLS where PROC_PXBAOMLS.identitynum=pk_user.identitynum ),
                       SEX=(select (case PROC_PXBAOMLS.Sex when cast('男' as nvarchar2(10)) then cast('0' as nvarchar2(10))  else cast('1' as nvarchar2(10))  end) as Sex from PROC_PXBAOMLS where PROC_PXBAOMLS.identitynum=pk_user.identitynum  ),
                       LoginID=(select IdentityNum from PROC_PXBAOMLS where PROC_PXBAOMLS.identitynum=pk_user.identitynum ),
                       DanWeiName=(select danweiname from PROC_PXBAOMLS where PROC_PXBAOMLS.identitynum=pk_user.identitynum  ),
                       MobilePhone=(select MobilePhone from PROC_PXBAOMLS where PROC_PXBAOMLS.identitynum=pk_user.identitynum ) 
                       --where identitynum in(select identitynum from PROC_PXBAOMLS where (PROC_PXBAOMLS.flag is null or PROC_PXBAOMLS.flag!='1'));
                        where identitynum in(select identitynum from PROC_PXBAOMLS where (PROC_PXBAOMLS.flag is null));



    /*插入到报名表*/
     insert into px_baom(
                        RowGuid,
                        IsPay,
                        IsDel,
                        Status,
                        AddDate,
                        Name,
                        LoginID,
                        UserGuid,
                        PXPrograms,
                        DanWeiName,
                        PlanTime,
                        IsImport,
                        IsCurrent,
                        TrainType,
                        IsResit
                        )
                  (select
                          LOWER(sys_guid()),
                          '0',
                          '0',
                          '0',
                          to_date(BMDates,'yyyy-mm-dd HH24:MI:SS'),
                          a.name,
                          a.loginid,
                          a.rowguid,
                          '01',
                          a.danweiname,
                          PlanTimes,
                          '1',
                          '1',
                          (select ItemValue from VIEW_CodeMain_CodeItems where CodeName='PX_培训类型' and ItemText=b.TrainType) as TrainType,
                          (select ItemValue from VIEW_CodeMain_CodeItems where CodeName='PX_是否' and ItemText=b.IsResit) as IsResit
                          --from pk_user a inner join PROC_PXBAOMLS b on a.identitynum=b.identitynum  where (b.flag is null or b.flag!='1')
                          from pk_user a inner join PROC_PXBAOMLS b on a.identitynum=b.identitynum  where (b.flag is null)
                          );

       /*插入到报名子表   */
       insert into px_baomdetail(
                                 RowGuid,
                                 IsDel,
                                 ItemName,
                                 ItemGuid,
                                 ParentGuid,
                                 IsConfirm
                                 )
                         （select
                                  LOWER(sys_guid()),
                                  '0',
                                  a.BKTYPE,--b.BKTYPE,
                                  (select RowGuid from px_zhuanye where zhuanyname=a.BKTYPE and gangwnum='01') as ItemGuid,
                                  a.rowguid,
                                  '0'
                           from 
                           (--select * from px_baom a inner join PROC_PXBAOMLS b on a.loginid=b.identitynum where (b.flag is null or b.flag!='1') order by row_id desc)a where rownum <=counts
                           select * from px_baom a inner join PROC_PXBAOMLS b on a.loginid=b.identitynum where (b.flag is null) order by row_id desc)a where rownum <=counts
                           --px_baom a inner join PROC_PXBAOMLS b on a.loginid=b.identitynum where rownum <=counts
                                  ）;


  --更新导入成功标记
  
  update PROC_PXBAOMLS set flag='2' where flag is null  and IdentityNum in (select IdentityNum  from pk_user  );
  update PROC_PXBAOMLS set flag='0' where not exists (select identitynum from pk_user where PROC_PXBAOMLS.identitynum=pk_user.IDENTITYNUM) and PROC_PXBAOMLS.flag is null;
  --where (flag is null or flag!='1') and IdentityNum not in (select IdentityNum  from pk_user  );
   commit;

   select  count(1) into successc  from PROC_PXBAOMLS where  Flag='2';
   select count(1) into failc  from PROC_PXBAOMLS where  Flag='0';--nvl(flag,0)=1;
   select count(1) into chongf from PROC_PXBAOMLS where  Flag='1';

   open cur_arg for  select successc as successc,failc as failc,chongf as chongf from dual;
  end;